Предмет: Информатика,
автор: devil48
Написать линейную программу на языке Паскаль для нахождения гипотенузы треугольника и реализовать её в среде 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.")
Интересные вопросы
Предмет: Қазақ тiлi,
автор: aruzhan2008a
Предмет: История,
автор: Аноним
Предмет: Литература,
автор: ivanurgant
Предмет: Математика,
автор: alina2003Em
Предмет: Литература,
автор: detkorshik