Лабораторный практикум по программированию на языке Паскаль. Найханова Л.В - 20 стр.

       S = 5 * 3.3 /2 ≈ 8,25.
Протокол работы на ЭВМ.
Введите длину катета : 5 
Введите длину гипотенузы : 6 
Длина второго катета = 3.3
Площадь треугольника =           8.25
Результаты работы программы и ручного счета совпали.
Задание Б.
Program DLINA;
Var
   x1, y1, x2, y2, x3, y3, x4, y4 : real;
   L, L1, L2, L3                   : real;
Begin
    Write('Введите координаты вершин х,y :');
    readln(x1, y1, x2, y2, x3, y3, x4, y4);
    L1 := SQRT(SQR(x2 - x1) + SQR(y2 - y1));
    L2 := SQRT(SQR(x3 - x2) + SQR(y3 - y2));
    L3 := SQRT(SQR(x4 - x3) + SQR(y4 - y3));
    L := L1 + L2 + L3;
    Writeln('L1 = ', L1:4:1, ' L2 = ', L2:4:1, ' L3 = ', L3:4:1);
    Writeln('Длина ломаной =', L:6:1)
End.
Контрольный тест.
Пусть А(1, 1); В(4, 5); С(7, 3); D(10, 7). Тогда
L1=    (( 4 − 1) 2 + (5 − 1) 2 ) = ( 9 + 16) = 5 ;
L2=    (( 7 − 4) 2 + ( 3 − 5) 2 ) =   ( 9 + 4) = 13 ≈ 3,6 ;
L3= ((10 − 7) 2 + ( 7 − 3) 2 ) = ( 9 + 16) = 5 ;
L = 5 + 3,6 + 5 ≈ 13,6.
Протокол работы на ЭВМ.
Введите координаты вершин x,y : 1 1 4 5 7 3 10 7
L1 = 5.0 L2 = 3.6 L3 = 5.0
Длина ломаной = 13.6
Задание В.
Program TELO;
Const
    g = 9.8;
Var
    s, v, t1, t2, D : real;
Begin
   write('Введите расстояние:');
   readln(s);
   write('Введите скорость:');
   readln(v);
  D : = 4 * v * v - 8 * g * s;
  t1 : = (2 * v + SQRT( D )) / (2 * g);
  t2 : = (2 * v - SQRT( D )) / (2 * g);
  Writeln('t1 = ', t1:4:2, 't2 = ', t2:4:2)
End.
В этой задаче при анализе решения отрицательные значения времени отбрасываются.


                                                                                  20