Другие языки программирования и технологии

нужны коментарии к программе паскаль //

var
s1, s2 : string;
i, j, len1, len2 : integer;
b : boolean;
count : integer;
begin
count := 0;
write('Введите строку: '); readln(s1);
s2 := 'aba';
len1 := length(s1);
len2 := length(s2);
i := 1;
while i <= len1 do
begin
if (i + len2 - 1 <= len1) then
begin
b := true;
for j := 1 to len2 do
begin
if (s2[j] <> s1[i + j - 1]) then
b := false;
end;
end
else
b := false;
if (b = true) then
begin
count := count + 1;
i := i + len2-1;
end
else
begin
i := i + 1;
end;
end;
writeln('RESULT: ', count);
end.
Константин Лютаев
Константин Лютаев
244
вот те коммент, эта программа считает сколько раз s2 встречается в веденной строке. все
Родион Хабутдинов
Родион Хабутдинов
22 439
Лучший ответ
Константин Лютаев а можешь мне коментарии подписать в самой программе
Егора, зайка, хорош уже один и тот же вопрос задавать.
Кирилл Селезнёв
Кирилл Селезнёв
90 890
Константин Лютаев наложи коментарии на текст программы
переменчивые:
первая строка, вторая строка : строка!
итое, ётое, первая длина, вторая длина : целое!
бэ : правда али ложь!
сколько их там : целое!
понеслась
сколько их там да будет нолик!
пиши ('Введите строку: ')! читай давай (первая строка)!
вторая строка да будет 'aбэa'!
первая длина да будет прямо как длина (первая строка)!
вторая длина да будет прямо как длина (вторая строка)!
итое да будет единичка!
покуда верно, что итое неболее первая длина ну-с
понеслась
коли (итое да вторая длина без единичка неболее первая длина) чтож
понеслась
бэ да будет жиза!
цикл для ётое да будет единичка по вторая длина ну-с
понеслась
коли (вторая строка [ётое] вообще ни разу не первая строка [итое да ётое без единичка]) чтож
бэ да будет брехня!
хорош!
хорош
а хотя знаешь...
бэ да будет брехня!
коли (бэ = жиза) чтож
понеслась
сколько их там да будет сколько их там да единичка!
итое да будет итое да вторая длина без единичка!
хорош
а хотя знаешь...
понеслась
итое да будет итое да единичка!
хорош!
хорош!
пиши давай ('RESULT: ', сколько их там)!
хорош!!!
АС
Алик Седов
44 389
Константин Лютаев а можешь на текст программы наложить плз

Похожие вопросы