Program Variant_0;. Var i, i_max, max, i_min, min, count : Integer;
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)
Then Write(chisla, i)
Else Break;
Until (i=0);
ReSet(chisla); {открываем файл для чтения}
Read(chisla, i); {и читаем первое число}
min:=i;
max:=i;
i_max:=0;
i_min:=0;
summa:=0.0;
count:=0;
ReSet(chisla); {снова открываем файл для чтения}
WriteLn;
WriteLn('Числа, записанные в файле:');
While (Not(EOF(chisla))) Do {цикл чтения чисел}
Begin
Read(chisla, i); {читаем очередное число}
Write(i:5); {и выводим его на экран}
If (i>max) Then
Begin
max:=i;
i_max:=FilePos(chisla);
End;
If (i<min) Then
Begin
min:=i;
i_min:= FilePos(chisla);
End;
summa:=summa+i;
count:=count+1;
End; {цикла чтения файла}
WriteLn;
sr_arifm:=summa/count;
WriteLn;
WriteLn('summa=', summa:0:0);
WriteLn('count=', count);
WriteLn('sr_arifm=', sr_arifm:6:3);
WriteLn('max=', max, ' i_max=', i_max);
WriteLn('min=', min, ' i_min=', i_min);
WriteLn;
Close(chisla);
End.
3.2.На языке Си:
#include <stdio.h>
#include <conio.h>
#include <math.h>
#include <time.h>
Дата добавления: 2015-04-19; просмотров: 673;