Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 22.02.2015 13:40
- Информатика
- remove_red_eye 5198
- thumb_up 11
Ответы и объяснения 1
Задание 2.
// PascalABC.Net 3.0, сборка 1064
function f(x,z:double):double;
begin
if (x>z) and (z>1) then Result:=(x-z)/(z-1)
else
if (x<=0) and (z<0) then Result:=2*x*z
else Result:=x+1
end;
Задание 3.
// PascalABC.Net 3.0, сборка 1064
var
a,b,c:real;
begin
Write('Введите длины сторон треугольника: '); Read(a,b,c);
if (a+b>c) and (a+c>b) and (b+c>a) then begin
if (a=b) and (a=c) then
Writeln('Треугольник равносторонний, площадь ',a*a/4*sqrt(3))
else
if (a=b) or (a=c) or (b=c) then
Writeln('Треугольник равнобедренный, периметр ',a+b+c)
else
Write('Треугольник разносторонний, самая короткая сторона ',
min(a,min(b,c)))
end
end.
Тестовые решения:
Введите длины сторон треугольника: 5 3.7 6
Треугольник разносторонний, самая короткая сторона 3.7
Введите длины сторон треугольника: 4 6 4
Треугольник равнобедренный, периметр 14
Введите длины сторон треугольника: 5 5 5
Треугольник равносторонний, площадь 10.8253175473055
- 23.02.2015 15:45
- thumb_up 42
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.