Const n=10;
var a:array [1..n] of real;
i,k:integer;
b,min,s:real;
begin
for i:=1 to n do begin
a[i]:=21*random-10;
if a[i]=0 then k:=k+1;
write (a[i]:6:2);
end;
writeln;
writeln ('нулевых элементов ',k);
min:=a[1];
for i:=1 to n do
if a[i]<min then begin
k:=i;
min:=a[i];
end;
for i:=k+1 to n do
s:=s+a[i];
writeln('сумма после минимального = ',s:5:2);
for k:=1 to n do
for i:=1 to n-1 do
if abs(a[i])>abs(a[i+1]) then begin
b:=a[i];
a[i]:=a[i+1];
a[i+1]:=b;
end;
for i:=1 to n do
write (a[i]:6:2);
end.
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<u>//№7</u>
begin
var (s,k,p):=(0,0,BigInteger(1));
var n:integer;
repeat
n:=ReadInteger;
s+=n; p*=n; k+=1;
until s>200;
Writeln('Кол-во= ',k,', S=',s,' П= ',p,', Ср.арифм= ',s/k)
end.
<u>Пример</u>
56
-231
220
118
-52
31
45
110
Кол-во= 8, S=297 П= 2679630617664000, Ср.арифм= 37.125
<u>//№8</u>
begin
var n:=Abs(ReadlnInteger('n='));
var x:=ReadlnInteger('Введите цифру');
var k:=0;
while n>0 do begin
var d:=n mod 10;
if d=x then k+=1;
n:=n div 10
end;
Writeln('Цифра ',x,' встретилась ',k,' раз(а)')
end.
<u>Пример</u>
n= 1235361212
Введите цифру 2
Цифра 2 встретилась 3 раз(а)
<u>//№9</u>
begin
var (a,b):=ReadInteger2('Введите a и b:');
for var i:=a to b do
if i.IsEven and (i mod 7<>0) then begin
var j:=Sqr(BigInteger(i));
Writeln(i:10,j:19,i*j:28)
end
end.
<u>Примеры</u>
Введите a и b: 123456789 123456796
123456790 15241578997104100 1881676417513891481839000
123456792 15241579490931264 1881676508963366945945088
123456794 15241579984758436 1881676600412845373014184
123456796 15241580478585616 1881676691862326763046336
Введите a и b: 6 20
6 36 216
8 64 512
10 100 1000
12 144 1728
16 256 4096
18 324 5832
20 400 8000
Вот как то так материнской плате шина может также состоять из множества параллельно идущих через всех потребителей данных проводников (например в архитектуре IBM PC). Основной характеристикой шины данных является её ширина в битах. Ширина шины данных определяет количество информации, которое можно передать за один такт. Разрядность шины данных определяется разрядностью процессора (ЦПУ) Шина адреса — компьютерная шина, используемая центральным процессором или устройствами, способными инициировать сеансы DMA, для указания физического адреса слова ОЗУ (или начала блока слов), к которому устройство желает обратиться для проведения операции чтения или записи. Основной характеристикой шины адреса является её ширина в битах.Ширина шины адреса определяет объём адресуемой памяти.<span>Например, если ширина адресной шины составляет 16 бит, и размер слова памяти равен одному байту (минимальный адресуемый объём данных), то объём памяти, который можно адресовать, составляет 216 = 65536 байтов (64 КБ). Если рассматривать структурную схему микро-ЭВМ, то адресная шина активизирует работу всех внешних устройств по команде, которая поступает с микропроцессора. 3.3 Регистр процессора Регистр процессора — сверхбыстрая память внутри процессора, предназначенная прежде всего для хранения промежуточных результатов вычисления (регистр общего назначения/регистр данных) или содержащая данные, необходимые для работы процессора — смещения базовых таблиц, уровни доступа и т. д. (специальные регистры). Регистр представляет собой цифровую электронную схему, служащую для временного хранения двоичных чисел. ВСЕ дальше сам</span>
Нужно понять причину ошибки. Исправить её. Провести тестирование. Убедиться что проблема решена.
Экзамен числами, то есть 0-положительно, 1-отрицательно.