Войти Регистрация Спроси ai-bota

Пользователь вводит число , если это число равно 1 , то это январь, если равно 2 , то это февраль, если 3 , то это и т.д. 12 месяцев через паскаль надо решить

Показать ответ

Ответ:

weelrockster

08.10.2020 06:37

Створюємо кнопку
Для кнопки (Button1) процедура onClick
Створюємо поле вводу
Створюємо текстове поле

procedure TForm1.Button1Click(Sender: TObject);var x: real;begin x:= StrToFloat(Edit1.Text);if Edit1.Text = '1'then Label1.Caption:= 'Январь';if Edit1.Text = '2'then Label1.Caption:= 'Февраль';if Edit1.Text = '3'then Label1.Caption:= 'Март';if Edit1.Text = '4'then Label1.Caption:= 'Апрель';if Edit1.Text = '5'then Label1.Caption:= 'Май';if Edit1.Text = '6'then Label1.Caption:= 'Июнь';if Edit1.Text = '7'then Label1.Caption:= 'Июль';if Edit1.Text = '8'then Label1.Caption:= 'Август';if Edit1.Text = '9'then Label1.Caption:= 'Сентябрь';if Edit1.Text = '10'then Label1.Caption:= 'Октябрь';if Edit1.Text = '11'then Label1.Caption:= 'Ноябрь';if Edit1.Text = '12'then Label1.Caption:= 'Декабрь';end;
end.

0,0(0 оценок)

Популярные вопросы: Информатика

ruzall

26.10.2020 05:10

Написать программу, которая генерирует и выводит на экран массив с с 10 случайных чисел в диапазоне от -100 до 100, и выводит сумму четных чисел (в visual studio)...

Янаvi

26.10.2020 05:10

Дан массив из n случайных чисел (числа вводятся с клавиатуры).поменять местами максимальные и минемальные элементы массива...

деляяяяяя

29.05.2020 13:03

1. системы счисления1.2. запишите в развернутой форме число 62,0102. перевод числа из одной системы счисления в дру2.1. заполните таблицу, в каждой строке которой одзаписано...

Викендр

30.06.2021 11:55

Как называется активная область документа (лист), в которой можно печатать и редактировать текст? ответ введите строчными буквами в именительном падеже....

kolyakorolev

18.12.2022 14:26

Користувач вводить чотиризначне число. Виведи число, складене з тих самих цифр, записаних в зворотному порядку. Рішення оформи у вигляді функції reverse (n), яка отримує на...

LinkolnPark1

25.06.2020 02:39

Что делать если во FNAF2 на 2 ночи стоит балунбой в офисе, а в конце главного коридора фокси, я не могу посветить на фокси фонариком из-за балунбоя походу чтобы прогнать его...

Студентка16епта

15.03.2021 02:04

На вход функции подается слово, необходимо определить является ли данное слово палиндромом или нет. Если да, то вывести СУПЕР , в противном случае ОШИБКА ....

ВаняДеркач

28.04.2021 02:18

Какая комбинация клавиш позволит сделать перенос строки в ячейке в libreoffice calc? alt+enter ctrl+enter shift+alt shift+enter в какой вкладке можно задать ориентацию текста...

aloaloaloalo

28.04.2021 02:18

Таблица последовательности звукозаписи.команды в программе и их значение...

RADIUM24

21.03.2023 22:01

Сформировать одномерный массив: 1 вывести элементы массива в обратном порядке. 2 поменять местами первый и последний элементы. 3 найти среднее арифметическое элементов массива....

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку