Записать в перевернутом виде строки файла f в файл g

@ksen___23 · Регистрация: 23.03.2020

Студворк — интернет-сервис помощи студентам

Указания.
Исходные текстовые файлы создать в текстовом редакторе.
Дан текстовый файл f. Записать в перевернутом виде строки файла f в файл g. Порядок строк в файле g должен быть обратным по отно-шению к порядку строк файла f.

@bormant · 19.05.2020, 23:03

Pascal
36
37
38
39
    for i := Length(s) downto 1 do
      t := t + s[i];
    WriteLn(g, t);
    WriteLn(t);

Большого смысла в a[j]:=t нет.

@ZX Spectrum-128 · 20.05.2020, 07:44

Сообщение от bormant

Большого смысла в a[j]:=t нет.

Это стянутый кусок из другой программы. Лень было думать.

@ksen___23 · 22.05.2020, 11:26 **[ТС]**

>>begin
>>writeln(f, 'Строка № ' + inttostr(i));
почему ругается на inttostr(i) ?

@mr-Crocodile · 22.05.2020, 11:54

Сообщение от ksen___23

inttostr

нет такой функции в Turbo Pascal

либо используйте Str()

либо напишите вывод так (поручите преобразование типов процедуре WriteLn):

Pascal
1
writeln(f, 'Строка № ', i);

@ksen___23 · 02.06.2020, 11:40 **[ТС]**

Как можно изменить программу, что бы она не создавала файл, а обрабатывала существующий текстовый файл? Что в коде поправить надо?

Добавлено через 29 минут

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
program laba5_text;
 
const
  MaxCountOfLines = 9;
 
var
  f, g: text;
  A: array[1..MaxCountOfLines] of string;
  j, q, i, n: integer;
  t, s: string;
 
begin
  assign(f,'in.txt'); // создание исходного файла  "создан исходный файл в блокноте с данным названием и указан прямой путь к файлу"
  rewrite(f);
  for i := 1 to MaxCountOfLines  do
  begin
    writeln(f, 'Stroka №', i);
  end;
  close(f);
  reset(f);
  i := 0;
  while not Eof(f) do
  begin
    inc(i);
    readln(f, s);
    a[i] := s;
    writeln(a[i]);
  end;
  close(f);
  assign(g,'out.txt'); //создание выходного файла
  rewrite(g);
  for j := MaxCountOfLines downto 1 do
  begin
    s := a[j];
    t := '';
    for i := Length(s) downto 1 do
      t := t + s[i];
    WriteLn(g, t);
    WriteLn(t);
  end;
  close(g);
end.

@mr-Crocodile · 02.06.2020, 12:26

Сообщение от ksen___23

а обрабатывала существующий текстовый файл? Что в коде поправить надо?

убрать (удалить или закомментировать) строчки с 14 по 19 включительно.

@ksen___23 · 02.06.2020, 12:42 **[ТС]**

А если сделать без ? какой вид будет?
const
MaxCountOfLines = 9;

@mr-Crocodile · 02.06.2020, 13:41

Сообщение от ksen___23

А если сделать без ? какой вид будет?
const
MaxCountOfLines = 9;

без чего, простите?

@ksen___23 · 02.06.2020, 13:54 **[ТС]**

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

@mr-Crocodile · 02.06.2020, 14:11

Сообщение от ksen___23

учитывая то, что файл любой

любой, говорит..
А ты спроси его, что делать, если размер файла больше размера оперативной памяти, как в этом случае поступать?
или можно рассчитывать, с учётом того, что это учебная задача и что речь идёт про Turbo Pascal (это 16-битный код под MS DOS), что файлы будет иметь какое-то ограничение на размер?

Пойми, что если я напишу код, который грузит файл в динамическую память и потом оттуда выкусывает построчно - то ты просто не поймёшь код (ты и этот вряд ли понимаешь), а твой препод резонно скажет, что программу писал кто-то другой.

Добавлено через 2 минуты
слушай. а ведь знаю, как твоему преподавателю утереть нос!!!

@ksen___23 · 02.06.2020, 14:16 **[ТС]**

