Помогите, пожалуйста, буду очень благодарна ♥️ (pascal)
Answers & Comments
HomoNovus
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.
1 votes Thanks 1
srzontmp
// равнобедренный прямоугольный треугольник // 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
Answers & Comments
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.
// 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