Написать программу, которая считывает из текстового файла три предложения и выводит их в обратном порядке

@gargantua · Регистрация: 13.11.2012

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

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

@Leshak · 22.11.2012, 12:30

В файле предложения записаны подряд или каждое в отдельной строке?

@gargantua · 22.11.2012, 12:48 **[ТС]**

подряд

@Leshak · 22.11.2012, 13:22

Файл из которого вы будете считывать текст называется input.txt, создать вам его надо в корневой папочке паскаля, себто папке Bin ( к примеру E:\tp7\Bin\input.txt ).

Pascal

Uses crt;
var
 Word: array [ 1 .. 3 ] of string;
 i, j, n: integer;
 s, s_copy: string;
 input: text;
begin
 
clrscr;
assign(input,'input.txt');reset(input);
read(input,s);
writeln(s);
n:=0;
 
while Pos('.',s) > 0 do begin
        s_copy:=copy(s,1,Pos('.',s));
        delete(s,1,Pos('.',s));
        n:=n+1;
        Word[n]:=s_copy;
        delete(s_copy,1,length(s_copy));
end;
 
{Вывод массива предложений}
for i:=1 to 3 do begin
    writeln(Word[i]);
end;
writeln;
 
{Вывод предложений в обратном порядке}
for i:=1 to 3 do begin
    s_copy:=Word[i];
    for j:=1 to length(s_copy) downto 1 do begin
         write(s_copy[j]);
    end;
    delete(s_copy,1,length(s_copy));
    writeln;
end;
 
readln;
end.

@gargantua · 22.11.2012, 13:29 **[ТС]**

Спасибо!

@Leshak · 22.11.2012, 14:10

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

Pascal

Uses crt;
var
 Word: array [ 1 .. 3 ] of string;
 i, j, n: integer;
 s, s_copy: string;
 input: text;
begin
 
clrscr;
assign(input,'input.txt');reset(input);
read(input,s);
writeln(s);
n:=0;
 
while Pos('.',s) > 0 do begin
        s_copy:=copy(s,1,Pos('.',s));
        delete(s,1,Pos('.',s));
        n:=n+1;
        Word[n]:=s_copy;
        delete(s_copy,1,length(s_copy));
end;
 
{Вывод массива предложений}
for i:=1 to 3 do begin
    writeln(Word[i]);
end;
writeln;
 
{Вывод предложений в обратном порядке}
for i:=1 to 3 do begin
    s_copy:=Word[i];
    for j:=length(s_copy) downto 1 do begin
         write(s_copy[j]);
    end;
    delete(s_copy,1,length(s_copy));
    writeln;
end;
 
readln;
end.

@gargantua · 22.11.2012, 14:26 **[ТС]**

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

s_copy:=Word[i];
* * for j:=1 to length(s_copy) downto 1 do begin
* * * * *write(s_copy[j]);

downto 1 do begin Ошибка 50 предполагается DO

Перетыкал пару вариантов.Все ранво.

@Leshak · 22.11.2012, 16:59

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

s_copy:=Word[i];
for j:=1 to length(s_copy) downto 1 do begin
write(s_copy[j]);

Уберите то, что выделено чёрным, и в конце программы закройте файл
А на самом деле кусок программы должен был выглядеть так:

Pascal

for i:=1 to 3 do begin
    s_copy:=Word[i];
    for j:=length(s_copy) downto 1 do begin
         write(s_copy[j]);
    end;
    delete(s_copy,1,length(s_copy));
    writeln;
end;
readln;
close(input);
end.

@gargantua · 22.11.2012, 17:51 **[ТС]**

Спасибо=)

@gargantua 0 / 0 / 0 Регистрация: 13.11.2012 Сообщений: 43
		1
	Написать программу, которая считывает из текстового файла три предложения и выводит их в обратном порядке 22.11.2012, 12:27. Показов 3724. Ответов 8 Метки нет (Все метки) Перерыл форум но нашол только под c++.Помогите написать программу, которая считывает из текстового файла три предложения и выводит их в обратном порядке. 0

@Leshak 261 / 236 / 161 Регистрация: 10.12.2011 Сообщений: 513
	22.11.2012, 12:30	2
	В файле предложения записаны подряд или каждое в отдельной строке? 0

@gargantua 0 / 0 / 0 Регистрация: 13.11.2012 Сообщений: 43
	22.11.2012, 12:48 [ТС]	3
	подряд 0

@gargantua 0 / 0 / 0 Регистрация: 13.11.2012 Сообщений: 43
	22.11.2012, 13:29 [ТС]	5
	Спасибо! 0

@gargantua 0 / 0 / 0 Регистрация: 13.11.2012 Сообщений: 43
	22.11.2012, 14:26 [ТС]	7
	Сообщение от Leshak s_copy:=Word[i]; * * for j:=1 to length(s_copy) downto 1 do begin * * * * *write(s_copy[j]); downto 1 do begin Ошибка 50 предполагается DO Перетыкал пару вариантов.Все ранво. 0

@gargantua 0 / 0 / 0 Регистрация: 13.11.2012 Сообщений: 43
	22.11.2012, 17:51 [ТС]	9
	Спасибо=) 0

Опции темы