16.03.2011, 13:24 | #1 (permalink) |
Новичок
Регистрация: 16.03.2011
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Блок схема
Спасибо. uses crt; var f:file of real; i,k:integer; a,sr:real; begin clrscr; assign(f,'file'); rewrite(f); writeln('Введите в файл числа, окончание ввода 0:'); repeat readln(a); write(f,a); until a=0; clrscr; writeln('Содержание исходного файла:'); reset(f); sr:=0;k:=0; for i:=0 to filesize(f)-1 do begin read(f,a); write(a:0:2,' '); k:=k+1; sr:=sr+a; end; close(f); writeln; sr:=sr/k; writeln('Среднее арифметическое =',sr:0:2); reset(f); for i:=0 to filesize(f)-1 do begin seek(f,i); read(f,a); if a<sr then a:=2*a else if a>sr then a:=a/3; seek(f,i); write(f,a); end; close(f); writeln('Измененный файл:'); reset(f); while not eof(f) do begin read(f,a); write(a:0:2,' '); end; close(f); readln end. |
16.03.2011, 13:24 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
В аналогичных обсуждениях можно найти много полезного Блок-схема. Паскаль Нужна блок-схема Схема на МК |
18.03.2011, 16:56 | #2 (permalink) |
Member
Регистрация: 15.03.2011
Сообщений: 21
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
я пользуюсь FCEditor хорошо делает блок схемы
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|