Написать программу ** паскале, которая определяет количество предложений во введенном...

0 голосов
75 просмотров

Написать программу на паскале, которая определяет количество предложений во введенном тексте.


Информатика (400 баллов) | 75 просмотров
Дан 1 ответ
0 голосов
в предложении "персональный компьютер фирмы Apple" имеются 4 слова, отделенные друг от друга 3 пробелами. 
Из приведенного примера видно, что количество слов в строке можно определить как сумму имеющихся в строке пробелов плюс единица. 

program help; 
Uses Crt; 
var 
i,k,ks,1:integer; с: char; s:string; 

begin 
ClrScr; 
writeln('Введите строку. Ввод завершите нажатием клавиши Enter'); 
writeln; 
readln(s) ; 
l:=length(s); 
k:=0;(k - счетчик количества пробелов} 
for i:= 1 to 1 do 
begin 
c:=s; 
if c=' ' then k:=k+l 
end; 
ks:=k+l; 
writeln; 
writeln('количество слов в данной строке составляет ',ks); 
readln 
end.
(79 баллов)
0

Кто то не подумав написал строку for i:= 1 to 1 do

0

Все-таки вместо второй единицы лучше написать L

0

for i:= 1 to L do

0

здесь есть еще ошибки!

0

нельзя переменной символьного типа присваивать целую строку из нескольких символов! Лучше вместо строки c:=s; написать c:=s[i];

0

Вместо if c=' ' then k:=k+l нужно написать if c=' ' then k:=k+1

0

то есть вместо L нужно писать 1!!

0

аналогично в строке ks:=k+l; нужно писать ks:=k+1;