Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.01.08;
Скачать: CL | DM;

Вниз

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

 
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]


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

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


 
Dyakon_Frost ©   (2005-12-22 06:34) [6]

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

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

 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);
- вот сдесь и проблема!!!


 
Dyakon_Frost ©   (2005-12-22 07:21) [7]

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

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.




Страницы: 1 вся ветка

Текущий архив: 2006.01.08;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.028 c
14-1134507398
(CHALING 32)S K i N E R
2005-12-13 23:56
2006.01.08
Delphi 6 и Delphi 7


2-1135162251
Steplerr
2005-12-21 13:50
2006.01.08
Cохранение нескольких изображений в один файл?


2-1135153839
nirvana
2005-12-21 11:30
2006.01.08
Защита базы данных


2-1134849282
pathfinder
2005-12-17 22:54
2006.01.08
Проблема с TThread...


2-1135089991
Asail
2005-12-20 17:46
2006.01.08
Проблемма с IIS и ISAPI dll...