лабораторная работа / лаб7 вар 8

Балаковский институт техники технологий и управления

Лабораторная работа №7

Вариант 8

Выполнил студент УИТ-2в

Балаково 2008 год.

Задание. Переверните строку так, чтобы пер­вый символ стал последним и так да­лее. Новую строку выведите на экран.

Код программы:

program stroka;

var str:string;

buffer:char;

i:byte;

begin

writeln('Введите строчку');

readln(str);

for i:=1 to trunc((length(str)/2)) do

begin

buffer:=str[i];

str[i]:=str[length(str)-i+1];

str[length(str)-i+1]:=buffer;

end;

writeln(str);

end.

buffer=str[i]

str[i]=str[length(str)-i+1]

str[length(str)-i+1]=buffer

Рис.1 Блок–схема программы