Program Pasca Telepon

By Masprastyo

Saturday, June 29, 2013

Assalamu'alaikum..

oke, kali ini gw ingin share tentang salah satu tugas kuliah sewaktu gw kuliah semester 1.

tugasnya yaitu membuat program pascal tentang telepon.

cekidot.......

ini kodingnya :

uses crt;
var
        lpd,lpd2,biaya2,biaya3,biaya:longint;
        kw:char;
begin
        clrscr;
        write('Lama pembicaraan (detik) = '); readln(lpd);
        write('kode wilayah = '); readln(kw);
        if kw=1 then begin
        if lpd<=60 then biaya:=lpd*10  else
        if lpd>60  lpd2:=lpd-60;
        biaya2:=lp2*1;
        biaya3:=lpd*10
        biaya:=biaya2+biaya3;
        end else
        if kw=2 then begin
        if lpd(=60 then biaya:=lpd*25  else
        if lpd>60 lpd2:=lpd-60;
        biaya2:=lp2*10;
        biaya3:=lpd*25;
        biaya:=biaya2+biaya3;
        end;
         writeln('Biaya = Rp.',biaya);
        readln;
end.

dan ini outputnya...

kalo mau donlot file .pasnya bisa (DISINI)

gw membuatnya di program free pascal. kalo ada pertanyaan dan lain-lain jangan ragu buat komen langsung ya :)

wassalam.

Share :

Facebook Twitter Google+