Главная страница | Контакты | Случайная страница Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

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

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);

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

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

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

d. 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);

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

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

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

d. 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);

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

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

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

d. 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);

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

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

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

d. 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;

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

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

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

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

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

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]:=StrToInt(StringGrid1.Cells[i-1,0]);

min:=1;

for i:=2 to 0 do

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

end;

a. a:array(1..SIZE) of integer;

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

c. for i:=2 to SIZE do;

d. if a[i]:= a[min] then min:=i;

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

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]:=StrToInt(StringGrid1.Cells[i-1,0]);

min:=1;

for i:=2 to SIZE do

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

end;

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

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

c. for i:=2 to 0 do;

d. if a[0]< a[min] then min:=i;

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

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]:=StrToInt(StringGrid1.Cells[i-1,0]);

min:=1;

for i:=2 to SIZE do

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

end;

a. a:array[1..5,5] of integer;

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

c. for i=2 to SIZE do;

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

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

procedure TForml.Button1Click(Sender: TObject);

begin

if (Length(edit1.text):=0) or (Length(edit2.text):=0)

then ShowMessage('Помилка введення даних.' +#13+'Заповніть поля.')

else writeln(db, edit1.text,' ',edit2.text);

end;

a. (Length(edit1.text)=0) or (Length(edit2.text)=0);

b. ShowMessage('Помилка введення даних. +#13+Заповніть поля.');

c. ShowMessage(Помилка введення даних.' +#13+'Заповніть поля.);

d. ShowMessage('Помилка введення даних.' +#13+'Заповніть поля.');

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

procedure TForml.Button1Click(Sender: TObject);

begin

if (Length(edit1.text)=0) or (Length(edit2.text)=0)

then ShowMessage(Помилка введення даних. +#13+Заповніть поля.)

else writeln(db, edit1.text,' ',edit2.text);

end;

a. (Length(edit1.text)=0) for (Length(edit2.text)=0);

b. ShowMessage('Помилка введення даних.' +#13+'Заповніть поля.')

c. ShowMessage(Помилка введення даних. +#13+Заповніть поля.);

d. ShowMessage('Помилка введення даних. +#13+Заповніть поля.');

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

procedure TForml.Button1Click(Sender: TObject);

begin

if (Length(edit1.text)=0) or (Length(edit2.text)=0);

then ShowMessage('Помилка введення даних. +#13+'Заповніть поля.')

else writeln(db, edit1.text,' ',edit2.text);

end;

a. (Length(edit1.text)=0) or (Length(edit2.text)=0);

b. ShowMessage('Помилка введення даних. #13 Заповніть поля.')

c. ShowMessage(Помилка введення даних. +#13+Заповніть поля.)

d. ShowMessage('Помилка введення даних.' +#13+'Заповніть поля.')

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

procedure TForml.Button1Click(Sender: TObject);

begin

if (Length(edit1.text)=0) or (Length(edit2.text)=0)

then ShowMessage('Помилка введення даних. +#13+Заповніть поля.')

else writeln(db, edit1.text,' ',edit2.text);

end;

a. (Length(edit1.text)=0) or (Length(edit2.text)=0);

b. ShowMessage('Помилка введення даних. #13 Заповніть поля.')

c. ShowMessage(Помилка введення даних. +#13+Заповніть поля.)

d. ShowMessage('Помилка введення даних.' +#13+'Заповніть поля.')

77) Перед вами програма, виберіть рядок у якому є помилка:

1 Program suma1;

2 Var i, sum: integer;

3 begin

4 sum:=0;

5 for i:= 1 downto 50 do

6 begin sum:=sum+i; end;

7 writeln (‘Сума чисел рівна: ‘, sum);

8 end.

a. 2;

b. 5;

c. 7;

d. 8;

78) Перед вами програма, виберіть рядок у якому є помилка:

1 Program suma1;

2 Var i, sum: integer;

3 begin

4 sum:=0;

5 for i:= 1 to 50 do

6 begin sum:=sum+i; end;

7 writeln (‘Сума чисел рівна: ‘ sum);

8 end.

a. 2;

b. 5;

c. 7;

d. 8;

79) Перед вами програма, виберіть рядок у якому є помилка:

1 Program suma1;

2 Var i, sum: integer;

3 begin

4 sum:=0;

5 for i:= 1 to 50 do

6 begin sum:=sum+j; end;

7 writeln (‘Сума чисел рівна: ‘, sum);

8 end.

a. 4;

b. 5;

c. 7;

d. 6;

80) Перед вами програма, виберіть рядок у якому є помилка:

1 Program suma1;

2 Var i, sum: integer;

3 begin

4 sum =0;

5 for i:= 1 to 50 do

6 begin sum:=sum+i; end;

7 writeln (‘Сума чисел рівна: ‘, sum);

8 end.

a. 4;

b. 5;

c. 7;

d. 6;

81) Яка буква буде накреслена на формі (H, П, Т або Е) після виконання фрагменту коду:

MoveTo (50, 50); LineTo (50, 150);

MoveTo (50, 100); LineTo (100, 100);

MoveTo (100, 50); LineTo (100, 150);

82) Яка буква буде накреслена на формі (H, П, Т або Е) після виконання фрагменту коду:

MoveTo (50, 50); LineTo (50, 150);

MoveTo (50, 50); LineTo (100, 50);

MoveTo (100, 50); LineTo (100, 150);

83) Яка буква буде накреслена на формі (H, П, Т або Е) після виконання фрагменту коду:

MoveTo (50, 50); LineTo (100, 50);

MoveTo (75, 50); LineTo (75, 150);

MoveTo (75, 150); LineTo (75, 150);

84) Яка буква буде накреслена на формі (H, П, Т або Е) після виконання фрагменту коду:

MoveTo (50, 50); LineTo (50, 150);

MoveTo (50, 50); LineTo (100, 50);

MoveTo (50, 100); LineTo (100, 100);

MoveTo (50, 150); LineTo (100, 150);

85) Перед вами фрагмент коду, виберіть з запропонованих варіантів значення Х та Y які дозволять намалювати квадрат:

MoveTo(50,50);

LineTo(100,50);LineTo(X,Y);LineTo(50,100); LineTo(50,50);

a. X=100; Y=50;

b. X=200; Y=100;

c. X=100; Y=100;

d. X=150; Y=50;

86) Перед вами фрагмент коду, виберіть з запропонованих варіантів значення Х та Y які дозволять намалювати квадрат:

