[kate_miss]

ЗАДАНИЕ:

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


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


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

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

[Bars1992]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

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

Код:

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

[Мяфк]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

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;

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