Разработать программу, выполняющую заданные последовательности действий над данными определенного типа.

@GL_Loney · Регистрация: 09.07.2009

Author24 — интернет-сервис помощи студентам

Разработать программу, выполняющую заданные последовательности действий над данными определенного типа.

Программа должна выполнять:
– вывод сообщения о разработчике и о назначении программы;
– ввод данных в режиме диалога.
Сохранение данных в файле и чтение данных из файла организовать как процедуру или функцию.

Тип данных в файле: Вещественные числа
Вариант задания имени файла: Ввод с клавиатуры
Вариант вывода сообщений об ошибках: Краткий
Вариант цепочки операций над данными: Ввод с клавиатуры и запись в массив, запись из массива в файл, чтение из файла и вывод на экран.

В общем как-то так....
Вот что у меня получилось, но работает не совсем правильно... помогите подправить программку или напишите, как вы видите реализацию по другому)

Pascal

program laba3;
uses crt;
Label m1;
var
n:integer;
st1,st2:string[18];
F:text;
procedure Ввод;
begin
assign(F,'rez.txt');
rewrite(F);
write('Введите символы: ');
read(st1);
Writeln('st1= ',st1);
Writeln(f,st1);
close(f);
readln;
end;
procedure Чтение;
begin
assign(F,'rez.txt');
reset(f);
readln(f,st2);
writeln('st2= ',st2);
close(f);
end;
 
Begin
clrscr;
writeln('1. Ввод');
writeln('2. Чтение');
writeln('3. Выход');
m1:write('Введите пункт меню: ');
readln(n);
case n of
1:begin Ввод; goto m1; end;
2:begin Чтение; end;
3:Выход;
end;
goto m1;
readln;
end.

	02.04.2010, 18:01