Записать в перевернутом виде строки файла 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.

Новые блоги и статьи Все статьи Все блоги /
мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))	Как у меня протекала болезнь zorxor 27.08.2026 Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .	Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему kumehtar 26.08.2026 ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .	[EasyBuilder Pro] Памятка по разработке для панелей Weintek ФедосеевПавел 26.08.2026 Памятка по разработке для панелей Weintek ВВЕДЕНИЕ Ранее, при реализации проектов основное внимание уделял разработке управляющей программы для контроллера, а панели оператора доставалось время. . .
Модель по догадкам anaschu 25.08.2026 Прошло две недели. Я уже рассказывал, как разговаривал с сотрудниками у сортировки и как понял, что главная ветка — не про приёмку, а про отбор. Но тогда я думал, что понял механику. На этой неделе я. . .	Запись в регистр сведений независимо от заполненности табличной части Maks 25.08.2026 Реализация из решения ниже выполнена на нетиповом документе с несколькими табличными частями, разработанного в КА2. Задача: Обеспечить запись документа в регистр сведений независимо от. . .	Ноутбук Альфария kumehtar 24.08.2026 Встретился тут в сети ноутбук Альфария, примарха Альфа-Легиона. Хотя возможно, это ноутбук Омегона, разумеется. Ну как вам?	Мастера простых решений DevAlt 23.08.2026 В сишарп стэках winforms, да и wpf существует сложная система связывания источниках данных и элементов формы(текстовые поля и метки), опирается все это на технологию событий и мета. . .

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

	Записать в перевернутом виде строки файла f в файл g 08.04.2020, 10:48. Показов 3998. Ответов 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

Решение