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

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

25.01.2014, 00:08. Показов 1401. Ответов 1
Метки нет (Все метки)

1) Файл H заполнить целыми числами, полученными помощью генератора случайных чисел. В файл M записать значение файла H, кратное 5.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.01.2014, 00:08
Ответы с готовыми решениями:

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

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

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

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

1
Фрилансер
3414 / 2811 / 3000
Регистрация: 08.02.2012
Сообщений: 8,263
Записей в блоге: 1
26.01.2014, 10:07 2
Лучший ответ Сообщение было отмечено TPABAneHAPKOTUK как решение

Решение

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
Var H,M:file of integer;
    i,n:integer;
Begin
    Assign(h,'in.dat');Rewrite(h);
    writeln('Файл H');
    For i:=1 to random(10)+20 do
    Begin
      n:=random(51);
      write(h,n);
      write(n:3);
    End;
    Reset(h);
    Assign(m,'out.dat');Rewrite(m);
    For i:=1 to FileSize(h) do
    Begin
      read(h,n);
      if n mod 5 = 0 then write(m,n);
    End;
    writeln;
    writeln('Файл M');
    Reset(m);
    if FileSize(m)=0 then writeln('Файл пуст')
     else 
      For i:=1 to FileSize(m) do
      Begin
        read(m,n);
        write(n:3);
      End;
    Close(h);Close(m);
    readln;
End.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.01.2014, 10:07

Файл f заполнить 300 случайными целыми числами. Записать в файл g все компоненты файла f, которые делятся на 3 и не делятся на 7
Файл f заполнить 300 случайными целыми числами. Записать в файл g все компоненты файла f, которые...

С помощью генератора случайных чисел заполнить массив целыми значениями, лежащими в диапазоне от 50 до 100 включительно.
Задание: 11. Массив предназначен для хранения значений веса двадцати человек. С помощью генератора...

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

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

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

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


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

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

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