Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
29
Добавлен:
31.03.2015
Размер:
199.68 Кб
Скачать
    1. Поиск экстремума в файле

Спецификация

Задача. Найти максимальный элемент в последовательности чисел, размещенных в файле.

Входные данные.

Состав: цел х – элемент файла

Диапазон: a < x < b

<x> …

fin

конец файла

Выходные данные.

xmax – максимальное значение

Аномалии. Не рассматриваются

Метод. xmax = a,

xmax = max (x, xmax) для каждого очередного х, введенного из файла fin

до признака конец файла.

П

Program Poisk_max (fin);

Var x, xmax, a: integer;

Fin: text;

Begin

xmax := a;

while not eof (fin) do

begin read (fin, x);

if x > xmax then xmax := x;

end;

writeln (‘max = ’, xmax);

сlose (fin)

End.

рограмма

{Инициализация файла fin}

Соседние файлы в папке ПРАКТИКУМ-1--5