Ответ:
Это моё дз было. Ток сделал. Пиши так
procedure TForm1.Button3Click(Sender: TObject);
var x:integer; Y:String;
begin
Y:=Edit3.Text;
x:=-1;
Repeat x:=x+1;
Until Eng_words[x]=Y;
Edit4.Text:=Rus_words[x];
end;
eng.
Если, что это для 3 кнопки
Объяснение:
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
Это моё дз было. Ток сделал. Пиши так
procedure TForm1.Button3Click(Sender: TObject);
var x:integer; Y:String;
begin
Y:=Edit3.Text;
x:=-1;
Repeat x:=x+1;
Until Eng_words[x]=Y;
Edit4.Text:=Rus_words[x];
end;
eng.
Если, что это для 3 кнопки
Объяснение: