Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
26 декабря 2022 08:36
1013
Помогите составить программу. Язык Pascal. 1.Составить программу вычисления значения функции. z = (x^3) - 2.5xy + (1.78*x^2) - 12.5*y + 1 При любых значениях x и y 2. Составить программу вычисление значения функции x = 3,56((a+b)^3) - (5,8*b^2) + 3,8*a - 1,5 Прилюбых значениях a и b
1
ответ
Program zxy;
uses crt;
var z,x,y:real;
begin
writeln('Vvedite x,y');
readln(x,y);
z:=(x*x*x)-(2.5*x*y) +(1.78*x*x)-(12.5*y)+1;
writeln('z=',z);
end.
program abx;
uses crt;
var a,b,x:real;
begin
writeln('Vvedite a,b');
readln(a,b);
x:=(3.56*(a*a*a+3*a*a*b+3*a*b*b+b*b*b))-(5.8*b*b) +3.8*a-1.5;
writeln('x=',x);
end.
uses crt;
var z,x,y:real;
begin
writeln('Vvedite x,y');
readln(x,y);
z:=(x*x*x)-(2.5*x*y) +(1.78*x*x)-(12.5*y)+1;
writeln('z=',z);
end.
program abx;
uses crt;
var a,b,x:real;
begin
writeln('Vvedite a,b');
readln(a,b);
x:=(3.56*(a*a*a+3*a*a*b+3*a*b*b+b*b*b))-(5.8*b*b) +3.8*a-1.5;
writeln('x=',x);
end.
0
·
Хороший ответ
28 декабря 2022 08:36
Остались вопросы?
Еще вопросы по категории Информатика
Задание 3 Решите задачу: матричный принтер имеет скорость печати 512 бит в секунду. Сколько времени нужно затратить на рас-печатку 10 страниц, если ка...
ПЗУ-это память в которой хранится ?...
Какие типы данных вы знаете...
Помогите расшифровать двоичный код, пожалуйста: 10010111 10000000 10010010...
Каждый переданный кодовый символ может принят ошибочно с фиксированным вероятностью P Решать задачку по этой формуле P(zj/Uk) = P/N-1 при j≠k I-p при...