|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
27.05.2010, 21:53 | #1 |
Регистрация: 22.03.2010
Сообщений: 5
|
Не работает программа
Ввести файл целых положительных чисел F1.Компоненты файла F1,меньше числа M,записать в файл F2.В файле F1 этим компонентам присвоить значение нуль.Выдать на печать файлы F1 и F2.
Подскажите ошибку,пожалуйста Program laba; Type TF=file of real; Var f1,f2:TF; a,m:real; Procedure Vvod (Var f1:TF;name:char); Var a:real; begin writeln ('Ввод файла ',name); rewrite (f1); writeln ('Ввести 1-й компонент или 999'); readln (a); while a<>999 do begin write (f1,a); writeln ('Ввести следущий элемент или 999'); readln (a); end; close (f1); end; Procedure Zapis (var f1:TF;f2:TF); Var a,m:real; Begin write('Введите целое положительное число для поиска m='); readln(m); reset (f1); rewrite(f2); while not eof (f1) do begin read (f1,a); if a<m then write(f2,a); end; close(f1); close(f2); end; Procedure Zamena (var f1:TF); Var a,m:real; Begin reset (f1); write('Введите целое положительное число для поиска m='); readln(m); while not eof (f1) do begin read (f1,a); if a<m then a:=0; write (f1,a); end; close(f1); end; Procedure Vivod1 (f1:TF; Name:char); Var a:real; begin reset (f1); while not eof (f1) do begin read (f1,a); write (a:6:2); end; close (f1); end; Procedure Vivod2 (f2:TF; Name:char); Var a:real; begin reset (f2); while not eof (f2) do begin read (f2,a); write (a:6:2); end; close (f2); end; BEGIN Assign (f1,'f1.dat'); Assign (f2,'f2.dat'); Vvod (f1,'f'); Zapis(f1,f2); Zamena(f1); Vivod1 (f1,'f'); Vivod2 (f2,'h'); End. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
не работает программа | Rusic | Общие вопросы C/C++ | 2 | 19.05.2010 23:16 |
Не работает программа | ddr9225 | Общие вопросы C/C++ | 21 | 14.01.2010 14:06 |
Программа не работает | ZYRGiX | Помощь студентам | 2 | 22.07.2008 21:44 |
Программа не работает | Михаил Юрьевич | Общие вопросы Delphi | 2 | 19.04.2008 23:27 |
Не работает программа на delphi | pcholka | Софт | 5 | 10.01.2008 20:04 |