Практичні завдання

Варіант І

1. В одновимірному масиві А[1..20] знайти суму і кількість елементів, які менші від 5 та індекс яких кратний 4. (3 бали)

2. Знайти найбільший і найменший елементи таблиці В[1..3, 1..5] і поміняти їх місцями. (3 бали)

3. В двовимірному масиві B[1..5, 1..5] посортувати елементи кожного стовпчика за спаданням. (3 бали)

4. Написати програму, яка обчислюватиме номер першого додатного парного числа в масиві. (3 бали)

Варіант ІІ

1. Знайти мінімальний і максимальний елементи масиву А[1..10] і поміняти їх місцями. (3 бали)

2. У двовимірному масиві В[1..4, 1..5] знайти середнє арифметичне всіх стовпчиків. (3 бали)

3. В двовимірному масиві K[1..6, 1..6] відсортувати елементи кожного рядка за зростанням. (3 бали)

4. Написати програму, яка замінює всі від’ємні елементи масиву на протилежні за знаком. (3 бали)

То з теми „Рядкові величини” Теоретичні питання

Варіант І

1. Що таке рядкова величина? (2 бали)

2. Які правила порівняння рядків? (2 бали)

3. Як описуються рядкові величини? (2 бали)

4. Яка функція здійснює копіювання фрагментів рядка? (2 бали)

5. Яка процедура здійснює вставлення фрагмента в рядок? (2 бали)

6. Вкажіть помилку у фрагменті програми. (1 бал)

Var S: integer; i: integer;

begin

read (s);

n:=length (s);

for i:=1 to n do

writeln (copy (s, I, 1));

7. Закінчіть програму, яка розв’язує задачу: „Визначити, скільки букв „А” в рядку”? (1 бал)

Var s, i: integer;

w: string;

begin

read (w);

s:=0;

for i:=1 to length (w) do

if copy (w, i, j)=’A’ then

Варіант ІІ

1. Як надати значення рядковій величині? (2 бали)

2. Чим відрізняється символьний тип даних від рядкових? (2 бали)

3. Як описується функція зчеплення? (2 бали)

4. Яка функція визначає довжину рядка? (2 бали)

5. Яка процедура здійснює знищення фрагмента рядка? (2 бали)

6. Вкажіть помилку у фрагменті програми. (1 бал)

Var a: integer; k: integer;

begin

read (a);

k:=length (a);

if k>20 then

write (‘в рядку більш, ніж 20 символів’);

end.

7. Закінчіть програму, яка розв’язує задачу: „Визначити, порядковий номер літери „S” в рядку”? (1 бал)

Var i: integer;

B: string;

begin

read (b);

s:=0;

for i:=1 to length (b) do

if copy (b, i, 1)=’S’ then

Тести

Варіант І

1. Рядок – це послідовність …

а) цифр; б) букв; в) довільних символів; г) довільних елементів.

2. Якщо з запропонованих змінних є рядком з 5-ти елементів?

а) a: string[1;5]; б) a: char;

в) a: string[5]; г) немає правильної відповіді.

3. Для даного фрагменту програми

Var s: string[35];

…

s[i]:= ‘w’;

…

35 – це ...

а) кількість символів в рядку;

б) значення символу рядка;

в) символ рядка;

г) рядок;

д) номер символу рядка.

4. Які дії виконує даний фрагмент програми?

Var a: string;

begin

read (a);

n:=length (a);

writeln (n);

end.

а) знаходить довжину рядка;

б) рахує кількість літер „а” в рядка;

в) вирізає символ „а” з рядка;

г) немає правильної відповіді.

5. Довжина літерної величини – це ...

а) кількість букв; б) кількість символів між апострофами;

в) кількість цифр.

6. Місце під нову літерну величину резервує так:

Var C: string;

а) C= ‘0’; б) C= ‘’; в) C= ‘slowo’.

