Лучшие помощники
- Megamozg 2200 б
- Matalya1 1800 б
- DevAdmin 1700 б
- arkasha_bortnikov 890 б
- Dwayne_Johnson 860 б
26 декабря 2022 08:36
932
Помогите составить программу. Язык 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-х чисел.для "паскаль"...
Помогите, пожалуйста : Укажите, сколько раз будет выполнен цикл for i :=-1 to 2 do a:=a+1; а) 2 б)бесконечно в)0 г)3 д)4...
Информацию, существенную и важную в настоящий момент, называют: а) полезной б) актуальной в) достоверной г) объективной Известно, что наибольший...
Как перевести байты в биты?...
C++ Удалить елемент из массива Нужно ввести элементы (цифры) в массив и вывести этот массив, а затем выбрать элемент который нужно удалить и вывести м...
Все предметы