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

Записать все отрицательные числа из файла F в файл N, а все положительные в G.

02.04.2013, 01:57. Показов 1647. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Всем привет! Условие задачи:
Дан файл F с числами от -20 до 20. Записать все отрицательные числа из файла F в файл N, а все положительные в G. Затем вывести результаты чисел на экран (отдельно положительных и отдельно отрицательных).
Заранее спасибо!

Вот что у меня получилось. Но кроме чисел записанных в файле не выводит ни чего.

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
Program F86;
Var f,g,n:text;
     s,:string;
     x,t:integer;
Const
     a='c:\file\F86.txt';
     b='c:\file\G56.txt';
     c='c:\file\N93.txt';
Begin
Assign(f,a);
Reset(f);
Readln(f,s);
Writeln('Числа файла F86:');
Write(s);
While not eof(f) do
Begin
Val(s,x,t);
If x>0 then
Begin
Assign(g,b);
Rewrite(g);
Write(g,x);
End
Else
Assign(n,c);
Rewrite(n);
Write(n,x);
End;
Close(f);
End.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.04.2013, 01:57
Ответы с готовыми решениями:

Записать в таблицу сначала все положительные числа и нули, а потом все отрицательные
Дано линейную таблицу, которая содержит 25 действительных, записать в эту же таблицу сначала все...

Записать в массив сначала все положительные, затем все отрицательные числа и нули
Пожалуйста докажите код выделенный в комментарии. Задание:"Дан массив вещественных чисел ,...

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

Переписать все положительные числа в пустой файл f, все отрицательные в пустой файл h
Вот задача:type rad = file of integer; Описать процедуру p(g,f,h) от трех файлов типа rаd, которая...

1
4 / 4 / 2
Регистрация: 26.10.2012
Сообщений: 155
02.04.2013, 07:51 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
uses
  crt;
var
  i, ch: integer;
  f1, n, g: text;
begin
  clrscr;
  assign(f1, 'input.txt');
  rewrite(f1);
  assign(n, 'otric_ch.txt');
  rewrite(n);
  assign(g, 'pol_ch.txt');
  rewrite(g);
  i:=-20;
  while i<=20 do   // заполняем исходный файл числами
  begin
    if i <> 0 then
      writeln(f1, i); // нуль выводить не будем
    inc(i)  // увеличиваем i на 1
  end;
  close(f1);  // закрываем файл, т.к. курсор стоит в конце файла
  reset(f1);
  while not eof(f1) do
  begin
    readln(f1, ch);
    if ch > 0 then writeln(g, ch) else writeln(n, ch)
  end;
  close(f1); close(n); close(g);
  reset(n); reset(g);
  writeln('Положительные числа:');
  while not eof(g) do
  begin
    readln(g, ch);
    write(ch:4)
  end;
  writeln;
  writeln('Отрицательные числа:');
  while not eof(n) do
  begin
    readln(n, ch);
    write(ch:4)
  end;
  close(n);
  close(g)
end.
1
02.04.2013, 07:51
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.04.2013, 07:51
Помогаю со студенческими работами здесь

Типизированные файлы. Записать в файл C все четные числа файла F, а в файл N - все нечетные
еще одна задачка!!код есть,но что то не работает она помогите! вот задание: Сформировать файл F,...

Записать в текстовый файл t2 все положительные числа из t1
В текстовом файле t1 записана последовательность целых чисел, разделённых пробелами. Записать в...

Переписать в файл f2 все положительные числа из файла f1
Помогите решить. 5. Создать файл f1, состоящий из целых чисел по 6 в строке. Переписать в файл...

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


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

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

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