Materi Algoritma

LATIHAN 1

uses crt;

var a : integer;

begin

    clrscr;

    for a := 1 to 10 do

    begin

        writeln(a);

    end;

    repeat until keypressed;

end.

LATIHAN 3

uses crt;

var a : integer;

begin

    clrscr;

    write('Masukkan Nilai A : ');

    readln(a);

    if (a >= 75) then write('Anda Lulus') else write('Anda Gagal');

    repeat until keypressed;

end.

LATIHAN 4

uses crt;

var a : integer;

begin

    clrscr;

    write('Masukkan Nilai A : ');

    readln(a);

    if (a >= 75) then write('Anda Lulus')

    else write('Anda Gagal');

    repeat until keypressed;

end.

LATIHAN 5

uses crt;

var pk, lk, ls : real;

begin

    clrscr;

    pk:=3;

    lk:=9;

    ls:=0.5*(pk*lk);

    writeln('Luas Kotak    = ',pk*lk:4:2);

    writeln('Luas Segitiga = ',ls:4:2);

    repeat until keypressed;

end.

LATIHAN 6

uses crt;

var hrg : longint;

    a,no,baris,jml : byte;

    k_br, n_br : string;

begin

    clrscr;

    gotoxy(2,1);writeln('Toko Suka-Suka');

 {          1         2         3         4         5

                         2345678901234567890123456789012345678901234567890123456}

    gotoxy(2,2);writeln('----------------------------------------------------');

    gotoxy(2,3);writeln('| No. | Kode | Nama Barang  | Harga  | Jml | Total |');

    gotoxy(2,4);writeln('----------------------------------------------------');

    no:=1;

    for baris := 5 to 7 do

    begin

        gotoxy(2,baris);write('|');

        gotoxy(4,baris);write(no);

        gotoxy(8,baris);write('|');

        gotoxy(10,baris);read(k_br);

        gotoxy(15,baris);write('|');

        if (k_br='A') then n_br:='Rinso';

        if (k_br='B') then n_br:='Biskuit';

        if (k_br='C') then n_br:='Coklat';

        gotoxy(17,baris);write(n_br);

        gotoxy(30,baris);write('|');

        if (k_br='A') then hrg:=750;

        if (k_br='B') then hrg:=5000;

        if (k_br='C') then hrg:=3000;

        gotoxy(32,baris);write(hrg);

        gotoxy(39,baris);write('|');

        gotoxy(41,baris);read(jml);

        gotoxy(45,baris);write('|');

        gotoxy(47,baris);write(hrg*jml);

        gotoxy(53,baris);write('|');

        no:=no+1;

    end;

    gotoxy(2,baris+1);writeln('----------------------------------------------------');

    repeat until keypressed;

end.