Then writeln('Помилка вхідних даних')

Else

Begin

N:=round(N/S*100); {Знаходження % - відношення балів учня до максимально можливого}

If N>=92 then Grade:=12;

If (N<92) and (N>=70) then Grade:=8;

If (N<70> and (N>=50) then Grade:=5;

If (N<50) then Grade:=2;

Writeln('Учень отримав оцінку - ', Grade);

End;

Readkey;

End.

Приклад № 8

На площині дано дві точки (х₁ у₁ ) та (х₂, y₂) Визначити, яка з них знаходиться далі від початку координат.

Для розв'язання цієї задачі необхідно скористатися теоремою Піфагора для знаходження відстані від початку координат до заданої точки (дивись малюнок):

Очевидно, що відстань від початку координат до точки з координатами (х,у) буде обчислюватись наступним співвідношенням:

Зверніть увагу: в зв'язку з тим, що кожна з координат у формулі підноситься до квадрату, неважливо, в якій чверті координатної площини буде знаходитись точка. Виходячи з усього вищесказаного, програма для розв'язання даної задачі має наступний вигляд:

Program Example__8;

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.

Приклад № 9

Чебурашка вирішив купити килими, щоб застелити кімнату, в якій він мешкав разом з Геною. їхня прямокутна кімната виявилася розмірами а х b, де а та b— цілі числа. Коли Чебурашка запитав у магазині, які килими є у продажу, то продавець повідомив, що є квадратні килими зі стороною с, де с — ціле число. Яку кількість килимів необхідно придбати Чебурашці, щоб накрити максимальну площу кімнати? Килими не можна накладати та підгинати. Визначити, яка площа кімнати буде не накритою килимами. Передбачити ситуацію, коли розміри килиму перевищують розміри кімнати.

Очевидно, що якщо довжина сторони килиму більша за будь-яку зі сторін кімнати, то застелити її цими килимами неможливо. Крім того, для знаходження кількості килимів, що вміщуються по одній зі сторін кімнати без їх підгинання, необхідно поділити націло довжину кімнати на довжину килиму. Загальна кількість килимів знаходиться за формулою:

К. = K₁ • К₂,

де K₁ та К₂ — кількості килимів, що вміщуються вздовж двох суміжних сторін кімнати.

Площа, що не закрита килимами, визначається як різниця між площею кімнати та площею всіх куплених килимів.

Використані змінні: a, b - розміри кімнати; с - розмір килиму; К1, К2 - кількість килимів вздовж однієї та другої стінки відповідно; К — загальна кількість килимів; S - площа кімнати, що не накрита килимами.

Програма для розв'язку даної задачі, має вигляд:

Program Example_9;

Uses crt;

Var a, b, c, S: word;

K, K1, K2: word;

Begin

Clrscr; {Очищення екрану}

Write('Введіть розміри кімнати: ');

Readln(a,b);

Write('Введіть розміри килима: ');

Readln(c);

If (с > a) or (с > b)

Поиск по сайту: