Каждый диск имеет размер кластера. Тоесть диск разделен на участки равного размера. В нашем случае размер кластера 4096 байт. Тоесть вся информация, которая меньше будет записана в один кластер, но память используется не вся.
{Файл prog1_13_3.pasЗадача: Даны значения трёх целочисленных переменных a, b, c. Переместить их значения так, чтобы переменная а получила бы исходное значение b, b получила бы значения c, а переменная c - значение a.Автор: Башмаков М. Д., ИТ-11Дата: 15,09,2015} var a, b, c, k: integer; begin k:=0; {Ввод} writeln('введите переменные a, b, c'); readln (a, b, c); {Перемещенние} k:=a; a:=b; b:=c; c:=k; {Вывод} writeln('а=',a,' b=',b, ' c=',c);end.
Program aaa; var A,B: array[1..4,1..4] of integer; i,j,x: byte;
begin randomize; //запускаем генератор случайных чисел
// формируем и одновременно выводим матрицу writeln ('Исходная матрица:'); for i:=1 to 4 do begin for j:=1 to 4 do begin A[i,j]:=random(-10,10); //рандомное значение ячейки матрицы write(A[i,j]:4) //вывод ячейки матрицы end; writeln; end;
//поворачиваем матрицу на 90 градусов for j:=1 to 4 do begin x:=0; for i:=4 downto 1 do begin x:=x+1; B[j,x]:=A[i,j] end end;
// выводим итоговую матрицу writeln; writeln ('Матрица, повернутая на 90 градусов:'); for i:=1 to 4 do begin for j:=1 to 4 do write(B[i,j]:4); writeln end