Помогите с заданием в Делфи

hunter7 · 23.12.2011, 15:57

Составьте программу, которая создает файл, состоящий из пяти
значений типа real. Тип record не используйте.
Выведите файл на экран. В цикле while..do расширьте файл за счет
добавления новых значений. Выход из цикла-
значение 999. После расширения выведите файл на экран.

пожалуйста напишите код для этой программы

hunter7 · 24.12.2011, 16:46

F:textfile;
i:integer;
r:real;
begin
AssignFile(F,''+edit1.text);
Rewrite(f);
for i:=1 to 5 do {пишем в файл пять случайных значений}
begin
r:=Random(10000)/10;
Writeln(F, r);
end;
CloseFile(F);

не знаю что дальше, помогите пожалуйста

23.12.2011, 15:57	#1 (permalink)
hunter7 Новичок Регистрация: 27.11.2011 Сообщений: 4 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите с заданием в Делфи Составьте программу, которая создает файл, состоящий из пяти значений типа real. Тип record не используйте. Выведите файл на экран. В цикле while..do расширьте файл за счет добавления новых значений. Выход из цикла- значение 999. После расширения выведите файл на экран. пожалуйста напишите код для этой программы

23.12.2011, 15:57
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Вот аналогичное вашей теме Помогите с заданием по Делфи Помогите с заданием в С++ Помогите с заданием Помогите с задачей по Делфи

24.12.2011, 16:46	#2 (permalink)
hunter7 Новичок Регистрация: 27.11.2011 Сообщений: 4 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	F:textfile; i:integer; r:real; begin AssignFile(F,''+edit1.text); Rewrite(f); for i:=1 to 5 do {пишем в файл пять случайных значений} begin r:=Random(10000)/10; Writeln(F, r); end; CloseFile(F); не знаю что дальше, помогите пожалуйста

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070