Предмет: Информатика,
автор: salikhova397
1)Даны 3 равносторонних треугольников со сторонами a, b, c. Напечатать номер треугольника с наибольшей площадью. Вычисление площадей организовать с помощью функций, воспользовавшись формулой Герона.
2) Выведите посредине экрана своё имя, высотой в 8 строк, состоящее из разноцветных звёздочек.
Ответы
Автор ответа:
0
Действительно, не нужно вычислять площадь. В первом способе мы не будем вычислять площадь, но во втором, будь по Вашему, мы вычислим площадь через функцию вычисления площади по Герону.
1)var a,b,c,ma:real;
begin
read(a,b,c);
ma:=max(max(a,b),c);
if a=ma then write(1,' ');
if b=ma then write(2,' ');
if c=ma then write(3,' ');
end.
2)var a,b,c,pa,pb,pc,ma:real;
function geron(aa,bb,cc:real):real;
begin
pa:=sqrt((3*a)*(2*a)*(2*a)*(2*a));
pb:=sqrt((3*b)*(2*b)*(2*b)*(2*b));
pc:=sqrt((3*c)*(2*c)*(2*c)*(2*c));
end;
begin
read(a,b,c);
geron(a,b,c);
ma:=max(max(pa,pb),pc);
if pa=ma then write(1,' ');
if pb=ma then write(2,' ');
if pc=ma then write(3,' ');
end.
1)var a,b,c,ma:real;
begin
read(a,b,c);
ma:=max(max(a,b),c);
if a=ma then write(1,' ');
if b=ma then write(2,' ');
if c=ma then write(3,' ');
end.
2)var a,b,c,pa,pb,pc,ma:real;
function geron(aa,bb,cc:real):real;
begin
pa:=sqrt((3*a)*(2*a)*(2*a)*(2*a));
pb:=sqrt((3*b)*(2*b)*(2*b)*(2*b));
pc:=sqrt((3*c)*(2*c)*(2*c)*(2*c));
end;
begin
read(a,b,c);
geron(a,b,c);
ma:=max(max(pa,pb),pc);
if pa=ma then write(1,' ');
if pb=ma then write(2,' ');
if pc=ma then write(3,' ');
end.
Автор ответа:
0
Функция по своему классическому определению возвращает результат. А если не возвращает, то это процедура.
Автор ответа:
0
Не зря Сишный синтаксис требует хотя бы void
Автор ответа:
0
Уникальная такая функция. Просто попросили через функцию. Но эта та же самая процедура
Автор ответа:
0
Ну и сделали бы функцию, возвращающую номер. А так Паскаль ругаться будет, хотя, конечно, выполнить можно и такое.
Автор ответа:
0
Хотя, Вам сейчас важнее сделать второе задание. Истечет время на исправление ответа - не можете потом добавить
Похожие вопросы
Предмет: Английский язык,
автор: mdass1972
Предмет: Українська мова,
автор: angelinagudzisevska
Предмет: Химия,
автор: platonprih
Предмет: Математика,
автор: alinashiroboko