
- •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;
Задача № 103
Умова: На площині дано дві точки (х1 у1 ) та (х2, y2) Визначити, яка з них знаходиться далі від початку координат.
Для розв'язання цієї задачі необхідно скористатися теоремою Піфагорадля знаходження відстані від початку координат до заданої точки (дивись малюнок):
Очевидно, що відстань від початку координат до точки з координатами (х,у) буде обчислюватись наступним співвідношенням:
Зверніть увагу: в зв'язку з тим, що кожна з координат у формулі підноситься до квадрату, неважливо, в якій чверті координатної площини буде знаходитись точка. Виходячи з усього вищесказаного, програма для розв'язання даної задачі має наступний вигляд:
Program Example__103;
Uses crt;
Var Xl,Yl,x2,y2:real;
{X1,Y2,X2,Y2 - координати даних точок}
SI, S2:real;
{S1,S2 - відстані відповідно до першої та другої точки}
Begin
Clrscr;
Write('Введіть координати першої точки: ');
Readln(XI,Y1);
Write('Введіть координати другої точки: ');
Readln(X2,Y2);
Sl:=sqrt(sqr(Xl)+sqr(Yl)) ;
S2:=sqrt(sqr(X2)+sqr(Y2));
If SKS2
Then Writeln('Друга точка далі від початку координат')
Else Writeln('Перша точка далі від початку координат');
Readkey;
End.
Домашнє завдання:
Прочитати сторінки 59—65 запропонованого підручника;
Задачі № 96 (2), 97 (3), 99, 100 (4), 101 (5), 102 (1), 104, 105.
УРОК 15. Використання вказівки розгалуження
Мета уроку: навчити створювати математичні моделі задач, складати алгоритми з використанням команди розгалуження та записувати їх мовою програмування.
На початку уроку повторити поняття умови, умови прості та складені, поняття команди розгалуження, її форми, запис мовою програмування та мовою блок-схем. На цьому уроці пропонується розглянути задачі з використанням команди розгалуження. Звернітьувагу на те, що перед розв 'язанням цих задач необхідно з учнями розібрати математичну модель задачі, довівши математичні співвідношення, що приведуть до отримання бажаного результату.
Задача № 86
Умова задачі: Чебурашка вирішив купити килими, щоб застелити кімнату, в якій він мешкав разом з Геною. їхня прямокутна кімната виявилася розмірами а х b, де а та b—цілі числа. Коли Чебурашка запитав у магазині, які килими є у продажу, то продавець повідомив, що є квадратні килими зі стороною с, де с — ціле число. Яку кількість килимів необхідно придбати Чебурашці, щоб накрити максимальну площу кімнати? Килими не можна накладати та підгинати. Визначити, яка площа кімнати буде не накритою килимами. Передбачити ситуацію, коли розміри килиму перевищують розміри кімнати.
Очевидно, що якщо довжина сторони килиму більша за будь-яку зі сторін кімнати, то застелити її цими килимами неможливо. Крім того, для знаходження кількості килимів, що вміщуються по одній зі сторін кімнати без їх підгинання, необхідно поділити націло довжину кімнати на довжину килиму. Загальна кількість килимів знаходиться за формулою:
К. = K1 • К2,
де K1 та К2 — кількості килимів, що вміщуються вздовж двох суміжних сторін кімнати.
Площа, що не закрита килимами, визначається як різниця між площею кімнати та площею всіх куплених килимів.
Використані змінні: a, b - розміри кімнати; с - розмір килиму; К1, К2 - кількість килимів вздовж однієї та другої стінки відповідно; К — загальна кількість килимів; S - площа кімнати, що не накрита килимами.
Програма, що реалізує алгоритм розв'язку даної задачі, має вигляд:
Program Example_86;
Uses crt;