ck:=strtoint(edit1.text);
kol:=kol+1
if ch>ck
begin
form1.Color claqua;
end
else
begin
label2.Caption:='моє число менше' ;
form1.Color ;
end
begin
form1.Color:=clolive;
label2.Caption:='ви вгадали за '+inttostr(kol)+ ' спроб';
end;
kol:=kol+1
if ch>ck
begin
form1.Color claqua;
end
else
begin
label2.Caption:='моє число менше' ;
form1.Color ;
end
begin
form1.Color:=clolive;
label2.Caption:='ви вгадали за '+inttostr(kol)+ ' спроб';
end;
Додаткове завдання
до проєкту «Вгадай число»
2. Якщо числа рівні одне одному, то на другій Кнопці має змінитися напис на
«Молодець», а ТРЕТЯ кнопка має стати видимою з написом «Грати ще раз».
3. Подія Clіck для третьої кнопки має встановити такі властивості:
А) кнопку три зробити не видимою
Б) першу кнопку – видимою
В) встановити напис на третій кнопці «Я вгадав число?»
Г) колір форми – срібний.
Немає коментарів:
Дописати коментар