mario-matrisle tanim teknigi

DIZILERDE SIRALAMA VE REWRITE (DOSYAYA YAZDIRMA)

PROGRAM siralama2;
USES CRT;

VAR i,j,TEMP:INTEGER;
DIZI:ARRAY [0..4] OF INTEGER;
sonuc:TEXT;

BEGIN
CLRSCR;

ASSIGN (sonuc, 'C:/cikti.txt');
REWRITE(sonuc);

WRITELN('LUTFEN 5 ADET TAMSAYI YAZINIZ');

READLN(DIZI[0]);
READLN(DIZI[1]);
READLN(DIZI[2]);
READLN(DIZI[3]);
READLN(DIZI[4]);


FOR i:=1 TO 4 DO

IF (DIZI[0] < DIZI[i]) THEN
BEGIN
TEMP := DIZI[0];
DIZI[0] := DIZI[i];
DIZI[i] := TEMP;

END;


FOR i:=1 TO 4 DO

IF (DIZI[1] < DIZI[i]) THEN
BEGIN
TEMP := DIZI[1];
DIZI[1] := DIZI[i];
DIZI[i] := TEMP;

END;

FOR i:=2 TO 4 DO

IF (DIZI[2] < DIZI[i]) THEN
BEGIN
TEMP := DIZI[2];
DIZI[2] := DIZI[i];
DIZI[i] := TEMP;

END;

FOR i:=3 TO 4 DO

IF (DIZI[3] < DIZI[i]) THEN
BEGIN
TEMP := DIZI[3];
DIZI[3] := DIZI[i];
DIZI[i] := TEMP;

END;

FOR i:=4 TO 4 DO

IF (DIZI[4] < DIZI[i]) THEN
BEGIN
TEMP := DIZI[4];
DIZI[4] := DIZI[i];
DIZI[i] := TEMP;

END;


FOR j:=0 TO 4 DO
BEGIN
WRITELN(sonuc,DIZI[j]);
WRITELN(DIZI[j]:5);
END;


CLOSE(sonuc);


READLN;
END.

mario.txt

15 16

1 1 1 1 2 2 2 2 2 2 1 1 1 1 1
1 1 1 2 2 2 2 2 2 2 2 2 2 1 1
1 1 1 3 3 3 3 4 4 3 4 1 1 1 1
1 1 3 3 4 3 4 4 4 3 4 4 4 1 1
1 1 3 3 4 3 3 4 4 4 3 4 4 4 1
1 1 3 3 3 4 4 4 4 3 3 3 3 1 1
1 1 1 1 4 4 4 4 4 4 4 4 1 1 1
1 1 1 3 3 3 5 3 3 3 1 1 1 1 1
1 1 3 3 3 3 5 3 3 5 3 3 3 1 1
1 3 3 3 3 3 5 5 5 5 3 3 3 3 1
1 4 4 4 3 5 4 5 5 4 5 3 4 4 1
1 4 4 4 4 5 5 5 5 5 5 4 4 4 1
1 4 4 4 5 5 5 5 5 5 5 5 4 4 1
1 1 1 5 5 5 5 1 5 5 5 5 1 1 1
1 1 3 3 3 3 1 1 1 3 3 3 3 1 1
1 3 3 3 3 3 1 1 1 3 3 3 3 3 1

plan.txt

6 6
1 1 1 1 1 1
1 2 2 1 3 3
1 2 2 1 1 1
1 2 2 1 1 6
1 1 1 5 1 6
1 4 1 1 1 1


0.2 4.5 0.2 2.0 1.2 2.0
0.2 0.5 0.2 2.0 1.2 7.0

DIZILERDE SIRALAMA1

PROGRAM siralama;
USES CRT;

VAR i,j,TEMP:INTEGER;
DIZI:ARRAY [0..4] OF INTEGER;

BEGIN
CLRSCR;

WRITELN('LUTFEN 5 ADET TAMSAYI YAZINIZ');

READLN(DIZI[0]);
READLN(DIZI[1]);
READLN(DIZI[2]);
READLN(DIZI[3]);
READLN(DIZI[4]);


FOR i:=1 TO 4 DO

IF (DIZI[0] < DIZI[i]) THEN
BEGIN
TEMP := DIZI[0];
DIZI[0] := DIZI[i];
DIZI[i] := TEMP;

END;


FOR i:=1 TO 4 DO

IF (DIZI[1] < DIZI[i]) THEN
BEGIN
TEMP := DIZI[1];
DIZI[1] := DIZI[i];
DIZI[i] := TEMP;

END;

FOR i:=2 TO 4 DO

IF (DIZI[2] < DIZI[i]) THEN
BEGIN
TEMP := DIZI[2];
DIZI[2] := DIZI[i];
DIZI[i] := TEMP;

END;

FOR i:=3 TO 4 DO

IF (DIZI[3] < DIZI[i]) THEN
BEGIN
TEMP := DIZI[3];
DIZI[3] := DIZI[i];
DIZI[i] := TEMP;

END;

FOR i:=4 TO 4 DO

IF (DIZI[4] < DIZI[i]) THEN
BEGIN
TEMP := DIZI[4];
DIZI[4] := DIZI[i];
DIZI[i] := TEMP;

END;


FOR j:=0 TO 4 DO

WRITELN(DIZI[j]:5);

READLN;
END.

tEK

PROGRAM ODEV;

USES CRT;

VAR i,j: INTEGER;

SIRA: ARRAY [0..4] OF INTEGER;

BEGIN

CLRSCR;

WRITELN('BES ADET TAM SAYI DEGERI GIRINIZ.');

FOR i:= 0 TO 4 DO

BEGIN

READLN(SIRA[i]);

END;

FOR i:=0 TO 4 DO

BEGIN

IF SIRA[i] MOD 2 = 0 THEN

BEGIN

WRITELN((SIRA[i]/2):4:2);

END

ELSE

BEGIN

WRITELN((SIRA[i]+1):4);

END;

END;

FOR i:= 0 TO 4 DO

BEGIN

WRITELN(I,'.ELEMAN=',SIRA[i]);

END;

FOR j:= i+1 TO 4 DO

BEGIN

WRITELN(I,'.ELEMAN=');

END;

READLN;

END.

sıralama

program siralama;
uses crt;

var i,j,temp: integer;
dizi : array[0..4] of integer;

begin
clrscr;

writeln('lütfen 5 adet tam sayi yaziniz');

readln(dizi[0]);
readln(dizi[1]);
readln(dizi[2]);
readln(dizi[3]);
readln(dizi[4]);

for i := 1 to 4 do
if (dizi[0] < dizi [i]) then
begin
temp := dizi[0];
dizi[0] := dizi[i];
dizi[i] := temp;
end;


for i := 2 to 4 do
if (dizi[1] < dizi [i]) then
begin
temp := dizi[1];
dizi[1] := dizi[i];
dizi[i] := temp;
end;

for i := 3 to 4 do
if (dizi[2] < dizi [i]) then
begin
temp := dizi[2];
dizi[2] := dizi[i];
dizi[i] := temp;
end;

for i := 4 to 4 do
if (dizi[3] < dizi [i]) then
begin
temp := dizi[3];
dizi[3] := dizi[i];
dizi[i] := temp;
end;


for j := 0 to 4 do
writeln(dizi[j]:4);

end.