Thursday, March 5, 2009

Tugas Program Pascal Dengan IF


Tugas pascal dengan if - else if - else . Kumpulkan sehari sebelum pertemuan.

User memasukkan jumlah belanja:

Jika Jumlah Belanja >=1000000
Mendapat diskon 20%
Jika jumlah belanja >=500000
Mendapat diskon 15%
Jika jumlah belanja >=250000
Mendapat diskon 10%
Jika jumlah belanja>=100000
Mendapat diskon 5%
Dibawahnya tidak mendapat diskon


Jumlah Membayar
Jumlah belanja- diskon

14 comments:

yunda on April 4, 2009 at 4:27 AM said...

Program nilai;
USES Crt;
VAR
jumlah_belanja,diskon : real;
begin
Clrscr;
Write('masukkan jumlahbelanja = ');
ReadLn(jumlah_belanja);
IF jumlah_belanja > 1000000 THEN
WriteLn('dapat diskon 20%');
diskon:=jumlah_belanja*0.2;
end.
ELSE
begin
IF jumlah_belanja > 50000 THEN
WriteLn('diskon 15%');
diskon:=jumlah_belanja*0.2;
end.
ELSE
begin
IF jumlah_belanja > 250000 THEN
WriteLn('diskon 10%');
diskon:=jumlah_belanja*0.2;
end.
ELSE
begin
IF jumlahbelanja > 100000 THEN
WriteLn('diskon 5%');
diskon:=jumlah belanja*0.2;
end.
ELSE
begin
WriteLn('tidak mendapatkan diskon');
total:=jumlah_belanja-diskon;
writeLn('total=', ,'total');
END.

2009 April 1 23:16

cokiest on April 4, 2009 at 4:29 AM said...

2009 April 1 22:37

program diskon_harga;
uses crt;
var
jumlah_belanja,diskon,total: real;
begin
clrscr;
writeln('Selamat Datang');
write('Masukan Jumlah Belanjaan Anda: ');
readln(jumlah_belanja);
if jumlah_belanja>=1000000 then
begin
write('Selamat Anda Mendapatkan Diskon 20%');
diskon:=0.2*jumlah_belanja;
readln;
end
else
if jumlah_belanja>=500000 then
begin
write('Selamat Anda Mendapatkan Diskon 15%');
diskon:=0.15*jumlah_belanja;
readln;
end
else
if jumlah_belanja>=250000 then
begin
write('Selamat Anda Mendapatkan Diskon 10%');
diskon:=0.1*jumlah_belanja;
readln;
end
else
if jumlah_belanja>=100000 then
begin
write('Selamat Anda Mendapatkan Diskon 5%');
diskon:=0.05*jumlah_belanja;
readln;
end
else
begin
write('Maaf Anda Tidak Mendapatkan Diskon');
readln;
end;

INA on April 4, 2009 at 4:30 AM said...

2009 April 1 23:47

{Program Tugas
Nama : Ni Wayan Ina Sukma Dewi
Kelas : X.4
No : 18 }

PROGRAM Tugas;
USES crt;
VAR
JumlahBelanja,Potongan,Total : Real ;
BEGIN
ClrScr;

Write('Jumlah Belanja = ');
Readln(JumlahBelanja);

IF JumlahBelanja >= 1000000 THEN
Writeln('Potongan Sebesar 20%');
Potongan:= JumlahBelanja * 0.2;
Readln;
END.
ELSE
IF JumlahBelanja >= 500000 THEN
Writeln('Potongan Sebesar 15%');
Potongan:= JumlahBelanja * 0.15;
Readln;
END.
ELSE
IF JumlahBelanja >= 250000 THEN
Writeln('Potongan Sebesar 10%');
Potongan:= JumlahBelanja * 0.1;
Readln;
END.
ELSE
IF JumlahBelanja >= 100000 Then
Writeln('Potongan Sebesar 5%')
Potongan:= JumlahBelanja * 0.05;
Readln;
END.

