Составить функцию нахождения площади треугольника по стороне и высоте, опущенной на эту сторону. С помощью данной функции вычислить площадь для N треугольников.

[ss1112]

Составить функцию нахождения площади треугольника по стороне и высоте, опущенной на эту сторону. С помощью данной функции вычислить площадь для N треугольников.

[digitalis]

Аж вспотел, решаючи - вынос мозга

program  abc ;

var  a,h,s: real ; n: integer ;

function square(a,h : real): real ;
begin
   square := a*h/2.0
end ;

begin
    while (True) do
  begin
    Write ('Input a,h ') ; Readln (a,h) ;
    if a=0.0  then Break ;
    s := square(a,h) ;
    Writeln (s)
  end ; 
end.

Вот непонятно - помог решить человеку его задачу - или он на форум так, погулять вышел ? Да не надо мне его спасиба и плюсования рейтинга - хотя бы отозвался - прочитал, понял. К сожалению, таких спрошающих - 95%

[Alar]

Сообщение от digitalis

хотя бы отозвался - прочитал, понял. К сожалению, таких спрошающих - 95%

Не знаю что с ними делать, могу лишь предложить не заставлять людей сдавать программирование, если они не хотят быть программистами. Кто-то же должен нас программистов обслуживать. не всем же быть управляющими этого мира, пусть приходят в 40 лет, типа вот я слесарь, надоело, не поздно ли учиться на программиста, хочу быть человеком а не конкурировать со станком, которые вы программируете.