З А Г А Д К А

Задать пользователю загадку и похвалить его за правильный ответ.

Program Primer10; uses crt;

var otg,name,a: string;

Begin

clrscr;

write('Здравствуйте. Как Вас зовут ? '); readln(name);

clrscr; writeln;

writeln(name,', отгадайте загадку: ');

a:='Висит груша,нельзя скушать.';

Repeat

write(a,' Отгадка: '); readln(otg); clrscr; {только READLN}

until (otg='лампа') or (otg='лампочка');

writeln;

writeln;

writeln('Молодец, ',name,' ! До свидания !');

readkey;

End.

З А Д А Н И Я:

1. Набрать и исполнить программу.

2. Ввести свою загадку и ответ. Предусмотреть различные способы ввода отгадки.

3. "Спрятать" в программе отгадку и вызывать ее с помощью строковых процедур и функций.

4. Установить пароль для защиты текста от неразрешённого доступа.

ПРАКТИЧЕСКОЕ ЗАНЯТИЕ № 28

ОБРАБОТКА СИМВОЛЬНЫХ И СТРОКОВЫХ ВЕЛИЧИН 3

Получить перевертыш: ОГОРОД - ДОРОГО.

Program Primer11; uses crt;

var a: string;

i,l: integer;

Begin

clrscr;

write('Введите слово :'); readln(a);

clrscr; { for i:=length(a) downto 1 do write(a[i]); }

writeln(a);

l:=length(a);

for i:=l downto 1 do writeln(copy(a,i,1));

readkey;

End.

Очень давно слово "АБРАКАДАБРА" записывали определенным образом на ткани и это заклинание носили в виде шарфика вокруг шеи. Считалось, что заклинание защищает от малярии и других болезней. Получить эту запись в виде треугольника.

Program Primer12; uses crt; Программу можно написать

var a: string; и другими способами.

i, k: integer;

Begin Можете подумать на досуге.

clrscr;

a:='a b r a k a d a b r a';

k:=0;

for i:=1 to 11 do

Begin

gotoxy(30+i,9+i);

delete(a,22-k,2);

write(a);k:=k+2

end;

readkey;

End.

З А Д А Н И Я:

1. Набрать и исполнить программы. Разобраться в работе программ.

2. Ввести слово произвольной длины и напечатать его в виде

треугольника: 1)Л 2) ЛИПА 3) ЛИПА 4) ЛИПКА

ЛИ ЛИП ИПА ИПК

ЛИП ЛИ ПА П

ЛИПА Л А