Изучение языка программирования
Турбо Паскаль
На этом сайте можно: скачать среду программирвания Турбо Пакаль, изучить язык программирования Турбо Паскаль, а так же скачать программы на языке Турбо Паскаль!
Решенные задачи на языке Паскаль
Условие задачи - из "гостевой книги".
Вводится слово с клавиатуры, а надо, чтобы оно получилось наоборот... Например, вводишь слово CAT, нажимаешь Enter, и оно отображается как TAC. |
var st:string; {сама строка } tmp:char; {символ для сохранения } i:byte; {в цикле } BEGIN write('Введи строку: '); readln(st); for i:=1 to trunc(length(st)/2) do {меняем символы до половины } begin {всей длины строки } tmp:=st[i]; {сохраним символ } st[i]:=st[length(st)-i+1]; {на его место ставим другой } st[length(st)-i+1]:=tmp; {на место того ставим тот что сохранили} end; writeln; writeln(st); readln; END.