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