Консультация № 136464
12.05.2008, 13:47
0.00 руб.
0 1 1
Создать программу создающую файл из 25 случайных значений типа integer в диапазоне 0 ... 300. Вывести файл на экран

Обсуждение

давно
Старший Модератор
31795
6196
16.05.2008, 23:08
общий
это ответ
Здравствуйте, Cobain!

Программа в приложении.
Код простой, поэтому в комментариях нет необходимости.
Удачи!

Приложение:
var a,b:integer; c:file of integer;begin assign(c,‘q136464.dat‘); rewrite(c); for a:=1 to 25 do begin b:=random(300); write(c,b); end; reset(c); while not(eof(c)) do begin read(c,a); write(a:16); end; close(c);end.
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа