18.03.2019, 23:37 [+3 UTC]
в нашей команде: 3 471 чел. | участники онлайн: 5 (рекорд: 21)

:: РЕГИСТРАЦИЯ

задать вопрос

все разделы

правила

новости

участники

доска почёта

форум

блоги

поиск

статистика

наш журнал

наши встречи

наша галерея

отзывы о нас

поддержка

руководство

Версия системы:
7.72 (17.03.2019)
JS-v.1.33 | CSS-v.3.35

Общие новости:
09.03.2019, 10:08

Форум:
18.03.2019, 16:49

Последний вопрос:
18.03.2019, 20:24
Всего: 149051

Последний ответ:
18.03.2019, 23:01
Всего: 257997

Последняя рассылка:
18.03.2019, 22:45

Писем в очереди:
0

Мы в соцсетях:

Наша кнопка:

RFpro.ru - здесь вам помогут!

Отзывы о нас:
31.03.2010, 11:15 »
jeck26
Спасибо, с самого начала смотрел на Samsung'и. А видеокарты предпочитаю исключительно NV [вопрос № 177492, ответ № 260398]
12.06.2010, 22:02 »
Паша Сердитов
полный и хороший ответ.)спасибо [вопрос № 179062, ответ № 262078]
06.04.2010, 17:32 »
Anjali
Всё именно так и получилось! [вопрос № 177703, ответ № 260639]

РАЗДЕЛ • Pascal / Delphi / Lazarus

Создание программ на языках Pascal, Delphi и Lazarus.

[администратор рассылки: Зенченко Константин Николаевич (Старший модератор)]

Лучшие эксперты в этом разделе

Зенченко Константин Николаевич
Статус: Старший модератор
Рейтинг: 505
zdwork
Статус: 1-й класс
Рейтинг: 126
puporev
Статус: Профессионал
Рейтинг: 104

Перейти к консультации №:
 

Консультация онлайн # 194933
Раздел: • Pascal / Delphi / Lazarus
Автор вопроса: tanya.hryanina (Посетитель)
Отправлена: 11.03.2019, 17:34
Поступило ответов: 1

Здравствуйте! У меня возникли сложности с таким вопросом:Программа Pascal ABC
Дан файл целых чисел, не равных нулю. Число отрицательных компонент равно числу положительных. Используя вспомогательный файл, создать новый файл, чтобы не было двух соседних чисел с одним знаком.

Состояние: Консультация закрыта

Ответ # 277631 от puporev (Профессионал)

Здравствуйте, tanya.hryanina!
Создадим в блокноте исходный текстовый файл fileF.txt в который запишем равное количество положительных и отрицательных чисел через пробелы.
Типа такого
20 15 5 6 21 25 -9 -8 -10 -15 -17 -25

Код (Pascal) :: выделить код
var f,g,h:text;
    a:integer;
begin
assign(f,'fileF.txt'); //файл в папке с программой
reset(f);
assign(g,'fileG.txt'); //создаем новый файл
rewrite(g);
assign(h,'fileH.txt');//создаем вспомогательный файл
rewrite(h);
while not seekeof(f) do //читаем файл F первый раз
 begin
  read(f,a);
  if a>0 then write(h,' ',a)//пишем в вспомогательный файл положительные числа
 end;
reset(f);
reset(h);
while not seekeof(f) do //читаем файл F второй раз
 begin
  read(f,a);
  if a<0 then//если отрицательное
   begin
    write(g,' ',a);//пишем в новый файл
    read(h,a); //читаем число из вспомогательного файла
    write(g,' ',a);//пишем в новый файл
   end;
 end;
close(f);
close(g);
close(h);
erase(h);//уничтожим вспомогательный файл
write('Файл fileF.txt переписан в файл filG');
end.

Последнее редактирование 11.03.2019, 19:47 Лысков Игорь Витальевич (Старший модератор)

Консультировал: puporev (Профессионал)
Дата отправки: 11.03.2019, 19:37

5
нет комментария
-----
Дата оценки: 12.03.2019, 07:19

Рейтинг ответа:

+1

[подробно]

Сообщение
модераторам

Отправлять сообщения
модераторам могут
только участники портала.
ВОЙТИ НА ПОРТАЛ »
регистрация »

Мини-форум консультации № 194933
puporev
Профессионал

ID: 401888

# 1

 +1 
 
= общий = | 11.03.2019, 17:39 | цитировать цитировать  | профиль профиль  |  отправить письмо в личную почту пейджер

Возник такой вопрос, это задание на типизированные файлы, или текстовые?

 

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

Яндекс Rambler's Top100

главная страница | поддержка | задать вопрос

Время генерирования страницы: 0.16163 сек.

© 2001-2019, Портал RFPRO.RU, Россия
Калашников О.А.  |  Гладенюк А.Г.
Версия системы: 7.72 от 17.03.2019
Версия JS: 1.33 | Версия CSS: 3.35