// PascalABC.NET 3.2, сборка 1389 от 01.03.2017 // Внимание! Если программа не работает, обновите версию!
begin var F:real->real:=x->2*x*x-6*x+8; var a,b:real; Write('a b= '); Read(a,b); Writeln('Min=',Range(a,b,9).Select(x->F(x)).Min) end.
Пример a b= -2 6 Min=3.50617283950617
2. Решение "по-школьному" ("дедушкин метод")
function F(x:real):real; begin F:=2*x*x-6*x+8 end;
var a,b,y,h,min:real; i:integer; begin Write('a b= '); Read(a,b); h:=(b-a)/9; min:=F(a); for i:= 1 to 9 do begin y:=F(a+i*h); if y<min then min:=y end; Writeln('Min=',min) end.
Программы из 5 команд и результаты их выполнения: 11111: 7^5 * 2^5 = 16807 * 32 = 537824 11112: 7^5 / 7 * 2^4 = 2401 * 2^4 = 38416 11122: 7^5 / 7^2 * 2^3 = 343 * 8 = 2744 11222: 7^5 / 7^3 * 2^2 = 49 * 4 = 196 12222: 7^5 / 7^4 * 2 = 7 * 2 = 14 22222: 7^5 / 7^5 = 1 (Сами числа вычислять не обязательно) Все другие программы будут давать в результате одно из перечисленных выше значений. Например, результат программы 12121 = результату программы 11122: 7^5 * 2 / 7 * 2 / 7 * 2 = 7^5 / 7^2 * 2^3 ответ: количество различных чисел = 6
// PascalABC.NET 3.2, сборка 1389 от 01.03.2017
// Внимание! Если программа не работает, обновите версию!
begin
var F:real->real:=x->2*x*x-6*x+8;
var a,b:real;
Write('a b= '); Read(a,b);
Writeln('Min=',Range(a,b,9).Select(x->F(x)).Min)
end.
Пример
a b= -2 6
Min=3.50617283950617
2. Решение "по-школьному" ("дедушкин метод")
function F(x:real):real;
begin
F:=2*x*x-6*x+8
end;
var
a,b,y,h,min:real;
i:integer;
begin
Write('a b= '); Read(a,b);
h:=(b-a)/9;
min:=F(a);
for i:= 1 to 9 do begin
y:=F(a+i*h);
if y<min then min:=y
end;
Writeln('Min=',min)
end.
Пример
a b= -2 6
Min=3.50617283950617