Вопрос по информатике:
1.Составте программу для нахождения граммов G в X унциях (1 унция = 28,35 грамма). Исходное количиство граммов задается с клавиатуры.
2.Напишите программу нахождения длин медиан m1, m2 и m3 треугольника по указанным формулам. Длины сторон a,b и c задаются с клавиатуры.
m1=...
m2=...
m3=...
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 07.01.2017 12:42
- Информатика
- remove_red_eye 14005
- thumb_up 68
Ответы и объяснения 1
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.
- 08.01.2017 17:32
- thumb_up 60
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.