решить задачу через case,через if я сам умею.Вычислить величину скидки.Скидка в 3% предоставляется,если сумма покупки больше 500 рублей, в 5% - если сумма больше 1000 рублей, 8% при стоимости покупки свыше 1500 рублей!
type TForm1 = class(TForm) Button1: TButton; Image1: TImage; procedure Button1Click(Sender: TObject); procedure Image1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;
var Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject); var a,x,y,r:Integer; begin Randomize; Image1.Picture := nil; Image1.Canvas.Brush.Color:=clBlack; Image1.Canvas.Rectangle (0,0,Image1.Width,Image1.Height); Image1.Canvas.Brush.Color:=clWhite;
for a:=1 to RandomRange(9,20) do begin x:=RandomRange(50,1000); r:=RandomRange(1,15); y:=RandomRange(50,550); Image1.canvas.Ellipse(x-r,y-r,x+r,y+r); end;
end; procedure TForm1.Image1Click(Sender: TObject); begin
end;
end.
на форме image и кнопка
(если тебе нужна просто программа(как я думал изначально) напиши в почту, просто уважаемые админы удаляют мои посты :( )
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,Math, ExtCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Image1: TImage;
procedure Button1Click(Sender: TObject);
procedure Image1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
a,x,y,r:Integer;
begin
Randomize;
Image1.Picture := nil;
Image1.Canvas.Brush.Color:=clBlack;
Image1.Canvas.Rectangle (0,0,Image1.Width,Image1.Height);
Image1.Canvas.Brush.Color:=clWhite;
for a:=1 to RandomRange(9,20) do
begin
x:=RandomRange(50,1000);
r:=RandomRange(1,15);
y:=RandomRange(50,550);
Image1.canvas.Ellipse(x-r,y-r,x+r,y+r);
end;
end;
procedure TForm1.Image1Click(Sender: TObject);
begin
end;
end.
на форме image и кнопка
(если тебе нужна просто программа(как я думал изначально) напиши в почту, просто уважаемые админы удаляют мои посты :( )
Информационный объем I = 44100 Гц * 5 * 60 с * 16 бит = 211680000 бит = 26460000 байт = 25839,84375 Кбайт = 25,23422241210938 Мбайт
Задание 2
I = 1,3 Мбайт t = 1 мин Частота дискретизации v = 1,3 * 1024 * 1024 * 8 бит / 60 с / 8 бит = 22719,147 Гц
Задание 3
I = 5.1 Мбайт, t = 2 минуты, v = 22050 Гц Разрядность аудиоадаптера i = 5.1 * 1024 * 1024 * 8 бит / (2 * 60) с / 22050 Гц = 16,1685 бит (округленно 16 бит)
Задание 4
I = 0.01 Гбайт, i = 16 бит, v = 44100 Гц Время t = 0,01 * 1024 * 1024 * 1024 * 8 бит / 16 бит / 44100 Гц = 121 с (округляем до 120 с)