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

Переписать в файл f2 все положительные числа из файла f1

08.04.2014, 08:51. Показов 1657. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Помогите решить.

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

Из файла f переписать в пустой файл сначала все положительные, а потом все отрицательные числа
Нужна помощь! Описать процедуру p(f,g) от двух файлов типа rad, которая из файла f переписывает...

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

Переписать в файл V все чётные положительные числа из файла в убывающем порядке
Сформировать файл W, состоящий из целых чисел. Переписать в файл V все чётные положительные числа...

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

1
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
32857 / 21191 / 8151
Регистрация: 22.10.2011
Сообщений: 36,448
Записей в блоге: 8
08.04.2014, 17:24 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
var 
  f1, f2 : text;
  i, j, X : integer;
begin
  assign(f1, 'D:\test\f001.txt'); rewrite(f1);
  for i := 1 to 10 do
  begin
    for j := 1 to 6 do
      write(f1, -25 + random(50), ' ');
    writeln(f1);
  end;
  close(f1);
  
  reset(f1);
  assign(f2, 'D:\test\f002.txt'); rewrite(f2);
  while not seekeof(f1) do
  begin
    while not seekeoln(f1) do
    begin
      read(f1, X);
      if X > 0 then write(f2, X, ' ');
    end;
    readln(f1);
    writeln(f2);
  end;
  close(f1);
  close(f2);
end.
, например.
0
08.04.2014, 17:24
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.04.2014, 17:24
Помогаю со студенческими работами здесь

Переписать в файл V все чётные положительные числа из файла в убывающем порядке
Сформировать файл W, состоящий из целых чисел. Переписать в файл V все чётные положительные числа...

Имеется типизированный файл, в котором записаны 18 целых чисел. Переписать все положительные числа файла в массив в том же порядке
program viweglavnoidiagonaali; var f:file of integer; i,bi,k,d,z,z1,a,b,x,y:integer; begin...

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

Переписать в пустой файл g сначала все положительные числа, а потом все отрицательные
Здравствуйте, не могли бы кто нибудь помочь с двумя задачами. P.S. прошу прощения что нарушил...


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

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

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