01.12.2007, 16:24
|
|
Познающий
Регистрация: 14.11.2007
Сообщений: 50
С нами:
9731398
Репутация:
6
|
|
помагите с fps срочна
Новое сообщениеДобавлено: 15:51, 01.12.2007 Ответить с цитатой Изменить/удалить это сообщение Удалить сообщение
может смаглибы памоч с заданием нада в числе найти максимальную и
минимальную цифру и растаяние от максимальной до минимальной
пример вводиш 123456789 max= 9 min= 1 растаяние равно 7 цыфр и считает все нармальна а вводишь 987654321 все неправильна ошибка в max и min я там указал мне нада здать будет 2 декабря памогите
program Bevarde1;
var n,a,s,min,g,max:longint;
begin
WriteLn('введите число');
Readln(n);
g:=n;
while n>0 do
begin
s := n mod 10;
n := n div 10;
if max > s then max:=max {здесь ашибка или нада есьчо чтота даписать }
else max:=s;
if max > s then min:=s
else min:=max; {до сюда }
end;
while g>0 do
begin
s := g mod 10;
g := g div 10;
if (min<>s ) and (max<>s)
then a:=1+a;
end;
WriteLn(a);
readln;
end.
|
|
|
01.12.2007, 17:41
|
|
Участник форума
Регистрация: 16.06.2007
Сообщений: 107
С нами:
9948928
Репутация:
208
|
|
сначала б русский выучил, а потом паскаль )
Код:
if max > s then max:=max {здесь ашибка или нада есьчо чтота даписать }
как ты можеш сравнивать мах, если она не инициализирована?
дальше смотреть тупо влом |
|
|
|
01.12.2007, 18:37
|
|
Познающий
Регистрация: 14.11.2007
Сообщений: 50
С нами:
9731398
Репутация:
6
|
|
дальше все ok
|
|
|
|
01.12.2007, 23:52
|
|
Постоянный
Регистрация: 16.04.2007
Сообщений: 398
С нами:
10037186
Репутация:
1462
|
|
еще бы 
а бесконечный* while не напрягает?
ps: с наступающим 
*в значении: ниразу без end; |
|
|
|
02.12.2007, 11:11
|
|
Познающий
Регистрация: 14.11.2007
Сообщений: 50
С нами:
9731398
Репутация:
6
|
|
а бесконечный* while не напрягает?
пачему так решил я уже исправил где указывал там и была ошибка вот без ашибак
program Bevarde1;
var n,a,g: longint;
s,max,min,imin,imax:byte;
begin
WriteLn('введите число');
Readln(n);
g:=n;
max:=0;
min:=9;
while n>0 do
begin
s := n mod 10;
n := n div 10;
if s>max then begin max:=s; imax:=max; end;
end;
while g>0 do
begin
s := g mod 10;
g := g div 10;
if (imin<>s ) and (imax<>s)
then a:=1+a;
end;
WriteLn(a);
readln;
end.
|
|
|
|
02.12.2007, 11:13
|
|
Познающий
Регистрация: 14.11.2007
Сообщений: 50
С нами:
9731398
Репутация:
6
|
|
а бесконечный* while не напрягает?
пачему так решил я уже исправил где указывал там и была ошибка вот без ашибак
program Bevarde1;
var n,a,g: longint;
s,max,min,imin,imax:byte;
begin
WriteLn('введите число');
Readln(n);
g:=n;
max:=0;
min:=9;
while n>0 do
begin
s := n mod 10;
n := n div 10;
if s>max then begin max:=s; imax:=max; end;
end;
while g>0 do
begin
s := g mod 10;
g := g div 10;
if (imin<>s ) and (imax<>s)
then a:=1+a;
end;
WriteLn(a);
readln;
end.
 |
|
|
|
|
 |
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид
