Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи на заказ _ Задача на строки

Автор: andreynemov 13.06.2007 18:09

Помогите решить, буду благодарен...
Вот: Дан файл не более, чем из 100 строк. Каждая строка не более из 255 символов. Написать программу в TP чтобы строки и символы переставились местами...
Вот о чём речь:

a[1] abra
a[2] cada
.
.
.
a[] bra
Чтобы вывилось
a[]arb
.
.
.
a[2]adac
a[1]arba

Автор: sonic 13.06.2007 18:14

Цитата(andreynemov @ 13.06.2007 14:09) *

Помогите решить, буду благодарен...
Вот: Дан файл не более, чем из 100 строк. Каждая строка не более из 255 символов. Написать программу в TP чтобы строки и символы переставились местами...
Вот о чём речь:

a[1] abra
a[2] cada
.
.
.
a[] bra
Чтобы вывилось
a[]arb
.
.
.
a[2]adac
a[1]arba

Помогу, смотри личные сообщения

Автор: Urnix 13.06.2007 18:48

andreynemov, задача детская.
Вот код.


var
a:array[1..100] of string;
i,j:integer;
s,invers:string;
f:text;
begin
writeln('vvedite ima faila');
readln(s);
assign(f,s);
reset(f);
j:=0;
while not eof(f) do
begin
inc(j);
readln(f,s);
invers:='';
for i:=length(s) downto 1 do
invers:=invers+s[i];
a[j]:=invers;
end;
close(f);
rewrite(f);
for i:=j downto 1 do
writeln(f,a[i]);
close(f);
end.



Если твоя благодарность хочет выразится в денежном эквиваленте, стучи в личку.

Автор: Lapp 14.06.2007 10:00

Цитата(Urnix @ 13.06.2007 15:48) *

Если твоя благодарность хочет выразится в денежном эквиваленте, стучи в личку.

Urnix, уважай правила Форума.
Деньги переводятся на счет Форума (см. тему в начале раздела Задачи на Заказ). Затем Форум переводит тебе на счет, который укажешь, за вычетом комиссионных.
andreynemov, переведи деньги на счет Форума, пожалуйста. 3 WMZ или 80 WMR, я полагаю, нормальная цена.

Автор: Urnix 14.06.2007 17:36

Цитата(Lapp @ 14.06.2007 7:00) *

Urnix, уважай правила Форума.
Деньги переводятся на счет Форума (см. тему в начале раздела Задачи на Заказ). Затем Форум переводит тебе на счет, который укажешь, за вычетом комиссионных.
andreynemov, переведи деньги на счет Форума, пожалуйста. 3 WMZ или 80 WMR, я полагаю, нормальная цена.


Автор: Urnix 17.06.2007 14:56

Lapp, извиняюсь за нарушенные правила, ещё не обжился на этом форуме)
Основные правила форума и http://forum.pascal.net.ru/index.php?showtopic=8896 прочитал. Есть ли ещё какие-либо правила в этом разделе? Где надо указыват свой счёт?

Автор: мисс_граффити 17.06.2007 15:27

в разряд правил это, если мне не изменяет память, возведено не было.
вот здесь: http://forum.pascal.net.ru/index.php?showtopic=12950 можно почитать обсуждения.

Автор: Lapp 17.06.2007 18:33

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