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

Из файла f переписать в пустой файл сначала все положительные, а потом все отрицательные числа

06.08.2013, 11:43. Показов 1614. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Нужна помощь!
Описать процедуру p(f,g) от двух файлов типа rad, которая из файла f переписывает в пустой файл сначала все положительные, а потом все отрицательные числа.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.08.2013, 11:43
Ответы с готовыми решениями:

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

Вывести сначала все отрицательные числа файла, а потом все положительные
Здравствуете. Требуется написать программу, которая из заданного файла (состоящего...

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

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

2
Почетный модератор
64303 / 47598 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
06.08.2013, 12:05 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
46
47
48
49
50
51
52
53
uses crt;
type rad=file of integer;
const name1='filef';
      name2='fileg';
procedure p(var f,g:rad);
var a:integer;
begin
reset(f);
assign(g,name2);
rewrite(g);
while not eof(f) do
 begin
  read(f,a);
  if a>0 then write(g,a);
 end;
seek(f,0);
while not eof(f) do
 begin
  read(f,a);
  if a<0 then write(g,a);
 end;
close(f);
writeln('Содержание нового файла');
seek(g,0);
while not eof(g) do
 begin
  read(g,a);
  write(a:4)
 end;
close(g);
end;
var f,g:rad;
    n,i,a:integer;
begin
clrscr;
randomize;
assign(f,name1);
rewrite(f);
write('Сколько чисел записать в исходный файл n=');
readln(n);
writeln('Исходный файл:');
for i:=1 to n do
 begin
  repeat
   a:=-10+random(21);
  until a<>0;{запишем без нолей}
  write(f,a);
  write(a:4);
 end;
writeln;
p(f,g);
readln
end.
1
0 / 0 / 0
Регистрация: 06.08.2013
Сообщений: 4
07.08.2013, 10:32  [ТС] 3
Огромнейшее спасибо! Помогли очень!
0
07.08.2013, 10:32
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.08.2013, 10:32
Помогаю со студенческими работами здесь

Переписать из исходного файла в новый сначала все положительные, а затем все отрицательные компоненты
Рябят помогите пожалуйста с паскалем задание выглядит так...Я буду очень благодарна!!!!!!)))) ...

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

Видоизменить массив таким образом, чтобы сначала шли все положительные элементы, потом все отрицательные
Принять в процедуру некоторый заполненный массив с отрицательными и положительными элементами....

Переставить элемента массива, так чтобы сначала было расположены все положительные элементы, потом все отрицательные
Всем добрый вечер! Есть задача: Кто знает как ее решить - помогите, с меня спасибо:)


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

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

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