Задания уровня 1

Упражнение 1. Программа, в результате выполнения которой выводятся все четные числа из данного файла int с целочисленными компонентами.

While not eof (int) do

Begin

read (int, i);

if i mod 2=0 then writeln (i)

End

End.

2. Запустите программу на выполнение и проверьте её работу:Ctrl-F9

3. Для просмотра результатов выполненной программы необходимо нажать:Alt-F5

4. Сохраните программу на своем диске:<F2> A:\P10PR1

Упражнение 2. Программа, которая формирует типизированный файл из целых чисел, вводимый с клавиатуры. Их количество заранее не известно. Признаком конца ввода является 0. Программа находит: сумму и произведение чисел из файла, разность между предпоследним и вторым по счету числами, наибольшее из чисел.

Program rabf

type file_type=file of integer;

var f: file_type;

sum, mult, r, k1, k2, max: integer;

Begin

writeln ('Введите элементы файла, окончание - 0');

{Запись элементов в файл}

assign (f, 'data.dat'); rewrite (f);

Repeat

readln (r); if r<>0 then write (f, r);

until r=0;

{Вычисление результатов}

seek (f, 0); sum:=0; mult:=1;

read (f, r); max:=r; seek (f, filepos(f)-1);

While not eof (f) do

Begin

read (f, r); sum:=sum+r; mult:=mult*r;

{Поиск максимального элемента}

if max<r then max:=r;

end;

seek (f, 1); read (f, k1); {Чтение второго компонента}

seek (f, filesize (f)-2); read (f, k2); { Чтение предпоследнего компонента}

close (f);

{Вывод результатов}

writeln ('Сумма = ', sum, #10#13'Произведение =', mult);

writeln ('Разность = ', k2-k1, #10#13'Максимум =', max);

End.

2. Запустите программу на выполнение и проверьте её работу:Ctrl-F9

3. Для просмотра результатов выполненной программы необходимо нажать:Alt-F5

4. Сохраните программу на своем диске:<F2> A:\P10PR2

3. Выполнить самостоятельно: