
Алексей
6 год назад
Помогите записать выражения на языке Pascal и вычислить их с помощью ABC Pascal

ОТВЕТЫ

Ipatovich
Jul 3, 2019
Begin
writeln(1: ,(sqrt(10)+1)/(6.25-1.8*1.8));
writeln(2: ,sin(5)/cos(5)*10*sqrt(19));
writeln(3: ,100*sin(4));
writeln(4: ,sin(cos(1))/0.25);
writeln(5: ,exp(sin(3))*ln(2));
writeln(6: ,sqrt(sqrt(5)+sqrt(6)));
writeln(7: ,(sqrt(3)+2*sqrt(2))/sqrt(sqrt(5)));
writeln(8: ,(exp(sin(3))*ln(2)+exp(sin(2))*ln(2))/(exp(2.4)*ln(4)+1));
end.
Результат:
1: 1.38281649839481
2: -147.353232893516
3: -75.6802495307928
4: 2.0575810340942
5: 0.798202533367663
6: 2.16461491269994
7: 3.04977540329462
8: 0.0980510445730408
writeln(1: ,(sqrt(10)+1)/(6.25-1.8*1.8));
writeln(2: ,sin(5)/cos(5)*10*sqrt(19));
writeln(3: ,100*sin(4));
writeln(4: ,sin(cos(1))/0.25);
writeln(5: ,exp(sin(3))*ln(2));
writeln(6: ,sqrt(sqrt(5)+sqrt(6)));
writeln(7: ,(sqrt(3)+2*sqrt(2))/sqrt(sqrt(5)));
writeln(8: ,(exp(sin(3))*ln(2)+exp(sin(2))*ln(2))/(exp(2.4)*ln(4)+1));
end.
Результат:
1: 1.38281649839481
2: -147.353232893516
3: -75.6802495307928
4: 2.0575810340942
5: 0.798202533367663
6: 2.16461491269994
7: 3.04977540329462
8: 0.0980510445730408
129
Смежные вопросы: