0 / 0 / 0
Регистрация: 24.11.2017
Сообщений: 9
1

Записать 60 случайных чисел в типизированный файл,переписать по 6 чисел в строке в текстовый файл

05.12.2017, 19:45. Показов 433. Ответов 2
Метки нет (Все метки)

ЗАДАНИЕ:
записать 60 случайных чисел в типизированный файл,переписать по 6 чисел в строке в текстовый файл.
я сделал,но у меня выдает ошибку, помогите, пожалуйста.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
procedure TForm1.FormCreate(Sender: TObject);
 var
f:file of byte;
p:textfile;
 i,a,j:byte;
 s,s1:string;
begin
assignfile(f,'c:\ggg\nums.dat');
assignfile(p,'c:\hhh\str.text');
rewrite(f);
FOR i:=1 TO 10 DO BEGIN
  A:=RANDOM(256);
  WRITE(F,A); end;
  reset(f);
  rewrite(p);
 
   for i:=1 to 10 do begin
  s:='';
  for j:=1 to 6 do begin
    read(f,a);
    s1:=inttostr(a);
    s:=s+s1+' ';
 
  end;
  writeln(p,s); end;
  closefile(f); closefile(p);
  end;
 
end.
Миниатюры
Записать 60 случайных чисел в типизированный файл,переписать по 6 чисел в строке в текстовый файл  
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.12.2017, 19:45
Ответы с готовыми решениями:

Дан типизированный файл целых чисел. Переписать содержимое файла в новый типизированный файл
Дан типизированный файл целых чисел. Переписать содержимое файла в новый типизированный...

Создать типизированный файл, состоящий из случайного количества целых случайных чисел
написать программу которая создает типизированный файл состоящий из случайного числа целых...

Создать текстовый файл, содержащий N целых случайных чисел в диапазоне [-5; 9]
надо написать программки в Turbo Delphi!!!задание вроде простое только преподаватель не объяснил...

Переписать файл из трех пятиэлементных векторов в файл целых чисел
Переписать файл из трех пятиэлементных векторов в файл целых чисел. буду очень признательна если...

2
48 / 48 / 34
Регистрация: 16.02.2016
Сообщений: 277
06.12.2017, 00:35 2
в 11-й строчке исправь 10 на 60
Delphi
1
2
3
4
5
...
11 for i:=1 to 60 do //это здесь
      begin
12     a:=random(256);
...
0
Модератор
7479 / 4894 / 2046
Регистрация: 21.01.2014
Сообщений: 20,811
Записей в блоге: 3
06.12.2017, 08:27 3
1. В 10-й строке Вы открыли файл f для перезаписи
2. Потом пишете в него данные.
3. В 14 строке Вы открываете этот же файл уже для чтения...
А закрывать его после записи - дядя Пушкин будет?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.12.2017, 08:27

Переписать файл из трех пятиэлементных векторов в файл целых чисел
Сабж, переписать файл из трех пятиэлементных векторов в файл целых чисел. Ниже представлен код в...

Переписать файл из 3 пятиэлементных векторов в файл целых чисел
Помогите исправить ошибку. Задание: переписать файл из 3 пятиэлементных векторов в файл целых...

Дан текстовый файл, состоящий из последовательности целых чисел. Определить количество чисел кратных 3.
Дан текстовый файл состоящий из последовательности целых чисел определить кол-во чисел кратно 3

Вычислить сумму квадратов чисел от 1 до 30. Квадраты чисел предварительно записать в файл
не умею с файлами работать, помогите пожалуйста


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru