[kate_miss]

ЗАДАНИЕ:

Составить программу, которая читает построчно текст другой программы (ввести с клавиатуры) в MEMO на языке Pascal, подсчитывает количество ключевых слов “begin” и “end” и выводит на экран соответствующее сообщение.


1.правильно ли я решила что это надо делать через строковый массив??????
2.как считать построчно массив из MEMO (если 1 пункт правильно)????


пожалуйста, помогите.......)))))))

P.S. может есть другой способ для решения этой задачи?????

[Bars1992]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
i,b,e:integer;
begin
b:=0;
e:=0;
for i:=0 to memo1.Lines.Count-1 do
 begin
 if pos('end',memo1.Lines[i])<>0 then inc(e);
 if pos('begin',memo1.Lines[i])<>0 then inc(b);
 end;
showmessage('Begin count= '+inttostr(b)+' end count= '+inttostr(e));
end;

[Страдалецъ]

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

... в MEMO на языке Pascal, ...

Вас ничего не смущает в этой фразе?

[kate_miss]

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

[Asinkrit]

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

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
i,b,e:integer;
begin
b:=0;
e:=0;
for i:=0 to memo1.Lines.Count-1 do
 begin
 if pos('end',memo1.Lines[i])<>0 then inc(e);
 if pos('begin',memo1.Lines[i])<>0 then inc(b);
 end;
showmessage('Begin count= '+inttostr(b)+' end count= '+inttostr(e));
end;

Твой алгоритм проверяет на жесткое нахождение хотя бы одного слова в строке, а если в строке два end-а? или два begin-а?

[Мяфк]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
i,b,a:integer;
begin
b:=0;
a:=0;
for i:=0 to memo1.Lines.Count-1 do
 begin
 if pos('end',memo1.Lines[i])>0 then a:=a+1;
 if pos('begin',memo1.Lines[i])>0 then b:=b+1;
 end;
showmessage('Begin count= '+(b)+' end count= '+a+');
end;

Ну как-то так, могу ошибаться..