Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.63/8: Рейтинг темы: голосов - 8, средняя оценка - 4.63
2 / 2 / 0
Регистрация: 26.06.2011
Сообщений: 18
1

Записать в файл f N целых чисел, полученных с помощью генератора случайных чисел...

02.03.2012, 17:00. Просмотров 1535. Ответов 2
Метки нет (Все метки)

Записать в файл f N целых чисел, полученных с помощью генератора случайных чисел. Заполнить файл g числами, которые являются произведениями соседних компонентов файла f.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.03.2012, 17:00
Ответы с готовыми решениями:

Заполнить файл f N целых чисел, полученных с помощью генератора случайных чисел.
Заполнить файл f N целых чисел, полученных с помощью генератора случайных чисел. Заполнить файл g...

Файл H заполнить целыми числами, полученными помощью генератора случайных чисел. В файл M записать значение файла H, кратное 5
1) Файл H заполнить целыми числами, полученными помощью генератора случайных чисел. В файл M...

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

Записать в файл последовательного доступа N целых чисел, полученных с помощью генератора случайных чисел.
Помогите плиз!! есть 3 задания! 1)тема: Текстовые файлы. Дан файл, содержащий текст на...

2
Модератор
62176 / 46485 / 32054
Регистрация: 18.05.2008
Сообщений: 112,380
02.03.2012, 17:15 2
Лучший ответ Сообщение было отмечено Лида как решение

Решение

Pascal
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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
uses crt;
var f,g:file of integer;
    n,a,i,p:integer;
begin
clrscr;
randomize;
assign(f,'fileF');
rewrite(f);
assign(g,'fileG');
rewrite(g);
writeln('Сколько чисел записать в файл n=');
readln(n);
for i:=1 to n do
 begin
  a:=random(10)+1;
  write(f,a);
 end;
writeln('Содержание исходного файла:');
reset(f);
for i:=0 to filesize(f)-1 do
 begin
  read(f,a);
  write(a,' ');
 end;
seek(f,0);
for i:=0 to filesize(f)-2 do
 begin
  seek(f,i);
  read(f,p);
  seek(f,i+1);
  read(f,a);
  p:=p*a;
  write(g,p);
 end;
close(f);
seek(g,0);
writeln;
writeln;
writeln('Содержание полученного файла:');
reset(g);
for i:=0 to filesize(g)-1 do
 begin
  read(g,a);
  write(a,' ');
 end;
close(g);
readln
end.
0
2 / 2 / 0
Регистрация: 26.06.2011
Сообщений: 18
02.03.2012, 19:01  [ТС] 3
Спасибо огромное!!!!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.03.2012, 19:01

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Записать в файл f N целых чисел, полученных с помощью генератора случайных чисел.
Помогите пожалуйста с задачей. Записать в файл f N целых чисел, полученных с помощью генератора...

Записать в файл N целых чисел, полученных с помощью генератора случайных чисел
Помогите пожалуйста, нужно записать в файл N целых чисел, полученных с помощью генератора...

Форматирование файла целых чисел, полученных с помощью датчика случайных чисел, нахождение контрольной суммы
Помогите пожалуйста решить, и распишите каждую строчку (т.е что тут сделано) Составить...

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.