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

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

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

Вариант 13

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

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

Задание. Выведите отдельно все слова строки на экран.

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

program stroka;

var str : string;

st : string;

i,n:byte;

begin

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

readln(str);

n:=1;

for i:=1 to length(str) do

i

n=1

f (str[i]=' ') or (i=length(str)) then

begin

writeln(copy(str,n,i-n+1));

n:=i+1;

end;

e

нет

nd.

да

n=i+1

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

3

3