Ответы Mail
Программирование
Android
C/C++
C#
iOS
Java
JavaScript
jQuery
SQL
Perl
PHP
Python
Веб-дизайн
Верстка, CSS, HTML, SVG
Системное администрирование
Другие языки и технологии
Лидеры категории
Лена-пена
М.И.
Y.Nine
•••
Искусственный Интеллект
Искусственный Интеллект
Искусственный Интеллект
задача в Паскаль! Составить программу вычисления значения функции z,
Nana Hinoo
(66),
закрыт
5 лет назад
Лучший ответ
Victor Surozhtsev
(35680)
5 лет назад
program funkcija; var a,b,c,m,n,k,z:real;
function r(x,y,z:real):real; begin r:=sqrt(x*x+y*y+z*z) end;
begin while true do begin write('a b c m n k > '); readln(a,b,c,m,n,k); if ((m=0) and (n=0) and (k=0)) then writeln('Ноль в знаменателе!') else begin z:=r(a,b,c)/r(m,n,k); writeln(z:0:15) end end end.
function r(x,y,z:real):real; begin r:=sqrt(x*x+y*y+z*z) end;
begin while true do begin write('a b c m n k > '); readln(a,b,c,m,n,k); if ((m=0) and (n=0) and (k=0)) then writeln('Ноль в знаменателе!') else begin z:=r(a,b,c)/r(m,n,k); writeln(z:0:15) end end end.
Остальные ответы
Похожие вопросы
Вид вычисляемых функций z, операторов - функций или подпрограмм - функций. Формат на выбор:
а) FUNCTION
б) PROCEDURE.
все равно какой выберете