Задание 1.

Дата добавления: 2015-07-23; просмотров: 506; Нарушение авторских прав

1. Создать типизированный файл целых чисел. Записать в него с консоли последовательность целых чисел, конец последовательности (терминатор) – ноль, который не записывается в файл. Определить сумму и количество введенных чисел, их среднее арифметическое, минимальное и максимальное числа и их позиции в файле (нумерация данных в файле начинается с нуля). Массивы не использовать.

Создадим на D:\Userфайл chisla.dat, откроем его для записи и заполним его целыми числами. Откроем его для чтения и прочитаем первое число, которое и будет пока минимальным min и максимальным max,при этом их индексы (позиция в файле) равны нулю. Снова откроем файл для чтения и прочитаем все записанные числа, сравнивая каждое из них с текущим минимумом и максимумом: если очередное число больше текущего максимума, то оно – максимум, если меньше текущего минимума – то оно минимум. В процессе поиска индексы максимального и минимального чисел ( i_max, i_min ) запоминаются. Одновременно будем определять сумму summa и количество записанных чисел count.

2. Схема алгоритма решения задачи:

3. Код программы

3.1. На языке Паскаль

Program Variant_0;

Uses WinCrt;

Var i, i_max, max, i_min, min, count : Integer;

summa, sr_arifm: Real;

chisla : File Of Integer;

Begin

WriteLn('Лабораторная работа №8_1');

WriteLn('Вариант №0');

WriteLn('ИС-11-1');

WriteLn('Пупкин Василий');

WriteLn;

Assign(chisla, 'D:\User\chisla.dat');

ReWrite(chisla); {открываем файл для записи}

Write('Введите первое число:');

ReadLn(i);

If (i=0) Then {если первое число – ноль,}

Begin {то выход из программы}

WriteLn('Файл не создан');

Erase(chisla);

Exit;

End

Else Write(chisla, i);

Repeat {цикл ввода чисел}

Write('Очередное число:');

ReadLn(i);

If (i<>0)

<== предыдущая лекция | следующая лекция ==>

Задание 1 | Then Write(chisla, i)