Предмет: Информатика,
автор: nikitoss96
Написать программу на паскале, которая определяет количество предложений во введенном тексте.
Ответы
Автор ответа:
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.
Из приведенного примера видно, что количество слов в строке можно определить как сумму имеющихся в строке пробелов плюс единица.
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.
Автор ответа:
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;
Похожие вопросы
Предмет: Математика,
автор: anela3559
Предмет: Математика,
автор: Аноним
Предмет: Математика,
автор: asasasadfrtgh
Предмет: Математика,
автор: лёёёха