1.3Блок – схема алгоритма программы
Рис. 4 Блок схема алгоритма программы
1.4 Текст программы
program sravnenie;
const
n=15; m=15;
var i, j, g, e, f: integer;
a:array [1..n] of integer;
b:array [1..m] of integer;
begin
randomize;
g:=0; e:=0; f:=0;
writeln ('Sravnenie massivov');
writeln ('Perviy massiv');
for i:=1 to n do begin
a[i]:=random (10);
write (a[i]:3,' ');
end;
writeln; writeln ('Vtoroy massiv');
for i:=1 to m do begin
b[i]:=random (10);
write (b[i]:3,' ');
end;
for i:=1 to n do begin
if a[i]<b[i] then begin g:=g+1; end
else
if a[i]=b[i] then begin e:=e+1; end
else
if a[i]>b[i] then begin f:=f+1; end;
end;
writeln;
writeln ('Kjlichestvo i, dlya kotoruh A[i]<B[i] = ',g);
writeln ('Kjlichestvo i, dlya kotoruh A[i]=B[i] = ',e);
writeln ('Kjlichestvo i, dlya kotoruh A[i]>B[i] = ',f);
readln;
end.
1.5 Тестирование
Вводятся 2 массива, проверяя корректность работы программы. Программа ведёт себя корректно.
1:
Sravnenie massivov
Perviy massiv
4 6 2 4 7 6 3 8 3 0 2 5 7 2 4
Vtoroy massiv
7 6 7 7 6 3 8 3 3 0 2 7 2 4 0
Kjlichestvo i, dlya kotoruh A[i]<B[i] = 6
Kjlichestvo i, dlya kotoruh A[i]=B[i] = 4
Kjlichestvo i, dlya kotoruh A[i]>B[i] = 5
Задание 5:
8. В массиве X(N) каждый элемент равен 0, 1 или 2. Переставить элементы массива так, чтобы сначала располагались все единицы, затем все двойки и, наконец, все нули (дополнительного массива не заводить).
1.1Работа программы
Вводятся исходные данные: десятичное число с клавиатуры.
1.2Назначение переменных
Назначение переменных, используемых в задаче, приведено в таблице 5.
Таблица 5 – Назначение переменных
|
Переменная |
Тип |
Назначение |
|
n |
integer |
Десятичное число |
|
a |
integer |
Массив |
|
i |
integer |
Номер элемента 1 массива |
1.3Блок – схема алгоритма программы
Рис. 5 Блок схема алгоритма программы
1.4 Текст программы
program perestanovka;
const
n=15;
var i: integer;
a:array [1..n] of integer;
begin
randomize;
writeln ('Perestanovka massiva');
writeln ('Ishodniy massiv');
for i:=1 to n do
begin
a[i]:=random (3);
write (a[i]:3,' ');
end;
writeln;
writeln ('Noviy massiv');
for i:=1 to n do begin
if a[i]=1 then begin write (a[i]:3,' '); end;
end;
for i:=1 to n do begin
if a[i]=2 then begin write (a[i]:3,' '); end;
end;
for i:=1 to n do begin
if a[i]=0 then begin write (a[i]:3,' '); end;
end;
writeln;
writeln;
writeln;
readln;
end.