Точного ответа не дает, пересылает эти же слова(
Мол малый фрагмент кода нужно переделать...

@mr-Crocodile · 02.06.2020, 14:37

Сообщение от ksen___23

Мол малый фрагмент кода нужно переделать...

держи код.
пусть твой препод умоется кровавыми слезами

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
program laba5_text;
 
var
  f, g: text;
  i, k, n: integer;
  s: string;
 
begin
  assign(f,'in.txt');
 
  {определим количество строк в файле}
  reset(f);
  n := 0;
  while not Eof(f) do
  begin
    readln(f, s);
    inc(n);
  end;
 
  {создадим выходной файл}
  assign(g,'out.txt');
  rewrite(g);
 
  {перепишем все строки из исходного файла в выходной в обратном порядке}
  for i:=n downto 1 do begin
    Reset(f);
    for k:=1 to i-1 do ReadLn(f);
    ReadLn(f,s);
    WriteLn(g,s);
  end;
 
  close(f);
  close(g);
end.

p.s. Всем, кто понимает, что делается в коде - никогда не делайте так в реальной жизни!

@ksen___23 · 02.06.2020, 14:44 **[ТС]**

что-то последняя ваша фраза подняпрягла)

@mr-Crocodile · 02.06.2020, 15:00

Сообщение от ksen___23

что-то последняя ваша фраза подняпрягла)

выигрывая в одном, обязательно проигрываешь в другом. Здесь в коде выиграли в использовании оперативной памяти (там всего одна строка грузится), выиграли в простоте кода, зато проиграли в эффективности (файл читается много-много раз)

поясню.
алгоритм такой.
читаем файл построчно, просто для того, чтобы определить количество строк в файле.
потом в цикле
ставим указатель на начало, читаем N-1 раз построчно. Потом читаем N-ю строку и пишем её в выходной файл.
повторяем цикл. те. ставим указатель на начало, читаем N-2 раз построчно. Потом читаем предпоследнюю строку и пишем её в выходной файл.
повторяем цикл. те. ставим указатель на начало, читаем N-3 раз построчно. Потом читаем предпредпоследнюю строку и пишем её в выходной файл.
и повторяем это до тех пор, пока не дойдём до первой строки исходного файла

поэтому, например, файл из 100 строчек будет прочитан от начала 101 раз.

@ksen___23 · 02.06.2020, 19:23 **[ТС]**

