Помогите! Срочно надо! Информатика 9 класс Линейна структура: 1) Найти значение выражения y=ax^2+bx+c 2) Вычислить площади треугольника, прямоугольника, ромба. 3) Найти среднее арифметическое трёх чисел.
Answers & Comments
softforwinxp
1) program p1; var y,a,b,c,x:real; begin readln(a,b,c,x); y:=((a*sqr(x)) + (b*x) + c); writeln(y); end.
3) program p3; var a,b,c:real; begin readln(a,b,c); writeln((a+b+c)/3); end.
Второй номер. Для прямоугольника: program p2; var a,b:real; begin readln(a,b); writeln(a*b); end. Для треугольника (по формуле Герона): program p2; var a,b,c,p,s:real; begin readln(a,b,c); p:=(a+b+c)/2; s:=sqrt(p * (p-a) * (p-b) * (p-c)); writeln(s); end.
Answers & Comments
program p1;
var
y,a,b,c,x:real;
begin
readln(a,b,c,x);
y:=((a*sqr(x)) + (b*x) + c);
writeln(y);
end.
3)
program p3;
var
a,b,c:real;
begin
readln(a,b,c);
writeln((a+b+c)/3);
end.
Второй номер.
Для прямоугольника:
program p2;
var
a,b:real;
begin
readln(a,b);
writeln(a*b);
end.
Для треугольника (по формуле Герона):
program p2;
var
a,b,c,p,s:real;
begin
readln(a,b,c);
p:=(a+b+c)/2;
s:=sqrt(p * (p-a) * (p-b) * (p-c));
writeln(s);
end.
Насчет ромба не знаю.