- •A b c d e f g h I j k l m n o p q r s t u V w X y z I _(знак підкреслення)
- •Var Sum1, Sum2 : real;
- •X: integer;
- •Задача № 41
- •Var m, n, p : real;
- •Задача №73
- •Задача № 81
- •Задача № 82
- •Задача № 84
- •Задача № 97
- •Var а,ь,с : real;
- •Задача № 100
- •Var X,Rezultat:real;
- •Задача №101
- •Var X,Rezultat:real;
- •Задача № 107
- •Var n,s,Grade:integer; {n - бали, що набрав учень; s -максимальне значення сумарного балу; Grade - оцінка учня}
- •Задача № 103
- •Var Xl,Yl,x2,y2:real;
- •Задача № 86
- •Var a,b,c,s:word;
- •Задача № 89
- •Var Vl,v2,v3:real;
- •Задача № 90
- •Var а,в,с:real;
- •Задача № 91
- •Var X,x1,x2,x3:real;
- •Задача № 120
- •Var n, First, Last : word;
- •Задача №128
- •Var a,b,c,d,Xl,x2:real;
- •Задача №130
- •Var a,b,c,X,y,s:real;
- •Задача №134
- •Задача №151
- •Задача №160
- •Задача №165
- •Var Sum, I: integer;
- •Var a,b,c: integer;
- •Var n: longint; Counter: integer;
- •Задача №183
- •Задача № 189
- •Задача № 190
- •Var I,n:word; {I - параметр циклу}
- •Задача № 191
- •Var I,n:word;{I - параметр циклу}
- •Задача №210
- •Var I,n:word; {I - параметр циклу, n - оцінка учня}
- •Задача № 180
- •Var m,n,k:word;
- •Задача № 197
- •Var n:longint; {n - дане число}
- •Задача №204
- •Var m,k,Rez:longint; {Rez - обчислення степеню 4}
- •Задача № 208
- •Var і:word;
- •Задача №212
- •Var і,n:word;
- •Задача №179
- •Var n:word; {I - номер пасажира, що увійшов у ліфт}
- •Задача №181
- •Var s,n,Sum:longint; {s - кількість волосся, що буде висмикнутим, Sum - кількість волосся, що залишилося в дідуся на голові, n - початкова кількість волосся}
- •Задача №209
- •Var X,n:real; {X - початковий внесок, n - бажана сума} Rezrreal; {Rez - результуюча сума на рахунку} Years:longint; {Years - термін, протягом якого сума перебувала в банку}
- •Задача №231
- •Var V,Vmax:real; {V - швидкість автомобіля, Vmax - максимально дозволена швидкість}
- •Задача №251
- •Var count:word; {count - кількість членів послідовності до першого нульового елемента}
- •Var a:array[1..N] of real; в:array[1..100] of integer;
- •Var m: Massiv;
- •Задача № 293 (1)
- •Задача №293 (4)
- •Задача № 297
- •Задача № 299
- •Задача № 311 (2)
- •Var n,і:word; {n — кількість елементів масиву, і — змінна циклу)
- •Задача № 300
- •Var n:word;
- •Задача № 309
- •Var n,і,Count:longint; {n — задане ціле число, і — змінна циклу. Count — кількість цифр в числі}
- •Задача № 312
- •Var n,I:longint; {n — кількість елементів масиву, і — змінна циклу}
- •Задача №318 (4)
- •Var a,b:array[l..30] of real;
- •Задача №345(1)
- •Var c:array[1..N,1..M] of integer;
- •I,j:integer; {I,j - змінні циклу}
- •Задача № 360
- •Var a:array[1..N,1..N] of real;
- •Задача № 302
- •Var n,h:word;
- •Задача №314(2)
- •Var a:Masiv; {a — масив для зберігання даних чисел}
- •Задача № 321 (1,2)
- •Var a:array[1..N] of integer; {a — масив даних чисел}
- •Задача № 356
- •Var a:Masiv; I,j:byte; {I,j — змінні циклу}
- •Задача № 358
- •Var a: Masiv;
- •I,j:byte; {I,j - змінні циклу}
- •Var Mas:array[1..N] of integer;
- •I,j:integer; {I,j — змінні циклу)
- •Var Mas:агay[1..N] of integer;
- •Var Mas:array[1..N] of integer;
- •I,j,k:integer; {I,j — змінні циклу, k — змінна, що фіксує праву границю впорядкування}
- •Var Mas:array[1..N] of integer;
- •Var Mas:array[1..N] of integer;
- •Задача №339(1)
- •Var a,b:Masiv; {a — масив для зберігання початкової послідовності, в — відсортований масив}
- •Задача №342(1)
- •Var a:Masiv; {a — масив для вихідної послідовності}
- •Задача № 377
- •Var і,count:word;
- •Задача № 381
- •Var і:word; {і - змінна циклу} St:string; {St - даний текст}
- •Задача №382
- •Var I:word; {I - змінна циклу} St: string; {St — даний текст}
- •Задача № 387
- •Var і:byte; {і - змінна циклу}
- •Задача №389 (2)
- •Var і:byte; {і - змінна циклу}
- •Задача № 394
- •Var і:byte; {і - змінна циклу}
- •Задача № 604
- •Var GraphDriver,GraphMode:integer;
- •InitGraph(GraphDriver,GraphMode,'');
- •Задача № 607
- •Var GraphDriver,GraphMode:integer;
- •X,y,color,n:integer; {X,y - координати точки - 'Зірки',
- •InitGraph(GraphDriver,GraphMode,'');
- •Задача № 614
- •Var GraphDriver,GraphMode:integer;
- •X,у:integer; {X,y - координати центру декарт. Сист. Коорд.}
- •InitGraph(GraphDriver,GraphMode,''); {Малювання осей}
- •Задача № 616
- •Var GraphDriver,GraphMode:integer;
- •Задача № 618
- •Var GraphDriver,GraphMode:integer; n, і : integer;
- •InitGraph(GraphDriver,GraphMode,»);
- •Задача № 629
- •Задача № 638 (1)
- •Var gd,gm:integer;
- •X,у:integer; Size:integer;
- •XnitGraph (gd,gm,'');
- •Задача № 627
- •Var gd,gm:integer;
- •VX,Vy,X,y:real;
- •Задача №415
- •Задача №416 (1)
- •Var a,max:real;
- •Задача № 417
- •Var X,y,m:real;
- •Задача № 463
- •Var і:byte; (локальна змінна для організації циклу}
- •Var a:string; ch:char; n:byte;
Задача № 299
Умова: Нехай елементи одновимірного масиву А[1..1О] набувають відповідно значень -5, -3, -1, 1, 3, 5, 7, 9, 11, 13. Які значення буде надруковано в результаті виконання таких операторів:
№ варіанта |
Завдання |
Відповідь |
Примітка |
3 |
For i:=l to 5 do Writeln(A[i+5]) |
5 7 9 13 |
Друкується тільки п'ять останніх елементів масиву, тому що змінна циклу змінюється від 1 до 5, а індекс елементів масиву від 6 (1+5) до 10 (5+5) |
5 |
i:=l; While A[i]<0 do Begin i:=i+l; Writeln(A[i]) End; |
-5 -3 -1 |
Друкуються тільки від'ємні елементи масиву, тому що умова виходу з циклу така, що коли А[і]<=0, він припинить свою роботу. |
7 |
i:=l; repeat i:=i+l; Writeln(A[i]) until A[i]>=0; |
-3 -1 1 |
Елементи масиву друкуються до першого додатного значення зліва направо. 1-й елемент масиву не друкується тому, що в тілі циклу спочатку змінюється індекс, і виконується друк. |
Задача № 311 (2)
Умова: Дано одновимірний масив цілих чисел А[і], де і = 1, 2, ...n. Вивести елементи масиву з парними індексами.
Разв'язання: В даному випадку незручно користуватися для виведення на екран елементів з парними індексами циклом з параметром, тому що він дозволяє зміну індексу тільки на одиницю. Тому пропонуємо скористатися циклом з перед — або післяумовою.
Program Example_311_2;
Uses crt;
Var n,і:word; {n — кількість елементів масиву, і — змінна циклу)
A:array[1..100] of longint; {A — заданий масив}
Begin
Clrscr;
Write('Введіть кількість елементів масиву (<100):');
Readln(N);
For i:=1 to N do
Begin
А[і] :=random(300) ; {Заповнення масиву випадковими числами}
{Виведення масиву на ехран для контролю правильності роботи програми}
Write(A[i]:5);
End;
Writeln; {Переведення курсору на наступний рядок}
і:=2;
while i<=N do
Begin
Write(A[i]:5);
i:=i+2; {Змінна циклу змінюється на 2, щоб вибрати тільки парні елементи}
End;
Readkey; {Затримка зображення на екрані}
End.
Домашнє завдання
Прочитати сторінки 117—119 запропонованого підручника.Задачі № 292, № 293 (останні), № 295 (останні), № 297, № 299 (останні), № 310, № 311(3).
УРОК 23. Обробка лінійних таблиць
Мета уроку: навчити розв'язувати типові задачі з обробки лінійних таблиць.
На початку уроку бажано зробити опитування за матеріалом попереднього уроку та повторити тему «Команда повторення», особливо різновид циклу — цикл з параметром. Далі рекомендується розглянути методирозв 'язування типових задач з обробки лінійних таблиць. Зверніть увагу на те, що дуже велика кількість задач з обробки масивів потребує виконання однотипних дій з усіма елементами, тому зручно в цих випадках використовувати цикл із параметром для організації повторення.
