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.

1 comments:

semua berawal dari diri kita

 
Copyright © 2012 wooodiez ~ Template By : Jasriman Sukri

Kamu bisa menulis deskripsi disini