Program pascal

CONTOH PROGRAM DISKON


PROGRAM DIS;
USES CRT;
VAR
DI:REAL;
TOTAL,H:REAL;
DISK:REAL;
BEGIN
WRITELN('MENGHITUNG DISKON') ;
WRITE('MASUKAN HARGA:');READLN(H);
IF H <=10000000000000000000000 THEN
DI:=15/100
 ELSE
 DI:=0;
 TOTAL:=H-(H*DI);
 DISK:=H*DI;
 WRITELN('TOTAL:',TOTAL:5:2);
 WRITELN('DISKON:',DISK:5:2) ;
 READLN;
 END.

program pascalmenghitung harga

inilah adalah program pascal menghitung harga




program menghitung_harga;
uses crt;
var
total,diskon: real;

harga : real;
begin
textbackground(2);
textcolor(15);
   clrscr;
   writeln('prugram menghitung harga');
   write('masukan nama anda:');readln;
  write('masukan harga : ');readln(harga);
   if harga >=  2000000  then
   diskon:=15 / 100
   else
   diskon:=0;
   total:=harga-(harga*diskon) ;
   writeln('jadi totalnaya adalah=',total) ;
   readln;
   end.


semoga berman faat bagi pembaca.