if chislo = 1 then
write (‘Орел’)
else write (‘Решка’);
procedure TForm1.Edit2Change(Sender: TObject);
var polz: integer;
begin
if edit2.text<> '' then polz:=StrToInt(Edit2.Text);
if polz=1 then image2.Picture.loadfromfile('1.gif');
if polz=0 then image2.Picture.loadfromfile('2.gif');
end;
Если не удалось найти и скачать доклад-презентацию, Вы можете заказать его на нашем сайте. Мы постараемся найти нужный Вам материал и отправим по электронной почте. Не стесняйтесь обращаться к нам, если у вас возникли вопросы или пожелания:
Email: Нажмите что бы посмотреть