MoveTo(50,50);

LineTo(100,50);LineTo(100,100);LineTo(X,Y); LineTo(50,50);

a. X=50; Y=100;

b. X=50; Y=200;

c. X=200; Y=50;

d. X=50; Y=50;

87) Перед вами фрагмент коду, виберіть з запропонованих варіантів значення Х та Y які дозволять намалювати квадрат:

MoveTo(50,50);

LineTo(100,50);LineTo(100,100);LineTo(50,100); LineTo(X,Y);

a. X=100; Y=50;

b. X=50; Y=50;

c. X=200; Y=100;

d. X=150; Y=100;

88) Перед вами фрагмент коду, виберіть з запропонованих варіантів значення Х та Y які дозволять намалювати квадрат:

MoveTo(50,50);

LineTo(X,Y);LineTo(100,100);LineTo(50,100); LineTo(50,50);

a. X=100; Y=150;

b. X=200; Y=100;

c. X=50; Y=100;

d. X=100; Y=50;

89) Перед вами програма, яка сумує числа від 1 до 50, виберіть рядок у якому є помилка:

1 Program suma2;

2 Var i, sum: integer;

3 Begin sum:=0; i:=0;

4 Repeat i:= i +1; sum:=i;

5 Until i = 50;

6 writeln (‘Сума чисел рівна: ‘, sum);

7 end.

a. 3;

b. 4;

c. 5;

d. 6;

90) Перед вами програма, яка сумує числа від 1 до 50, виберіть рядок у якому є помилка:

1 Program suma2;

2 Var i, sum: integer;

3 Begin sum:=0; i:=0;

4 Repeat i:= i +1; sum:=sum+i;

5 Until i = 50;

6 writeln (‘Сума чисел рівна:, sum');

7 end.

a. 3;

b. 4;

c. 5;

d. 6;

91) Перед вами програма, яка сумує числа від 1 до 50, виберіть рядок у якому є помилка:

1 Program suma2;

2 Var i, sum: real;

3 Begin sum:=0; i:=0;

4 Repeat i:= i +1; sum:=sum+i;

5 Until i = 50;

6 writeln (‘Сума чисел рівна: ‘, sum);

7 end.

a. 2;

b. 4;

c. 5;

d. 6;

92) Перед вами програма, яка сумує числа від 1 до 50, виберіть рядок у якому є помилка:

