Складання та виконання алгоритмів з оператором вибору


Проект «Пора року»
Завдання. Складіть програму «Пора року».
Користувач вводить число від 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.       Збережіть проект. Запустіть програму на виконання.
Додаткове завдання: переробити програму так, щоб крім пори року, програма ще відображала назву місяця (українською).



Комментариев нет:

Отправить комментарий