Школьный журнал содержит информацию о 28 учениках. в среднем на каждого ученика занесено по 900 символов. сколько потребуется дискет ёмкостью 750 кб для записи в электроном виде журналов всех трех одиннадцатых классов ?
1 символ занимает 1 байт информации. Дискета ёмкостью 750*1024=768000 байт. 28 учеников и 900 символов на каждого, это 28*900=25200 байт. Нас спрашивают про учеников 3 классов: 25200*3=75600 байт. Подытожим: У нас дискета вмещает информации на 760 000 байт, а вся информация об учениках занимает 75 600 байт. Делаем простой вывод: нам будет достаточно 1 дискеты.
procedure MassivSort(var arr : array of Real; const N : Integer);var I: Integer; J: Integer; K: Integer; M: Real;begin for i:=1 to N do begin m:=Arr[i-1]; k:=i; for j:=i to n do begin if m>Arr[j-1] then begin m:=Arr[j-1]; k:=j; end; end; Arr[k-1]:=Arr[i-1]; Arr[i-1]:=m; end;end;
Сортировка по убыванию:
procedure sort; var i , j , tmp : integer; begin for i := 1 to n - 1 do for j := i + 1 to n do if a[i] < a[j] then begin tmp := a[i]; a[i] := a[j]; a[j] := tmp; end;
28 учеников и 900 символов на каждого, это 28*900=25200 байт. Нас спрашивают про учеников 3 классов: 25200*3=75600 байт.
Подытожим: У нас дискета вмещает информации на 760 000 байт, а вся информация об учениках занимает 75 600 байт. Делаем простой вывод: нам будет достаточно 1 дискеты.