| Главная » Файлы » Для вчителя » Інформатика | [ Добавить материал ] |
Самостійна робота по темі: "Мова програмування Паскаль - Масиви"
| [ · Скачать удаленно (66 Kb) ] | 08.11.2010, 00:16 |
| МАСИВИ Варіант 1 1. Виберіть помилкове твердження: a) доступ до будь-якого елемента масиву здійснюється за його номером; b) кожний елемент масиву визначається за власним ім'ям; c) якщо в програмі кілька масивів одного розміру і типу, то їх імена можна дати через кому, а потім після двокрапки вказати опис масиву; d) одновимірний масив має в описі одну пару індексів. 2. Виберіть із наведеного списку помилкові описи одновимірних масивів: a) Var a:array [1..20] of real; b) Type mas=array ['a'..'z']; var a: mas; c) Const n=10; Var a:array[1..n] of char; d) Var mas:array[-5. .-15] of integer. 3. Виберіть зі списку хибне звернення до елементів масиву: a: array [-5.. 5] of integer; а) А[-5..5]; b) A[-5]; с) А[-5,5]; d) A[0]. 4. Виберіть заголовок алгоритму, який би визначав дві цілочисельні змінні, одну таблич¬ну цілочнсельну величину, елементи якої пе¬ренумеровані від 1 до 10: a) Var a,b: integer; c: array[1..10] of integer;; b) Var a: array [1..10] of real; b,c:integer;; c) Var a: integer; c,b: array[1..10] of integer;; d) Var a,b,c: array[l..10] of integer;. 5. Нехай нижня та верхня межі індексів одновимірного масиву В відповідно дорівню¬ють -5 та 10. Виберіть порядковий номер на¬ступного елемента В[8]: а) 8; b)14; с)13; d) 15. 6. Нехай елементи одновимірного масиву А [1..10] набувають відповідно значення −5, −3, −1, 1, 3, 5, 7, 9, 11, 13. Виберіть, які значення буде надруковано в результаті виконан¬ня таких операторів: for i:=1 to 5 do write(a[i+5],' '); a) −5 −3 −1 1 3; b) 0 2 4 6 8; c) 5 7 9 11 13; d) 10 12 14 16 18. 7. Наведена програма складена для роз¬в'язування такої задачі. Дано натуральне число N та послідовність дійсних чисел а1, ..., an. Визначити в цій послідовності кількість сусідств двох додатних чисел. Виберіть пропущений рядок: Const n1=100; Var a:array [1..n1] of real; І,n,k: integer; Begin Readln(n); For I:=1 to n do read(a[I]); K:=0; For I:=1 to n−1 do ___________________ Then k:=k+l; Writeln('k=',k); End. a) If a[I]=a[I+1]; b) If a[I]>0 and a[I+1]>0; c) If a[I] and a[I+1]>0; d) If (a[I]>0) and (a[I+1]>0). 8. Наведена програма складена для роз¬в'язування задачі. Дано дійсні числа a1, ..., а30, b1,..., b30. Обчислити (а1+b30) (а2 +b29) ... (а30+b1). Виберіть пропу¬щений рядок: Type mas=array [1..30] of real; Var a,b:mas; I: byte; у: real; Begin For I:=l to 30 do read(a[I]); For I;=l to 30 do read(b[I]); Y:=l; __________________________ Writeln('y=', y:8:4); End. a) For I:=l to 30 do for j:=l to 30 do y:=y*(a[I]+b[j]);; b) Y:= (a[l]+b[30])*(a[2]+b[29])*. . .*(a[30]+b[l]);; c) For I:=l to 30 do y:=y*(a[I]+ b[31-I]);; d)For I:=l to 30 do y:=y*(a[I]+ b[30-I]);. 9. Наведена програма складена для роз¬в'язування задачі. В двовимірному масиві А[1..10, 2..5] обчислити суму парних еле¬ментів. Виберіть, який рядок містить помилку: Var a: array [1..10, 2..5] of real; І, j: byte; s:real; Begin For I:=1 to 10 do For j:= 2 to 5 do read(a[I,j]); S:=0; For I:=l to 10 do For j:=2 to 5 do If (I mod 2=0) and (j mod 2 =0) then S:=s+a[I,j]; Writeln (s :8:4); End. a) S:real; → s:byte;; b) If (I mod 2=0) and (j mod 2 =0) then → if a[I,j] mod 2 =0 then; c) S:=s+a[I,j] → s:=s+a[2*I,2*j];; d) S:=0; → s:=l;. 10. У масиві С[1..k] визначити добуток елементів, що розташовані на місцях з парни¬ми індексами. 11. У двовимірному масиві А [1..10, 2..5] визначити кількість нульових елементів. 12. У масиві В [1. .7] замінити всі від'ємні елементи останнім. Варіанти 1. Виберіть помилкове твердження: a) масив — це впорядкований іменований набір із фіксованої кількості однотипних да¬них; b) у масиві дані розрізняються за своїми по¬рядковими номерами; c) масиви бувають тільки одновимірними; d) здебільшого номери елементів змінюють¬ся від 1 до заданого числа п, яке можна задати в розділі констант. 2. Виберіть із наведеного списку помилкові описи одновимірних масивів: a)Type mas=array[l. .10] of real; var a:mas;; b)Var a:array[-5..0];; c)Var a:array[ 4' . .'9'] of byte;; d) Var mas: array [string] of integer;. 3. Виберіть зі списку хибне звернення до елементів масиву: a: array [ *а' . . 'd' ] of integer; а)АГа']; b)A[l]; с)АГе']; d)A[*b']. 4. Виберіть заголовок алгоритму, який ви¬ значав би табличну величину дійсного типу, елементи якої перенумеровані від 0 до 12, таб¬ личну величину цілого типу з такою самою нумерацією та одну літерну змінну величину: a) Var a: array [0 . . 12] of real; b:array[0..12] of integer; c:char;; b) Var a ,b : array [0 . . 12] of real;integer; c:char;; c)Nype mas:array[0..12]; Var a:mas of integer;b:mas of real; c:char;; d) Var a,b:array[0..12]of real; c:string;. 5. Нехай нижня та верхня межі індексів од- новимірного масиву S відповідно дорівнюють —10 та 32. Виберіть порядковий номер наступ¬ ного елемента S [ 1 ]: а)1; Ь)11; с)12; d) 13. 6. Нехай елементи одновимірного масиву А[1. .10] набувають значення відповідно—5, -З, -1, 1, 3, 5, 7, 9, 11, 13. Виберіть, які зна¬ чення буде надруковано в результаті виконан¬ ня таких операторів: for I:=l to 5 do write(a[1*2],' '); a) 2 4 6 8 10; b) -10 -6 -2 2 6; c) -3 1 5 9 13; d)5 7 9 11 13. 7. Наведена програма складена для роз¬ в'язування задачі. Дано натуральне число N та послідовність дійсних чисел аі, . . . , an. Виз¬ начити в цій послідовності кількість сусідств двох чисел різного знака. Виберіть пропуще¬ ний рядок: Var a:array [1..100] of real; І,n,k:integer; Begin Readln(n); For I:=1 to n do read(a[I]); K: =0 ; For I:=l to n-1 do Then k:=k+l; WritelnTk»' ,k) ; End. a) If a[I]*a[I+l]<0; b)If (a[I]>0) and (a[I+l]<0); c)If (a[I]>0)and(a[I+l]<0)or(a[I]<0) and(a[I+l]>0); d)If (a[I]>0)or(a[I]<0)and(a[I+l]>0) or(a[I+l]<0). 8. Наведена програма складена для роз¬в'язування задачі. Дано дійсні числа аі, . . ., аЗО, Ь1,..., ЬЗО. Обчислити а ІЬЗО + а2Ь29 + . . . + аЗОЬІ. Виберіть пропущений рядок: Type mas=array[l..30] of real; Var a,b:raas; I:byte; у:real; Begin For I:=l to 30 do read(a[I]); For I:=l to 30 do read(b[l]); Y:=0; Writeln('y=',y:8:4); End. a) For I:=l to 30 do for j:=30 downto 1 do y:=y+a[I]*b[j]; b)Y:=a[l]*b[30]+a[2]*b[2 9]+... +a[30]*b[l]; c)For I:=l to 30 do y:=y+a[I]*b[31-I]; d)For I:=l to 30 do y:=y+a[I]*b[30-I]. 9. Наведена програма складена для роз¬ в'язування задачі. В двовимірному масиві А [-5. .5,-3. .3] обчислити добуток від'ємних елементів. Виберіть, який рядок містить по¬ милку: Var a:array [-5..5,-3..3] of real; 11J:byte; s:real; Begin For I.-=-5 to 5 do For j:= -3 to 3 do read(a[I,j]); S:-l; For I: =-5 to -1 do For j:=-3 to -1 do S:=s*a[I,j]; Writeln(s:8:4); End. a)For I:=-5 to -1 do For j:=-3 to -1 do —» For I: =-5 to 5 do For j:=-3 to 3 do if a[I,j]<0 then; b)S;=s*a[I,j] -> s:=s+a[I,j]; c)I,j:byte; s:real; —> I,j,s:real;; d)S:=l; -» s:=0;. 10. У масиві А [ 1. . m] визначити кількість елементів, кратних 10. 11.УдвовимірномумасивіВ[-3. .4,-4. .3] визначити добуток додатних елементів. 12. У масиві С [ 1. . 8 ] замінити всі від'ємні елементи їх модулями. МАСИВИ Варіант III 1. Виберіть помилкове твердження: a) якщо кожний елемент масиву визначаєть¬ся за допомогою одного номера, то такий масив називається одновимірним; b) у двовимірних масивах перший номер вка¬зує на рядок, а другий — на положення елемента в рядку; c) номер елемента масиву називають індек¬сом; d) рядки двовимірного масиву можуть мати неоднакову довжину. 2. Виберіть із наведеного списку помилкові описи одновимірних масивів: a)Type mas=array[l. .n] of byte; var a:mas; b)Var a:Array[-7..-7J of integer; c)Var a:array[10] of integer; d) Const n=10; Var a-.array [1. .n] of integer. 3. Виберіть зі списку хибне звернення до елементів масиву: a:array [1..3Д..4] of real; а)А[і]; Ь)А[1,4]; с)А[4,3]; d)A[3,3]. 4. Виберіть заголовок алгоритму, який ви¬ значав би три дійсні табличні величини, що мають по 50 елементів і елементи яких пере¬ нумеровані, починаючи відповідно з 1,10,105: a)Var a,b,c:array[l..50] of real;; b) Var a: array [1. . 50] of real; b:array[10..59] of real; c:array[105.. 154] of real;; c) Var a: array [1. . 50] of real; b:array[10..60] of real; c:array[105.. 155] of real;; d) Var a,b,c:array[1..50,10..59, 105..154]of real;. 5. Нехай нижня та верхня межі індексів одповимірного масиву С дорівнюють відповід¬ но -3 та 13. Виберіть порядковий номер на¬ ступного елемента С [ 5 ]: a) 5; b)6; c)8; d)9. 6. Нехай елементи одновимірного масиву А [ 1. . 10 ] набувають значення відповідно —5, -З, -1, 1, 3, 5, 7, 9, 11, 13. Виберіть, які зна¬ чення буде надруковано в результаті виконан¬ ня таких операторів: I:=l; repeat write(a[I],' Л); І:=1+1 until а[І]<0; а)-5; b) -5 -3 -1; c) ніякі знвчення не буде надруковано; d) -5 -3. 7. Наведена програма складена для розв'я¬ зування задачі. Дано натуральне число N та послідовність дійсних чисел аі, . . . , an. Ви¬ значити в цій послідовності кількість сусідств двох нульових чисел. Виберіть пропущений рядок: type mas=array[l..100] of real; Var a:mas; I,n,k:integer; Begin Readln(n); For I:el to n do read(a[I]); K:=0; For I:=l to n-1 do Then k:=k+l; Writeln('k=' ,k) ; End. a) If a[I]*a[I+l]=0; b)If a[I]=a[I+l]; c)If (a[I]=0) and (a[I+l]=0); d)If a[I]+a[I+l]=0. 8. Наведена програма складена для розв'язування задачі. Дано дійсні числа аі, , аЗО, Ь1, ..., ЬЗО. Обчислити а1Ь2 + аЗЬ4 + . . . + а29Ь30. Виберіть пропу¬щений рядок: Type mas=array[1..ЗО] of real; Var a,b:mas; I:byte; у:real; Begin For I:=l to 30 do read(a[I]); For I:=l to 30 do read(b[l]); Y:=0; Writeln(*y=',y:8:4); End. a)For I:=l to 29 do for j:=2 to 30 do y:=y+a[I]*b[j];; b)I:=l; whilt I<=29 do begin j:=2; while j<=30 do begin y:=y+a[I]*b[j]; j:=j+2; end; I:=1+2; end;; c)I:=l; whlie I<=29 do begin y:=y+a[I]*b[I+l]; I:«1+2; end;; d)Y: = {a[l]*b[2]) + (a[3]*b[4])+ ... + (a[29]*b[30]);. 9. Наведена програма складена для роз¬в'язування задачі. В двовимірному масиві А[1..4,1..4] обчислити суму додатних елементів, розташованих на головній діа¬гоналі. Виберіть, який рядок містить по¬милку: Var a:array [1..4,1..4] of real; І,j:byte; s:real; Begin For I:=1 to 4 do For j:= 1 to 4 do read(a[Z,j]); S:=0; For I:=1 to 4 do For j:=1 to 4 do Ifa[I,I]>0 then S:=s+a[I,i]; Writeln(s:8:4); End. a) For I: =1 to 4 do For j : =1 to 4 do -4 For I:=l to 4 do; b)Zf a[I,I]>0 then —> не потрібно; c)a[I,i] -> a[I,j];; d)S:real; —> s:byte;. 10. У масиві В [ 1. . n] визначити суму еле¬ментів, більших, ніж задане число а. | |
| Просмотров: 660 | Загрузок: 178 | | |