LOGIKA DAN PEMROGRAMAN (TUGAS 7)

PROGRAM MENETUKAN GAJI POKOK

 FLOWCHART

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

CODING

uses crt;

var a: string;

    b: byte;

    c:longint;

begin

clrscr;

    writeln('Program Mementukan Gaji pokok pegawai');

    writeln('=====================================');

    write('Nama pegawai :');

    readln(a);

    write('Golongan :');
    readln(b);

    if b =1 then

        c:=450000

    else

    if b =2 then

        c:=650000

    else
    if b =3 then

        c:=850000

    else

    c:=1200000;

    writeln('=====================================');

    writeln('Nama pegawai :',a);

    writeln('Gaji pokok :',c);

    writeln('=====================================');

end.uses crt;

var a: string;

    b: byte;

    c:longint;

begin

clrscr;

    writeln('Program Mementukan Gaji pokok pegawai');

    writeln('=====================================');

    write('Nama pegawai :');

    readln(a);

    write('Golongan :');
    readln(b);

    if b =1 then

        c:=450000

    else

    if b =2 then

        c:=650000

    else
    if b =3 then

        c:=850000

    else

    c:=1200000;

    writeln('=====================================');

    writeln('Nama pegawai :',a);

    writeln('Gaji pokok :',c);

    writeln('=====================================');

end.