Работа со строками .

[Cveto4eg]

Сконструировать параметризованную подпрограмму (процедуру либо функцию)-->Вводится строка. Удвоить каждый ее символ, потом перевернуть.

[puporev]

Задачка простенькая и ради воскресенья я вам ее напишу. На будущее замечу, что в культурном обществе, коим является данный форум, принято при входе здороваться и, если есть проблема, культурно попросить помочь в ее разрешении. Выдавать команды на исполнение не хорошо, люди могут обидеться и вообще на ваш приказ не среагируют.

uses crt;
var s:string;
    i,n:byte;
procedure Stroka(var a:string);
var i,n:byte;
begin
n:=length(a);
for i:=n downto 1 do
   begin
     insert(a[i],a,i+1);//вставляем вторые символы
     n:=n+1;
   end;
writeln;
writeln('Rezultat:');
for i:=n downto 1 do //читаем с конца до начала
write(a[i]);
end;
begin  //основная программа
clrscr;
write('Vvedite stroku: ');
readln(s);
Stroka(s);   //вызов процедуры
readln
end.

[Cveto4eg]

Спасибо большое ,и очень извеняюсь за столь хамское поведение И у меня,стати,вопросик-->что это за модуль crt????

[puporev]

Если у вас нет этого модуля, то программа должна на нем выдать ошибку и тогда его и строку clrscr;(очистить экран) надо убрать. А вообще это один из нужных модулей, он позволяет работать с экраном и клавиатурой. Подробнее в учебниках.

[Cveto4eg]

И где его можно скачать?

[puporev]

В интернете. Наберите в поиске Учебник Паскаль, или Турбо Паскаль и откроется тьма сайтов, где можно скачать много учебников.
В разделе Паскаль этого форума есть специальная тема по литературе, стоит первой.

[Карась]

Обычно он сидит всегда вместе с Паскалем.
В чём пишите?

....Извиняюсь, я подумал что речь идёт о модуле crt

[puporev]

Я не понял, что скачать. У меня последне было учебник. Если нужен модуль, то сейчас могу отправить.

[Cveto4eg]

Примного была бы благодарна

[B_N]

Cveto4eg, ответьте сначала на вопрос Карася - "в чём пишете?". Может статься, этот модуль будет Вам бесполезен, а может быть, что он уже есть.