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
На площині дано дві точки (х1 у1 ) та (х2, y2) Визначити, яка з них знаходиться далі від початку координат.
Для розв'язання цієї задачі необхідно скористатися теоремою Піфагора для знаходження відстані від початку координат до заданої точки (дивись малюнок):
Очевидно, що відстань від початку координат до точки з координатами (х,у) буде обчислюватись наступним співвідношенням:
Зверніть увагу: в зв'язку з тим, що кожна з координат у формулі підноситься до квадрату, неважливо, в якій чверті координатної площини буде знаходитись точка. Виходячи з усього вищесказаного, програма для розв'язання даної задачі має наступний вигляд:
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