Скачать презентацию
Идет загрузка презентации. Пожалуйста, подождите
Презентация была опубликована 11 лет назад пользователемЗоя Недоноскова
1 Задача Разбить предложение по словам. В предложении могут быть знаки «.», «!», «?» и «,»
2 Алгоритм Смотрим очередную букву Если это знак препинания, то ничего не делаем Если это пробел, то переходим к заполнению следующего слова Если это другой знак, добавляем его к заполняемому слову
3 Описание var s,q : string; x:array[1..10] of string; n,i,k : integer; Здесь s – вводимая строка q – считываемый символ x – массив слов n - длина строки k – номер слова I -счётчик
4 Подготовительные операции write ('s=', s); readln(s); n:=Length(s); for i:=1 to 10 do x[i]:=''; k:=1;
5 Сам процесс for i:=1 to n do begin q:=copy(s,i,1); if ((q='!') or (q='.') or (q='?') or (q=',')) then i:=i else if q=' ' then k:=k+1 else x[k]:=x[k]+q; end;
6 Окончание for i:=1 to k do writeln(x[i]); readln;
Еще похожие презентации в нашем архиве:
© 2024 MyShared Inc.
All rights reserved.