|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
06.07.2011, 09:42 | #1 |
Регистрация: 06.07.2011
Сообщений: 5
|
Дан файл
Дан файл вещественных чисел.Заменить в файле каждый элемент,кроме начального и конечного,на его среднее арифметическое с предыдущим и последующим элементом.
|
06.07.2011, 14:26 | #2 |
Регистрация: 06.07.2011
Сообщений: 5
|
Program bbs;
uses crt; var f:file of real; n,i:integer; a,b,c,d:real; begin randomize; assign(f,'file'); rewrite(f); write('Сколько чисел записать в файл n='); read(n); for i:=1 to n do begin a:=20*random; write(f,a); end; writeln('Исходный файл:'); reset(f); while not eof(f) do begin read(f,a); write(a:0:2,' '); end; writeln; for i:=1 to filesize(f)-2 do begin seek(f,i-1); read(f,a); seek(f,i); read(f,b); seek(f,i+1); read(f,c); d:=(a+b+c)/3; seek(f,i); write(f,d); end; writeln('Содержание измененого файла:'); seek(f,0); while not eof(f) do begin read(f,a); write(a:0:2,' '); end; close(f); end. нужна еще блок схема плиз ..... |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Дан файл вещественных чисел. Создать файл целых чисел, содержащий номера всех локальных максимумов в порядке возрастания | zzz6 | Помощь студентам | 1 | 04.07.2011 12:59 |
Дан файл вещественных чисел. | dexter2145 | Помощь студентам | 7 | 08.06.2010 22:50 |
Дан файл вещественных чисел. | xilnurx | Помощь студентам | 0 | 13.03.2010 12:43 |
Дан файл f | ~Studentka~ | Помощь студентам | 2 | 19.01.2010 23:15 |
Дан файл, содержащий текст на русском языке.Составить в алфавитном порядке список слов в файл. | JiLiYa | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 26.12.2008 12:05 |