Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 150060
09.11.2008, 23:03
0.00 руб.
0 3 2
Компьютеры Программирование
Помогите плизз, небольшую программку написать
Дано 50 вещественных чисел. Найти величину наибольшего из них.
с помощью оператора IF

Обсуждение

Неизвестный
09.11.2008, 23:46
общий
11.11.2008, 08:17
это ответ
Здравствуйте, Strike5555!

Для решения этой задачи, я использовал массив вещественных чисел. Код в приложении.

I wish you successes!

Приложение:
program Strike;
uses crt;

const size = 50;

var mas : array[1 .. size] of real;
i,d : integer;
max : single;

Begin
clrscr;
randomize;

write(' Введите значение диапазона­: ');
readln(d);

for i := 1 to size do begin
mas[i] := random(d);
end;


writeln;

write (' Массив вещественных чисел: ');

writeln;
writeln;

max := mas[1];

for i := 1 to size do begin
write (' ',mas[i]:3:1);
if max < mas[i] then max := mas[i];
end;

writeln;
writeln;

write(' Максимальный элемент: ',max:3:1);

writeln;

readkey;
End.
Неизвестный
11.11.2008, 00:27
общий
а можно не используя массив?
Неизвестный
11.11.2008, 00:53
общий
это ответ
Здравствуйте, Strike5555!
Как Вы хотели, вариант без использования массива: числа вообще хранить не будем и используем всего две переменные: для текущего числа и для максимального из предыдущих. В данном случае это решение будет более оптимально, поскольку числа нам в будущем не понадобятся.

Код:
Const n = 50; {Число итераций}
Var a, max: real; {Переменные}
       i: integer;
Begin
 readln (max); {Принимаем первое введённое число за максимальное}
 for i:=1 to n-1 do {Цикл на 49 итераций}
 begin
   readln (a); {Ввод очередного числа}
   if a>max then max:= a; {Если текущее число больше запомненного ранее - перезаписываем}
 end;
 writeln ('Maksimum: ', max:3:5); {Вывод результата (действительное число в форматированном виде)}
end.


Удачи!
Форма ответа