. Визначити робітника з мах зарплатнею й надрукувати усі відомості про нього. делфи . код; Текст модуля програми unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Label1: TLabel;
Label2: TLabel; Label3: TLabel; Label4: TLabel; RadioGroup1: TRadioGroup; Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Button5: TButton; Memo1: TMemo; Memo2: TMemo; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; ComboBox1: TComboBox; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button5Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} Type abitur = record country: string[10]; oblast: string[15]; family: string[12]; sr_bal: real; medal: char; end; {Опис глобальних параметрів - масиву записів та їхньої кількості } var m_zap:array[1..20]of abitur; {масив записів} k:integer; {поточна кількість введених записів} // Підпрограма початкових значень проекту procedure TForm1.FormCreate(Sender: TObject); begin k:=0; end; procedure TForm1.Button1Click(Sender: TObject); begin k:=k+1; with m_zap[k] do begin country:=ComboBox1.text; oblast:=Edit1.text;
family:=Edit2.text; sr_bal:=StrToFloat(Edit3.Text); Case RadioGroup1.ItemIndex of 0:medal:='з'; 1: medal:='с'; 2: medal:='н'; end; end; end; procedure TForm1.Button2Click(Sender: TObject); begin k:=0; //СomboBox1.Clear; Edit1.Clear; Edit2.Clear; Edit3.Clear; Memo1.Clear; Memo2.Clear; end; procedure TForm1.Button3Click(Sender: TObject); var sbal,dan:string; smed:string; i:integer; begin Memo1.Clear; Memo1.Lines.Add('| Фамилия | Страна | Область | Средний бал| Медаль|'); for i:=1 to k do with m_zap[i] do begin case medal of 'з': smed:='золота'; 'с': smed:='срібна'; 'н': smed:='немає'; end; str(sr_bal:5:2,sbal); dan:=family+' | '+country+' | '+oblast+ ' | '+ sbal+' | '+ smed; Memo1.Lines.Add(dan); end; end; procedure TForm1.Button4Click(Sender: TObject); var sbal,dan:string; smed:string; i:integer; begin memo2.Lines.Add('Медалисты'); for i:=1 to k do with m_zap[i] do if (medal='з') Or (medal='с') then
begin case medal of 'з': smed:='золотая'; 'с': smed:='серебрянная'; end; dan:=family+' | '+country+' | '+ smed; memo2.Lines.Add(dan); end; end; procedure TForm1.Button5Click(Sender: TObject); begin close; end; end.
Все задачи однотипные, нужно знать понятия глубины цвета и как расчитывается объём для растрового изображения. 1.всего пикселей 128*128= 2^14(2 в 14-ой степени) так как 32 цвет, то один символ кодируется 5 битами (log2(32), если бы было 33 цвета то уже бы потребовалось 6 бит, так как 5 бы не хватило). Нам нужно в килобайтах значит нужно разделить на 2^13 (т.к. в 1 кбайте 2^13 бит)
Для каждого груза можешь привести
Данный груз + некая гиря = противовес
1 + 0 = 1
2 + 1 = 3
3 + 0 = 3
4 + 0 = 3+1
5 + 3+1 = 9
6 + 3 = 9
7 + 3 = 9+1
8 + 1 = 9
9 + 0 = 9
10 + 0 = 9+1
11 + 1 = 9+3
12 + 0 = 9+3
13 + 0 = 9+3+1
1.всего пикселей 128*128= 2^14(2 в 14-ой степени)
так как 32 цвет, то один символ кодируется 5 битами (log2(32), если бы было 33 цвета то уже бы потребовалось 6 бит, так как 5 бы не хватило).
Нам нужно в килобайтах значит нужно разделить на 2^13 (т.к. в 1 кбайте 2^13 бит)
(2^14*5)/2^13=10 кбайт
2) (64*128*7)/2^13=(2^13*7)/2^13=7 кбайт
3)(64*256*8)/2^13= 2^17/2^13=2^4=16 кбайт
4)(32*1024*7)/2^13=(2^15*7)/2^13=4*7=28 кбайт
5)(1024*512*6)/2^13=(2^19*6)/2^13=64*6=384 кбайт
6)(512*256*5)/2^13=(2^17*5)/2^13=16*5=80 кбайт
7)(512*128*4)/2^13=2^18/2^13=2^5=32 кбайт
8)(256*128*3)/2^13=(2^15*3)/2^13=4*3=12 кбайт
9)(128*128*8)/2^13=2^17/2^13=2^4=16 кбайт
10)(24*2^13)/(128*256)=2^16*6/2^15=2*3=6 бит, значит 64 цвета
11)(10*2^13)/(128*128)=2^14*5/2^14=5 бит, значит 32 цвета
12)(7*2^13)/(64*128)=(7*2^13)/2^13=7 бит, значит 128 цветов
13)(16*2^13)/(64*256)=2^17/2^14=2^3=8 бит, значит 256 цветов
14)(28*2^13)/(32*1024)=7*2^15/2^15=7 бит, значит 128 цветов
15)(384*2^13)/(1024*512)=(3*2^20)/2^19=3*2=6 бит, значит 64 цвета
16)(80*2^13)/(512*256)=(5*2^17)/2^17=5 бит, значит 32 цвета
17)(32*2^13)/(512*128)=2^18/2^16=2^2=4 бита, значит 16 цветов
18)(12*2^13)/(256*128)=(3*2^15)/2^15=3 бита, значит 9 цветов
19)(16*2^13)/(128*128)=2^17/2^14=2^3=8 бит, значит 256 цветов (Каждый раз возводим в квадрат кол-во бит)