Лучшие помощники
- Megamozg 2180 б
- Matalya1 1800 б
- DevAdmin 1690 б
- arkasha_bortnikov 840 б
- Dwayne_Johnson 840 б
26 декабря 2022 08:36
910
Помогите составить программу. Язык 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
Остались вопросы?
Еще вопросы по категории Информатика
Лабораторная работа №8.
Создание базы данных
1. Закладка ТАБЛИЦЫ, СОЗДАНИЕ ТАБЛИЦЫ В КОНСТРУКТОРЕ.
Имена полей Типы
данных...
На компакт диске объемом 600 Мбайт размещён фотоальбом , каждое фото в котором занимает 500 Кбайт. Сколько времени займёт просмотр всех фотографий , е...
в одной из кодировок юникод каждый символ кодируется 16 битами Вова написал текст: (в нем нет лишних пробелов):бор, азот, гелий, натрий, водород-химич...
Помогите !СРОЧНО!дано дерево каталогов. назовите полное имя файла Doc3...
На компакт диске объемом 600 Мбайт размещён фотоальбом , каждое фото в котором занимает 500 Кбайт. Сколько времени займёт просмотр всех фотографий , е...
Все предметы