Написать программу(паскаль) 2. для заданного набора коэффициентов a, b, c, d найдите наименьшее значение функции y = a x3 + b x2 + cx + d и значение аргумента, при котором оно получено. значение х изменяется от 0 до 2 с шагом 0, 2.
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
Геннадьевич-Тимофеева158
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.
◘Объективность информации. Например: "На улице холодно" - это субъективная информация. А "На улице -14°" - объективная (но не всегда точная) ◘Достоверность информации. Ин-фа достоверна, если отражает истинное положение дел. (объективная информация всегда достоверна) ◘Полнота информации. Информация полная, если ее достаточно для понимания и принятия решения. ◘Точность информации. Определяется степенью ее близости к реальному состоянию объекта, процесса, явления и т.д. ◘Актуальность информации – важность для настоящего времени. ◘Полезность информации. - Самая ценная информация – объективная, достоверная, полная, и актуальная.
Mikhailovich_Viktoriya
26.06.2020
2) Все записи в базе данных имеют: Если здесь вопрос понимать "Все записи в таблице реляционной БД имеют", то ответ, скорее всего, d) Одинаковое количество полей
3) Укажите правильную последовательность действий при работе с базами данных (составить последовательность из букв): c) Продумать структуру базы данных d) Дать имя каждому полю в базе данных a) Занести данные в таблицу b) Осуществить сортировку записей в базе данных
4) Поиск информации– это: a) выбор информации по определённым правилам
5) Примером базы данных может служить: Скорее всего b) Телефонный справочник, хотя и c) Энциклопедия тоже может быть
6) В каком из перечисленных типов полей, данные могут выглядеть таким образом: Да или Нет ? b) В логическом поле
7) В какой из перечисленных пар данные относятся к одному типу? a) 12.04.98 и 01/02/99; - тип дата b) ДА и TRUE (ИСТИНА); - логический тип
8) База Данных содержит информацию о каждой собаке из клуба собаководства: кличка, порода, дата рождения, пол, количестве медалей. Какого типа должны быть поля? d) текстовое, текстовое, дата, текстовое, числовое;
Возможно, такие ответы. Хотя многие вопросы некорректны.
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