Friday, April 3, 2009

Tugas 3 Menggunakan Case dan For

Tugas 3 kumpulkan disini Tugasnya menggunakan case dan for to do atau for downto do.

9 comments:

zhuDevil(Suwiasa) on April 7, 2009 at 4:09 PM said...

tgz saya kak...hehe


http://www.areazhu.co.cc/tgz_case-for.zip

dwi_P on April 10, 2009 at 10:57 PM said...

{Ni Made Dwi Purwati X7/17
03 APRIL 2009}

PROGRAM TGS_QU;
USES Crt;
VAR
jumlah_belanja,jumlah_bayar,b,c: real;
Pil,x,y,angka: integer;
BEGIN
clrscr;
Writeln('Tekan 1 atau 2!');readln(Pil);
CASE Pil OF
1: BEGIN
write('masukkan x= ');readln(x);
write('masukkan y= ');readln(y);
BEGIN
FOR angka:= x TO y DO
writeln(angka);readln;
END;
END;

2: BEGIN
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;

END;
READLN;
END.

dwiii on April 29, 2009 at 11:52 PM said...

{Ni Made Dwi Purwati X7/17
12 APRIL 2009}

PROGRAM tugas;
USES Crt;
VAR
jumlah_belanja,jumlah_bayar,b,c: real;
Pil,a,x,y,z,angka: integer;
BEGIN
REPEAT
clrscr;
textcolor(yellow);Writeln('''PROGRAM PENGGUNAAN CASE OF''');
writeln;writeln;
Writeln('MENU UTAMA');
Writeln('1. untuk Program FOR');
Writeln('2. untuk Program IF');
Writeln('3. KELUAR');

Writeln('Tekan 1 , 2 atau 3!');readln(Pil);
writeln;writeln;
IF (Pil=1) OR (Pil=2) OR (Pil=3) THEN

BEGIN
ClrScr;
CASE Pil OF
1: BEGIN
writeln('==PROGRAM PENGGUNAAN FOR==');readln;
write('masukkan nilai awal= ');readln(x);
write('masukkan akhir= ');readln(y);
BEGIN
FOR angka:= x TO y DO
writeln(angka);readln;
END;
END;

2: BEGIN
writeln('==PROGRAM PENGGUNAAN IF==');readln;
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;

3: BEGIN
Writeln('''EXIT''');readln;
Writeln('Selesai! Silahkan Keluar!');
END;
END;

END;
UNTIL (Pil=3);READLN;
END.

Suwiasa on April 30, 2009 at 1:28 AM said...

program Case_for;
{zhuDevil.....Suwiasa.....}
uses crt;
var
pil : char;
aw, ak, i : integer;
jum,diskon, n : real;

begin
clrscr;
gotoxy(6,1);
writeln('Selamat Datang');
gotoxy(1,3);
writeln('=========================');
gotoxy(1,5);
writeln('Menu');
gotoxy(3,7);
writeln('1 : Fungsi for');
gotoxy(3,9);
writeln('2 : Fungsi If');
gotoxy(1,11);
write('Masukan Pilihan Anda :');
readln(pil);

case pil of
'1' : begin
writeln('Fungsi for untuk membuat bilangan berurut');
writeln('masukan nilai awal');
readln(aw);
writeln('masukan nilai akhir');
readln(ak);


for i := aw to ak do
begin
write(i,' ');
end;
readln;
end;


'2' : begin
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

writeln('tidak mendapatkan diskon');
READLN;

jum:=n-diskon;
writeln('Anda Harus Membayar : Rp ',jum:0:2);
readln;

end;
end;



end.

adi pranata on April 30, 2009 at 10:32 PM said...

PROGRAM LAT;
USES Crt;
VAR
jumlah_belanja,jumlah_bayar,a,b,diskon : real;
nilai_awal,nilai_akhir,bilangan: integer;
BEGIN

clrscr;
Writeln('Masukkan bilangan yang ingin anda pilih,1 untuk menampilkan pilihan, 2 untuk lihat data ');
Readln(bilangan);
CASE bilangan OF
1: BEGIN
Write('Masukkan Nilai awal: ');readln(nilai_awal);
Write('Maukikan nilai akhir: ');readln(nilai_akhir);
BEGIN
FOR bilangan:=nilai_awal TO nilai_akhir DO
Writeln(bilangan);readln;
END;
END;

2: BEGIN
write('jumlah_belanja:');readln(jumlah_belanja);

