profile
Опубликовано 5 лет назад по предмету Информатика от nikitoss96

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

  1. Ответ
    Ответ дан Frost9
    в предложении "персональный компьютер фирмы 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.
    1. Ответ
      Ответ дан fejago
      здесь есть еще ошибки!
    2. Ответ
      Ответ дан fejago
      нельзя переменной символьного типа присваивать целую строку из нескольких символов! Лучше вместо строки c:=s; написать c:=s[i];
    3. Ответ
      Ответ дан fejago
      Вместо if c=' ' then k:=k+l нужно написать if c=' ' then k:=k+1
    4. Ответ
      Ответ дан fejago
      то есть вместо L нужно писать 1!!
    5. Ответ
      Ответ дан fejago
      аналогично в строке ks:=k+l; нужно писать ks:=k+1;
Самые новые вопросы