Практическая работа №2. Интерфейс
Задание:
1. Создайте в окне три кнопки, на форме в заголовке напишите свою фамилию.
2. По нажатию первой кнопки меняется заголовок окна.
3. По нажатию второй кнопки изменяются цвет шрифта и цвет фона кнопки.
4. По нажатию третьей кнопки запрашивается (input) Фамилия, Имя и возраст, выводится Фамилия, Имя и год рождения, выводится (print) в интерактивное окно Фамилия, Имя и год рождения в таком формате (один в один):
Иванов Иван * 2002 года рождения
Между всеми словами пробелы и не забудьте про *. Это символ строкового типа.
Спрашиваем больше ли 8 загаданное число? Допустим ответили, что не больше.
Тогда берём первую группу чисел и снова делим на 2 группы. 1234 5678. И снова задаём вопрос о величине числа относительно уже 4. Допустим отвечают, что больше.
Теперь берём группу чисел "5678" и снова делим её пополам (56 и 78). Проделываем всё то же самое.
Остаётся всего два числа и тут уже Не трудно будет узнать число. Суммируя число вопросов получается 4.
2. 12
3. 3
4. 22
5. 15
6. 34
7. 3
Часть 2
1.
Var
n:integer;
Begin
Write('Введи число ');
Readln(n);
if (n mod 2) = 0 then write(n,' чётное) else write(n,' нечётное);
End.
2.
Var
a,b:integer;
Begin
Write('Введи числа ');
Readln(a,b);
if a>b then Begin Write('a = ',b*a,' b = ',a+b) else write('a = ',a+b,' b = ',a*b);
End.
3.
Var
n:integer;
Begin
write('Введи двузначное число ');
Readln(n);
if ((n div 10) = 6) or ((n mod 10) = 6) then write('6 присутствует') else write('6 нет в этом числе');
End.