| ← Март 2019 → | ||||||
|
2
|
3
|
|||||
|---|---|---|---|---|---|---|
|
4
|
5
|
6
|
7
|
8
|
9
|
10
|
|
11
|
12
|
13
|
14
|
15
|
||
|
18
|
20
|
21
|
22
|
23
|
||
|
25
|
27
|
28
|
29
|
30
|
31
|
|
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://rusfaq.ru/
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ Pascal / Delphi / Lazarus
Здравствуйте! У меня возникли сложности с таким вопросом:Программа Pascal ABC
Дата отправки: 11.03.2019, 17:34 Консультирует puporev (Профессионал): Здравствуйте, tanya.hryanina! Код (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.
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
