количиство граммов задается с клавиатуры. 2.Напишите программу нахождения длин медиан m1, m2 и m3 треугольника по указанным формулам. Длины сторон a,b и c задаются с клавиатуры. m1=… m2=… m3=…
Ответ или решение
Const
x = 28.35;
var
g : Real;
begin
Write(‘Введите кол-во граммов: ‘);
ReadLn(g);Writeln(g:0:3, ‘ грамм = ‘, g/x:0:3, ‘ унций.’);
Readln;
end.2:
var
a, b, c : Integer;
m : Real;
begin
Write(‘Введите сторону a: ‘);
ReadLn(a);Write(‘Введите сторону b: ‘);
ReadLn(b);Write(‘Введите сторону c: ‘);
ReadLn(c);m := sqrt(2*sqr(b) + 2*sqr(c) — sqr(a))/2;
Writeln(‘Медиана к стороне a = ‘, m:0:3);m := sqrt(2*sqr(a) + 2*sqr(c) — sqr(b))/2;
Writeln(‘Медиана к стороне b = ‘, m:0:3);m := sqrt(2*sqr(a) + 2*sqr(b) — sqr(c))/2;
Writeln(‘Медиана к стороне с = ‘, m:0:3);
Readln;
end.
На нашем сайте представлено множество школьных и студенческих вопросов и ответов на них. Также, вы можете задать свой вопрос или помочь другим учащимся, ответив на существующие вопросы. Для этого пишите ответы в комментариях.
Для того, чтобы найти ответ на ваш вопрос, а он наверняка есть в нашей базе, пользуйтесь формой поиска по сайту!