ELSE
Writeln('Tidak Ada Diskon');
Total :=Jumlah- Diskon;
Write('Total=',JumlahBelanja - Diskon',total;
readln;
END.ovingg

ANIEP on April 4, 2009 at 4:32 AM said...

2009 April 1 23:57

{Program Tugas
Nama : Hanifah JAwas
Kelas : X.4
No : 16 }

PROGRAM Tugas;
USES crt;
VAR
Jumlah,diskon,Total : Real ;
BEGIN
ClrScr;

Write('Jumlah Belanja = ');
Readln(Jumlah);

IF JumlahBelanja >= 1000000 THEN
Writeln('Anda mendapat diskon 20%');
diskon:= Jumlah * 0.2;
Readln;
END.
ELSE
IF JumlahBelanja >= 500000 THEN
Writeln('Anda mendapat diskon 15%');
diskon:= Jumlah * 0.15;
Readln;
END.
ELSE
IF JumlahBelanja >= 250000 THEN
Writeln('Anda mendapat diskon 10%');
Diskon:= Jumlah * 0.1;
Readln;
END.
ELSE
IF JumlahBelanja >= 100000 Then
Writeln('Anda mendapat diskon 5%')
Diskon:= Jumlah * 0.05;
Readln;
END.

ELSE
Writeln('Tidak Ada Diskon');
END;

Total :=Jumlah- Diskon;
Write('Total=',Jumlah - Diskon',total;
readln;
END.

zhuDevil(Suwiasa) on April 7, 2009 at 12:38 AM said...

Kak ney tgz sya..hehehe

http://www.areazhu.co.cc/belanja.zip

Ni MAde Dwi Purwati on April 10, 2009 at 10:51 PM said...

{NI MADE DWI PURWATI X7
06 MARET 09}


PROGRAM TUGAS;
USES Crt;
VAR
jumlah_belanja,jumlah_bayar,b,c: real;
BEGIN

clrscr;
write('jumlah_belanja:');readln(jumlah_belanja);

IF jumlah_belanja >= 1000000 THEN
BEGIN
writeln('diskon 20%');
b:=20/100;
END
ELSE IF jumlah_belanja >= 500000 THEN
BEGIN
writeln('diskon 15%');
b:=15/100;
END
ELSE IF jumlah_belanja >= 250000 THEN
BEGIN
writeln('diskon 10%');
b:=10/100;
END
ELSE IF jumlah_belanja >= 100000 THEN
BEGIN
writeln('diskon 5%');
b:=5/100;
END
ELSE
BEGIN
writeln('tidak mendapatkan diskon');
END;
READLN;

c:=jumlah_belanja-(jumlah_belanja*b);
writeln('jumlah_bayar: Rp ',c:0:2);
readln;
END.

vinanta on April 26, 2009 at 10:04 PM said...

{Program Tugas
Nama : Vinanta Agus Putra, pUTU
Kelas : XI IPA 5
No :29 }

PROGRAM Tugaspascal;
USES crt;
VAR
Jumlah,diskon,Total : Real ;
BEGIN
ClrScr;

Write('Jumlah meblanja = ');
Readln(Jumlah);

IF Jumlahmeblanja >= 1000000 THEN
Writeln('Kamu mendapat diskon 20%');
diskon:= Jumlah * 0.2;
Readln;
END.
ELSE
IF Jumlahmeblanja >= 500000 THEN
Writeln('Kamu mendapat diskon 15%');
diskon:= Jumlah * 0.15;
Readln;
END.
ELSE
IF Jumlahmeblanja >= 250000 THEN
Writeln('Kamu mendapat diskon 10%');
Diskon:= Jumlah * 0.1;
Readln;
END.
ELSE
IF Jumlahmeblanja >= 100000 Then
Writeln('Kamu mendapat diskon 5%')
Diskon:= Jumlah * 0.05;
Readln;
END.

ELSE
Writeln('Ten Polih Diskon');
END;

Total :=Jumlah- Diskon;
Write('Total=',Jumlah - Diskon',total;
readln;
END.

Suwiasa on April 26, 2009 at 10:10 PM said...

{I Wayan Suwiasa XI IPA 5
06 MARET 09}


PROGRAM belanja_yuk;
USES Crt;
VAR
n, jum, diskon: real;
BEGIN

clrscr;
writeln('Masukan Jumlah Belanja:');
write('Rp ');
readln(n);

IF n >= 1000000 THEN
BEGIN
writeln('diskon 20%');
diskon:=n*20/100;
END
ELSE IF n >= 500000 THEN
BEGIN
writeln('diskon 15%');
diskon:=n*15/100;
END
ELSE IF n >= 250000 THEN
BEGIN
writeln('diskon 10%');
diskon:=n*10/100;
END
ELSE IF n >= 100000 THEN
BEGIN
writeln('diskon 5%');
diskon:=n*5/100;
END
ELSE
BEGIN
writeln('tidak mendapatkan diskon');
END;
READLN;
jum:=n-diskon;
writeln('Anda Harus Membayar : Rp ',jum:0:2);
readln;
END.

Ni Wayan Ina Sukma Dewi on April 30, 2009 at 9:20 PM said...

{Program Tugas
Nama : NI WAYAN INA SUKMA DEWI
Kelas : X.4
No : 18 }

PROGRAM Tugas;
USES crt;
VAR
Jumlah,diskon,Total : Real ;
BEGIN
ClrScr;

Write('Jumlah Belanja = ');
Readln(Jumlah);

IF Jumlah >= 1000000 THEN
BEGIN
Writeln('Anda mendapat diskon 20%');
diskon:= Jumlah * 0.2;
Readln;
END
ELSE
IF Jumlah >= 500000 THEN
BEGIN
Writeln('Anda mendapat diskon 15%');
diskon:= Jumlah * 0.15;
Readln;
END
ELSE
IF Jumlah >= 250000 THEN
BEGIN
Writeln('Anda mendapat diskon 10%');
Diskon:= Jumlah * 0.1;
Readln;
END
ELSE
IF Jumlah >= 100000 Then
BEGIN
Writeln('Anda mendapat diskon 5%');
Diskon:= Jumlah * 0.05;
Readln;
END

ELSE
BEGIN
Writeln('Tidak Ada Diskon');
Readln;
END;

Total :=Jumlah- Diskon;
Writeln('Total belanja anda = Rp',Total:2:2);
Writeln('Terima Kasih');
readln;
END.
o

Hanifah Jawas on April 30, 2009 at 9:28 PM said...

{ Program Belanja
Nama : HANIFAH JAWAS
Kelas : X.4
No : 16 }

PROGRAM Belanja;
USES Crt;
VAR
Jumlah,Diskon,Total : Real ;
BEGIN
Clrscr;

Write('Jumlah Belanja = ');
Readln(Jumlah);

IF Jumlah >= 1000000 THEN
BEGIN
Writeln(' Anda mendapat Diskon 20% ');
Diskon:= Jumlah * 0.2;
Readln;
END
ELSE
IF Jumlah >= 500000 THEN
BEGIN
Writeln('Anda mendapat Diskon 15%');
Diskon:= Jumlah * 0.15;
Readln;
END
ELSE
IF Jumlah >= 250000 THEN
BEGIN
Writeln('Anda mendapat Diskon 10%');
Diskon:= Jumlah * 0.1;
Readln;
END
ELSE
IF Jumlah >= 100000 Then
BEGIN
Writeln('Anda mendapat Diskon 5%');
Diskon:= Jumlah * 0.05;
Readln;
END

ELSE
BEGIN
Writeln('Anda tidak mendapat Diskon');
Readln;
END;

Total := Jumlah - Diskon;
Writeln(' Total belanja anda = Rp',Total:2:2 );
Writeln(' Terima Kasih ');
Readln;
END.

I Wayan Adi Pranata on April 30, 2009 at 10:02 PM said...

PROGRAM LAT;
USES Crt;
VAR
jumlah_belanja,jumlah_bayar,a,b,c : integer;
BEGIN

clrscr;
write('jumlah_belanja:');readln(jumlah_belanja);

IF jumlah_belanja >= 1000000 THEN
BEGIN
writeln('diskon 20%');
Diskon:=jumlah_belanja*20%
END
ELSE IF jumlah_belanja >= 500000 THEN
BEGIN
writeln('diskon 15%');
Diskon:=jumlah_belanja*15%
END
ELSE IF jumlah_belanja >= 250000 THEN
BEGIN
writeln('diskon 10%');
Diskon:=jumlah_belanja*10%
END
ELSE IF jumlah_belanja >= 100000 THEN
BEGIN
writeln('diskon 5%');
Diskon:=jumlah_belanja*5%
END
ELSE
BEGIN
writeln('tidak mendapatkan diskon');
Diskon:=jumlah_belanja*0
END;

write('jumlah_belanja: ');readln(a);
write('diskon: ');readln(b);
readln;
END.

muhamad on May 17, 2009 at 2:58 AM said...

{Nama:muhamad ainun yaqin
kelas :X5
No :31}

PROGRAM latihan;
USES crt;
VAR
Jumlah,diskon,Total : Real ;
BEGIN
ClrScr;

Write('Jumlah pembelian = ');
Readln(Jumlah);

IF Jumlah >= 1000000 THEN
BEGIN
Writeln('Anda mendapat diskon 20%');
diskon:= Jumlah * 0.2;
Readln;
END
ELSE
IF Jumlah >= 500000 THEN
BEGIN
Writeln('Anda mendapat diskon 15%');
diskon:= Jumlah * 0.15;
Readln;
END
ELSE
IF Jumlah >= 250000 THEN
BEGIN
Writeln('Anda mendapat diskon 10%');
Diskon:= Jumlah * 0.1;
Readln;
END
ELSE
IF Jumlah >= 100000 Then
BEGIN
Writeln('Anda mendapat diskon 5%');
Diskon:= Jumlah * 0.05;
Readln;
END

ELSE
BEGIN
Writeln('tidak mendapat diskon');
Readln;
END;

Total :=jumlah- diskon;
Writeln('total belanja = Rp',Total:2:2);
readln;
END.

tody on June 10, 2009 at 9:47 PM said...

{Nama:ketut tody kresna wijaya
kelas :X8
No :41}

PROGRAM latihan;
USES crt;
VAR
Jumlah,diskon,Total : Real ;
BEGIN
ClrScr;

Write('Jumlah pembelian = ');
Readln(Jumlah);

IF Jumlah >= 1000000 THEN
BEGIN
Writeln('Anda mendapat diskon 20%');
diskon:= Jumlah * 0.2;
Readln;
END
ELSE
IF Jumlah >= 500000 THEN
BEGIN
Writeln('Anda mendapat diskon 15%');
diskon:= Jumlah * 0.15;
Readln;
END
ELSE
IF Jumlah >= 250000 THEN
BEGIN
Writeln('Anda mendapat diskon 10%');
Diskon:= Jumlah * 0.1;
Readln;
END
ELSE
IF Jumlah >= 100000 Then
BEGIN
Writeln('Anda mendapat diskon 5%');
Diskon:= Jumlah * 0.05;
Readln;
END

ELSE
BEGIN
Writeln('tidak mendapat diskon');
Readln;
END;

Total :=jumlah- diskon;
Writeln('total belanja = Rp',Total:2:2);
readln;
END.

Moch.Rasyid on November 27, 2009 at 10:54 PM said...

Wahh...tugasnya hampir sama semua...sekarang pascal sudah dimasukkan ke dalam kurikulum yah ?

Yang mau donasi, silahkan disini ....

Bagi para donatur yang ingin melakukan donasi ke webblog ini, silahkan klik tombol Donate. Atau pilih jenis donasi yang lainnya....

Entri Populer

Daftar Pay Per View (PPV / CPM) disini dapatkan penghasilan $2 s/d $4 per CPM

Get paid To Promote at any Location

All Post

Antivirus - Avira/Antivir - Dowload Master (1) Antivirus - Avira/Antivir - Update Manual (1) Antivirus - Kaspersky - Download Update (1) Antivirus - Smadav (1) AP01 - Dasar-Dasar Adobe Photoshop (13) AP02 - Free Download Brush (3) AP04 - Efek Teks (1) AP05 - Kreasi Foto (5) AP07 - Download Frame / Bingkai Foto (40) AP08 - Wallpaper (4) AP09 - Kartu Ucapan (5) AP10 - Desainku (11) AP11 - Gallery Photo (1) Aplikasi lucu (2) Artikel Internet (3) Download Tutorial (6) Email Gmail (1) Email Yahoo (1) Forum Diskusi (6) Game Facebook (1) Game Online - IKARIAM (1) Game Pokemon Emerald GBA (11) Games - Farm Frenzy Pizza Party (1) Games - GBA - Map Pokemon Leaf Green (6) Games - Mini Flash - Packman (1) Games - Mini Flash - Play Aim Fire Game (1) Games Online (11) Games Online - Naruto Arena (1) Games Online - Pokemon Black (1) Games Online - Pokemon TPPCRPG (1) Games Online - Thecrims (1) Games Online - Travian (7) Games Online - www.pokemonbattlearena.net (1) Games Online LORDS OF WAR ANE MONEY (19) Internet (1) Karya Anak Design Grafish (Extra Desain) (3) Kata Kata Mutiara untuk Motivasi (1) Kesehatan - Bahaya zat kimia (2) Kesehatan - Rokok (3) Kesehatan - Test Buta Warna (7) Lain-lain (2) Link Site Bagus (2) Lirik Lagu - Indonesai - Armanda (1) Lirik Lagu - Indonesai - BCL (1) Lirik Lagu - Indonesai - DMasiv (1) Lirik Lagu - Indonesai - Geisha (1) Lirik Lagu - Indonesai - Gita Gutawa (1) Lirik Lagu - Indonesai - Kotak (1) Lirik Lagu - Indonesai - Nindy (1) Lirik Lagu - Indonesai - SHE (4) Lirik Lagu - Indonesai - Warteg Boys (1) LordWM 04 Battle (3) Map Game Pokemon Emerald GBA (11) Pemrograman (2) Perbaikan (1) Perjalanan dan Objek Wisata (1) Pertanyaan Seputar TIK (1) Ramalan - Kecocokan Pasangan (1) Ramalan - Watak Manusia (2) SMA - Kelas X - Materi TIK (6) SMA - Kelas X - Remidi (1) SMA - Kelas X - Tugas (8) SMA - Kelas X - Tugas Extra Pascal (5) Software - Browser - Mozila Firefox (3) Software - Downloader - Orbit (3) Software - Multimedia - K-Lite Mega Codec (1) Software - WinRAR (1) Tugas Desain Grafis (2) Tutorial (4) Tutorial - Adobe Photoshop (18) Tutorial - Macromedia Flash (4) Tutorial - Microsoft Word (3) Tutorial - Microsoft Word 2007 (2) Tutorial - WinRar (1) Tutorial Blogger (8) Tutorial Blogger - AdsenseCamp (3) Tutorial Delphi (4) Tutorial Facebook (2) Tutorial Microsoft Office PowerPoint 2007 (3) Tutorial Microsoft Office Word 2007 (1) Uang Gratis (4) Uang Gratis - Adsense Camp (3) Uang Gratis - Paid per View (CPM/PPV) (5) Uang Gratis - Pay Per Click or CPM - Iklan (2) Uang Gratis - Paypal (1) Uang Gratis - Ziddu (1) Ucapan Hari Raya / Peringatan (1) ucapan hari raya nyepi (2) Upload File (1) Website (2) website-Alexa Site Info (1)
 

FeedBurner FeedCount

Followers

Full Tutorial 's Fan Box

* Tutorial * on Facebook
Full Tutorial Copyright © 2009 Blogger Template Designed by Bie Blogger Template