Pascal!Даны основания и...

Тема в разделе "Информатика", создана пользователем eladonik, 10 фев 2010.

  1. eladonik

    eladonik New Member

    Pascal!Даны основания и высота р/б трапеции. Найти ее периметр!
     
    eladonik, 10 фев 2010
    #1
  2. Barik

    Barik New Member

    Пробуйте:
    var a,b,h: integer; p: real;
    begin
    write ('Введите длину большего основания: '); read(a);
    write ('Введите длину меньшего основания: '); read(b);
    write ('Введите длину высоты: '); read(h);
    p:=a+b+2*sqrt(sqr(h)+sqr(a-b)/4);
    writeln ('Периметр = ',p);
    end.
     
    Barik, 10 фев 2010
    #2

Поделиться этой страницей

Наша группа