кошмар, опять не то, сказал мол порядок строк обратный ,но они не в перевернутом виде теперь(
мда...

@JuriiMW · 03.06.2020, 06:11

Сообщение от ksen___23

но они не в перевернутом виде теперь

Ну, дык, скопипастить из других ответов вашего же поста религия не позволяет? … если уж за два месяца в голове не нарисовалось ни чего не сложилось?
https://www.cyberforum.ru/post14561198.html

@mr-Crocodile · 03.06.2020, 11:51

Сообщение от ksen___23

кошмар, опять не то, сказал мол порядок строк обратный ,но они не в перевернутом виде теперь(

это было непонятно из задания.

переделать очень просто:

замените

Сообщение от mr-Crocodile

Pascal
1
2
3
4
5
6
7
{перепишем все строки из исходного файла в выходной в обратном порядке}
  for i:=n downto 1 do begin
    Reset(f);
    for k:=1 to i-1 do ReadLn(f);
    ReadLn(f,s);
    WriteLn(g,s);
  end;

на

Pascal
1
2
3
4
5
6
7
8
9
{перепишем все строки из исходного файла в выходной в обратном порядке}
  for i:=n downto 1 do begin
    Reset(f);
    for k:=1 to i-1 do ReadLn(f);
    ReadLn(f,s);
    t:='';
    for k := Length(s) downto 1 do   t := t + s[k];
    WriteLn(g, t);
  end;

и не забудьте добавить переменную t в var:

Pascal
1
  s,t : string;

@ksen___23 · 09.06.2020, 12:17 **[ТС]**

простите, но снова не то, вот код

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
program project5vseeeee;
 
var
  f, g: text;
  i, k, n: integer;
  s: string;
 
begin
  assign(f,'in.txt');
  {определим количество строк в файле}
  reset(f);
  n := 0;
  while not Eof(f) do
  begin
    readln(f, s);
    inc(n);
  end;
  {создадим выходной файл}
  assign(g,'out.txt');
  rewrite(g);
  {перепишем все строки из исходного файла в выходной в обратном порядке}
  for i:=n downto 1 do begin
    Reset(f);
    for k:=1 to i-1 do ReadLn(f);
    ReadLn(f,s);
    WriteLn(g,s);
  end;
 
  close(f);
  close(g);
end.

сказал мол,они не в перевернутом виде. Он тип имел в виду,что и символы в строке идти должны наоборот.Тип тут поменяли только порядок.

@bormant · 09.06.2020, 12:54

Сообщение от ksen___23

не в перевернутом виде

См. сообщение #37.

@mr-Crocodile · 09.06.2020, 14:43

Сообщение от ksen___23

простите, но снова не то, вот код

прости, но ты либо не читаешь, либо не понимаешь.

я же тебе в #37 написал

Сообщение от mr-Crocodile

замените
<код поскипан>

Сообщение от mr-Crocodile

на

Pascal
1
2
3
4
5
6
7
8
9
{перепишем все строки из исходного файла в выходной в обратном порядке}
  for i:=n downto 1 do begin
    Reset(f);
    for k:=1 to i-1 do ReadLn(f);
    ReadLn(f,s);
    t:='';
    for k := Length(s) downto 1 do   t := t + s[k];
    WriteLn(g, t);
  end;

видимо это оказалось сложно и непонятно?

ладно. мне не сложно. я заменю сам.

вот тебе полный код с заменой из #37

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
program laba5_text;
 
var
  f, g: text;
  i, k, n: integer;
  s,t : string;
 
 
begin
  assign(f,'in.txt');
 
  {определим количество строк в файле}
  reset(f);
  n := 0;
  while not Eof(f) do
  begin
    readln(f, s);
    inc(n);
  end;
 
  {создадим выходной файл}
  assign(g,'out.txt');
  rewrite(g);
 
  {перепишем все строки из исходного файла в выходной в обратном порядке}
  for i:=n downto 1 do begin
    Reset(f);
    for k:=1 to i-1 do ReadLn(f);
    ReadLn(f,s);
    t:='';
    for k := Length(s) downto 1 do   t := t + s[k];
    WriteLn(g, t);
  end;
 
  close(f);
  close(g);
end.

Новые блоги и статьи Все статьи Все блоги /
Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .	Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .
мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))	Как у меня протекала болезнь zorxor 27.08.2026 Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .	Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему kumehtar 26.08.2026 ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .	[EasyBuilder Pro] Памятка по разработке для панелей Weintek ФедосеевПавел 26.08.2026 Памятка по разработке для панелей Weintek ВВЕДЕНИЕ Ранее, при реализации проектов основное внимание уделял разработке управляющей программы для контроллера, а панели оператора доставалось время. . .

@ksen___23 0 / 0 / 0 Регистрация: 23.03.2020 Сообщений: 216

	Записать в перевернутом виде строки файла f в файл g 08.04.2020, 10:48. Показов 4018. Ответов 39 Метки нет (Все метки) Указания. Исходные текстовые файлы создать в текстовом редакторе. Дан текстовый файл f. Записать в перевернутом виде строки файла f в файл g. Порядок строк в файле g должен быть обратным по отно-шению к порядку строк файла f. 0

@ksen___23 0 / 0 / 0 Регистрация: 23.03.2020 Сообщений: 216
	22.05.2020, 11:26 [ТС]
	>>begin >>writeln(f, 'Строка № ' + inttostr(i)); почему ругается на inttostr(i) ? 0

@ksen___23 0 / 0 / 0 Регистрация: 23.03.2020 Сообщений: 216
	02.06.2020, 12:42 [ТС]
	А если сделать без ? какой вид будет? const MaxCountOfLines = 9; 0

@ksen___23 0 / 0 / 0 Регистрация: 23.03.2020 Сообщений: 216
	02.06.2020, 13:54 [ТС]
	Преподаватель сказал , что эта конструкция не причем в коде, учитывая то, что файл любой 0

@ksen___23 0 / 0 / 0 Регистрация: 23.03.2020 Сообщений: 216
	02.06.2020, 14:16 [ТС]
	Точного ответа не дает, пересылает эти же слова( Мол малый фрагмент кода нужно переделать... 0

@ksen___23 0 / 0 / 0 Регистрация: 23.03.2020 Сообщений: 216
	02.06.2020, 14:44 [ТС]
	что-то последняя ваша фраза подняпрягла) 0

@ksen___23 0 / 0 / 0 Регистрация: 23.03.2020 Сообщений: 216
	02.06.2020, 19:23 [ТС]
	кошмар, опять не то, сказал мол порядок строк обратный ,но они не в перевернутом виде теперь( мда... 0

Записать в перевернутом виде строки файла f в файл g

Решение