добрый вечер, уважаемые программисты. помогите, пожалуйста, написать программу на языке программирования Делфи.
вот задание:
нужно написать программу, которая будет по месяцу определять время года (зима,весна, лето или осень).
заранее спасибо за ответы.
вот уже сделанные задания
1)в программу вводится число, месяц и год, а программа определяет является ли год высокосным или нет.
вот код
unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Button1: TButton; Label1: TLabel; Label2: TLabel; Label3: TLabel; Edit4: TEdit; procedure Button1Click(Sender: TObject); private < Private declarations >public < Public declarations >end; tdate=class month,day,year:integer; procedure setvalue(m,d,y:integer); function leapyear:boolean; end; var Form1: TForm1; aday:tdate; mn,dn,yn:integer; implementation procedure tdate.setvalue(m,d,y:integer); begin month:=m; day:=d; year:=y; end; function tdate.leapyear:boolean; begin if (year mod 4 <>0) then leapyear:=false else if (year mod 100<>0) then leapyear:=true else if (year mod 400<>0) then leapyear:=false else leapyear:=true; end; procedure TForm1.Button1Click(Sender: TObject); begin // ctvorenna obektu aday:=tdate.Create ; // vikorictanna ego mn:=strtoint(form1.edit1.text);dn:=strtoint(form1.edit2.text);yn:=strtoint(form1.edit3.text); aday.setvalue(mn,dn,yn); if aday.leapyear then showmessage(‘Visokicniy rik:’ + inttostr(aday.year)+’ ‘+inttostr(yn)) else showmessage(‘NEvisokicniy rik:’ + inttostr(aday.year)); //znichenna obekta form1.edit4.Text:=’Vi vveli datu ‘+inttostr(dn)+’/’+inttostr(mn)+’/’+inttostr(yn); aday.Free; end; begin // ctvorenna obektu aday:=tdate.Create ; // vikorictanna ego mn:=1;dn:=1;yn:=2001; aday.setvalue(mn,dn,yn); if aday.leapyear then showmessage(‘Visokicniy rik:’ + inttostr(aday.year)) else showmessage(‘NEvisokicniy rik:’ + inttostr(aday.year)); //znichenna obekta aday.Free; end.
во дописанный код определения сезона года по месяцу (например,вводишь месяц 1 — результат зима)
Finik.Finya — Навечно (Премьера 2020)
вот код
case month of 12,1,2:showmessage(‘Winter’); 3..5:showmessage(‘Spring’); 6..8:showmessage(‘Summer’); 9..11:showmessage(‘Autumn’); end;
или вот другой вариант
mes:=strtoint(edit1.text); case mes of 1,2,12: label1.caption:=’Зима’; 3,4,5: label1.caption:=’Весна’; 6,7,8: label1.caption:=’Лето. ‘; 9..11: label1.caption:=’Осень’; end;
только мне нужно помочь вставить этот код в мою основную программу.
заранее спасибо за ответы.
Последний раз редактировалось Stilet; 19.09.2013 в 22:42 .
Источник: www.programmersforum.ru
Написать программу, которая бы по введенному номеру года (1 — зима, 2-весна, 3-лето, 4-осень) выдавала соответствующие этому времени года месяцы, количество дней в каждом из месяцев)
program p; var a: integer; begin writeln(«Введите время года: «); readln(a); case a of 1 : writeln(«Декабрь: 31 Январь: 31 Февраль: 28»); 2 : writeln(«Март: 31 Апрель: 30 Май: 31»); 3 : writeln(«Июнь: 30 Июль: 31 Август:31»); 4 : writeln(«Сентябрь:30 Октябрь:31 Ноябрь:30»); end; readln; end.
«Чей Херсон»? Что произошло с Юлией в Австрии #shorts #изнанка #украина #интервью #австрия
Также наши пользователи интересуются:
⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Написать программу, которая бы по введенному номеру года (1 — зима, 2-весна, 3-лето, 4-осень) выдавала соответствующие этому времени года месяцы, количество дней в каждом из месяцев)» от пользователя Лена Игнатенко в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.
Открой этот вопрос на телефоне — включи камеру и наведи на QR-код!
Источник: shpora.org
пользователь вводит количество недель месяцев лет и получает количество дней за это время
Пользователь вводит количество недель, месяцев, лет и получает количество дней за это время
Пользователь вводит температуру за 7 дней. Вывести количество теплых дней, количество холодных дней
Пользователь вводит температуру за 7 дней. Вывести количество теплых дней, количество холодных дней.
Перевод количества дней в количество лет, месяцев и дней
Помогите, пожалуйста срочно нужно перевести кол-во дней(вводит пользователь) в кол-во лет, месяцев.
Перевод введенного количества лет,месяцев, недель и дней в дни
Надо сделать через консоль в с# 1.Перевод введенного количества лет,месяцев, недель и дней в дни.
Расчёт дней/недель/месяцев/лет между двумя датами
Написал программу по расчёту дней, недель, месяцев, годов между двумя датами, однако не знаю, как.
Количество лет, месяцев, дней между датами
Здравствуйте. Может подскажите как вывести количество лет месяцев дней между двумя датами? спасибо.
Задается 2 года определяется количество лет месяцев дней
Задается 2 года определяется количество лет месяцев дней Добавлено через 13 часов 12 минут.
Как определять количество лет, месяцев, дней между датами?
Подскажите, как определять сколько прошло времени(лет, месяцев, дней) между двумя датами. Допустим.
Вычислить количество лет, месяцев и дней в интервале двух дат
ребята помогите.. нужно написать программу что бы вводилась дата рождения и дата смерти, после.
Написать программу в Паскале Пользователь вводит количество недель, месяцев, лет и получает количество дней за это время?
Написать программу в Паскале Пользователь вводит количество недель, месяцев, лет и получает количество дней за это время.
Считать, что в месяце 30 дней.
Составить программу, которая по заданным году и номеру месяца m определяет количество дней в этом месяце?
Составить программу, которая по заданным году и номеру месяца m определяет количество дней в этом месяце?
Напишите программу, которая получает день и номер месяца, а выводит количество дней, оставшихся до нового года?
Напишите программу, которая получает день и номер месяца, а выводит количество дней, оставшихся до нового года.
Считайте, что год невисокосный (365 дней).
Учтите что слова «дней» может иметь также формы «день» и » дня «.
Составить программу, которая запрашивает у пользователя год количество дней в текущем месяце и сегодняшнее число?
Составить программу, которая запрашивает у пользователя год количество дней в текущем месяце и сегодняшнее число.
После этого выводит сообщение о том, сколько дней осталось до конца месяца.
Пример работы программы : Сколько дней в текущем месяце?
31 Какое сегодня число?
26 Количество дней до конца текущего месяца : 5.
ПОМОГИТЕ, ПОЖАЛУЙСТА?
Напишите программу, которая получает день и номер месяца, а выводит количество дней, оставшихся до Нового Года.
Считайте, что год невисокосный (365 дней).
Учтите, что слово «дней» может иметь также формы «день» и «дня».
Написать в паскале Определить количество дней в году, который вводит пользователь?
Написать в паскале Определить количество дней в году, который вводит пользователь.
Паскаль?
Написать программу которая после введения месяца, выводит на экран количество дней этого месяца.
Помогите пожалуйста?
Напишите программу : По заданному номеру месяца выводилось его название и указано количество дней в месяце.
Составьте программу которая определяет по номеру месяца количество дней в этом месяце и количество ошибок при вводе N месяца?
Составьте программу которая определяет по номеру месяца количество дней в этом месяце и количество ошибок при вводе N месяца.
Напишите программу, которая вводит с клавиатуры номер месяца и определяет, сколько дней в этом месяце?
Напишите программу, которая вводит с клавиатуры номер месяца и определяет, сколько дней в этом месяце.
При вводе неверного номера месяца должно быть выведено сообщение об ошибке.
Считается, что год невисокосный.
Входные данные Входная строка содержит единственное целое число – номер месяца (возможно, неправильный).
Выходные данные Выходная строка должна содержать одно целое число – количество дней в этом месяце или 0, если был введён неверный номер месяца.
Для PYTHON, не для Pascal.
Создать вторую дорожку для видео и вставить туда, поверх первого видео.
(listBox. SelectedItem as DataRowWiew)[ID_FILM] ;..
Ответ в приложении, правда не поняла, что там надо было писать в одну из кусков блок схемы.
Пользователь вводит температуру за 7 дней. Вывести количество теплых дней, количество холодных дней
Пользователь вводит температуру за 7 дней. Вывести количество теплых дней, количество холодных дней.
Перевод количества дней в количество лет, месяцев и дней
Помогите, пожалуйста срочно нужно перевести кол-во дней(вводит пользователь) в кол-во лет, месяцев.
Перевод введенного количества лет,месяцев, недель и дней в дни
Надо сделать через консоль в с# 1.Перевод введенного количества лет,месяцев, недель и дней в дни.
Расчёт дней/недель/месяцев/лет между двумя датами
Написал программу по расчёту дней, недель, месяцев, годов между двумя датами, однако не знаю, как.
Количество лет, месяцев, дней между датами
Здравствуйте. Может подскажите как вывести количество лет месяцев дней между двумя датами? спасибо.
Задается 2 года определяется количество лет месяцев дней
Задается 2 года определяется количество лет месяцев дней Добавлено через 13 часов 12 минут.
Как определять количество лет, месяцев, дней между датами?
Подскажите, как определять сколько прошло времени(лет, месяцев, дней) между двумя датами. Допустим.
Вычислить количество лет, месяцев и дней в интервале двух дат
ребята помогите.. нужно написать программу что бы вводилась дата рождения и дата смерти, после.
Определить и вывести количество дней между двумя датами (логические операторы и операторы ветвлений)
Пользователь вводит две даты (день, месяц, год в виде целых чисел). Необходимо определить и вывести количество дней между этими двумя датами. Для расчетов учитывать високосные года, а также корректное число дней в месяцах (март – 31, сентябрь – 30, февраль невисокосного года – 28 и т.д.).
Код проходит проверку без замечаний, но при запуске выдается ошибка:
 |
