Проект
«Пора року»
Завдання.
Складіть програму «Пора року».
Користувач вводить число від 1 до 12, а комп’ютер виводить якій порі
року відповідає даний номер місяця, при введенні іншого числа програма виводить
повідомлення про помилку.
1.
Створіть проект.
Розмістіть на формі елементи
відповідно до приведеного прикладу. Задайте властивості компонент згідно
таблиці.
Властивості
|
Значення
|
Form1.Caption
|
Пори року
|
Image1.Picture
|
Малюнок завантажити з Інтернету
|
Label1.Caption
|
Введіть номер місяця:
|
Edit1.Text
|
|
Button1.Caption
|
Пора року ?
|
Label2.Caption
|
|
2.
Для кнопки перевірки потрібно записати такий
код:
procedure
TForm1.Button1Click(Sender: TObject);
var N:integer;
begin
N:=StrToInt(Edit1.Text);
Case N of
12,1,2: Label2.Caption:='Зима';
3..5: Label2.Caption:='Весна';
6..8: Label2.Caption:='Літо';
9..11: Label2.Caption:='Осінь'
else Label2.Caption:='Помилка';
end;
end;
3.
Збережіть проект. Запустіть програму на
виконання.
Додаткове
завдання: переробити програму так, щоб крім пори року, програма ще
відображала назву місяця (українською).
Комментариев нет:
Отправить комментарий