Консультация № 136457
12.05.2008, 13:39
0.00 руб.
0 1 1
Составить программу создающую файл из 10 значений типа integer. Прочитать файл и вычислить сумму его элементов.

Обсуждение

Неизвестный
16.05.2008, 19:45
общий
это ответ
Здравствуйте, Cobain!
Ваша задача требует организации трёх процедур : создания типизированного файла и записи в него чисел, введённых с клавиатуры; считывания данных из файла с их сохранением в некотором числовом массиве; подсчёта суммы элементов сформированного массива и вывода её значения на экран. Исходный код программы - в приложении. Протестирован. Работает. Желаю успеха.

Приложение:
program wfile;uses crt;type Tdf=file of integer; Tmassiv=array[1..10] of integer;procedure create_file(var xf:Tdf);var i:byte; px:Tmassiv;begin assign(xf,‘my_file.dat‘); rewrite(xf); writeln; writeln(‘ Input 10 integer numbers :‘); for i:=1 to 10 do begin write(‘ x[‘,i,‘] = ‘); readln(px[i]); write(xf,px[i]); end; close(xf); writeln(‘ Your numbers were written to the file <my_file.dat>‘);end;procedure read_file(var xf:Tdf;var xm:Tmassiv);var i:byte;begin writeln; writeln(‘ The reading list of file datas is :‘); assign(xf,‘my_file.dat‘); reset(xf); for i:=1 to 10 do begin read(xf,xm[i]); write(‘ ‘,xm[i]); end; close(xf); writeln;end;procedure summ(var xm:Tmassiv;var xs:integer);var i:byte;begin xs:=0; for i:=1 to 10 do xs:=xs+xm[i]; writeln; writeln(‘ The summ of your numbers is S = ‘,xs);end;procedure finish;begin writeln; writeln(‘ The program was successfully completed !‘); write(‘ Press <Enter> for quit ---> ‘); readln;end;var f:Tdf; m:Tmassiv; s:integer;begin clrscr; create_file(f); read_file(f,m); summ(m,s); finish;end.
Форма ответа