Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
компл_кр_основи_програм 2013.doc
Скачиваний:
0
Добавлен:
01.05.2025
Размер:
210.94 Кб
Скачать

Комплексна контрольна робота

Варіант 15.

Завдання 1.

Розкрити поняття iтерацiйних циклiв та вкладених циклiчних структур в Паскалi. Навести приклад фрагменту програми з використанням вкладених циклiв.

Завдання 2.

Визначити , на виконання якоi процедури буде здiйснено перехiд в результатi виконання приведеного нижче фрагменту програми , якщо буде натиснено клавiшу F3 .

.

begin assign(enter,'mnwfile.dat');

while true do begin

clrscr;

writeln('---------------------------------');

writeln(' F2 - запис даних на диск ');

writeln(' F3 - вивiд файлу на дисплей');

writeln(' F4 - вивiд таблицi на дисплей');

writeln(' Esc - завершення роботи');

writeln('---------------------------------');

write('Виберiть режим роботи ');

vybir:=readkey;

case vybir of

#62: tab;

#60: vvid;

#61: vyvfile;

#27: halt;

end;

Завдання 3.

Дано двомiрний масив розмiрностi m x n. Скласти програму знаходження суми непарних елементiв масиву. Вхiдний масив та значення суми вивести на друк. Вважати m=3, n=5. Програму скласти мовою програмування С++.

"Затверджую"

директор технікуму

________________ М.М. Козловський

"___" _______________ 2013__ р.

Комплексна контрольна робота

Варіант 16.

Завдання 1.

Охарактеризувати масиви даних в Паскалi. Одномiрнi та багатомiрнi масиви. Синтаксис опису масивiв в мовi Паскаль. Доступ до елементiв одномiрного та двомiрного масиву.

Завдання 2.

Визначити , на виконання якоi процедури буде здiйснено перехiд в результатi виконання приведеного нижче фрагменту програми , якщо буде натиснено клавiшу F2.

.

while true do begin

clrscr;

writeln('---------------------------------');

writeln(' F2 - запис даних в пам"ять ');

writeln(' F3 - вивiд таблицi на дисплей');

writeln(' Esc - завершення роботи');

writeln('---------------------------------');

write('Виберiть режим роботи ');

vybir:=readkey;

case vybir of

#27: halt;

#60: vvid;

#61: tab;

end;

Завдання 3.

Дано двомiрний масив розмiрностi m x n. Скласти програму знаходження суми парних елементiв масиву. Вхiдний масив та значення суми вивести на друк. Вважати m=4, n=4. Програму скласти мовою програмування С++.

"Затверджую"

директор технікуму

________________ М.М. Козловський

"___" _______________ 2013__ р.

Комплексна контрольна робота

Варіант 17.

Завдання 1.

Охарактеризувати перелiчуваний та дiапазонний тип ланих в мовi Паскаль. Порядок визначення перелiчуваного та дiапазонного типiв даних. Навести приклади опису вказаних типiв даних.

Завдання 2.

Визначити , що одержимо в результатi виконання приведеноi нижче програми , якщо змiннiй answer надати значення: answer=2013.

program parol;

var password,answer:integer;

cykl:boolean;

begin

password:=201;

cykl:=true;

writeln;

readln(answer);

if answer<>password then begin

writeln('PASSWORD IS BAD!');

while cykl do

cykl:=true; end;

end.

Завдання 3.

Дано одномiрний масив розмiрностi p. Скласти програму обчислення суми елементiв масиву, котрi мають непарнi iндекси i вiдмiннi вiд нуля. Вхiдний масив та значення обчисленоi суми вивести на екран. Вважати p=13. Програму скласти мовою програмування С++

"Затверджую"

директор технікуму

________________ М.М. Козловський

"___" _______________ 2013__ р.