Скласти алгоритм і розробити програму, що здійснюють:
- виведення заголовка лабораторної роботи;
- введення вихідних даних;
- виконання дій, згідно варіанту індивідуального завдання;
- виведення вихідних даних і результатів сортування масиву.
Варіанти індивідуальних завдань для виконання лабораторної роботи
7. З упорядкованого по незростнню вихідного вектора Арозмірності Rодержати вектор Z розмірності k+3, розташувавши у вихідному векторі числа p, q і r, не порушуючи упорядкованість розташування елементів.
Текст програми
uses crt;
var a,z:array[1..1000] of real;
k,i,j:integer;
p,q,r,x:real;
Begin
writeln('лаб. робота №5');
writeln('СОРТУВАННЯ МАСИВІВ ІНФОРМАЦІЇ ');
writeln('Виконав: Запоошнюк Андрій Анатолійович , Варіант №7');
clrscr;
writeln('ВВедіть розмірність масиву А');
readln(k);
writeln('Введіть масив А');
for i:= 1 to k do
Begin
writeln('A[',i,']=');
readln(a[i]);
end;
writeln('Впорядкований по незростанню масив А');
for i := k downto 1 do
for j:= 1 to i-1 do
if (A[j] < A[j+1]) then
Begin
x:=a[j];
a[j]:=a[j+1];
a[j+1]:=x;
end;
for i:= 1 to k do
write(a[i]:6:2);
writeln;
writeln('Введіть p');
readln(a[k+1]);
writeln('Введіть q');
readln(a[k+2]);
writeln('Введіть r');
readln(a[k+3]);
for i := k+3 downto 1 do
for j:= 1 to i-1 do
if (A[j] < A[j+1]) then
Begin
x:=a[j];
a[j]:=a[j+1];
a[j+1]:=x;
end;
writeln('Масив Z');
for i:= 1 to k+3 do
Begin
z[i]:=a[i];
write(z[i]:6:2);
readln(z[i]);
end;
End.
