Помогите решть задачку!

← →
Dyakon_Frost © (2005-12-22 05:38) [0]

Считается, что 1995 год - год Свиньи и для людей, рожденных под этим знаком 1995 год будет очень счастливым. Составить программу которая в соответствии с годом рождения человека печатала бы фразу "БУДЬТЕ СЧАСТЛИВЫ ВЕСЬ ГОД!" или сообщала бы сколько лет надо подождать до "его" года. (Счастливый год повторяется каждые 12 лет)

Я знаю что многим это не составит труда! Но у меня возникают проблемы с подсчетом того, сколько осталось до счастливого года!

Заранее благодарен всем!

← →
Джо © (2005-12-22 05:55) [1]

> Но у меня возникают проблемы с подсчетом того, сколько осталось
> до счастливого года!

Проблемы какого плана?

← →
Dyakon_Frost © (2005-12-22 05:58) [2]

1995-счастливый год!
Ввожу например 1994 - выводит что осталось 1 год. Это правельно.
а если ввожу 1996 - поидее осталось 11 лет. Выводит тоже 1 год!

← →
Джо © (2005-12-22 06:01) [3]

> [2] Dyakon_Frost © (22.12.05 05:58)

Так. Если 1995 — "счастливый год", то "если ввожу 1996" то никак не должно быть "11 лет".
Кроме того: куда "ввожу", кто "выдает"?

← →
Dyakon_Frost © (2005-12-22 06:06) [4]

Есть - Edit - тудав водим год своего рождения!
в Label - выводим счатливый ли год для меня!
каждый 12 лет - год свиньи повторяется 1995-2007-2019 - и т.д
так вот если я введу 1996 - то до года свиньи будет через 11 лет! а прога выводит что 1 год- это не правельно в этом и проблема!

← →
Джо © (2005-12-22 06:10) [5]

> а прога выводит

Какая прога?!

Черт с ней, с прогой!!!! Просто реши поставленную задачу! Вот и все!

Вот мой пример:

readln(god);
s:=3;
repeat
p:=god mod 12;

until (p-12<s) or (p=s);

if p=s then writeln("счастливый") else
if p-12<s then
begin
x:=(12)-p;
x:=p-s;
if x<0 then x:=x*-1;
z:=12-x;
writeln("осталось: ",x); - вот сдесь и проблема!!!

Всем спасибо! Я уже все сделал: Вот оно:

uses crt;
var god,s,i,so,y,x,z,p: integer;

begin
clrscr;
readln(god);
s:=3;
repeat
p:=god mod 12;

until (p-12<s) or (p=s);

if p=s then writeln("счастливый") else
if p-12<s then
begin
x:=p-s;
if x<0 then
begin
x:=x*(-1);
writeln(x);
end
else
begin
z:=12-x;
writeln(z);
end;
end;
readln;
end.

Помогите решть задачку! Найти похожие ветки