7. Заданий рядок а = ‘граматика’. COPY (A, 1, 4)=

а) ‘рама’; б) ‘грам’; в) ‘тика’.

8. Для перетворення літерної величини у число використовується функція ...

а) STR(A); б) LENGTH(a); в) VAL(A).

9. Для вставки у рядок використовується процедура:

а) copy; б) delete; в) insert.

10. Для перетворення числа у рядок використовується функція чи процедура ...

а) STR; б) LENGTH; в) VAL.

11. Заданий рядок а = ‘випуск’. COPY(A,1,6) + ‘2001’=

а) ‘2001випуск’; б) ‘випуск2001’; в) ‘пуск’.

12. Вкажіть, які значення прийме змінна R1 з правого стовпчика після виконання вказівки з лівого:

Const R = ‘Константинополь’;

Var R1: string[15];

1. R1:=Delete(R,1,5); ____________ а) ‘Конст’

2. R1:=Delete(R,5,8); ____________ б) ‘поль’

3. R1:=Delete(R,8,3); ____________ в) ‘Костантинополь’

4. R1:=Delete(R,6,6); ____________ г) ‘Кополь’

5. R1:=Delete(R,6,10); ____________ д) ‘Констполь’

6. R1:=Delete(R,1,11); ____________ е) ‘Консоль’

7. R1:=Delete(R,3,1); ____________ є) ‘Констанополь’

8. R1:=Delete(R,2,9); ____________ ж) ‘антинополь’

Варіант ІІ

1. Яка максимальна кількість символів в рядку?

а) 10; б) 255; в) 100; г) 128; д) довільна.

2. Для визначення довжини рядка використовують таку функцію:

а) write; б) length; в) read; г) немає вірної відповіді.

3. Для даного фрагменту програми

Var s: string[35];

…

s[i]:= ‘w’;

…

і – це ...

а) кількість символів в рядку;

б) значення символу рядка;

в) символ рядка;

г) рядок;

д) номер символу рядка.

4. Які дії виконує даний фрагмент програми?

Var a: string;

b: string;

begin

read (a);

b:=copy (a, 1, 1);

write (b);

end.

а) копіює перший символ рядка а в рядок b;

б) вирізає символ а з рядка b;

в) знаходить довжину рядка а;

г) немає вірної відповіді.

5. Лічба символів у літерній величині починається з:

а) 2; б) 0; в) 1.

6. Вирізка частини рядка знаходиться так:

а) COPY(A, i, k); б) LENGTH(A); в) INSERT$(A,,B,k).

7. Заданий рядок а = ‘прямокутник’. ‘Сто’ + COPY(A,6,6)=

а) ‘трикутник’; б) ‘стокутник’; в) ‘кутник’.

8. Функція CONCAT ...

а) з’єднує два рядки;

б) знаходить вирізку частини рядка;

в) викидає частину рядка.

9. Для знаходження першого входження рядка А в рядок В використовується функція ...

а) COPY; б) LENGTH; в) POS.

10. Викидання частини рядка відбувається за допомогою процедури:

а) INSERT; б) DELETE; в) VAL.

11. Заданий рядок а = ‘семантика’. COPY(A,4,1) + ‘рк’ + COPY(A,6,4)=

а) ‘арктика’; б) ‘крик’; в) ‘тика’.

12. Встановіть відповідність між стовпчиками.

Const R:= ‘Без верби і калини нема України.’;

Var WORD: string[50];

Poz: integer;

Виконується вказівка присвоювання Poz:= Pos(WORD,R)

Значення WORD: Значення Poz:

1. ‘без’; _________ а) 5;

2. ‘верби’; _________ б) 13;

3. ‘і’; _________ в) 20;

4. ‘калини’; _________ г) 32;

5. ‘нема’; _________ д) 11;

6. ‘України’; _________ е) 25;

7. ‘.’ _________ є) 1;

8. ‘’ _________ ж) 4