Печать

Пожалуйста, войдите или зарегистрируйтесь.
1 час 1 день 1 неделя 1 месяц Навсегда
Войти

[Lаrboss]

Олег, вот, нашел. Смотри код:

Код: [Выделить]

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;

Да, да, код "оригинален" Еще и с коментами писал.