profile
Опубликовано 5 лет назад по предмету Информатика от Dedko

Написать программу в Pascal, которая вычисляет площадь треугольника по двум сторонам.

  1. Ответ
    Ответ дан NewUser2015
    program s;
    uses crt;
    var s,h,a:real;
    begin
    clrscr;
    writeln('введите основание и высоту через пробел');
    readln(a,h);
    s:=0.5*a*h;
    writeln('s= ',s);
    readkey;
    end.
    при вводе 2 и 5 площадь будет равна 5
    1. Ответ
      Ответ дан NewUser2015
      вот еще одна на всякий:
    2. Ответ
      Ответ дан NewUser2015
      program a1; 
      var x,y,z,p:real; 
      begin 
      write('Vvedite razmer pervogo kateta:'); 
      readln(x); 
      write('Vvedite razmer vtorogo kateta:'); 
      readln(y); 
      write('Vvedite razmer ugla mezhdu nimi:'); 
      readln(z); 
      p:=(x*y*sin(z))/2; 
      writeln('Ploshad ravna:',p:6:2); 
      readln; 
      end.