Помогите пожалуйста! написать программу, которая при вводе пользователем даты рождения выдает ближайший "счастливый" год

[Den_Dodge]

Необходимо написать программу, которая при вводе пользователем даты рождения выдает ближайший "счастливый" год. "Счастливым" считается тот год, остаток от деления суммы цифр которого на 10 - совпадает с остатком для дня рождения или месяца.

Спасибо!

[Stilet]

Попытки и наработки имеются?

[Den_Dodge]

Сообщение от Stilet

Попытки и наработки имеются?

Небольшая часть

var
s_g, sum:integer; data:longint;
begin
write('Vvedite den i mesyac rozhdeniya(naprimer: 0203): ');
readln(data);
while data>0 do 
begin
sum:=sum+(data mod 10);
data:=(data div 10);
end;

Еще конечно хотелось бы так называемую защиту от дураков, чтобы нельзя было ввести более 4 цифр

[Аватар]

А 3 можно? Если можно, то почему 5 нельзя? Может кому интересно найти счастливый год после 1 марта 11021 года?

[Den_Dodge]

Сообщение от Аватар

А 3 можно? Если можно, то почему 5 нельзя? Может кому интересно найти счастливый год после 1 марта 11021 года?

в программе необходимо ввести свой день и месяц рождения по форме дд.мм
И программа должна найти ближайший счастливый год.

Это лаб.работа, вот я и попросил помочь. сам не могу понять

[Serge_Bliznykov]

хотите ввод данных с защитой?!
извольте:

const
   DaysInMonth: array[1..12] of Byte =
     (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);

var s : string;
  dd, mm, err, posdot : integer;
  isGood : boolean;
begin
  WriteLn;
  repeat
    Write('введите свой день и месяц рождения по форме дд.мм: ');
    ReadLn(s);
    isGood := false;
    posdot := pos('.', s);
    if posdot=0 then WriteLn('Ошибка - неверный формат (нет точки)')
    else begin
      val(copy(s,1, posdot-1), dd, err);
      if err<>0 then begin WriteLn('Ошибка при вводе дня (допускаются только цифры)!'); continue end;
      val(copy(s,posdot+1,length(s)), mm, err);
      if err<>0 then begin WriteLn('Ошибка при вводе месяца (допускаются только цифры)!'); continue end;
      if (mm<1) or (mm>12) then begin WriteLn('Ошибка при вводе месяца (должно быть число от 1 до 12)!'); continue end;
      if (dd<1) or (dd>DaysInMonth[mm]) then begin WriteLn('Ошибка при вводе дня - слишком маленькое или слишком большое число!'); continue end;
      {все проверки прошли успешно}
      isGood := true;
    end;

  until isGood;

  WriteLn('Дата рождения: ',dd);
  WriteLn('Месяц рождения: ',mm);
end.

[Den_Dodge]

Сообщение от Serge_Bliznykov

хотите ввод данных с защитой?!
извольте:

const
   DaysInMonth: array[1..12] of Byte =
     (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);

var s : string;
  dd, mm, err, posdot : integer;
  isGood : boolean;
begin
  WriteLn;
  repeat
    Write('введите свой день и месяц рождения по форме дд.мм: ');
    ReadLn(s);
    isGood := false;
    posdot := pos('.', s);
    if posdot=0 then WriteLn('Ошибка - неверный формат (нет точки)')
    else begin
      val(copy(s,1, posdot-1), dd, err);
      if err<>0 then begin WriteLn('Ошибка при вводе дня (допускаются только цифры)!'); continue end;
      val(copy(s,posdot+1,length(s)), mm, err);
      if err<>0 then begin WriteLn('Ошибка при вводе месяца (допускаются только цифры)!'); continue end;
      if (mm<1) or (mm>12) then begin WriteLn('Ошибка при вводе месяца (должно быть число от 1 до 12)!'); continue end;
      if (dd<1) or (dd>DaysInMonth[mm]) then begin WriteLn('Ошибка при вводе дня - слишком маленькое или слишком большое число!'); continue end;
      {все проверки прошли успешно}
      isGood := true;
    end;

  until isGood;

  WriteLn('Дата рождения: ',dd);
  WriteLn('Месяц рождения: ',mm);
end.

спасибо. дальше попытаюсь сам дойти, но если что обращусь. можно? =)

[Serge_Bliznykov]

Сообщение от Den_Dodge

спасибо. дальше попытаюсь сам дойти, но если что обращусь. можно? =)

Пожалуйста. Конечно, обращайтесь.

ещё подброщу пару строчек кода, которые Вам пригодятся.
Вам придётся найти сумму цифр года.
это можно сделать так:

    MySum := 0;
    Num := Year;
    while Num>0 do begin
        MySum := MySum + (Num mod 10); {прибавили последную цифру к сумме}
        Num := Num div 10; {число целочисленно разделели на 10 - тем самым отбросив последнюю цифру числа}
    end;

[Den_Dodge]

Сообщение от Serge_Bliznykov

Пожалуйста. Конечно, обращайтесь.

ещё подброщу пару строчек кода, которые Вам пригодятся.
Вам придётся найти сумму цифр года.
это можно сделать так:

    MySum := 0;
    Num := Year;
    while Num>0 do begin
        MySum := MySum + (Num mod 10); {прибавили последную цифру к сумме}
        Num := Num div 10; {число целочисленно разделели на 10 - тем самым отбросив последнюю цифру числа}
    end;

Подскажите пожалуйста еще. Какой код писать, чтобы при вводе даты своего рождения(по коду описанному ранее) выводился счастливый год. Как, так скажем, приравнять сумму цифр даты рождения и сумму цифр счастливого года, но чтобы был >2015.

[Serge_Bliznykov]

алгоритм такой:
чтобы упростить код, считаем отстатки от деления на 10 от дня рождения, от месяца рождения:
ostdd := dd mod 10;
ostmm := mm mod 10;
читаете текущий год из системы (или просите ввести текущий год пользователя),
дальше банальный цикл
год = год + 1
находим сумму цифр года
повторяем пока условие не выполнится (sumyear mod 10) = ostdd или (sumyear mod 10) = ostmm

выводим найденный счастливый год.
всё