contoh pemograman pascal if.....then...

program nilai_huruf;

uses wincrt;

var    nama,nim:string;

    nilai:integer;

    ket:char;

begin

clrscr;

write('nama        = ');readln(nama);

write('nim         = ');readln(nim);

write('nilai angka = ');readln(nilai);

    if (nilai>=80) then ket:='A'

    else

    if (nilai>=60) then ket:='B'

    else

    if (nilai>=40) then ket:='C'

    else

    if (nilai>=20) then ket:='D'

    else

    if (nilai>=0)  then ket:='E';

    write('nilai huruf=  ',ket);

end.

program nilai_angka;

uses crt;

var nama,nim:string;

    nilai:integer;

    ket:char;

   

begin

clrscr;

write('nama     : ');readln(nama);

write('nim  : ');readln(nim);

write('masukan nilai  : ');readln(nilai);

    if(nilai>=80)then

        ket:='A'

    else

    if(nilai>=60)then

        ket:='B'

    else

    if(nilai>=40)then

        ket:='C'

    else

    if(nilai>=20)then

        ket:='D'

    else

    if(nilai>=0)then

        ket:='E';

        write('nilai huruf= ',ket);

end.

program persewaan_prahu;

uses crt;

var

    nama:string;

    harga:real;

    jam:real;

    ket3:string;

begin

clrscr;

harga:=2000;

ket3:='data salah';

write('nama penyewa : ');

readln(nama);

write('jumlah jam : ');

readln(jam);

    if (jam<=1)then

        begin

        harga :=harga;

        writeln('harga :rp',harga:2:2);

        end

    else if (jam=2)then

        begin

        harga:=harga*2;

        writeln('harga :rp',harga:2:2);

        end

    else if (jam=3)then

        begin

        harga:=harga*3+500;

        writeln('harga :rp',harga:2:2);

        end

    else if (jam=4)then

        begin

        harga:=harga*4+700;

        writeln('harga :rp',harga:2:2);

        end

    else if (jam=4)then

        begin

        harga:=harga*4+700;

        writeln('harga :rp',harga:2:2);

        end

    else

        begin

        writeln('TIDAK BOLEH LEBIH DARI 3 JAM');

        end;

    end.

program nilai_max_min_dan_ratarata_dan_bilanganprima;

uses crt;

var banyak        :integer;

    jumlah,minimum,rerata :real;

    nilai,maksimum,a,b,c,d,e   :longint;

begin

banyak:=0;

jumlah:=0;

writeln('MENGHITUNG NILAI MAKSIMUM,MINIMUN DAN RATA-RATA');

writeln;

writeln('ISIKAN BILANGAN NEGATIF UNTUK BERHENTI ');

write('masukan nilainya: ');readln(nilai);

if (nilai<0) then

writeln('tidak ada nilai yg di masukan')

else

begin

minimum:=nilai;

maksimum:=nilai;

repeat

if nilai<minimum then

minimum:=nilai;

if nilai>maksimum then

maksimum:=nilai;

banyak:=banyak+1;

jumlah:=jumlah+1;

write('masukan nilainya: ');readln(nilai);

until nilai<0;

rerata:=jumlah/banyak;

writeln;

writeln('BANYAKNYA DATA=',banyak:1);

writeln('JUMLAH DATA=',jumlah:1:1);

writeln('NILAI RATA-RATA=',rerata:1:1);

writeln('NILAI MAKSIMAL=',maksimum:1);

writeln('NILAI MINIMUM=',minimum:1:2);

end;

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

c:=maksimum;

writeln('NILAI TERBESAR ADALAH : ',c:1);

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

writeln('bilangan prima:  2':7);

for a:=3 to maksimum do

begin

    for b:=2 to a-1 do

        begin

        if a mod b = 0 then

            begin

            d:=a;

            end

            else

                begin

                e:=a;

                end;

    end;

        if a=d then

        begin

        b:=a-1;

        end

        else

            writeln('bilangan prima  :',e:7);

            end;

            readln

end.