Студопедия  
Главная страница | Контакты | Случайная страница

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

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

Читайте также:
  1. VII. Перелік питань для підготовки студентів до підсумкових модульних контролей
  2. А) Пакетної обробки завдань.
  3. Варіанти індивідуальних завдань.
  4. Висновок: Цей перелік не вичерпує всієї різноманітності галузей сучасної психології. Подальший розвиток психології, безперечно, спричинить появу її нових гілок і галузей.
  5. До виконання практичних занять
  6. завдань.
  7. Методика підготовки та проведення практичних і семінарських занять у вищій школі
  8. Методичні вказівки до семінарських (практичних) занять
  9. Перелік діагностичних методик визначення готовності дитини до навчання
  10. Перелік діагностичних методик обстеження міжособистісних стосунків молодших школярів

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

 

 

 




Дата добавления: 2014-12-19; просмотров: 40 | Поможем написать вашу работу | Нарушение авторских прав




lektsii.net - Лекции.Нет - 2014-2024 год. (0.046 сек.) Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав