64. Що таке компонент CheckBox? Що визначає властивість Checked компоненту CheckBox?

Компонент CheckBox або прапорець. Значок компонента checkBox перебуває на вкладці Standard. Властивість Checked визначає зовнішній вигляд прапорця: якщо прапорець встановлений (у квадратику є "галочка"), те checked = TRUE; якщо прапорець скинутий (немає "галочки"), то Checked=FALSE.

Перелік практичних завдань.

65. Перед вами фрагмент коду з помилками, виберіть з запропонованих варіантів правильний запис:

procedure TForm1.ButtonlClick(Sender: TObject);

var dist : integer; t: real; min : integer; sek : integer; v: real;

begin

dist := StrToint(Edit1.Text); t := StrToint(Edit2.Text);

min := Trunc(t);

sek := Trunc(t*100) mod 100;

v := (dist/1000) / ((min*60 + sek)/3600);

1. dist := StrToFloat(Edit1.Text);

2. t := StrToFloat(Edit2.Text);

3. sek := Trunc(t 100) mod 100;

4. v := (*dist/1000) / ((*min*60 + sek)/3600);

66. Перед вами фрагмент коду з помилками, виберіть з запропонованих варіантів правильний запис:

procedure TForm1.ButtonlClick(Sender: TObject);

var dist : integer; t: real; min : integer; sek : integer; v: real;

begin

dist := StrToFloat(Edit1.Text); t := StrToFloat(Edit2.Text);

min := Trunc(t);

sek := Trunc(t*100) mod 100;

v := (dist/1000) / ((min*60 + sek)/3600);

1. dist := StrToint(Edit1.Text);

2. t := StrToDate(Edit2.Text);

3. sek := Trunc(t 100) mod 100;

4. v := (dist/1000) / ((min*60 + sek)/3600);

67. Перед вами фрагмент коду з помилками, виберіть з запропонованих варіантів правильний запис:

procedure TForm1.ButtonlClick(Sender: TObject);

var dist : integer; t: real; min : integer; sek : integer; v: real;

begin

dist := StrToint(Edit1.Text); t := StrToFloat(Edit2.Text);

min := Trunc(t);

sek := Trunc(t*100) mod *100;

v := (dist/1000) / ((min*60 + sek)/3600);

1. dist := StrToSrt(Edit1.Text);

2. t := StrToFloat(Edit2.Text);

3. sek := Trunc(t*100) mod 100;

4. v := (dist/1000) / ((min**60 + sek)/3600);

68. Перед вами фрагмент коду з помилками, виберіть з запропонованих варіантів правильний запис:

procedure TForm1.ButtonlClick(Sender: TObject);

var dist : integer; t: real; min : integer; sek : integer; v: real;

begin

dist := StrToint(Edit1.Text); t := StrToFloat(Edit2.Text);

min := Trunc(t);

sek := Trunc(t*100) mod 100;

v := (dist 1000) / ((min*60 + sek)/3600);

1. dist := StrToFloat(Edit1.Text);

2. t := StrToint(Edit2.Text);

3. sek := Tr(t*100) mod 100;

4. v := (dist/1000) / ((min*60 + sek)/3600);

69. Перед вами фрагмент коду з помилками, виберіть з запропонованих варіантів правильний запис:

procedure TForm1.ButtonlClick(Sender: TObject);

const SIZE=5;

var a:array[1..SIZE]of integer; min:integer; i:integer;

begin

for i:=1 to SIZE do

a[i]:=StrToFloat(StringGrid1.Cells[i-1,0]);

min:=1;

for i:=2 to SIZE do

if a[i]< a[min] then min:=i;

end;

1. a:array[1..SIZE]of integer;

2. a[i]:=StrToInt(StringGrid1.Cells[i-1,0]);

3. for i:=2 to -5 do;

4. if a(i)< a(min) then min:=i;