Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

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

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

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

Dyakon_Frost (2005-12-22 07:21:00) [1]
Всем спасибо! Я уже все сделал: Вот оно:

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.

Dyakon_Frost (2005-12-22 06:34:00) [2]
Черт с ней, с прогой!!!! Просто реши поставленную задачу! Вот и все!

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

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

Джо (2005-12-22 06:10:00) [3]

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

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

Dyakon_Frost (2005-12-22 06:06:00) [4]
Есть - Edit - тудав водим год своего рождения!
в Label - выводим счатливый ли год для меня!
каждый 12 лет - год свиньи повторяется 1995-2007-2019 - и т.д
так вот если я введу 1996 - то до года свиньи будет через 11 лет! а прога выводит что 1 год- это не правельно в этом и проблема!

Джо (2005-12-22 06:01:00) [5]

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

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

Dyakon_Frost (2005-12-22 05:58:00) [6]
1995-счастливый год!
Ввожу например 1994 - выводит что осталось 1 год. Это правельно.
а если ввожу 1996 - поидее осталось 11 лет. Выводит тоже 1 год!

Джо (2005-12-22 05:55:00) [7]

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

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »