CARA MENGETAHUI MAKS DAN MINIMUM DATA

Uses crt;

Var     a : array[1..5] of integer;
    j,k, temp : integer;

begin
    clrscr;
    write(‘masukan angka pertama = ‘);readln(a[1]);
    write(‘masukan angka ke-dua = ‘);readln(a[2]);
    write(‘masukan angka ke-tiga = ‘);readln(a[3]);
    write(‘masukan angka ke-empat = ‘);readln(a[4]);
    write(‘masukan angka ke-lima = ‘);readln(a[5]);
    for k:=1 to 5-1 do
    begin
        for j:=5 downto k+1 do
        begin
            if a[j] < a[j-1]then
            begin
                temp := a[j];
                a[j] := a[j-1];
                a[j-1] := temp;
            end;
        end;
    end;
    writeln;
    writeln(‘nilai maksimal dan minimum’);
    writeln(‘maksimum = ‘,a[5]);
    writeln(‘manimum = ‘,a[1]);
    readln;
end.

MENGURUTKAN NAMA (LOOPING)

Uses crt;

Var     kata:string;
    a,b,j,k : integer;

begin
    clrscr;
    write(‘masukan kata = ‘);readln(kata);
    a:=length(kata);
    b:=length(kata);
    begin
        for j:=1to a do
        begin
            for k:=1 to a do
                begin
                        write(kata[k]);
                    end;
            writeln;
            a:=a-1;
        end;
        for j:=1 to b do
        begin
            for k:=1 to j do
                    begin
                        write[kata[k]);
                    end;
            writeln;
        end;
    end;
    readln;
end.