tag:blogger.com,1999:blog-2201902619782451365.post880547585657079412..comments2023-06-25T07:11:16.266-07:00Comments on Full Tutorial: Tugas 3 Menggunakan Case dan ForKadek Yartonohttp://www.blogger.com/profile/02178714271085821118noreply@blogger.comBlogger9125tag:blogger.com,1999:blog-2201902619782451365.post-85559770661597089312009-06-10T21:56:08.991-07:002009-06-10T21:56:08.991-07:00PROGRAM Gabungan;
{ Nama : tody kresna wijaya
Kela...PROGRAM Gabungan;<br />{ Nama : tody kresna wijaya<br />Kelas : X.8<br />No : 41 }<br /><br />USES Crt;<br />VAR<br />a,E,F: Integer;<br />Jumlah,diskon,total : Real;<br /><br />BEGIN<br />REPEAT<br />Clrscr;<br />WriteLn ('Masukkan Angka 1, 2 atau 3');<br />ReadLn (a);<br /><br />CASE a OF<br />1 : BEGIN<br />Clrscr ;<br />F:= 0;<br />FOR E := 1 TO 10 DO<br />BEGIN<br />F:= F+E;<br />WriteLn (F); ReadLn;<br />END;<br />END;<br /><br />2: BEGIN<br />Clrscr;<br />Write('Jumlah Belanja = ');<br />Readln(Jumlah);<br /><br />IF Jumlah >= 1000000 THEN<br />BEGIN<br />Writeln('Anda mendapat Diskon 20% ');<br />diskon:= Jumlah * 0.2;<br />Readln<br />END<br />ELSE<br />IF Jumlah >= 500000 THEN<br />BEGIN<br />Writeln('Anda mendapat Diskon 15%');<br />diskon:= Jumlah * 0.15;<br />Readln;<br />END<br />ELSE<br />IF Jumlah >= 250000 THEN<br />BEGIN<br />Writeln('Anda mendapat Diskon 10%');<br />Diskon:= Jumlah * 0.1;<br />Readln;<br />END<br />ELSE<br />IF Jumlah >= 100000 Then<br />BEGIN<br />Writeln('Anda mendapat Diskon 5%');<br />Diskon:= Jumlah * 0.05;<br />Readln;<br />END<br /><br />ELSE<br />BEGIN<br />Writeln('Anda tidak Mendapat Diskon '); Read;<br />END;<br /><br />Clrscr;<br />Total := Jumlah - Diskon;<br />Writeln('Total belanja anda = Rp',Total:2:2 );<br />Writeln('Terima Kasih');<br />Readln;<br />END;<br /><br />3: BEGIN<br />Clrscr;<br />WriteLn ('Keluar'); Read;<br />END;<br /><br />END;<br />UNTIL (a=3)<br />END.todyhttp://ym-tutorial.blogspot.comnoreply@blogger.comtag:blogger.com,1999:blog-2201902619782451365.post-39096624285984244232009-06-04T17:40:31.295-07:002009-06-04T17:40:31.295-07:00PROGRAM Gabungan;
{nama : Cok Istri Indraswari Pem...PROGRAM Gabungan;<br />{nama : Cok Istri Indraswari Pemayun<br />Kelas : X.8<br />No : 19}<br />USES Crt;<br />VAR<br /> a,E,F: Integer;<br /> Jumlah,diskon,total : Real;<br /><br />BEGIN<br />REPEAT<br />Clrscr;<br /> WriteLn ('Masukkan Angka 1, 2 atau 3');<br /> ReadLn (a);<br /><br />CASE a OF<br /> 1 : BEGIN<br /> Clrscr ;<br /> F:= 0;<br /> FOR E := 1 TO 10 DO<br /> BEGIN<br /> F:= F+E;<br /> WriteLn (F); ReadLn;<br /> END;<br /> END;<br /><br /> 2: BEGIN<br /> Clrscr;<br /> Write('Jumlah Belanja = ');<br /> Readln(Jumlah);<br /><br /> IF Jumlah >= 1000000 THEN<br /> BEGIN<br /> Writeln('Anda mendapat Diskon 20% ');<br /> diskon:= Jumlah * 0.2;<br /> Readln<br /> END<br /> ELSE<br /> IF Jumlah >= 500000 THEN<br /> BEGIN<br /> Writeln('Anda mendapat Diskon 15%');<br /> diskon:= Jumlah * 0.15;<br /> Readln;<br /> END<br /> ELSE<br /> IF Jumlah >= 250000 THEN<br /> BEGIN<br /> Writeln('Anda mendapat Diskon 10%');<br /> Diskon:= Jumlah * 0.1;<br /> Readln;<br /> END<br /> ELSE<br /> IF Jumlah >= 100000 Then<br /> BEGIN<br /> Writeln('Anda mendapat Diskon 5%');<br /> Diskon:= Jumlah * 0.05;<br /> Readln;<br /> END<br /><br /> ELSE<br /> BEGIN<br /> Writeln('Anda tidak Mendapat Diskon '); Read;<br /> END;<br /><br /> Clrscr;<br /> Total := Jumlah - Diskon;<br /> Writeln('Total belanja anda = Rp',Total:2:2 );<br /> Writeln('Terima Kasih');<br /> Readln;<br /> END;<br /><br /> 3: BEGIN<br /> Clrscr;<br /> WriteLn ('Close'); Read;<br /> END;<br /><br />END;<br />UNTIL (a=3)<br />END.Cok Istri Indraswari Pemayun X.8 19http://ym-tutorial.blogspot.comnoreply@blogger.comtag:blogger.com,1999:blog-2201902619782451365.post-61207700060826322162009-06-02T18:45:08.591-07:002009-06-02T18:45:08.591-07:00{Nama : Ni Wayan Ina Sukma Dewi
Kls : X.4
N0 : 1...{Nama : Ni Wayan Ina Sukma Dewi<br /> Kls : X.4<br /> N0 : 18<br />}<br /><br />PROGRAM Gabungan;<br />USES Crt;<br />VAR<br /> P,Q,R : Integer;<br /> Jumlah_Belanja,Diskon,Total : Real;<br /><br />BEGIN<br />REPEAT<br />Clrscr;<br /> WriteLn ('Masukkan Angka 1, 2 atau 3');<br /> ReadLn (P);<br /><br />CASE P OF<br /> 1 : BEGIN<br /> Clrscr ;<br /> Q:= 0;<br /> FOR R := 1 TO 10 DO<br /> BEGIN<br /> Q:= Q+R;<br /> WriteLn (Q); ReadLn;<br /> END;<br /> END;<br /><br /> 2: BEGIN<br /> Clrscr;<br /> Write('Jumlah Belanja = ');<br /> Readln(Jumlah_Belanja);<br /><br /> IF Jumlah >= 1000000 THEN<br /> BEGIN<br /> Writeln('Anda mendapat Diskon 20% ');<br /> Diskon:= Jumlah_Belanja * 0.2;<br /> Readln<br /> END<br /> ELSE<br /> IF Jumlah >= 500000 THEN<br /> BEGIN<br /> Writeln('Anda mendapat Diskon 15%');<br /> Diskon:= Jumlah_Belanja * 0.15;<br /> Readln;<br /> END<br /> ELSE<br /> IF Jumlah >= 250000 THEN<br /> BEGIN<br /> Writeln('Anda mendapat Diskon 10%');<br /> Diskon:= Jumlah_Belanja * 0.1;<br /> Readln;<br /> END<br /> ELSE<br /> IF Jumlah >= 100000 Then<br /> BEGIN<br /> Writeln('Anda mendapat Diskon 5%');<br /> Diskon:= Jumlah * 0.05;<br /> Readln;<br /> END<br /> ELSE<br /> BEGIN<br /> Writeln('Anda tidak Mendapat Diskon '); Read;<br /> END;<br /><br /> Clrscr;<br /> Total := Jumlah - Diskon;<br /> Writeln('Total belanja anda = Rp',Total:2:2 );<br /> Writeln('Terima Kasih');<br /> Readln;<br /> END;<br /><br /> 3: BEGIN<br /> Clrscr;<br /> WriteLn ('Keluar'); Read;<br /> END;<br /><br />END;<br />UNTIL (a=3)<br />END.Ni wayan Ina Sukma Dewihttp://ym-tutorial.blogspot.comnoreply@blogger.comtag:blogger.com,1999:blog-2201902619782451365.post-20983921632866719322009-06-02T18:42:13.396-07:002009-06-02T18:42:13.396-07:00PROGRAM Gabungan;
{ Nama : HANIFAH JAWAS
Kelas : ...PROGRAM Gabungan;<br />{ Nama : HANIFAH JAWAS<br />Kelas : X.4<br />No : 18 }<br /><br />USES Crt;<br />VAR<br /> a,E,F: Integer;<br /> Jumlah,diskon,total : Real;<br /><br />BEGIN<br />REPEAT<br />Clrscr;<br /> WriteLn ('Masukkan Angka 1, 2 atau 3');<br /> ReadLn (a);<br /><br />CASE a OF<br /> 1 : BEGIN<br /> Clrscr ;<br /> F:= 0;<br /> FOR E := 1 TO 10 DO<br /> BEGIN<br /> F:= F+E;<br /> WriteLn (F); ReadLn;<br /> END;<br /> END;<br /><br /> 2: BEGIN<br /> Clrscr;<br /> Write('Jumlah Belanja = ');<br /> Readln(Jumlah);<br /><br /> IF Jumlah >= 1000000 THEN<br /> BEGIN<br /> Writeln('Anda mendapat Diskon 20% ');<br /> diskon:= Jumlah * 0.2;<br /> Readln<br /> END<br /> ELSE<br /> IF Jumlah >= 500000 THEN<br /> BEGIN<br /> Writeln('Anda mendapat Diskon 15%');<br /> diskon:= Jumlah * 0.15;<br /> Readln;<br /> END<br /> ELSE<br /> IF Jumlah >= 250000 THEN<br /> BEGIN<br /> Writeln('Anda mendapat Diskon 10%');<br /> Diskon:= Jumlah * 0.1;<br /> Readln;<br /> END<br /> ELSE<br /> IF Jumlah >= 100000 Then<br /> BEGIN<br /> Writeln('Anda mendapat Diskon 5%');<br /> Diskon:= Jumlah * 0.05;<br /> Readln;<br /> END<br /><br /> ELSE<br /> BEGIN<br /> Writeln('Anda tidak Mendapat Diskon '); Read;<br /> END;<br /><br /> Clrscr;<br /> Total := Jumlah - Diskon;<br /> Writeln('Total belanja anda = Rp',Total:2:2 );<br /> Writeln('Terima Kasih');<br /> Readln;<br /> END;<br /><br /> 3: BEGIN<br /> Clrscr;<br /> WriteLn ('Keluar'); Read;<br /> END;<br /><br />END;<br />UNTIL (a=3)<br />END.HaniFah JaWashttp://ym-tutorial.blogspot.comnoreply@blogger.comtag:blogger.com,1999:blog-2201902619782451365.post-5005734913255089472009-04-30T22:32:00.000-07:002009-04-30T22:32:00.000-07:00PROGRAM LAT;
USES Crt;
VAR
jumlah_belanja,jumlah_...PROGRAM LAT;<br />USES Crt;<br />VAR<br /> jumlah_belanja,jumlah_bayar,a,b,diskon : real;<br /> nilai_awal,nilai_akhir,bilangan: integer;<br />BEGIN<br /><br /> clrscr;<br /> Writeln('Masukkan bilangan yang ingin anda pilih,1 untuk menampilkan pilihan, 2 untuk lihat data ');<br /> Readln(bilangan);<br /> CASE bilangan OF<br /> 1: BEGIN<br /> Write('Masukkan Nilai awal: ');readln(nilai_awal);<br /> Write('Maukikan nilai akhir: ');readln(nilai_akhir);<br /> BEGIN<br /> FOR bilangan:=nilai_awal TO nilai_akhir DO<br /> Writeln(bilangan);readln;<br /> END;<br /> END;<br /><br /> 2: BEGIN<br /> write('jumlah_belanja:');readln(jumlah_belanja);<br /><br /> IF jumlah_belanja >= 1000000 THEN<br /> BEGIN<br /> writeln('diskon 20%');<br /> diskon:=jumlah_belanja*20/100<br /> END<br /> ELSE IF jumlah_belanja >= 500000 THEN<br /> BEGIN<br /> writeln('diskon 15%');<br /> diskon:=jumlah_belanja*15/100<br /> END<br /> ELSE IF jumlah_belanja >= 250000 THEN<br /> BEGIN<br /> writeln('diskon 10%');<br /> diskon:=jumlah_belanja*10/100<br /> END<br /> ELSE IF jumlah_belanja >= 100000 THEN<br /> BEGIN<br /> writeln('diskon 5%');<br /> diskon:=jumlah_belanja*5/100<br /> END<br /> ELSE<br /> BEGIN<br /> writeln('tidak mendapatkan diskon');<br /> diskon:=jumlah_belanja*0<br /> END;<br /> jumlah_bayar:=jumlah_belanja-diskon;<br /> writeln('Jumlah Bayar= ',jumlah_bayar:0:2);<br /> readln;<br /> END;<br /> END;<br /> Readln;<br /><br />END.adi pranatahttp://ym-tutorial.blogspot.comnoreply@blogger.comtag:blogger.com,1999:blog-2201902619782451365.post-53644716755145526782009-04-30T01:28:00.000-07:002009-04-30T01:28:00.000-07:00program Case_for;
{zhuDevil.....Suwiasa.....}
uses...program Case_for;<br />{zhuDevil.....Suwiasa.....}<br />uses crt;<br />var<br /> pil : char;<br /> aw, ak, i : integer;<br /> jum,diskon, n : real;<br /><br />begin<br /> clrscr;<br /> gotoxy(6,1);<br /> writeln('Selamat Datang');<br /> gotoxy(1,3);<br /> writeln('=========================');<br /> gotoxy(1,5);<br /> writeln('Menu');<br /> gotoxy(3,7);<br /> writeln('1 : Fungsi for');<br /> gotoxy(3,9);<br /> writeln('2 : Fungsi If');<br /> gotoxy(1,11);<br /> write('Masukan Pilihan Anda :');<br /> readln(pil);<br /><br /> case pil of<br /> '1' : begin<br /> writeln('Fungsi for untuk membuat bilangan berurut');<br /> writeln('masukan nilai awal');<br /> readln(aw);<br /> writeln('masukan nilai akhir');<br /> readln(ak);<br /><br /><br /> for i := aw to ak do<br /> begin<br /> write(i,' ');<br /> end;<br /> readln;<br /> end;<br /><br /><br /> '2' : begin<br /> writeln('Masukan Jumlah Belanja:');<br /> write('Rp ');<br /> readln(n);<br /><br /> IF n >= 1000000 THEN<br /> BEGIN<br /> writeln('diskon 20%');<br /> diskon:=n*20/100;<br /> END<br /> ELSE IF n >= 500000 THEN<br /> BEGIN<br /> writeln('diskon 15%');<br /> diskon:=n*15/100;<br /> END<br /> ELSE IF n >= 250000 THEN<br /> BEGIN<br /> writeln('diskon 10%');<br /> diskon:=n*10/100;<br /> END<br /> ELSE IF n >= 100000 THEN<br /> BEGIN<br /> writeln('diskon 5%');<br /> diskon:=n*5/100;<br /> END<br /> ELSE<br /><br /> writeln('tidak mendapatkan diskon');<br /> READLN;<br /><br /> jum:=n-diskon;<br /> writeln('Anda Harus Membayar : Rp ',jum:0:2);<br /> readln;<br /><br /> end;<br /> end;<br /><br /><br /><br />end.Suwiasahttp://www.areazhu.co.ccnoreply@blogger.comtag:blogger.com,1999:blog-2201902619782451365.post-56360639792767230372009-04-29T23:52:00.000-07:002009-04-29T23:52:00.000-07:00{Ni Made Dwi Purwati X7/17
12 APRIL 2009}
PROGRA...{Ni Made Dwi Purwati X7/17<br /> 12 APRIL 2009}<br /><br />PROGRAM tugas;<br />USES Crt;<br />VAR<br /> jumlah_belanja,jumlah_bayar,b,c: real;<br /> Pil,a,x,y,z,angka: integer;<br />BEGIN<br />REPEAT<br /> clrscr;<br /> textcolor(yellow);Writeln('''PROGRAM PENGGUNAAN CASE OF''');<br /> writeln;writeln;<br /> Writeln('MENU UTAMA');<br /> Writeln('1. untuk Program FOR');<br /> Writeln('2. untuk Program IF');<br /> Writeln('3. KELUAR');<br /><br /> Writeln('Tekan 1 , 2 atau 3!');readln(Pil);<br /> writeln;writeln;<br /> IF (Pil=1) OR (Pil=2) OR (Pil=3) THEN<br /><br /> BEGIN<br /> ClrScr;<br /> CASE Pil OF<br /> 1: BEGIN<br /> writeln('==PROGRAM PENGGUNAAN FOR==');readln;<br /> write('masukkan nilai awal= ');readln(x);<br /> write('masukkan akhir= ');readln(y);<br /> BEGIN<br /> FOR angka:= x TO y DO<br /> writeln(angka);readln;<br /> END;<br /> END;<br /><br /> 2: BEGIN<br /> writeln('==PROGRAM PENGGUNAAN IF==');readln;<br /> write('jumlah_belanja:');readln(jumlah_belanja);<br /><br /> IF jumlah_belanja >= 1000000 THEN<br /> BEGIN<br /> writeln('diskon 20%');<br /> b:=20/100;<br /> END<br /> ELSE IF jumlah_belanja >= 500000 THEN<br /> BEGIN<br /> writeln('diskon 15%');<br /> b:=15/100;<br /> END<br /> ELSE IF jumlah_belanja >= 250000 THEN<br /> BEGIN<br /> writeln('diskon 10%');<br /> b:=10/100;<br /> END<br /> ELSE IF jumlah_belanja >= 100000 THEN<br /> BEGIN<br /> writeln('diskon 5%');<br /> b:=5/100;<br /> END<br /> ELSE<br /> BEGIN<br /> writeln('tidak mendapatkan diskon');<br /> END;<br /> READLN;<br /><br /> c:=jumlah_belanja-(jumlah_belanja*b);<br /> writeln('jumlah_bayar: Rp ',c:0:2);<br /> READLN;<br /> END;<br /><br /> 3: BEGIN<br /> Writeln('''EXIT''');readln;<br /> Writeln('Selesai! Silahkan Keluar!');<br /> END;<br /> END;<br /><br />END;<br /> UNTIL (Pil=3);READLN;<br />END.dwiiihttp://ym-tutorial.blogspot.comnoreply@blogger.comtag:blogger.com,1999:blog-2201902619782451365.post-55444391558021985332009-04-10T22:57:00.000-07:002009-04-10T22:57:00.000-07:00{Ni Made Dwi Purwati X7/17 03 APRIL 2009}PROGRAM T...{Ni Made Dwi Purwati X7/17<BR/> 03 APRIL 2009}<BR/><BR/>PROGRAM TGS_QU;<BR/>USES Crt;<BR/>VAR<BR/> jumlah_belanja,jumlah_bayar,b,c: real;<BR/> Pil,x,y,angka: integer;<BR/>BEGIN<BR/> clrscr;<BR/> Writeln('Tekan 1 atau 2!');readln(Pil);<BR/> CASE Pil OF<BR/> 1: BEGIN<BR/> write('masukkan x= ');readln(x);<BR/> write('masukkan y= ');readln(y);<BR/> BEGIN<BR/> FOR angka:= x TO y DO<BR/> writeln(angka);readln;<BR/> END;<BR/> END;<BR/><BR/> 2: BEGIN<BR/> write('jumlah_belanja:');readln(jumlah_belanja);<BR/><BR/> IF jumlah_belanja >= 1000000 THEN<BR/> BEGIN<BR/> writeln('diskon 20%');<BR/> b:=20/100;<BR/> END<BR/> ELSE IF jumlah_belanja >= 500000 THEN<BR/> BEGIN<BR/> writeln('diskon 15%');<BR/> b:=15/100;<BR/> END<BR/> ELSE IF jumlah_belanja >= 250000 THEN<BR/> BEGIN<BR/> writeln('diskon 10%');<BR/> b:=10/100;<BR/> END<BR/> ELSE IF jumlah_belanja >= 100000 THEN<BR/> BEGIN<BR/> writeln('diskon 5%');<BR/> b:=5/100;<BR/> END<BR/> ELSE<BR/> BEGIN<BR/> writeln('tidak mendapatkan diskon');<BR/> END;<BR/> READLN;<BR/><BR/> c:=jumlah_belanja-(jumlah_belanja*b);<BR/> writeln('jumlah_bayar: Rp ',c:0:2);<BR/> readln;<BR/> END;<BR/><BR/> END;<BR/> READLN;<BR/>END.dwi_Phttp://ym-tutorial.blogspot.comnoreply@blogger.comtag:blogger.com,1999:blog-2201902619782451365.post-64967388448891095582009-04-07T16:09:00.000-07:002009-04-07T16:09:00.000-07:00tgz saya kak...hehehttp://www.areazhu.co.cc/tgz_ca...tgz saya kak...hehe<BR/><BR/><BR/><A HREF="http://www.areazhu.co.cc/tgz_case-for.zip" REL="nofollow">http://www.areazhu.co.cc/tgz_case-for.zip</A>zhuDevil(Suwiasa)http://barubisa.blogspot.comnoreply@blogger.com