Pascal. для функции y=x(x-1)^2(x-2)^3 записать в массив в значение аргумента х на интервале [-0,3; 0,5] и найти минимум этой функции и соответствующее значение аргумента
var b: array[1..nm] of real; x, y, min: real; i, n, imin: integer;
begin n := trunc((a2 - a1) / h + 1); x := a1; min := 1e20; for i := 1 to n do begin b[i] := x; y := x * sqr(x - 1) * (x - 2) * sqr(x - 2); if min > y then begin imin := i; min := y end; x := a1 + i * h end; Writeln('Минимальное значение ', min, ' достигнуто при аргументе ', b[imin]) end.
Результат выполнения программы: Минимальное значение -0.746496 достигнуто при аргументе 0.2
Аналитическое решение показывает, что у функции имеется локальный минимум в точке x=(5-√13)/6≈0.2324081207; при этом функция принимает значение, приблизительно равное -0.7562371972, поэтому решение можно считать верным.
Program a10; var a,b:Array [1..100,1..100] of integer; k,i,n,j,s:integer; Begin read(n); For i:=1 to n do begin For j:=1 to n do begin read(a[i,j]); end; end; i:=0;j:=0;s:=0;k:=0; while i<=n do begin i:=i+1;j:=j+1; if(a[i,j]>0)then k:=k+1; s:=s+a[i,j]; end; writeln(k,' ',s); end. 2) Program a10; var a,b:Array [1..100,1..100] of real; k,i,n,m,j:integer; s:real; Begin read(n,m); For i:=1 to n do begin For j:=1 to m do begin read(a[i,j]); end; end; k:=0; for j:=1 to m do begin s:=0; for i:=1 to n do begin s:=s+a[i,j]; end; for i:=1 to n do begin if(a[i,j]>(s-a[i,j]))then k:=k+1; end; end; writeln(k); end.
Разница в объеме хранимой информации, сходство с записиСходства-одинаковые размеры (диаметр 120 мм, толщина 1.6 мм), тот же радужный вид. Принцип записи и чтения тоже аналогичный: лазерный луч отражается от металлизированной поверхности ("ямок" и "горок"), причем, отражение от любой поверхности кодирует ноль, а отражение от перехода между ямкой и горкой (при этом луч ослабляется за счет интерференции) - единицу На этом сходство заканчивается - дело в том, что в CD используется инфракрасный лазер (длина волны в воздухе 780 нм). В DVD же применяется красный лазер (650/635 нм). Меньшая длина волны позволяет плотнее размещать информацию на DVD-диске. Ёмкость DVD сильно превосходит обычный компакт-диск (640 Мб) и составляет 4.38 гигабайта (в смысле 2^30 байт) или 4.7 миллиарда байт, имеется в виду односторонний, однослойный DVD-диск
a1 = -0.3;
a2 = 0.5;
h = 0.1;
nm = 50;
var
b: array[1..nm] of real;
x, y, min: real;
i, n, imin: integer;
begin
n := trunc((a2 - a1) / h + 1);
x := a1; min := 1e20;
for i := 1 to n do
begin
b[i] := x;
y := x * sqr(x - 1) * (x - 2) * sqr(x - 2);
if min > y then begin imin := i; min := y end;
x := a1 + i * h
end;
Writeln('Минимальное значение ', min, ' достигнуто при аргументе ', b[imin])
end.
Результат выполнения программы:
Минимальное значение -0.746496 достигнуто при аргументе 0.2
Аналитическое решение показывает, что у функции имеется локальный минимум в точке x=(5-√13)/6≈0.2324081207; при этом функция принимает значение, приблизительно равное -0.7562371972, поэтому решение можно считать верным.