М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
nik7748
nik7748
26.06.2020 03:52 •  Информатика

Написать программу(паскаль) 2. для заданного набора коэффициентов a, b, c, d найдите наименьшее значение функции y = a x3 + b x2 + cx + d и значение аргумента, при котором оно получено. значение х изменяется от 0 до 2 с шагом 0,2.

👇
Ответ:
Vollver
Vollver
26.06.2020
Var a,b,c,d,x,Min:real;
Begin
WriteLn('f(x) = ax^3 +bx^2 +cx +d');
Write('a = ');ReadLn(a);
Write('b = ');ReadLn(b);
Write('c = ');ReadLn(c);
Min:=0;
x:=0;
Repeat
if Min*(a*Min*Min+b*Min+c) > x*(a*x*x+b*x+c) then Min:=x;
x:=x+0.2;
Until x>2;
Write('d = ');ReadLn(d);
WriteLn('Min(f) = f(',Min,') = ',Min*(a*Min*Min+b*Min+c)+d)
End.

Пример работы программы:

f(x) = ax^3 +bx^2 +cx +d
a = 15
b = -17
c = -70
d = 0
Min(f) = f(1.6) = -94.08
4,5(39 оценок)
Ответ:
mariberrr
mariberrr
26.06.2020
Var a,b,c,d,x,y,h,minx,miny:real; i:integer;
begin
writeln('a, b, c, d:');
readln(a,b,c,d);
h:=0.2;
x:=0; y:=a*x*x*x+b*x*x+c*x+d;
writeln(x:2:1,' ',y:5:2);
minx:=0; miny:=y;
for i:=1 to round((2-0)/h)+1 do
 begin
 x:=x+h;
 y:=a*x*x*x+b*x*x+c*x+d;
 writeln(x:2:1,' ',y:5:2);
 if y<miny then begin minx:=x; miny:=y; end;
 end;
writeln('min = y(',minx:2:1,') = ',miny:5:2);
end.

Пример:
a, b, c, d:
3 2 -1 4
0.0  4.00
0.2  3.90
0.4  4.11
0.6  4.77
0.8  6.02
1.0  8.00
1.2 10.86
1.4 14.75
1.6 19.81
1.8 26.18
2.0 34.00
2.2 43.42
min = y(0.2) =  3.90
4,4(59 оценок)
Открыть все ответы
Ответ:
4245788
4245788
26.06.2020

Объяснение:

1) #include <iostream>

using namespace std;

int main(){

int f;

cin >> f;

if(f == 1)

cout << "Мизинец";

else if(f == 2)

cout << "Безымянный";

else if(f == 3)

cout << "Средний";

else if(f == 4)

cout << "Указательный";

else if(f == 5)

cout << "Большой";

if(f == 10)

cout << "Мизинец";

else if(f == 9)

cout << "Безымянный";

else if(f == 8)

cout << "Средний";

else if(f == 7)

cout << "Указательный";

else if(f == 6)

cout << "Большой";

else if(f > 10)

cout << "Такого нет";

}

2)

#include <iostream>

using namespace std;

int main(){

int x1,x2,s;

cin >> x1 >> x2;

if(x1 * x2 == s)

cout << "Верно"

else

cout << "Неверно"

}

3)

#include <iostream>

using namespace std;

int main(){

bool x = false;

int year;

cin >> year;

if(year % 4 == 0)

cout << "Високосный";

else if(year % 100 == 0){

if(year % 400 = 0)

cout << "Високосный";

else

cout << "Обычный";

else << "Обычный"

}

}

4,8(95 оценок)
Ответ:
anastasiya2905
anastasiya2905
26.06.2020

{$CODEPAGE UTF8}

program QuadraticEquation;

var

a, b, c, x1, x2, discriminant : real;

begin

{ввыод данных}

write('a = ');

readln(a);

write('b = ');

readln(b);

write('c = ');

readln(c);

{дискриминант}

discriminant := sqr(b) - 4 * a * c;

if discriminant < 0 then

writeln('Квадратное уравнение не имеет корней')

else

begin

if discriminant = 0 then

begin

{квадратное уравнение имеет два одинаковых корня}

x1 := -b / (2 * a);

x2 := x1;

end

else

begin

{уравнение имеет два разных корня}

x1 := (-b + sqrt(discriminant)) / (2 * a);

x2 := (-b - sqrt(discriminant)) / (2 * a);

end;

{вывод корней уравнения}

writeln('x1 = ', x1:8:3);

writeln('x2 = ', x2:8:3);

end;

writeln('Press Enter to Exit...');

readln;

end.

Объяснение:

Программа для решения квадратного уравнения на языке программирования Паскаль

В (Lazarus)(не реклама) Лутьше попробуй это вбить .Те создаст калькулятор и ты сможешь посчитать.

4,4(54 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