Помогите с Pascal дам симпу

GGwpMaster

Местный
Регистрация
03.08.18
Сообщения
78
Симпатии
27
Автор темы #1
Приветствую, помогите с этим примером пожалуйста, Нужна написать прогу в Pascal
- ссылка на пример для проги
 

fobas22

Местный
Регистрация
27.04.18
Сообщения
53
Симпатии
37
#2
Поздновато как то к 26 сентября такой простой пример спрашивать по меркам программы заведения... сейчас напишу. Для начала скажи какое значение икса использовать для проверки и какой ответ должен получиться?
 

GGwpMaster

Местный
Регистрация
03.08.18
Сообщения
78
Симпатии
27
Автор темы #3
Поздновато как то к 26 сентября такой простой пример спрашивать по меркам программы заведения... сейчас напишу. Для начала скажи какое значение икса использовать для проверки и какой ответ должен получиться?
Если честно хз, напиши какой хочеш
 

fobas22

Местный
Регистрация
27.04.18
Сообщения
53
Симпатии
37
#4
Если честно хз, напиши какой хочеш
Если честно хз, напиши какой хочеш
без проверки нельзя быть уверенным, что написал код корректно, ну да ладно.

program lab1;
var
x, p, z, c: real;
begin
writeln('Лаб.1':40);
writeln('Введите значение х:');
readln(x);
z:= exp(5/1*(sin(exp(7/1*(sqrt(abs(x))+exp(3/1*(cos(exp(6/1*(sqr(x)+5.4))))))))));
c:= -arctan(exp(sqrt(x))+exp(37/10*(5.8)));
p:= z + c;
writeln('Решение:');
writeln(p);
end.
 

GGwpMaster

Местный
Регистрация
03.08.18
Сообщения
78
Симпатии
27
Автор темы #5
без проверки нельзя быть уверенным, что написал код корректно, ну да ладно.

program lab1;
var
x, p, z, c: real;
begin
writeln('Лаб.1':40);
writeln('Введите значение х:');
readln(x);
z:= exp(5/1*(sin(exp(7/1*(sqrt(abs(x))+exp(3/1*(cos(exp(6/1*(sqr(x)+5.4))))))))));
c:= -arctan(exp(sqrt(x))+exp(37/10*(5.8)));
p:= z + c;
writeln('Решение:');
writeln(p);
end.
Спасибо
 
Сверху Снизу