Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal Преобразовать введенное значение в часы и минуты и выводит на экран в виде “часы: минуты” Здравствуйте, помогите пожалуйста с написанием программы. Написать программу, которая запрашивает у пользователя значение времени в минутах. Программа преобразовывает введенное значение в часы и... https://www.cyberforum.ru/ turbo-pascal/ thread1226750.html	Turbo Pascal Ошибка 37 END expected Помогите,пожалуйста!Я без понятия,что здесь не так.Вот фрагмент программы const x=10; y=20; shag=24; type Line=record;{выдает что где то здесь эта ошибка} x0,x1= set of 1..x; y0,y1=...
Turbo Pascal Заполнить одномерный массив данными типа real из текстового файла Здравствуйте, помогите мне решить задание! Замена элементов файла. В текстовом файле, содержащем данные типа real, заменить максимальный и минимальный элементы средним арифметическим значением всех... https://www.cyberforum.ru/ turbo-pascal/ thread1226718.html	Turbo Pascal Чтение данных с одного txt файла, запись данных во второй txt в определенную позицию Добрый день, уважаемые форумчане! Нужна ваша помощь. Задача поставлена так: существует файл film2.txt (постараюсь его прикрепить для просмотра) в этом файле есть строки с именами режиссера фильма,... https://www.cyberforum.ru/ turbo-pascal/ thread1226716.html
Перевод из двоичной в десятичную систему счисления Turbo Pascal Помогите найти ошибку. var bin: string; dec: longint; i,j: byte; begin	Turbo Pascal Даны два числа, найти большее из них Даны два числа, найти большее из них. При этом не используя условные операторы. Формула для нахождения наименьшего из двух min(x,y)=(x+y-\|x-y\|)/2. Аналогично придумать формулу для нахождения... https://www.cyberforum.ru/ turbo-pascal/ thread1226470.html
Turbo Pascal Просмотрщик текстовых файлов выдает ошибку "Ожидалось константное выражение" Написать программу, которая позволяет просматривать текстовые файлы (выводит на экран содержимое файла). Имя просматриваемого файла должно вводиться с клавиатуры. Вывод содержимого файла произвести... https://www.cyberforum.ru/ turbo-pascal/ thread1226400.html	Turbo Pascal Найти номер максимального элемента массива С одномерным массивом, состоящим из n целочисленных элементов, произвести следующие операции: 1) найти номер максимального элемента массива; 2) вычислить произведение элементов массива,...
Turbo Pascal В матрице A (mxn) вычислить максимальный элемент главной диагонали и его индекc В матрице A (mxn) вычислить максимальный элемент главной диагонали и его индекc https://www.cyberforum.ru/ turbo-pascal/ thread1225914.html	Turbo Pascal В матрице A (mxn) поменять местами строки с наибольшей и наименьшей суммами элементов https://www.cyberforum.ru/ turbo-pascal/ thread1225913.html В матрице A (mxn) поменять местами строки с наибольшей и наименьшей суммами элементов
Turbo Pascal В матрице A (mxn) подсчитать сумму элементов расположеных выше главной диагонали В матрице A (mxn) подсчитать сумму элементов расположеных выше главной диагонали	Turbo Pascal Вывести измененный текст, каждое предложение с которого начинается начинается с заглавной буквы https://www.cyberforum.ru/ turbo-pascal/ thread1225881.html Здравствуйте. Помогите пожалуйста написать программу. С клавиатуры вводится текст из строчных латинских букв. Текст состоит из нескольких предложений, каждое из которых заканчивается точкой. Ввод...

Puporev

Почетный модератор

64287 / 47586 / 32739

Регистрация: 18.05.2008

Сообщений: 115,182

13.07.2014, 17:58

Заполнение файла случайными числами и перенос элементов в другой файл - Turbo Pascal - Ответ 6423755

13.07.2014, 17:58. Показов 2997. Ответов 2

Метки (Все метки)

Сообщение было отмечено Памирыч как решение

Решение

Pascal

uses crt;
var f,g:text;
    k,m,n,i,x:integer;
begin
clrscr;
randomize;
assign(f,'input.txt');
rewrite(f);
assign(g,'output.txt');
rewrite(g);
write('Количество чисел k=');
readln(k);
for i:=1 to k do
 begin
  x:=1+random(50);
  write(f,' ',x)
 end;
close(f);
writeln('Введите числа m,n');
readln(m,n);
reset(f);
k:=0;
writeln('Исходная последовательность');
while not eof(f) do
 begin
  read(f,x);
  write(' ',x);
  if(x mod m=0)and(x mod n<>0)then
   begin
    write(g,' ',x);
    k:=1;
   end;
 end;
close(f);
close(g);
writeln;
if k=0 then write('Нет чисел, кратных ',m,' и не кратных ',n)
else
 begin
  reset(g);
  writeln('Числа, кратные ',m,' и не кратные ',n);
  while not eof(g) do
   begin
    read(g,x);
    write(' ',x);
   end;
  close(g);
 end;
readln
end.

Вернуться к обсуждению:
Заполнение файла случайными числами и перенос элементов в другой файл Turbo Pascal

Следующий ответ

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

13.07.2014, 17:58

Готовые ответы и решения:

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

Заполнение файла n целыми случайными числами в интервале [-54, 33]
Заполнить файл n целыми случайными числами в интервале . Вывести содержимое файла на экран и...

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

Заполнение файла случайными числами и его последующая обработка
Добрый день! Необходима помощь в задании. "Заполнить текстовый файл целыми числами, полученными с...

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

13.07.2014, 17:58

Помогаю со студенческими работами здесь

Заполнение файла случайными числами и его последующая обработка
Заполнение файла случайными числами и его последующая обработка. Заполнить двоичный файл N...

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

Организуйте заполнение типизированного файла случайными целыми числами из интервала
1) Организуйте заполнение типизированного файла случайными целыми числами из интервала . Выведите...

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

Наверх