Посчитать кол-во знаков препинания в тексте.

[Dane4ka]

С клавиатуры вводится текст. Слова разделяются пробелом. Ввод текста прекращается после нажатия на клавиатуре точки. Посчитать количесво знаков препинания в этом тексте.

вот что получилось

Program pr7;
var
c: char;
k: integer;
begin
writeln (‘vvedite tekst’);
readln (c);
k:= 0;
repeat
if (c = ‘ , ‘) or (c = ‘ ! ‘) or (c = ‘ ? ‘) or (c = ‘ : ‘) or (c = ‘ ; ‘) then
k:= k + 1;
until с = ‘ . ‘ ;
writeln (‘kolichestvo znakov prepinania = ‘ , k);
readln;
end.

всё работает, но результата добиться никак не могу((( помогите, пожалуйста, в чем ошибки??

[Zer0]

попробуйте readln(c) убрать, а после repeat написать read(c)

[Dane4ka]

не выходит....

[malinoff]

Program pr7;
var
c: char;
k: integer;
begin
writeln (‘vvedite tekst’);
k:= 0;
repeat
read(c);
if (c = ‘ , ‘) or (c = ‘ ! ‘) or (c = ‘ ? ‘) or (c = ‘ : ‘) or (c = ‘ ; ‘) then
k:= k + 1;
until с = ‘ . ‘ ;
writeln (‘kolichestvo znakov prepinania = ‘ , k);
readln;
end.

У вас такой код получился?
Тип char - "место" только под один символ,а не под строку. Так что перед repeat писать readln(c) и ожидать, что будет прочитана строка, неправильно, прочтется только один символ.
Поэтому в repeat помещаем read(c) - посимвольное считывание, каждый символ на каждом шаге помещается в переменную с

[Dane4ka]

блин....у меня всё равно не выходит результата...уже написала как вы сказали

[malinoff]

Program pr7;
var
c: char;
k: integer;
begin
writeln (‘vvedite tekst’);
k:= 0;
repeat
read(c);
if (c = ‘,‘) or (c = ‘!‘) or (c = ‘?‘) or (c = ‘:‘) or (c = ‘;‘) then
k:= k + 1;
until с = ‘ . ‘ ;
writeln (‘kolichestvo znakov prepinania = ‘ , k);
readln;
end.

А так?

[kakawkin]

а что если вот так ?

s:string;
i,j:integer;

writeln('Vvedite predlogenie');
readln(s);
j:=0;
for i:=1 to length(s) do
 if (s[i]=',') or (s[i]='!') or (s[i]='?') or (s[i]=':') or (s[i]=';') then j:=j+1;
writeln('kolichestvo znakov prepinania = ',j);

[Dane4ka]

Сообщение от kakawkin

а что если вот так ?

s:string;
i,j:integer;

writeln('Vvedite predlogenie');
readln(s);
j:=0;
for i:=1 to length(s) do
 if (s[i]=',') or (s[i]='!') or (s[i]='?') or (s[i]=':') or (s[i]=';') then j:=j+1;
writeln('kolichestvo znakov prepinania = ',j);

да, спасибо)))
получилось)))

[malinoff]

Сообщение от Dane4ka

да, спасибо)))
получилось)))

Вот только сможете ли вы объяснить этот код преподавателю...

[Dane4ka]

да попытаюсь уж как-нибудь
только я вот до сих пор не могу понять, почему не получалось сделать как я первоначально писала