Запрещено создавать темы в виде ссылок на задания или коды программ, расположенные на других сайтах. |
Подскажите пожалуйста, как это исправить или что я не так делаю в решении поставленной задачи, заранее спс =3
Определить количество дней между двумя датами
Всем привет. Знаю была уже подобная задачка решена ранее, и не раз: Пользователь вводит две даты.
Вывести количество дней между двумя датами (как учитывать високосный год?)
Пользователь вводит две даты (день, месяц, год в виде целых чисел). Необходимо определить и.
Количество дней между двумя датами
Здравствуйте, у меня есть неполный код от задачи: Найти количество дней между двумя датами. можете.
Вывести на консоль все месяцы заданного пользователем времени года и количество дней в выбранном месяце
Вывести количество дней в заданном месяце заданного года
Здравствуйте. Нужна помощь. Нужно написать скрипт на BASH, на вход которому даётся год и месяц.
По введенному времени года выдать соответствующие месяцы, количество дней в каждом
Написать программу, которая бы по введенному номеру времени года (1 — зима, 2 — весна, 3 — лето, 4.
Вывести месяцы заданного времени года
Составить разветвляющую программу с использованием оператора Case (пример такого как мы решали на.
Решение
Определить количество строк в компоненте ListBox и количество дней в выбранном месяце
Вынесите на форму компонент ListBox и занесите туда названия 12 месяцев года. Напишите программу.
По номеру месяца для текущего года вывести количество дней в этом месяце
Составить блок-схему алгоритма и программу: 1.1. Перераспределить значения переменных X и Y так.
По номеру месяца для текущего года вывести количество дней в этом месяце
Составить блок-схему алгоритма и программу: 1.3. По номеру месяца для текущего года вывести.
Множества.Месяц 1..30 Описать функцию число дней (m), определяющую количество дней в месяце (n) не високосного года.
Месяц 1..30 Описать функцию число дней (m), определяющую количество дней в месяце (n) не.
Работа с enum. Вывести все месяцы, которые имеют такое же количество дней.
Всем привет. Начал изучать enum, вот есть задание: вывести все месяцы которые имеют такое же.
Источник: visacomtour.ru