Помогите пожалуйста! Пользователь вводит число , если это число равно 1 , то это январь, если равно 2 , то это февраль, если 3 , то это март.... и т.д. 12 месяцев Через Паскаль надо решить !!
Через Lazarus?
Да , можно и так
Зараз напишу
код
10хв
Эй, мужик, ты что-то долго пишешь
Ладно, не буду мешать
Програму складаю
Спасибо
Створюємо кнопку Для кнопки (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.
после всех команд ентер