лабораторная работа / лаб7 вар 8
.docБалаковский институт техники технологий и управления
Лабораторная работа №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 Блок–схема программы