ОБРАБОТКА СИМВОЛЬНЫХ ВЕЛИЧИН 4
Задача: Ввести с клавиатуры предложение.
1. Подсчитать в нем количество всех символов.
2. Подсчитать количество букв "а".
3. Заменить запятые пробелами.
4. Осуществить движение первых двух символов вниз.
Program Simwol; Uses crt;
var a, { начальное предложение }
b, { промежуточная переменная }
c: string; { конечное предложение }
i, { переменная цикла }
k, { счетчик символов "а" }
l: integer; { счетчик символов }
Begin
clrscr;
write('Введите предложение :'); readln(a);
l:=length(a);
writeln('В предложении содержится ',l,' символов');
k:=0; b:=''; c:='';
for i:=1 to l do begin b:=copy(a,i,1); if b='a' then k:=k+1 end;
writeln('В предложении содержится ',k,' символов "a");
for i:=1 to l do
Begin
b:=copy(a,i,1);
if b<>',' then c:=c+b else c:=c+' '
end;
delay(6000); { временная задержка вывода (пауза) }
clrscr; write(c);
b:=copy(c,1,2);
for i:=2 to 22 do
Begin
gotoxy(1,i); write(b); delay(500); { печать двух символов }
gotoxy(1,i); write(' ') { стирание этих символов }
end; readkey;
End.
З А Д А Н И Я:
1. Набрать и исполнить программу.
2. Разобраться в работе программы.
3. Заменить движение первых двух символов на движение слова.
4. Заменить движение слова по вертикали на движение по наклонной.
5. Заменить движение слова на перемещение букв этого слова по одной.
