Question

Мне надо решить задачу с помощью Pascal, как? Можно в подробностях.

program b28;
uses crt;
var

x,a,b,c,z,d,f, t0, t1, t2: real;

begin

writeln ('Введите x,a,b,c,z,d,f');

readln(x,a,b,c);

t0:=cos(x)/sin(x);

t1:=t-x*y*z;

t2:=(a*sqr(x)+b*x+c)/(d*x*x*x-f);

t:=t1+t2;

writeln(t);

end.

e^x-y^2+12xy-3x^2/18y-1 --Вот этот пример решить с помощью паскаля.

Answer 1

Вот программа:

program b28;

//uses crt;

var

x,y,r: real;

begin

writeln('Введите x,y');

readln(x,y);

r:=exp(x)-y*y+12*x*y-3*x*x/(18*y)-1;

writeln(r);

end.

Это если понимать ваш "пример" вот так:

$e^x-y^2+12xy-\frac{3x^2}{18y}-1$

А если вы имели ввиду, что всё это одна большая дробь:

$\frac{e^x-y^2+12xy-3x^2}{18y-1}$

то надо было проставить скобки, заключив в них числитель и знаменатель дроби, чтобы выражение можно было понять правильно. И в строке программы с вычислением- скобки тоже нужно изменить соответствующим образом, вот так:

r:=(exp(x)-y*y+12*x*y-3*x*x)/(18*y-1);

Если дробь была не такая, то выделите сами скобками её числитель и знаменатель в расчёте в программе.

А теперь в подробностях:

program b28;  -здесь можно задать имя программы (тут имя это b28), но это не обязательно, и если от вас не требуют задавать имя, то эту строку можно удалить

//uses crt;  -подключает модуль для работы с консолью (сомневаюсь, что вам оно нужно, поэтому заблокировал пока (поставил две наклонные черты, после них всё в строке является просто комментарием и программой не выполняется), думаю эту строку вполне можно удалить

var  -ключевое слово, с которого начинается раздел с описанием переменных

x,y,r: real;  -а вот и описание переменных, все три- тип "real" (вещественные, то есть могут содержать дробные числа, да хотя и целые тоже могут содержать)

begin  -начало блока, в данном случае с операторами основной программы

writeln('Введите x,y');  -вывод на экран текста с приглашением ввести значения для двух переменных (икс и игрек)

readln(x,y);  -ввод значений для двух переменных (икс и игрек)

r:=exp(x)-y*y+12*x*y-3*x*x/(18*y)-1;  -рассчитывается значение нашего выражения, и результат помещается в переменную r

writeln(r);  -вывод на экран значения переменной r

end.  -конец блока с операторами основной программы