В текстовом файле поменять местами первую и последнюю строки

@Olichka · Регистрация: 20.04.2012

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

В текстовом файле Т1, состоящий из 8 строк, поменять местами первый и последний строки. Результат записать в файл Т2.

Помогите пожалуйста.

@Puporev · 20.04.2012, 11:37

Не по теме:

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

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

А также первую и последнюю абзацы...

@Kasperdun · 20.04.2012, 13:05

Pascal

var
t1,t2:text;
m:array[1..8] of string;
s:string;
i:integer;
begin
assign(t1,'T1.txt');
assign(t2,'T2.txt');
reset(t1);
 
for i:=1 to 8 do
readln(t1,m[i]);
 
s:=m[1];
m[1]:=m[8];
m[8]:=s;
 
rewrite(t2);
for i:=1 to 8 do
 writeln(t2,m[i]);
close(t2);
 
end.

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

Не по теме:

Puporev, ощущение, что когда просят помощи на форуме, пишут так быстро, что если проверять каждое слово то видео карта полетит к чертям, в оперативке закончится место, а материнка сгорит..

@Puporev · 20.04.2012, 13:08

Просто Правила вообще не читают, где написано

Избегайте грамматических ошибок при написании сообщений - уважайте себя и других участников форума.

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

@Olichka 0 / 0 / 0 Регистрация: 20.04.2012 Сообщений: 5
		1
	В текстовом файле поменять местами первую и последнюю строки 20.04.2012, 00:13. Показов 4953. Ответов 3 Метки нет (Все метки) В текстовом файле Т1, состоящий из 8 строк, поменять местами первый и последний строки. Результат записать в файл Т2. Помогите пожалуйста. 0

@Puporev
	20.04.2012, 11:37 #2
	Не по теме: Сообщение от Olichka поменять местами первый и последний строки. А также первую и последнюю абзацы... 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	20.04.2012, 13:08	4
	Просто Правила вообще не читают, где написано Избегайте грамматических ошибок при написании сообщений - уважайте себя и других участников форума. да и просто не привыкли уважать людей, оскорбляя их своим безграмотным письмом, тем самым понижая свои шансы на положительный ответ. 0