Решить задание на Pascal и Delphi.

[Viktor26]

Нужно решить 1 задачку на Паскале и одну (емкую) на Делфи. Оч Срочно. 

По Паскалю 

Даны две тройки чисел a,b,c и x,y,z (число , месяц , год). Определить количество полных лет, прошедших между этими датами. 

Текст программы с коментами что да как.

По Делфи скину на почту. 

Цену можете в личку написать.

ОЧ СРОЧНО.

Изменено 9 ноября, 2018 пользователем Viktor26

[Реклама]

Реклама: ООО ТД Промэлектроника, ИНН: 6659197470, Тел: 8 (800) 1000-321

[Yurkin2015]

var result : integer; { переменная для результата }
begin
	result := z - c; { Вычитаем года для получения разницы лет }
	if b>y then result := result - 1;  { Если начальной месяц больше то уменьшаем разницу на 1, т.к. год неполный }
	if(b=y) AND (a>x) then result := result - 1; { Если месяцы равны, и если начальная дата больше, то уменьшаем разницу лет на 1. }
end;

 

[Реклама]

20% скидка на весь каталог электронных компонентов в ТМ Электроникс!

Акция "Лето ближе - цены ниже", успей сделать выгодные покупки!

Плюс весь апрель действует скидка 10% по промокоду APREL24 + 15% кэшбэк и бесплатная доставка!

Перейти на страницу акции

Реклама: ООО ТМ ЭЛЕКТРОНИКС, ИНН: 7806548420, info@tmelectronics.ru, +7(812)4094849

[avr32]

14 часа назад, Viktor26 сказал:

Определить количество полных лет, прошедших между этими датами

Определить ""количество полных лет" вплоть до дня или же только до года?

10 часов назад, Yurkin2015 сказал:

var result : integer; { переменная для результата }
begin
	result := z - c; { Вычитаем года для получения разницы лет }
	if b>y then result := result - 1;  { Если начальной месяц больше то уменьшаем разницу на 1, т.к. год неполный }
	if(b=y) AND (a>x) then result := result - 1; { Если месяцы равны, и если начальная дата больше, то уменьшаем разницу лет на 1. }
end;

 

Не работает на примере: 28.02.2015/28.02.2016. Результат должен быть 0, а будет по алгоритму 1.

Изменено 10 ноября, 2018 пользователем avr32

[Реклама]

Выбираем схему BMS для заряда литий-железофосфатных (LiFePO4) аккумуляторов

Обязательным условием долгой и стабильной работы Li-FePO4-аккумуляторов, в том числе и производства EVE Energy, является применение специализированных BMS-микросхем. Литий-железофосфатные АКБ отличаются такими характеристиками, как высокая многократность циклов заряда-разряда, безопасность, возможность быстрой зарядки, устойчивость к буферному режиму работы и приемлемая стоимость. Но для этих АКБ очень важен контроль процесса заряда и разряда для избегания воздействия внешнего зарядного напряжения после достижения 100% заряда. Инженеры КОМПЭЛ подготовили список таких решений от разных производителей. Подробнее>>

Реклама: АО КОМПЭЛ, ИНН: 7713005406, ОГРН: 1027700032161

[Viktor26]

@Yurkin2015 алгоритм понял, куда на пиво прислать

[Viktor26]

товарищи хелп срочно срочно

вариант №6

не бесплатно, в личку озвучивайте

срок 1-2 дня

[IMXO]

впечатлен широтой мысли 3го и 8го вариантов:  y(x)=sqrt(x²) ;,

[Viktor26]

@IMXO а я вот впечатлён до белой зависти тому, что вы это понимаете))) для меня это дремучий лес. Хотя возможно нужно просто почитать и разобраться))