Вывести график функции sin(180-cos(x)) в паскале пример: uses graphabc; var i, x, y, s, c: integer; begin setwindowwidth (720); setwindowheight (720); line (0,360,720,360); line (360,0,360,720); x: =0; y: =360; for i: =1 to 720 do begin if (y> =0) and (y< 720) then setpixel
(x,y,clblue); x: =1+x; s: =(0-round(sin(x/180*3.1415926532)*100)); c: =(0-round(cos(x/180*3.1415926532)*100)); y: =-round((c*c*c+s*s*s)/10000)+360; end; end.
Const n=4;
m=3;
Var A:array[1..n,1..m] of integer;
B,jd,id:array[1..n] of integer;
i,j,k,min,ii,jj:integer;
BEGIN
For i:=1 to n do
begin
For j:=1 to m do
begin
A[i,j]:=2+Random(8);
Write(A[i,j],' ');
end;
Writeln;
end;
Writeln; ii:=1;
For i:=1 to n do
begin
min:=1000;
for j:=1 to m do
begin
jj:=1;
If A[i,j]<=min then
begin
min:=A[i,j];
id[i]:=i;
jd[i]:=j;
end;
end;
B[i]:=min;
end;
For i:=1 to n do
begin
Writeln('Min: ',B[i],'. Строка: ',id[i],'; Столбец: ',jd[i],';');
end;
END.
Виды файловой структуры: 1) Одноуровневая ФС - линейная последовательность имен файлов, используется для дисков с небольшим количеством файлов; 2) Многоуровневая иерархическая ФС - представляет собой древовидную структуру, служит для хранения сотни и тысячи файлов. Каталог (Папка) верхнего уровня содержит вложенные папки 1уровня, которые могут содержать папки 2 уровня и тд
Для хранения информации каждый диск разбивается на 2 области: 1) каталог (directory) или папка - содержит названия файлов и указание на начало их размещения на диске; 2) область хранения файлов, содержит текст.
У меня многоуровневая файловая система.