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

Задача: Написать программу, которая по введенному числу 1..3 выводит его название.

Опишем переменную Var a: integer;

Для события по щелчку кнопки в теле процедуры напишем:

Begin

a:=(Edit1.text); // ввод числа

case a of

1: Memo1.text:=IntToStr(‘один’);

2: Memo1.text:=IntToStr(‘два’);

3: Memo1.text:=IntToStr(‘три’);

else Memo1.text:=IntToStr(‘Введите число 1, 2 или 3’);

end;

End;

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

1. Составить программу, которая по заданному числу (1-12) выводит название соответствующего месяца.

2. Написать программу, которая по введенному номеру времени года выдавала соответствующие этому времени года месяцы и число дней в каждом месяце.

3. Составить программу, которая для любого натурального числа 1-1000 печатает количество цифр в записи этого числа.

4. Для целого числа k от 1 до 99 напечатать фразу «я прочел k книг», согласовав окончание слова «книга» с числом k.