X:=A*(b-sqrt(A-power(b,5)));
Y:=(sin(c*X/2)+exp(x))/(1+power(x,1/3));
Z:=Ln(1+sin(X)*sin(X));
Проверка X≠0:
1. if (abs(X)>1E-10) then… //, если X –real(дробное)
2. if (X >0) then… //, если X –integer;
Пример реализации разветвления на языке Pascal
Полная конструкция оператора if
2. Неполная конструкция оператора if -отсутствует else -«пустая»ветка (-)
|