<span>Диспе́рсия све́та (разложение света) — это явление зависимости абсолютного показателя преломления вещества от длины волны света (частотная дисперсия) , а также, от координаты (пространственная дисперсия) , или, что то же самое, зависимость фазовой скорости света в веществе от длины волны (или частоты) . Экспериментально открыта Ньютоном около 1672 года, хотя теоретически достаточно хорошо объяснена значительно позднее. </span>
Var
X:integer;
Begin
WriteLn('X Sin(X) Cos(X)');
For X:= 0 to 10 do
WriteLn((X/10):0:4,' ',Sin(X/10):0:4,' ',Cos(X/10):0:4);
End.
K изначально равна нулю, цикл проверяет каждый элемент массива, если он больше К, то К присваивается этот элемент. То есть К - максимальный элемент массива. Переменная N нас не волнует, т.к. выводится на экран K.
Максимальный элемент в этом массиве равен 50, и ответ 50.
Program filework;
var f:text;
i, n, count:integer;
l:string;
arr:array of real;
answ:real;
begin
assign(f, 'C:\Users\HO4HOU_TTaPKuPucT\Desktop\test_file.txt'); // В кавычках путь к файлу
reset(f);
while not eof(f) do begin
readln(f, l);
if StrToFloat(l) > 0 then
Inc(count);
end;
SetLength(arr, count);
reset(f);
i:=0;
while not eof(f) do begin
readln(f, l);
if StrToFloat(l) > 0 then begin
arr[i]:=StrToFloat(l);
Inc(i);
end;
end;
answ:=arr[0];
for i:=1 to arr.Length - 1 do
if arr[i] < answ then answ:=arr[i];
writeln(answ);
close(f);
end.
P.S. Программа работает с неограниченным числом положительных чисел в файле
Вот на Pascal NET,только желтые точки будет почти не видно
uses GraphABC;
begin
//Левый верхний угол
PutPixel(1,1,clYellow);
//Левый нижний угол
PutPixel(1,WindowHeight-1,clYellow);
//Правый верхний угол
PutPixel(WindowWidth-1,1,clYellow);
//Правый нижний угол
PutPixel(WindowWidth-1,WindowHeight-1,clYellow);
<span>end.</span>