1001
Прочее / Праздники и поздравления!
« : 11/10/2011 15:36:46 »
Katarsis, поздравляю!!!!
Актуальные новости: IP сервера изменён! Новый IP: 45.144.64.229. Сервер также доступен через Westwood Online (XWIS, игру через сервер) | Важные темы: Как играть по сети? Понятное руководство! Правила Сервера NoxWorld. Как помочь форуму финансово? |
Да ты ещё и в жизни читор!!!!Ага, бесконечное хп уже сделал, сейчас думаю как сделать бесконечные деньги![]()
если вырезать все, что касается 5рублей и 1 рубля, программа будет работать?Да, конечно. Если уж очень надо будет могу и рекурсией написать.
procedure TForm1.Button1Click(Sender: TObject);
Var S,R1,R2,R5,R10,R50,R100,R500:integer; // Сумма, Купюры от 1 до 500
begin
{Ввод}
S:=strtoint(edit1.Text); // Сумма к оплате
{---}
if s<=0 then begin // Отрицательными ассигнациями платить нельзя, Сумма положительна?
s:=1;
Showmessage('Сколько должен заплатить?');
end;
{Обнулим кол-во всех купюр}
R500:=0;
R100:=0;
R50:=0;
R10:=0;
R5:=0;
R2:=0;
R1:=0;
{---}
While s>0 do // Еще не оплатили?
begin
if s>=500 then // В сумме 500 или более руб?
begin
s:=s-500;
R500:=r500+1;
end
else
if s>=100 then begin // В сумме 100 или более руб?
s:=s-100;
R100:=R100+1;
end
else
if s>=50 then begin // В сумме 50 или более руб?
s:=s-50;
r50:=r50+1;
end
else
if s>=10 then begin // В сумме 10 или более руб?
s:=s-10;
r10:=r10+1;
end
else
if s>=5 then begin // В сумме 5 или более руб?
s:=s-5;
r5:=r5+1;
end
else
if s>=2 then begin // В сумме 2 или более руб?
s:=s-2;
r2:=r2+1;
end
else
if s>=1 then begin // В сумме 1 или более руб?
s:=s-1;
r1:=r1+1;
end;
end; // Конец цикла
{Вывод : Сколько и каких купюр потратили}
Panel1.caption:= inttostr(R500);
Panel2.caption:= inttostr(R100);
Panel3.caption:= inttostr(R50);
Panel4.caption:= inttostr(R10);
Panel5.caption:= inttostr(R5);
Panel6.caption:= inttostr(R2);
Panel7.caption:= inttostr(R1);
{---}
end;
Да, да, код "оригинален" Да блин задачка такаязадротскаяхитрая:
обменять некую сумму денег купюрами 500, 100, 50, 10 и монетами 2 руб.
И вот я вообще не знаю, с чего начать... То есть нет, начну с запрета выполнения при введенных кривых числах, вроде дробных, нечетных или отрицательных.