Предмет: Информатика,
автор: TequilaSunrise
Помогите, пожалуйста, буду очень благодарна ♥️ (pascal)
Приложения:

Ответы
Автор ответа:
1
var
i:integer;
a,b,h,s: double;
Begin
writeln('Что известно?');
writeln('1 - катет');
writeln('2 - гипотенуза');
writeln('3 - высота');
writeln('4 - площадь');
write('Ваш выбор: ');
read(i);
case i of
1:begin
write('Значение катета = ');
read(a);
s:=a*a*2;
h:=sqrt(s);
b:= 2*h;
end;
2:begin
write('Значение гипотенузы = ');
read(b);
h:=b/2;
s:=h*h;
a:=sqrt(2*s);
end;
3:begin
write('Значение высоты = ');
read(h);
b:=2*h;
s:=h*h;
a:=sqrt(2*s);
end;
4:begin
write('Значение площади = ');
read(a);
h:=sqrt(s);
b:=2*h;
a:=sqrt(2*s);
end;
end;
writeln(' Катет a = ',a);
writeln(' Гипотенуза b = ',b);
writeln(' Высота h = ',h);
writeln(' Площадь s = ',s);
End.
i:integer;
a,b,h,s: double;
Begin
writeln('Что известно?');
writeln('1 - катет');
writeln('2 - гипотенуза');
writeln('3 - высота');
writeln('4 - площадь');
write('Ваш выбор: ');
read(i);
case i of
1:begin
write('Значение катета = ');
read(a);
s:=a*a*2;
h:=sqrt(s);
b:= 2*h;
end;
2:begin
write('Значение гипотенузы = ');
read(b);
h:=b/2;
s:=h*h;
a:=sqrt(2*s);
end;
3:begin
write('Значение высоты = ');
read(h);
b:=2*h;
s:=h*h;
a:=sqrt(2*s);
end;
4:begin
write('Значение площади = ');
read(a);
h:=sqrt(s);
b:=2*h;
a:=sqrt(2*s);
end;
end;
writeln(' Катет a = ',a);
writeln(' Гипотенуза b = ',b);
writeln(' Высота h = ',h);
writeln(' Площадь s = ',s);
End.
Автор ответа:
1
// равнобедренный прямоугольный треугольник
// a - катет, b - гипотенуза, h - высота, S - площадь
var a,b,h,S: real;
ch: char;
begin
write('задайте элемент треугольника: a,b,h или S: ');
readln(ch);
if ch='a' then
begin
write('a = '); readln(a);
end;
if ch='b' then
begin
write('b = '); readln(b);
a:=sqrt(sqr(b)/2);
end;
if ch='h' then
begin
write('h = '); readln(h);
a:=h*sqrt(2);
end;
if ch='S' then
begin
write('S = '); readln(S);
a:=sqrt(2*S);
end;
if b=0 then b:=sqrt(2*sqr(a));
if h=0 then h:=a*sqrt(2)/2;
if S=0 then S:=a*a/2;
writeln('элементы прямоугольного равнобедренного треугольника');
writeln('катет a: ',a:5:3);
writeln('гипотенуза b: ',b:5:3);
writeln('высота h: ',h:5:3);
writeln('площадь S: ',S:5:3);
end.
задайте элемент треугольника: a,b,h или S: a
a = 4
элементы прямоугольного равнобедренного треугольника
катет a: 4.000
гипотенуза b: 5.657
высота h: 2.828
площадь S: 8.000
задайте элемент треугольника: a,b,h или S: h
h = 3
элементы прямоугольного равнобедренного треугольника
катет a: 4.243
гипотенуза b: 6.000
высота h: 3.000
площадь S: 9.000
// a - катет, b - гипотенуза, h - высота, S - площадь
var a,b,h,S: real;
ch: char;
begin
write('задайте элемент треугольника: a,b,h или S: ');
readln(ch);
if ch='a' then
begin
write('a = '); readln(a);
end;
if ch='b' then
begin
write('b = '); readln(b);
a:=sqrt(sqr(b)/2);
end;
if ch='h' then
begin
write('h = '); readln(h);
a:=h*sqrt(2);
end;
if ch='S' then
begin
write('S = '); readln(S);
a:=sqrt(2*S);
end;
if b=0 then b:=sqrt(2*sqr(a));
if h=0 then h:=a*sqrt(2)/2;
if S=0 then S:=a*a/2;
writeln('элементы прямоугольного равнобедренного треугольника');
writeln('катет a: ',a:5:3);
writeln('гипотенуза b: ',b:5:3);
writeln('высота h: ',h:5:3);
writeln('площадь S: ',S:5:3);
end.
задайте элемент треугольника: a,b,h или S: a
a = 4
элементы прямоугольного равнобедренного треугольника
катет a: 4.000
гипотенуза b: 5.657
высота h: 2.828
площадь S: 8.000
задайте элемент треугольника: a,b,h или S: h
h = 3
элементы прямоугольного равнобедренного треугольника
катет a: 4.243
гипотенуза b: 6.000
высота h: 3.000
площадь S: 9.000
Похожие вопросы
Предмет: Литература,
автор: dangerpops
Предмет: Физика,
автор: fatimabegidoba
Предмет: Литература,
автор: 1cka3ka1
Предмет: Алгебра,
автор: dmitriy255