Написать линейную программу на языке Паскаль для нахождения гипотенузы треугольника и реализовать её в среде Pascal ABC.NET
с=√а2 +b2(а и b в квадрате )
Ответы
Ответ дал:
0
var a,b,c:real;
begin
write('a = '); readln(a);
write('b = '); readln(b);
c:=sqrt(a*a+b*b);
writeln('c = ',c);
end.
Пример:
a = 3
b = 4
c = 5
begin
write('a = '); readln(a);
write('b = '); readln(b);
c:=sqrt(a*a+b*b);
writeln('c = ',c);
end.
Пример:
a = 3
b = 4
c = 5
Ответ дал:
0
Если есть проблемы с отображением, смотрите снимок ответа.
![program , hypotenuse; \
var , a,b,c , : , real; \
begin \
write('a= ,'); \
readln(a); \
write('b = ,'); \
readln(b);](https://tex.z-dn.net/?f=program+%2C+hypotenuse%3B++%5C+%0Avar+%2C+a%2Cb%2Cc+%2C+%3A+%2C+real%3B++%5C+%0Abegin+%5C+%0Awrite%28%27a%3D+%2C%27%29%3B+%5C+%0Areadln%28a%29%3B++%5C+%0Awrite%28%27b+%3D+%2C%27%29%3B+%5C+%0Areadln%28b%29%3B "program , hypotenuse; \
var , a,b,c , : , real; \
begin \
write('a= ,'); \
readln(a); \
write('b = ,'); \
readln(b);")
![c := ,sqrt(a*a + b*b); \
writeln('c=,',c); \
end.](https://tex.z-dn.net/?f=c+%3A%3D+%2Csqrt%28a%2Aa+%2B+b%2Ab%29%3B+%5C+%0Awriteln%28%27c%3D%2C%27%2Cc%29%3B+%5C+%0Aend. "c := ,sqrt(a*a + b*b); \
writeln('c=,',c); \
end.")
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
9 лет назад
10 лет назад