2015-10-16
251КОМПЛЕКСНА КОНТРОЛЬНА РОБОТА
| з навчальної дисципліни | Практика з програмування |
спеціальності 5.091504 "Обслуговування комп'ютерних та інтелектуальних
систем та мереж"
Складена викладачем ЛК ДУІКТ
Селемонавічус А.А.
Розглянуто та схвалено на засіданні циклової
комісії Обслуговування комп'ютерної техніки
Протокол № ___ від "___" ___________ 2007р.
Голова циклової комісії
_______________________________________
(підпис)
Львів, 2007р.
Перелік питань до ККР.
1. Компонент Edit призначений для:
a. Вводу текстової інформації
b. Виводу надписів
c. Створення списку
d. Виводу рисунків
2. Яка властивість дозволяє змінювати розміри шрифту:
a. Font
b. Caption
c. Name
d. Top
3. Компонент Label призначений для:
a. Виводу надписів
b. Вводу текстової інформації
c. Створення списку
d. Виводу рисунків
4. Що визначає властивість Enabled
a. Доступ до об'єкта
b. Надпис на об'єкті
c. Ім'я компоненту
d. Ширину об'єкту
5. Що означає параметр Event:
a. Подія
b. Властивості
c. Компоненти
d. Методи
6. Що таке Code Templates:
|
|
|
a. шаблони коду
b. коди прграми
c. коди модуля
d. шаблони графіки
7. Що таке компіляція?
a. це процес перетворення вихідної програми в програму, що виконується
b. Це процес ініціалізації змінних
c. Це підстановка шаблонів підпрограм
d. Це процедура запису проекту програми
8. Hints це:
a. Підказки
b. Попередження
c. Запити
d. Функції
9. Warnings це:
a. Попередження
b. Функції
c. Підказки
d. Оператори
10. Що означає помилка: run-time errors?
a. Помилка часу виконання
b. Помилка невідповідності типів даних
c. Помилка закінчення файлу
d. Помилка інсталяції
11. Програма InstallShield Express дозволяє створити:
a. Інсталяційну програму
b. EXE – файл
c. Проект Делфі
d. Довідниковий файл
12. Що означає повідомлення incompatible types:
a. Несумісні типи
b. Сумісні типи даних
c. Помилка часу виконання
d. Помилка відсутності файлу
13. Виберіть якого логічного оператора немає:
a. false
b. not
c. or
d. and
14. Що здійснює інструкція ShowMessage:
a. Виводить текстове повідомлення
b. Зупиняє програму
c. Виводить графічне зображення
d. Запускає проект
15. Виберіть компонент, який виводить текст:
a. Label
b. Button
c. Table
d. RadioButton
16. Яка структура не відноситься до безумовних:
a. Case of
b. Exit
c. Go to
d. Close
17. Що задає властивість itemindex компоненту ListBox:
a. Номер вибраного елементу списку
b. Системну дату
c. Загальну кількість елементів у списку
d. Перший елемент списку
18. Яка конструкція не відноситься до циклічних конструкцій:
a. If then else
b. For to do
c. Wile repeat
d. Until do
19. Функція FloatToStr перетворює:
a. дійсний тип у рядковий
b. дійсний тип у символьний
c. рядковий тип у цілий
d. цілий тип у дійсний
20. Функція InttoStr перетворює
|
|
|
a. Цілий тип у рядковий
b. дійсний тип у рядковий
c. дійсний тип у символьний
d. Цілий тип у дійсний
21. Виберіть властивість компонента StringGrid, що дозволяє вписувати текст у комірки:
a. Options.goEditing
b. Options.goTab
c. Cells
d. Options.GoAlways
22. Властивості ColCount та RowCount визначають:
a. Кількість стовпчиків та рядків
b. Кількість фіксованих стовпчиків
c. Висоту та ширину комірок
d. Розмірність масиву
23. Коли виникає подія onKeyPress:
a. При натисканні клавіші клавіатури
b. При натисканні клавіші миші
c. При втраті фокусу
d. При проходженні курсору миші
24. Виберіть метод, що дозволяє швидше знаходити задані числа у масиві
a. Бінарного пошуку
b. Простого перебору
c. Обміну
d. Бульбочковий
25. Що визначає властивість Checked:=True компоненту CheckBox?
a. Що компонент вибраний
b. Що компонент не відображається
c. Що компонент замальовується
d. Що компонент знищується
26. Що здійснює оператор Editl.SetFocus:
a. Встановлює курсор в поле Edit1
b. Витирає данні з поля Edit1
c. Вставляє шаблон підпрограми
d. Видаляє компонент Edit1
27. Що таке файл?
a. Іменована структура даних, що представляє собою послідовність елементів даних одного типу
b. Іменована структура даних, що представляє собою послідовність елементів даних різного типу
c. Іменована структура даних, що представляє собою набір таблиць
d. Обмежений набір даних, який має ім’я
28. Яка процедура зв'язує файлову змінну з конкретним файлом?
a. AssignFile
b. Copy
c. Rewrite
d. Append
29. Яка процедура створює новий файл?
a. Rewrite
b. Copy
c. Append
d. AssignFile
30. Яка процедура відкриває файл у режимі додавання?
a. Append
b. Write
c. Copy
d. Rewrite
31. Функція IOResuit призначена для:
a. Перевірки результату вводу-виводу
b. Перевірки результату створення файлу
c. Перевірки наявності файлу
d. Перевірки кінця файлу
32. Яка процедура закриває файл?
a. Close
b. Append
c. Exit
d. Rewrite
33. Що робить функція Date?
a. Повертає біжучу дату
b. Повертає біжучу годину
c. Повертає квадрат числа
d. Перетворює дату у рядок
34. Що здійснює інструкція Memo1.Lines.Add?
a. Додає запис в поле компоненту Memo.
b. Приховує компонент Memo.
c. Знищує запис з поля Memo.
d. Малює лінію
35. Властивість scrollBars дозволяє:
a. Встановлювати смуги прокручування
b. Встановлювати панель компонентів
c. Визначити кількість записів
d. Визначити наявність смуг прокручування
36. Що буде зображено на формі після виконання інструкції: Form1.Canvas.Rectangle
a. Прямокутник
b. Коло
c. Сектор
d. Еліпс
37. Яка властивість задає колір лінії:
a. Pen.color
b. Pen.style
c. Pen.width
d. Pen.mod
38. Яка властивість задає ширину лінії:
a. Pen.width
b. Pen.style
c. Pen.color
d. Pen.mod
39. Яка властивість задає стиль заповнення області:
a. Brush.style
b. Brush.color
c. Brush.mod
d. Brush.cross
40. Який оператор дозволяє вивести текст на форму:
a. TextOut
b. Caption
c. Label
d. Font
41. Виберіть вираз, що дозволяє накреслити лінію на формі (Form1):
a. Canvas.MoveTo(x,у); Canvas.LineTo(x1,у1);
b. Form1.MoveTo(x,у); Form1.LineTo(x1,у1);
c. Canvas.Ellipse(x,у);
d. Form1.MoveTo(x,у);
42. Виберіть функцію, яка дозволяє намалювати ламану лінію:
a. Polyline
b. Line
c. Ellipse
d. Canvas
43. Функція DatetoStr перетворює
a. Тип дата у рядковий
b. дійсний тип у рядковий
c. дійсний тип у символьний
d. Цілий тип у дійсний
44. Виберіть функцію, яка дозволяє намалювати коло:
a. Polyline
b. Line
c. Ellipse
d. Canvas
45. Виберіть вираз, що дозволяє перевести курсор у точку х,у форми (Form1):
a. Canvas.MoveTo(x,у); Canvas.LineTo(x,у);
b. Form1.MoveTo(x,у); Form1.LineTo(x,у);
c. Canvas.Ellipse(x,у);
d. Form1.MoveTo(x,у);
46. Оператор DecimalSeparator призначений для:
a. Визначення символу відокремлення цілої частини числа від дробової
b. Визначення символу переносу на наступний рядок
c. Визначення системного часу
d. Визначення символу пробілу
47. Виберіть правильно оголошений масив:
a. Mas: array [1..10, 1..15] of integer;
b. Mas: array [1..10: 1..10] of integer;
c. Array: mas [1..10, 1..15] of integer;
d. Mas: array (1..10, 1..15) of integer;
48. Як називаються засоби, що переводять програму високого рівня на машинний код:
|
|
|
a. транслятори;
b. емулятори;
c. генератори;
d. специфікатори;
49. Алгоритм називається розгалуженим, якщо:
a. Виконання алгоритму залежить від деякої умови;
b. Деякий фрагмент програми повторюється скінчену кількість разів;
c. Дії виконуються послідовно одна за одною;
d. Програма переходить до виконання фрагменту коду без умови;
50. Алгоритм називається циклічним, якщо:
a. Деякий фрагмент програми повторюється скінчену кількість разів;
b. Виконання алгоритму залежить від деякої умови;
c. Дії виконуються послідовно одна за одною;
d. Програма переходить до виконання фрагменту коду без умови;
51. Перед вами фрагмент коду з помилками, виберіть з запропонованих варіантів правильний запис:
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);
52. Перед вами фрагмент коду з помилками, виберіть з запропонованих варіантів правильний запис:
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);
53. Перед вами фрагмент коду з помилками, виберіть з запропонованих варіантів правильний запис:
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);
54. Перед вами фрагмент коду з помилками, виберіть з запропонованих варіантів правильний запис:
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);
55. Перед вами фрагмент коду з помилками, виберіть з запропонованих варіантів правильний запис:
|
|
|
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;
56. Перед вами фрагмент коду з помилками, виберіть з запропонованих варіантів правильний запис:
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;
57. Перед вами фрагмент коду з помилками, виберіть з запропонованих варіантів правильний запис:
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;
58. Перед вами фрагмент коду з помилками, виберіть з запропонованих варіантів правильний запис:
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;
59. Перед вами фрагмент коду з помилками, виберіть з запропонованих варіантів правильний запис:
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+Заповніть поля.')
60. Перед вами фрагмент коду з помилками, виберіть з запропонованих варіантів правильний запис:
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+Заповніть поля.');
61. Перед вами фрагмент коду з помилками, виберіть з запропонованих варіантів правильний запис:
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+'Заповніть поля.')
62. Перед вами фрагмент коду, виберіть з запропонованих варіантів значення Х та 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;
63. Перед вами фрагмент коду, виберіть з запропонованих варіантів значення Х та 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;
64. Перед вами фрагмент коду, виберіть з запропонованих варіантів значення Х та 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;
65. Перед вами фрагмент коду, виберіть з запропонованих варіантів значення Х та 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;
66. Записати вираз на мові Паскаль 
:
a. z:=exp(x)*(1+cos(2*a))/(1+sqrt(cos(2*b))+(4*(ln(cos(2*c)))));
b. z:=exp(x)*(1+cos(2*a))/(1+sqrt(cos(2*b))+sqr(cos2*c)*sqr(cos2*c));
c. z:=exp(x)*(1+cos(2*a))/(1+sqrt(cos(2*b))+exp(4*(ln(cos(2*c)))));
d. z:=x*(1+cos(2*a))/(1+sqrt(cos(2*b))+exp(4*(ln(cos(2*c)))));
67. Записати вираз на мові Паскаль 
:
a. z:=x*(1+sin(2*a)/cos(2*a))/(1+sqr(cos(2*b))+sqrt(sin(c)));
b. z:=exp(x)*(1+sin(2*a)/cos(2*a))/(1+sqrt(cos(2*b))+sqrt(sin(c)));
c. z:=exp(x)*(1+tg(2*a))/(1+sqrt(cos(2b))+sqrt(sin(c)));
d. z:=exp(x)*(1+sin2*a/cos2*a)/(1+sqrt(cos2*b)+sqrt(sinc));
68. Записати вираз на мові Паскаль 
:
a. z:=(1+cos2*a)/(1+sqrt(sin2*b)+exp(3*(ln(cosc))));
b. z:=(1+cos(2*a))/(1+sqr(sin(2*b))+(3*(ln(cos(c)))));
c. z:=(1+cos(2*a))/(1+sqrt(sin(2*b))+exp(3(ln(cosc)));
d. z:=(1+cos(2*a))/(1+sqrt(sin(2*b))+exp(3*(ln(cos(c)))));
69. Записати вираз на мові Паскаль 
:
a. z:=expx*(cosa)/(1+sqrt(sin2*b/cos2*b)+(sinc*sinc));
b. z:=exp(x)*(cos(a))/(1+sqr(sin(2*b)/cos(2*b))+(sin(c*c)));
c. z:=exp(x)*(cos(a))/(1+sqrt(sin(2*b)/cos(2*b))+(sin(c)*sin(c)));
d. z:=e(x)*(cos(a))/(1+sqrt(sin(2b)/cos(2*b))+(sin(c)*sin(c)));
70. Перед вами програма, виберіть рядок у якому є помилка:
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;
71. Перед вами програма, виберіть рядок у якому є помилка:
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;
72. Перед вами програма, виберіть рядок у якому є помилка:
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;
73. Перед вами програма, виберіть рядок у якому є помилка:
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;
74. Перед вами програма, яка сумує числа від 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;
75. Перед вами програма, яка сумує числа від 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;
76. Перед вами програма, яка сумує числа від 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;
77. Перед вами програма, яка сумує числа від 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;
78. Перед вами програма, яка сумує числа від 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;
79. Перед вами програма, яка сумує числа від 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;
80. Перед вами програма, яка сумує числа від 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;
81. Перед вами програма, яка сумує числа від 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;
82. Перед вами фрагмент програми, виберіть рядок у якому є помилка:
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;
83. Перед вами фрагмент програми, виберіть рядок у якому є помилка:
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;
84. Перед вами фрагмент програми, виберіть рядок у якому є помилка:
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;
85. Перед вами фрагмент програми, виберіть рядок у якому є помилка:
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;
86. Чому дорівнює значення змінної k після виконання фрагменту програми: k:=5; for i:=1 to 5 do k:=k*2;
a. 200
b. 160
c. 80
d. 20
87. Чому дорівнює значення змінної k після виконання фрагменту програми: k:=1; m:= -5; for i:=1 downto m do k:=k+1:
a. 7
b. 8
c. 6
d. 9
88. Чому дорівнює значення змінної k після виконання фрагменту програми:
k:=10; for i:=1 to 5 do k:=k*2;
a. 200
b. 160
c. 80
d. 320
89. Чому дорівнює значення змінної k після виконання фрагменту програми: k:=2; m:= -5; for i:=1 downto m do k:=k+1:
a. 7
b. 8
c. 6
d. 9
