Question

Написать на Pascal
программу.
Даны основания и высота равнобедренной трапеции.
Найти её периметр

Answer 1

Program Trapecia;
  Var  h, a, b, c: real;
begin  
  writeln('Введите значение высоты'); 
  readln(h);   
  writeln('Введите значение основания трапеции 1'); 
  readln(a); 
  writeln('Введите значение основания трапеции 2'); 
  readln(b); 
  if a>b then   
    c:=sqrt(sqr((a-b)/2)+sqr(h)) 
  else   
     c:=sqrt(sqr((b-a)/2)+sqr(h));     
   writeln('Периметр трапеции равен ',a+b+2*c);
end.

Answer 2

Компиляторы разные бывают. К тому же параллельные вычисления это не всегда оптимизация.

Answer 3

Причем все это к заданию? Хотите просто поболтать - пишите личку

Answer 4

Здесь просто шло обсуждение решения. Да, действительно много сказано, но вы сами много вопросов и задали.

Answer 5

И ещё, школьники бывают разной подготовленности да и к тому же здесь решение и правильное, а не задание.

Answer 6

Программа на скрине, чтобы найти периметр нужно знать все стороны у нас есть основания, но нет боковых сторон мы их находим через треугольники у которого один катет равен высоте а другой находится так 
(b-a)/2 я так имею право сделать так как это равнобедренная трапеция и так мы знаем два катета нам нужно найти гипотенузу которая и является боковой стороной для этого мы $sqrt{ (frac{b-a}{2})^{2} + h^{2} }$ так мы нашли боковую сторону теперь мы можем найти периметр. 

Пример: 
вводимые значения
малое основание 4
большее основание 10
высота 4
____________________
Вывод P= 24 

решение 10-4=6 => 6/2=3 и так один катет равен 3 другой равен высоте то есть 4 сейчас действует теорема пифагора, но я её здесь применять не буду так как это египетский треугольник потому что одни катет 3 а другой 4 значит гипотенуза будет равна 5, осталось найти периметр 4+10+2*5=24

Answer 7

Комментарии не удаляются? Возможно ТЕПЕРЬ и не удаляются, но раньше удалялись 100%. Посмотрите архивы прошлых лет.

Answer 8

Я уже почти год как не Alviko

Answer 9

Т.е. я остался, конечно Александром Викторовичем О*, но ник у меня теперь другой)))

Answer 10

Вот тут Вы ошибаетесь: я ни с кем не ссорился и сменил ник по совсем иному поводу. И я нормально общаюсь со всеми, кроме двух человек из команды, но это уже личное.