Question

Proszę o napisanie programów w PASCALU :

1. Sortowanie bąbelkowe

2. Program wypisujący tabelę składającą się z 15 znaków ( tablica jednowymiarowa )

Dziękuję za pomoc.

Answer 1

1.

 

USES CRT;
CONST
N=10;
VAR
z,i,j,p:INTEGER;
T:ARRAY[1..10] OF INTEGER;
BEGIN
RANDOMIZE;
CLRSCR;
BEGIN
FOR i:=1 TO N DO
T[i]:=RANDOM(101);
FOR i:=1 TO N DO
WRITE(T[i],' ');
END;
J:=1;
REPEAT
z:=0;
FOR i:=1 TO N-j DO
IF T[i]>T[i+1] THEN
BEGIN
P:=T[i];
T[i]:=T[i+1];
T[i+1]:=p;
z:=1;
END;
j:=j+1;
UNTIL (j>n-1) OR (z=0);
WRITELN;
FOR i:=1 TO N DO
WRITE(T[i],' ');
WRITELN;
READKEY;
END.

 

2. Tutaj rozumiem że chodzi o 15 losowych liczb?

 

USES CRT;
CONST
N=15;
VAR
z,i,j,p:INTEGER;
T:ARRAY[1..15] OF INTEGER;
BEGIN
RANDOMIZE;
CLRSCR;
BEGIN
FOR i:=1 TO N DO
T[i]:=RANDOM(101);
FOR i:=1 TO N DO
WRITE(T[i],' ');
END;
READKEY;
END.