07.04.2011, 00:59 | #1 (ссылка) |
Новичок
Регистрация: 20.03.2011
Сообщений: 3
Репутация: 0
|
работа с файлом
Здраствуйте, помогите решить задание. Дан файл целых чисел. Определить среднее арифметическое каждой пятерки последовательных чисел, в последней группе чисел может быть меньше 5.
Код:
program zadanie; uses crt; var input:file of longint; i,n,k,s,f:longint; m:real; Begin clrscr; assign(input,'input.dat'); rewrite(input); writeln('Vvedit kol. chusel'); readln(f); for i:=1 to f do begin write('Vvedit chuslo '); readln(n); write(input,n); end; close(input); reset(input); k:=0; s:=0; i:=0; while not eof(input) {i<=filesize(input)-1} do begin seek(input,i); read (input,n); if k<5 then begin s:=s+n; inc(k); end; if k=5 then begin m:=s/k; writeln (m:4:2); end; if i=filesize(input)-1 then begin m:=s/k; writeln(m:4:2); end; close (input); end; end. |
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1) | |
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Папка стала exe-файлом | blogs | Безопасность | 13 | 13.05.2011 17:01 |
Проблема с файлом в реестре | east214 | Безопасность | 4 | 29.12.2010 17:22 |
Посмотрите пожалуйста, вложение с лог файлом AVZ. | Павел-1979 | Безопасность | 6 | 11.12.2010 00:30 |
Проблемы с файлом connect.dll | sergeo10 | Windows Vista | 5 | 29.09.2010 20:35 |
Проблема с файлом boot.ini | romul_2_ | Windows XP | 1 | 31.08.2010 21:08 |
Проблема с файлом AVI | Furdown | Операционные системы | 1 | 19.06.2010 16:35 |
проблема с файлом ntoskrnl.exe | 13pm | Windows XP | 2 | 19.04.2010 13:25 |
Ошибка с файлом setup.exe в Far Cry 2 | Вован | Игры | 2 | 02.01.2010 18:11 |
Проблема с файлом uxtheme.dll | vitalik1 | Windows XP | 3 | 15.08.2009 21:12 |
Корректная работа с hosts-файлом | diafragma | Безопасность | 5 | 30.06.2009 15:55 |
проблема с файлом.... | ЛЮБИТЕЛЬ2008 | Офис | 2 | 30.05.2009 01:14 |
проблема с файлом для framework | Blackout | Утилиты | 11 | 02.03.2009 18:02 |