Задача 8

1. Условие: Составить схему алгоритма и написать ВР-программу, которая:

– вводит с клавиатуры последовательность целых чисел;

– размещает их в файле;

– считывает их из файла в одномерный массив и обрабатывает его (вид обработки см. в табл. П. 2).

Результат вывести на экран дисплея.

Пример: вид обработки заключается в подсчете количества положительных элементов массива.

2. Текст программы:

PROGRAM z8;

VAR mas:ARRAY[1..10] OF INTEGER; (* массив *)

i,kol,buf:INTEGER; (* индекс цикла, количество, буфер *)

f:TEXT;(* файл *)

BEGIN

ASSIGN (f,‘f.txt’);

REWRITE (f);

WRITELN (‘Введите значения элементов массива’);

FOR i:=1 TO 10 DO

BEGIN

READ (buf);

WRITELN (f,buf);

END;

RESET (f);

kol:=0;

FOR i:=1 TO 10 DO

BEGIN

READLN (f,mas[i]);

IF mas[i]>0 THEN kol:=kol+1;

END;

CLOSE (f);

IF kol>0 THEN

WRITELN (‘Кол-во положительных эл-ов в массиве =’,kol:2)

ELSE

WRITELN (‘Положительных элементов в массиве нет’)

END.

3. Схема алгоритма задачи 8

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

Закрытие файла

Считывание из файла

Настройка на считывание из файла

Настройка на запись в файл

Открытие файла

Объявление переменных

mas – массив чисел i – индекс массива KOL – количество положи-тельных чисел в массиве BUF – буферная переменная F – имя файла

Запись в файл

Приложения