1. Какова область применения накопителей с шаговым приводом?
11. Большая емкость диска
12. Малая емкость диска
2.Если число пар полюсов ротора и статора шагового двигателя увеличить, что
измениться?
21. Увеличиться плотность записи цилиндров
22. Увеличиться плотность записи секторов
3.Какую информацию сообщает контроллер диска в сервосистему?
31. Номер нужного цилиндра
Номер нужного сектора
34. Номер текущего цилиндра
32.
4. Когда сигнал рассогласования становится равным нулю?
41. Когда сервосистема нашла нужный цилиндр
42. Когда на первый вход схемы сравнения подан код 0-цилиндра
43. Когда на второй вход схемы сравнения подан код 0-цилиндра
5. В каком случае сигнал обратной связи будет более достоверным?
51. Сервосистема встроенная
52. Сервосистема с выделенным диском
6. Какая сервосистема будет целесообразнее для файл-сервера?
61. Клиновая
62. С выделенным диском
7. Как изменится время позиционирования, если клиновую сервосистему заменить на
встроенную?
71. Увеличится
72 уменьшится
var x: array[1..nx, 1..nx] of integer;z:array[1..nx*2] of integer;
i, j, k,n,r,t: integer;
begin
Writeln('Введите размер матрицы n');Read(n);
for i := 1 to n do begin
for j := 1 to n do begin
Read(k);x[i, j] := k; end;end;
Writeln('Исходный массив');
for i := 1 to n do begin
for j := 1 to n do begin
Write(x[i, j]:4);
if x[i, j]>0 then begin t:=t+1; z[t]:=x[i, j];end;
end;
Writeln; end;
Writeln;Writeln('Одномерный массив');
for j := 1 to t do
Write(z[j]:4);
end.
begin
var n:=ReadInteger('Количество элементов в массиве: ');
var a:=ArrRandom(n,-50,50);
a.Println(',');
Writeln('Четные элементы: ');
var i:=1;
while i<n do begin Write(a[i],' '); Inc(i,2) end;
Writeln;
Writeln('Нечетные элементы: ');
i:=0;
while i<n-1 do begin Write(a[i],' '); Inc(i,2) end;
Writeln
end.
Тестовое решение:
Количество элементов в массиве: 10
15,-18,-29,-25,46,21,-8,-17,-9,15
Четные элементы:
-18 -25 21 -17 15
Нечетные элементы:
15 -29 46 -8 -9