Вычисление площади треугольника

[Nyuta555]

Вопрос собственно в следующем:

Задача дословно: Составить программу для вычисления площадей треугольников и прямоугольников. Площадь какой фигуры будет определяться (!!??) и параметры этой фигуры определяются в режиме диалога (!!??)

{ вычисление площади треугольника по 3 сторонам }

var a,b,c,p:real;
      s1;s2:real; 
begin
     writeln('введите a, b и c');
     readln( a,b,c );
          p:=(a+b+c)/2;
     s1:=p*sqrt((p-a)*(p-b)*(p-c));
     writeln('площадь треугольника = ',s1);
 end;
      writeln;
{ вычисление площади прямоугольника }
s2:=2*s2;
      writeln('площадь прямоугольника = ',s2);
 end;
end.

Короче, задание сформулировано как-то не по-русски. Если что-то не так поправьте меня).

[Танюха Ю]

s2:=2*s2;
ты наверное хотел написать s2:=2*s1;

[Sweta]

Исходя из написанного Вами, необходимо:
Выдать запрос (т.е. Вывести сообщение) к примеру:
Для вычисления площади треугольника введите 1,
Для вычисления площади прямоугольника введите 2

Далее необходимо проанализировать, что будет вычисляться, если площадь треугольника, то запрос ввода параметров (если у Вас задано конкретно по трем сторонам, то предупредите, что необходимо ввести длины сторон, если нет, то опять предлагаем выбрать как вычисляем, т.е. несколько формул и тогда ввод параметров подобно тому как вы сделали), вычисление, вывод на экран и запрос на продолжение или выход.
Если площадь прямоугольника, то запрос на ввод длины двух сторон и вычисление (тут у Вас ошибка, площадь прямоугольника = a*b), можно также вычислять по координатам вершин, но я думаю, это лишнее.

[Nyuta555]

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

Исходя из написанного Вами, необходимо:
Выдать запрос (т.е. Вывести сообщение) к примеру:
Для вычисления площади треугольника введите 1,
Для вычисления площади прямоугольника введите 2

Далее необходимо проанализировать, что будет вычисляться, если площадь треугольника, то запрос ввода параметров (если у Вас задано конкретно по трем сторонам, то предупредите, что необходимо ввести длины сторон, если нет, то опять предлагаем выбрать как вычисляем, т.е. несколько формул и тогда ввод параметров подобно тому как вы сделали), вычисление, вывод на экран и запрос на продолжение или выход.
Если площадь прямоугольника, то запрос на ввод длины двух сторон и вычисление (тут у Вас ошибка, площадь прямоугольника = a*b), можно также вычислять по координатам вершин, но я думаю, это лишнее.

Спасибо, поняла. Мне не понятно само задание..то ли определить площать треугольников и на базе полученного вычислить площадь прямоугольника, то ли производить отдельно вычисление площадей прямоугольника и треугольника....

[Stilet]

Nyuta555

Процедуры и функции учили?

[Nyuta555]

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

Исходя из написанного Вами, необходимо:
Выдать запрос (т.е. Вывести сообщение) к примеру:
Для вычисления площади треугольника введите 1,
Для вычисления площади прямоугольника введите 2

Далее необходимо проанализировать, что будет вычисляться, если площадь треугольника, то запрос ввода параметров (если у Вас задано конкретно по трем сторонам, то предупредите, что необходимо ввести длины сторон, если нет, то опять предлагаем выбрать как вычисляем, т.е. несколько формул и тогда ввод параметров подобно тому как вы сделали), вычисление, вывод на экран и запрос на продолжение или выход.
Если площадь прямоугольника, то запрос на ввод длины двух сторон и вычисление (тут у Вас ошибка, площадь прямоугольника = a*b), можно также вычислять по координатам вершин, но я думаю, это лишнее.

Спасибо, поняла. Мне не понятно само задание..то ли определить площать треугольников и на базе полученного вычислить площадь прямоугольника, то ли производить отдельно вычисление площадей прямоугольника и треугольника....

[Nyuta555]

Сообщение от Танюха Ю

s2:=2*s2;
ты наверное хотел написать s2:=2*s1;

Именно так я и хотела написать)

[Nyuta555]

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

Процедуры и функции учили?

Полное ощущение того, что я пытаюсь полную советскую энциклопедию запомнить..причем безуспешно...в голове такая каша)))

[ОДИНОЧЕСТВО В СЕТИ]

спросите у пользователя при старте программы что он будет считать
и в зависимости от этого просите данные (2-е или 3 стороны)

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

само то
что то вроде

var a,b,c,p:real;
      s:real; 
	  op:integer;
begin
   Writeln('чего считаем то?');
   Writeln('1-треугольник 2-прямоугольник');
   readln(op);
     case op of 
	 1 :begin
	 writeln('введите a, b и c');
     readln( a,b,c );
          p:=(a+b+c)/2;
     s:=sqrt(p*(p-a)*(p-b)*(p-c));
     writeln('площадь треугольника = ',s1);
 end;
    2:begin
	writeln('введите a и b');
     readln( a,b );
{ вычисление площади прямоугольника }
   s:=a*b;
      writeln('площадь прямоугольника = ',s2);
 end;
 end;
 readln;
end.

[Sweta]

Диалоговый режим:
В Площадь какой фигуры определяем - Треугольника или прямоугольника?
О Треугольника.
В Определение площади треугольника по трем сторонам.
Введите длины сторон
a=
b=
c=
S= ....
Площадь заданного треугольника = S1
Для продолжения нажмите любую клавишу, для выхода Esc
Если продолжение, то
В Площадь какой фигуры определяем - Треугольника или прямоугольника?
О Прямоугольника.
В Определение площади прямоугольника сторонам.
Введите длины сторон
a=
b=
S= ....
Площадь заданного прямоугольника = S2
Для продолжения нажмите любую клавишу, для выхода Esc
и так далее, до нажатия Esc , после чего выход из программы.
Теперь все на своих местах?