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:
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
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;
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
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.
Kak ney tgz sya..hehehe
http://www.areazhu.co.cc/belanja.zip
{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.
{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.
{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.
{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
{ 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.
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.
{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.
{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.
Wahh...tugasnya hampir sama semua...sekarang pascal sudah dimasukkan ke dalam kurikulum yah ?
Post a Comment