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;


Поиск по сайту:

При помощи поиска вы сможете найти нужную вам информацию.

Поделитесь с друзьями:

Если вам перенёс пользу информационный материал, или помог в учебе – поделитесь этим сайтом с друзьями и знакомыми.
helpiks.org - Хелпикс.Орг - 2014-2024 год. Материал сайта представляется для ознакомительного и учебного использования. | Поддержка
Генерация страницы за: 0.006 сек.