Programa vichislenie_ploshadi_treug_po_Geronu;
Var a,b,c,S,p:real;
begin
writenLn(‘dliny storon’);
readLn(a);
readLn(b);
readLn(c);
p:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
writenLn(‘ploshad=’,S);
end.
4. Выполнение.
Alt+F9 – компиляция, проверка на ошибки.
Ctrl+F9-выполнение программы.
Вводим переменные(длины сторон треугольника).
Alt+F5 – просмотре результатов.
Получаем на экране ответ.
5. Объяснение:
Programa vichislenie_ploshadi_treug_po_Geronu;(название программы)
Var a,b,c,S,p:real;(переменные в программе)
begin(начало рабочей области)
writenLn(‘dliny storon’);(оператор ввода оповещает о необходимости ввести переменные)
readLn(a);
readLn(b);
readLn(c);(считывается значение переменных в память компьютера)
p:=(a+b+c)/2;(рассчитывается полупериметр)
S:=sqrt(p*(p-a)*(p-b)*(p-c));(рассчитывается площадь треугольника)
writenLn(‘ploshad=’,S);(вывод результата на экран)
end.(конец рабочей области)
Таблицу покажи а то так невыполнить
Не знаю, как у тебя, но у меня они просто заменяют друг друга, когда я их перетаскиваю мышкой на нужное место.
Образные смешаные и знаковые
1) M:=2*Tan(v*v*v)+Sqrt((2*Exp(a)*v+Sin(2*v*v))/Cos(v*v))
2) Y:=Ln(3*k)-Sin(x*x)*Cos(x*x)+Sqrt(Sin(2*x)+Cos(2*x))
3)
Var
P,x:real;
Begin
Write('x = ');ReadLn(x);
P:=Abs(x+5)/(Abs(3*x*x-x+20)+9);
WriteLn('P = ',P);
End.
4)
Var
c,x,Y:real;
Begin
Write('x = ');
ReadLn(x);
Write('c = ');
ReadLn(c);
Y:=c*x;
if Y <= 9 then Y:=c*x+2
else if Y < 20 then Y:=c*c+x
else Y:=c-x;
WriteLn('Y = ',Y);
End.
