Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
56
Добавлен:
10.02.2014
Размер:
37.38 Кб
Скачать

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

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

Вариант 4

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

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

Задание. Поменяйте местами первый и послед­ний символы строки.

Текст программы:

program stroka;

var str:string;

buffer:char;

begin

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

readln(str);

buffer:=str[1];

str[1]:=str[length(str)];

str[length(str)]:=buffer;

writeln(str);

end.

buffer=str[1]

str[1]=str[length(str)]

str[length(str)]=buffer

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

Соседние файлы в папке вар4