IF jumlah_belanja >= 1000000 THEN
BEGIN
writeln('diskon 20%');
diskon:=jumlah_belanja*20/100
END
ELSE IF jumlah_belanja >= 500000 THEN
BEGIN
writeln('diskon 15%');
diskon:=jumlah_belanja*15/100
END
ELSE IF jumlah_belanja >= 250000 THEN
BEGIN
writeln('diskon 10%');
diskon:=jumlah_belanja*10/100
END
ELSE IF jumlah_belanja >= 100000 THEN
BEGIN
writeln('diskon 5%');
diskon:=jumlah_belanja*5/100
END
ELSE
BEGIN
writeln('tidak mendapatkan diskon');
diskon:=jumlah_belanja*0
END;
jumlah_bayar:=jumlah_belanja-diskon;
writeln('Jumlah Bayar= ',jumlah_bayar:0:2);
readln;
END;
END;
Readln;

END.

HaniFah JaWas on June 2, 2009 at 6:42 PM said...

PROGRAM Gabungan;
{ Nama : HANIFAH JAWAS
Kelas : X.4
No : 18 }

USES Crt;
VAR
a,E,F: Integer;
Jumlah,diskon,total : Real;

BEGIN
REPEAT
Clrscr;
WriteLn ('Masukkan Angka 1, 2 atau 3');
ReadLn (a);

CASE a OF
1 : BEGIN
Clrscr ;
F:= 0;
FOR E := 1 TO 10 DO
BEGIN
F:= F+E;
WriteLn (F); ReadLn;
END;
END;

2: 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 '); Read;
END;

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

3: BEGIN
Clrscr;
WriteLn ('Keluar'); Read;
END;

END;
UNTIL (a=3)
END.

Ni wayan Ina Sukma Dewi on June 2, 2009 at 6:45 PM said...

{Nama : Ni Wayan Ina Sukma Dewi
Kls : X.4
N0 : 18
}

PROGRAM Gabungan;
USES Crt;
VAR
P,Q,R : Integer;
Jumlah_Belanja,Diskon,Total : Real;

BEGIN
REPEAT
Clrscr;
WriteLn ('Masukkan Angka 1, 2 atau 3');
ReadLn (P);

CASE P OF
1 : BEGIN
Clrscr ;
Q:= 0;
FOR R := 1 TO 10 DO
BEGIN
Q:= Q+R;
WriteLn (Q); ReadLn;
END;
END;

2: BEGIN
Clrscr;
Write('Jumlah Belanja = ');
Readln(Jumlah_Belanja);

IF Jumlah >= 1000000 THEN
BEGIN
Writeln('Anda mendapat Diskon 20% ');
Diskon:= Jumlah_Belanja * 0.2;
Readln
END
ELSE
IF Jumlah >= 500000 THEN
BEGIN
Writeln('Anda mendapat Diskon 15%');
Diskon:= Jumlah_Belanja * 0.15;
Readln;
END
ELSE
IF Jumlah >= 250000 THEN
BEGIN
Writeln('Anda mendapat Diskon 10%');
Diskon:= Jumlah_Belanja * 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 '); Read;
END;

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

3: BEGIN
Clrscr;
WriteLn ('Keluar'); Read;
END;

END;
UNTIL (a=3)
END.

Cok Istri Indraswari Pemayun X.8 19 on June 4, 2009 at 5:40 PM said...

PROGRAM Gabungan;
{nama : Cok Istri Indraswari Pemayun
Kelas : X.8
No : 19}
USES Crt;
VAR
a,E,F: Integer;
Jumlah,diskon,total : Real;

BEGIN
REPEAT
Clrscr;
WriteLn ('Masukkan Angka 1, 2 atau 3');
ReadLn (a);

CASE a OF
1 : BEGIN
Clrscr ;
F:= 0;
FOR E := 1 TO 10 DO
BEGIN
F:= F+E;
WriteLn (F); ReadLn;
END;
END;

2: 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 '); Read;
END;

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

3: BEGIN
Clrscr;
WriteLn ('Close'); Read;
END;

END;
UNTIL (a=3)
END.

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

PROGRAM Gabungan;
{ Nama : tody kresna wijaya
Kelas : X.8
No : 41 }

USES Crt;
VAR
a,E,F: Integer;
Jumlah,diskon,total : Real;

BEGIN
REPEAT
Clrscr;
WriteLn ('Masukkan Angka 1, 2 atau 3');
ReadLn (a);

CASE a OF
1 : BEGIN
Clrscr ;
F:= 0;
FOR E := 1 TO 10 DO
BEGIN
F:= F+E;
WriteLn (F); ReadLn;
END;
END;

2: 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 '); Read;
END;

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

3: BEGIN
Clrscr;
WriteLn ('Keluar'); Read;
END;

END;
UNTIL (a=3)
END.

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