1 Program suma2;

2 Var i, sum: integer;

3 Begin sum:=0; i:=0;

4 Repeat i:= i +1; sum:=sum+i;

5 Until i:= 50;

6 writeln (‘Сума чисел рівна: ‘, sum);

7 end.

a. 2;

b. 4;

c. 5;

d. 6;

93) Перед вами програма, яка сумує числа від 1 до 50, виберіть рядок у якому є помилка:

1 Program suma3;

2 Var i sum: integer;

3 Begin sum:=0; i:=0;

4 While i <50 do

5 Begin i:= i +1; sum:=sum+i; end;

6 writeln (‘Сума чисел рівна: ‘, sum);

7 end.

a. 2;

b. 4;

c. 5;

d. 6;

94) Перед вами програма, яка сумує числа від 1 до 50, виберіть рядок у якому є помилка:

1 Program suma3;

2 Var i, sum: integer;

3 Do sum:=0; i:=0;

4 While i <50 do

5 Begin i:= i +1; sum:=sum+i; end;

6 writeln (‘Сума чисел рівна: ‘, sum);

7 end.

a. 3;

b. 4;

c. 5;

d. 6;

95) Перед вами програма, яка сумує числа від 1 до 50, виберіть рядок у якому є помилка:

1 Program suma3;

2 Var i, sum: integer;

3 Begin sum:=0; i:=0;

4 While i >50 do

5 Begin i:= i +1; sum:=sum+i; end;

6 writeln (‘Сума чисел рівна: ‘, sum);

7 end.

a. 2;

b. 4;

c. 5;

d. 6;

96) Перед вами програма, яка сумує числа від 1 до 50, виберіть рядок у якому є помилка:

1 Program suma3;

2 Var i, sum: integer;

3 Begin sum:=0; i:=0;

4 While i <50 do

5 Begin i:= i +1; sum:=sum*i; end;

6 writeln (‘Сума чисел рівна: ‘, sum);

7 end.

a. 2;

b. 4;

c. 5;

d. 6;

97) Перед вами фрагмент програми, виберіть рядок у якому є помилка:

1 Program matruca;

2 var i,j,sum,m dob:integer;

3 MA:array[1..i] of integer;

4 begin m:=100;

5 for i:=1 to m do

6 begin writeln('Введіть " ', i, ' " елемент матриці А');

7 readln (MA[i]); end; end;

a. 3;

b. 4;

c. 5;

d. 6;

98) Перед вами фрагмент програми, виберіть рядок у якому є помилка:

1 Program matruca;

2 var i,j,sum,m dob:integer;

3 MA:array[1..100] of integer;

4 begin m:=0;

5 for i:=1 to m do

6 begin writeln('Введіть " ', i, ' " елемент матриці А');

7 readln (MA[i]); end; end;

a. 3;

b. 4;

c. 5;

d. 6;

99) Перед вами фрагмент програми, виберіть рядок у якому є помилка:

1 Program matruca;

2 var i,j,sum,m dob:integer;

3 MA:array[1..100] of integer;

4 begin m:=100;

5 for i:=1 to m do

6 begin writeln('Введіть " ', i, ' " елемент матриці А');

7 readln (MA(i)); end; end;

a. 3;

b. 4;

c. 6;

d. 7;

100) Перед вами фрагмент програми, виберіть рядок у якому є помилка:

1 Program matruca;

2 var i,j:real;

3 MA:array[1..100] of integer;

4 begin m:=100;

5 for i:=1 to m do

6 begin writeln('Введіть " ', i, ' " елемент матриці А');

7 readln (MA[i]); end; end;

a. 2;

b. 3;

c. 5;

d. 6;

101) Чому дорівнює значення змінної k після виконання фрагменту програми: k:=5; for i:=1 to 5 do k:=k*2;

a. 200

b. 160

c. 80

d. 20

102) Чому дорівнює значення змінної k після виконання фрагменту програми: k:=1; m:= -5; for i:=1 downto m do k:=k+1:

a. 7

b. 8

c. 6

d. 9

103) Чому дорівнює значення змінної k після виконання фрагменту програми:

k:=10; for i:=1 to 5 do k:=k*2;

a. 200

b. 160

c. 80

d. 320

104) Чому дорівнює значення змінної k після виконання фрагменту програми: k:=2; m:= -5; for i:=1 downto m do k:=k+1:

a. 7

b. 8

c. 6

d. 9