выводит программа результат..но странный....я ввожу 3 слова, а она считает характеристику 19-ого, потом 25-ого...а всего-то нужно посчитать кол-во одинаковых символов в каждом слове....HELP! в чем ошибка???
вот текст модуля:
UNIT modul;
INTERFACE
VAR
stroka: string;
max: integer;
i,k: integer;
Procedure obr_ka (k,i,max:integer);
IMPLEMENTATION
Procedure obr_ka;
BEGIN
Writeln ('Введите предложение, заканчивающееся точкой ');
Readln (stroka);
max:=0;
i:=1;
k:=0;
While stroka [i]<> '.' do
begin
if stroka [i]<> ' ' then
if stroka[i]=stroka [i+1] then inc (k)
else
if k>max then begin
max:=k;
Writeln (' Характеристика ',i, '-го слова: ',k);
k:=0;
end;
inc (i);
end;
end;
END.
а вот основной программмы
Program zadacha_2;
Uses crt, modul;
Var
i,k,max:integer;
stroka: string;
Begin
clrscr;
obr_ka(k,i,max);
readln;
End.
:molitva: