1.написать программу сортировки целочисленного массива из 10 элементов методом пузырька с флажком ( заполнение массива случайными числами в интервале [-10..10])
// PascalABC.NET 3.3, сборка 1627 от 27.01.2018 // Внимание! Если программа не работает, обновите версию!
procedure BubbleSortFlag(a:array of integer); // пузврьковая сортировка с флажком begin var f:=True; // флажок перестановки var p:=1; // номер перестановки var n:=a.Length; while f do begin f:=false; for var i:=0 To n-p-1 Do if a[i]>a[i+1] then begin Swap(a[i],a[i+1]); f:=true end; p+=1 end end;
begin var a:=ArrRandom(10,-10,10); a.Println; BubbleSortFlag(a); a.Println end.
a,b:integer; d:string[45]; begin SetConsoleOutputCP(1251); writeln('Введите число в диапазоне от 1 дo 100'); write('a='); readln(a); b:=a mod 10; a:=a div 10; case b of 0: d:=''; 1: d:='I'; 2: d:='II'; 3: d:='III'; 4: d:='IV'; 5: d:='V'; 6: d:='VI'; 7: d:='VII'; 8: d:='VIII'; 9: d:='IX'; end; b:=a mod 10; a:=a div 10; case b of 0: d:=''+d; 1: d:='X'+d; 2: d:='XX'+d; 3: d:='XXX'+d; 4: d:='XL'+d; 5: d:='L'+d; 6: d:='LX'+d; 7: d:='LXX'+d; 8: d:='LXXX'+d; 9: d:='XC'+d; end; b:=a mod 10; a:= a div 10; case b of 0: d:=''+d; 1: d:='C'+d; end; writeln('B Римской системе счисления ' ,d); readln; end.
Program project1; uses crt,math; var s:real; i,j,f:real; a:integer; begin writeln('vvedite 1 chislo ');readln(i); writeln('vvedite 2 chislo ');readln(j); writeln('vvedite 3 chislo ');readln(f); s:=i; if j<s then s:=j; if f<s then s:=f; if s<0 then begin if i<0 then inc(a); if j<0 then inc(a); if f<0 then inc(a); writeln('kolichestvo otricatelnix ',a:2); end else begin if i>0 then i:=i*-1; if j>0 then j:=i*-1; if f>0 then f:=i*-1; end; writeln('min chislo ',s:2:0); readln; end.
// Внимание! Если программа не работает, обновите версию!
procedure BubbleSortFlag(a:array of integer);
// пузврьковая сортировка с флажком
begin
var f:=True; // флажок перестановки
var p:=1; // номер перестановки
var n:=a.Length;
while f do begin
f:=false;
for var i:=0 To n-p-1 Do
if a[i]>a[i+1] then begin
Swap(a[i],a[i+1]);
f:=true
end;
p+=1
end
end;
begin
var a:=ArrRandom(10,-10,10); a.Println;
BubbleSortFlag(a);
a.Println
end.
Пример
-7 5 5 1 -3 -5 -8 1 2 3
-8 -7 -5 -3 1 1 2 3 5 5