Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
26 декабря 2022 08:36
1033
Помогите составить программу. Язык 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
Остались вопросы?
Еще вопросы по категории Информатика
2. Какие типы ПК вы можете назвать? Укажите основные дос- тоинства и недостатки ПК разных типов ...
На рисунке изображена схема дорог Н-ского района, кроме графа, представлена информация о протяженности дорог в виде таблицы. Таблицу и граф создавали...
Помогите расшифровать двоичный код, пожалуйста: 10010111 10000000 10010010...
У исполнителя Вычислитель две команды, которым присвоены номера: 1 — прибавь 5; 2 — умножь на 3. Первая из них увеличивает число на 5, вторая увели...
Друзья решили зашифровать сообщения из английских букв, записывая вместо каждой буквы её номер в алфави- те (без пробелов). Номера букв даны в таблиц...