Лабораторная работа №14

Пример: В теле процедуры запишем

Begin

…

if MessageDlg('Yo!',mtWarning,[mbYes, mbNo],0)=mrYes

then close;

end.

Получим:

Задания для самостоятельной работы:

1.Перераспределить значения переменных x и y так, чтобы в х оказалось большее, а в у – меньшее.

2.Посетитель проиграл в казино a рублей. У него есть фишки 2, 5, 15, 20, 50, 100, 500$. Сколько фишек разного достоинства отдаст игрок, если будет платить с самых дорогих?