Версия для печати темы

Автор: priboltik 4.06.2007 16:57

вот текст программы:

program h98789;
uses crt;
var
stroka:string;
simvol:char;
l,k,j,kol_space,i:integer;
is_char,is_simv:boolean;
begin
clrscr;
kol_space:=0;
writeln('Vvedite stroky');
readln(stroka);
writeln('Vvedite neobhodimii simvol');
readln(simvol);
for i:=1 to length(stroka) do
    begin
    if stroka[i]=' ' then
       begin
       j:=i+1;
       k:=i+1;
       inc(kol_space);
       is_char:=false;
       is_simv:=false;
       while (stroka[j]<>' ')and(stroka[j]<>#13) do
             begin
             if stroka[j]=simvol then
                is_char:=true;
             if stroka[j] in ['0'..'9','.',',','!','"',':',';'] then
                is_simv:=true;
             inc(j);
             end;
       if (is_char=true)and(is_simv=true) then
          begin
          for l:=k to j do
              write(stroka[l]);
          writeln(' - iskomaya stroka');
          end;
       end;
    end;
writeln(kol_space+1,' slov v dannoi stroke');
readln;
readln;
end.

вместо нужных строк он мне выводит какие-то символы..подскажите что к чему..??

задание: Подсчитать общее количество слов последовательности и напе-
чатать слова, содеpжащие указанный символ и хотя бы один знак.

Автор: Ozzя 4.06.2007 17:06

Кнопочки F7,F8 не пробовал нажимать?

Автор: Malice 4.06.2007 18:31

не будет после ввода строки через readln в конце этого символа, если только ты сам его туда специально не добавишь. Условие надо поменять на (j<length(stroka)) например.

Автор: buy clamelle azithromycin 500mg 20.09.2021 15:32

Propecia Hair Fine

Автор: furosemide side effects in elder 24.09.2021 3:20

Acheter Cialis Discretement

Автор: where to buy viagra online witho 20.12.2021 18:20

Best Places To Buy Generic Viagra 332