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

Процедура, которая перезаписывает из файла f1 положительные числа в файл f2

06.01.2014, 17:29. Просмотров 885. Ответов 2
Метки нет (Все метки)

В текстовом файлe f1 записана последовательность целых чисел, которые разделены пропусками. Описать процедуру positive (f1,f2), которая записывает в файл f2 все положительные числа с f1.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.01.2014, 17:29
Ответы с готовыми решениями:

Описать процедуру р(g,f,h), которая из файла g переписывает все положительные числа в пустой файл f
Нужна помощь в составлении программы type rad = file of integer; Описать процедуру р(g,f,h) от...

Напишите программу,которая из файла F (f,g:file of integer)переписывает в пустой файл g сначала все положительные числа,а потом все отрицательные
Напишите программу,которая из файла F (f,g:file of integer)переписывает в пустой файл g сначала все...

В файле f записаны целые числа, в файл g записать положительные числа файла f, а в файл h - отрицательные
В файле f записаны целые числа. Написать программу, которая в файл g записывает положительные...

Написать программу, которая в файл g записывает положительные числа, а файл h - отрицательные.
В файле f записаны целые числа. Написать программу, которая в файл g записывает положительные...

2
Модератор
60563 / 45560 / 31444
Регистрация: 18.05.2008
Сообщений: 109,506
06.01.2014, 18:12 2
Лучший ответ Сообщение было отмечено YuraThacker как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
const s1='input.txt';
      s2='output.txt';
procedure positive (var f1,f2:text);
var a:integer;
begin
assign(f1,s1);
reset(f1);
assign(f2,s2);
rewrite(f2);
while not eof(f1) do
 begin
  read(f1,a);
  if a>0 then write(f2,' ',a)
 end;
close(f1);
close(f2);
end;
var f1,f2:text;
begin
positive(f1,f2);
readln
end.
0
0 / 0 / 0
Регистрация: 22.12.2013
Сообщений: 4
06.01.2014, 20:08  [ТС] 3
Идеи не было, а до переменной типа integer не додумался, хех. Спасибо вам огромное! Очень вам благодарен. С Рождеством Христовым вас.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.01.2014, 20:08

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

Написать программу, которая в файл g записывает положительные числа, а файл h-отрицательные
в файле f записаны целые числа.написать программу,которая в файл g записывает положительные ...

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

В файл g записать положительные числа исходного файла, а в файл h - отрицательные
В файле f записаны целые числа. Написать программу, которая в файл g записывает положительные...

В файл С занести положительные числа файла B, перед которыми стоят отрицательные числа
Задание в файл С занести положительные числа файла B, перед которыми стоят отрицательные числа, а...


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

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

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