Sign up for PayPal and start accepting credit card payments instantly.

Thursday, April 30, 2009

Tugas Penggunaan Repeat until == case of

Author: Kadek Yartono | Posted at: 7:46 PM | Filed Under:
Kumpul disini penggunaan repeat until / case of mengenai operasi penjumlahan, pengurangan, pembagian, perkalian

8 comments:

cok istri indraswari pemayun on April 30, 2009 at 9:36 PM said...

{nama : Cok Istri Indraswari Pemayun
Kls : X.8
No : 19}

program sederhana;
uses crt;
var
z,x,c: integer;
begin
repeat
clrscr;
writeln ('Menu');
writeln ('1. Program Perkalian');
writeln ('2. Program Pembagian');
writeln ('3. Program Penjumlahan');
writeln ('4. Program Pengurangan');
writeln ('5. Exit');
write ('Masukan pilihan anda 1,2,3,4 atau 5:');readln(z);

case z of
1:begin
clrscr;
writeln('program perkalian');
write('masukan angka pertama: ');readln(x);
write('masukan angka kedua: ');readln(c);
writeln('hasil perkalian',x,'X',c,'=',x*c);
readln;
end;
2:begin
clrscr;
writeln('program pembagian');
write('masukan angka pertama: ');readln(x);
write('masukan angka kedua: ');readln(c);
writeln('hasil pembagian',x,':',c,'=',x/c);
readln;
end;
3:begin
clrscr;
writeln('program penjumlahan');
write('masukan angka pertama: ');readln(x);
write('masukan angka kedua: ');readln(c);
writeln('hasil penjumlahan',x,'+',c,'=',x+c);
readln;
end;
4:begin
clrscr;
writeln('program pengurangan');
write('masukan angka pertama: ');readln(x);
write('masukan angka kedua: ');readln(c);
writeln('hasil pengurangan',x,'-',c,'=',x-c);
readln;
end;
5:begin
clrscr;
write('exit');
readln;
end;
end;
until (z=5);
end.

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

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

PROGRAM Hitung;
USES Crt;
VAR
h,i,j,k,l,m,n,o,p: integer;
BEGIN
Repeat
Clrscr;
WriteLn (' Menu : ');
WriteLn ('1. Penjumlahan ' );
WriteLn ('2. Pengurangan');
WriteLn ('3. Perkalian');
WriteLn ('4. Pembagian');
WriteLn ('5. Exit');
Write ('Masukkan Angka antara 1 sampai 5 : ');
Read (h);

Case h of
1 : BEGIN
Clrscr;
WriteLn (' Program Penjumlahan ' );
Write ('Masukkan Angka Pertama : '); ReadLn (i);
Write ('Masukkan Angka Kedua : '); ReadLn (j);
WriteLn ('Hasil Penjumlahan',i,'+',j,'=',i + j );
ReadLn;
END;
2 :BEGIN
Clrscr;
WriteLn ('Program Pengurangan');
Write ('Masukkan angka pertama : '); ReadLn (k);
Write ('Masukkan angka kedua : '); ReadLn (l);
WriteLn ('Hasil pengurangan',k,'-',l,'=',k - l );
ReadLn;
END;
3 : BEGIN
Clrscr;
WriteLn ('Program Perkalian');
Write ('Masukkan angka pertama: '); ReadLn (m);
Write ('Masukkan angka kedua: '); ReadLn (n);
WriteLn ('Hasil Perkalian',m,'*',n,'=',m * n);
ReadLn;
END;
4 : BEGIN
Clrscr;
WriteLn ( 'Program Pembagian' );
Write ('Masukkan angka pertama :'); ReadLn (o);
Write ('Masukkan angka kedua :'); ReadLn (p);
WriteLn ('Hasil Pembagian',o,'/',p,'=',o/p:0:0);
ReadLn;
END;
5 : BEGIN
Clrscr;
WriteLn (' Exit');
ReadLn;
END;

END;
Until (h=5)
END.

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

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


Program Latihan;
Uses Crt;
Var
p,q,r,x,y,a,b,h,g,o : integer;

Begin
Repeat
ClrScr;
Writeln (' Menu ');
Writeln (' 1.Program Penjumlahan ');
Writeln (' 2.Program Pengurangan ');
Writeln (' 3.Program Perkalian ');
Writeln (' 4.Program Pembagian ');
Writeln (' 5.Exit ');
Writeln (' Masukkan angka 1 sampai 5 ');
Read(p);

Case p Of
1 : Begin
ClrScr;
Writeln ('Program Penjumlahan');
Write ('Masukkan angka pertama anda');
Read(q);
Write ('Masukkan angka kedua anda');
Read(r);
Write ('Hasil Penjumlahan ',q,' + ',r,'=',q+r);
Readln;
end;

2 : Begin
ClrScr;
Writeln ('Program Pengurangan');
Write ('Masukkan angka pertama anda');
Read(x);
Write ('Masukkan angka kedua anda');
Read(y);
write ('Hasil Pengurangan ',x,' - ',y,'=',x-y);
Readln;
end;

3 : Begin
ClrScr;
Write ('Masukkan angka pertama anda');
Read(a);
Write ('Masukkan angka kedua anda');
Read(b);
Writeln ('Hasil Perkalian ',a,' * ',b,'=',a*b);
Readln;
end;

4 : Begin
ClrScr;
Write ('Masukkan angka pertama anda');
Read(h);
Write ('Masukkan angka kedua anda');
Read(g);
Write ('Hasil Pembagian ',h,' / ',g,'=',h/g:0:2);
Readln;
end;

5 :Begin
ClrScr;
Writeln ('Exit');
Readln (o);
End;
End;
Until (a=5);
Readln;
End.

Dwi_here on April 30, 2009 at 9:57 PM said...

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

PROGRAM tugas;
USES Crt;
VAR
a,b,c: real;
Pil: integer;
BEGIN
REPEAT
clrscr;
Writeln('''PROGRAM PENGGUNAAN CASE OF''');
writeln;writeln;
Writeln('MENU UTAMA');
Writeln('1. Program PENJUMLAHAN');
Writeln('2. Program PENGURANGAN');
Writeln('3. Program PERKALIAN');
Writeln('4. Program PEMBAGIAN');
Writeln('5. KELUAR');
writeln;
Writeln('Tekan 1 , 2 , 3 , 4 atau 5!');readln(Pil);
writeln;writeln;
IF (Pil=1) OR (Pil=2) OR (Pil=3) OR (Pil=4) OR (Pil=5) THEN

BEGIN
ClrScr;
CASE Pil OF
1: BEGIN
writeln('==PROGRAM PENJUMLAHAN==');readln;
write('masukkan nilai a: ');readln(a);
write('masukkan nilai b: ');readln(b);
c:=a+b;
writeln;
writeln('hasil a+b= ',c:0:2);readln;
END;

2: BEGIN
writeln('==PROGRAM PENGURANGAN==');readln;
write('masukkan nilai a: ');readln(a);
write('masukkan nilai b: ');readln(b);
c:=a-b;
writeln;
writeln('hasil a-b= ',c:0:2);readln;
END;

3: BEGIN
writeln('==PROGRAM PERKALIAN==');readln;
write('masukkan nilai a: ');readln(a);
write('masukkan nilai b: ');readln(b);
c:=a*b;
writeln;
writeln('hasil axb= ',c:0:2);readln;
END;

4: BEGIN
writeln('==PROGRAM PEMBAGIAN==');readln;
write('masukkan nilai a: ');readln(a);
write('masukkan nilai b: ');readln(b);
c:=a/b;
writeln;
writeln('hasil a:b= ',c:0:2);readln;
END;

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

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

I Wayan Adi Pranata on April 30, 2009 at 11:44 PM said...

PROGRAM LATIHAN1;
{ Nama : I Wayan Adi Pranata
Kelas : x5
Nomor : 03}
USES CRT;
VAR
a,b,c:integer;

procedure input_data;
begin
Write('Masukkan nilai awal = ');readln(b);
Write('Maukkan nilai kedua = ');readln(c);
end;

BEGIN
repeat
CLRSCR;
Writeln ('Pilihan Menu');
Writeln ('1. Program penjumlahan');
Writeln ('2. Program pengurangan');
Writeln ('3. Program perkalian');
Writeln ('4. Program pembagian ');
Writeln ('5. EXIT');




Write ('Masukkan menu pilihan Anda=');Readln(a);
Case a of

1:Begin
Clrscr;
input_data;
Writeln ('Hasil penjumlahannya',b,'+',c,'adalah',b+c);readln;
End;
2:Begin
clrscr;
input_data;
Writeln('Hasil pengurangannya',b,'-',c,'adalah',b-c);readln;
End;
3:Begin
clrscr;
input_data;
Writeln('Hasil perkaliannya',b,'*',c,'adalah',b*c);readln;
End;
4:Begin
clrscr;
input_data;
Writeln('Hasil pembagiannya',b,'/',c,'adalah',b/c);readln;

End;
5:Begin
clrscr;
input_data;
Writeln('EXIT');
End;

End;
until(a=5)
END.

muhamad on May 16, 2009 at 3:06 AM said...

{nama : Muhamad ainun yaqin
Kls : X5
No : 31}

program pembelajaran;
uses crt;
var
j,k,l: integer;
begin
repeat
clrscr;
writeln ('Menu pertama');
writeln ('1. Program Perkalian');
writeln ('2. Program Pembagian');
writeln ('3. Program Penjumlahan');
writeln ('4. Program Pengurangan');
writeln ('5. Exit');
write ('Masukan angka anda 1 sampai 5:');readln(j);

case j of
1:begin
clrscr;
writeln('program perkalian');
write('masukan angka pertama: ');readln(k);
write('masukan angka kedua: ');readln(l);
writeln('hasil perkalian',k,'*',l,'=',k*l);
readln;
end;
2:begin
clrscr;
writeln('program pembagian');
write('masukan angka pertama: ');readln(k);
write('masukan angka kedua: ');readln(l);
writeln('hasil pembagian',k,':',l,'=',k:l);
readln;
end;
3:begin
clrscr;
writeln('program penjumlahan');
write('masukan angka pertama: ');readln(k);
write('masukan angka kedua: ');readln(l);
writeln('hasil penjumlahan',k,'+',l,'=',k+l);
readln;
end;
4:begin
clrscr;
writeln('program pengurangan');
write('masukan angka pertama: ');readln(k);
write('masukan angka kedua: ');readln(l);
writeln('hasil pengurangan',k,'-',l,'=',k-l);
readln;
end;
5:begin
clrscr;
write('keluar');
readln;
end;
end;
until (j=5);
end.

Suwiasa on May 20, 2009 at 12:53 AM said...

program calc; {Suwiasa XI IPA 5, Denpasar, 7 Mei 2009}

uses crt;

var

pil :char;

a, b :integer;

c :real;



begin

repeat

clrscr;

gotoxy(25,1);

writeln('Selamat Datang');

gotoxy(23,2);

writeln('==================');

gotoxy(1,4);

writeln('Pilih salah satu program :');

gotoxy(3,6);

writeln('1. Program Penjumlahan');

gotoxy(3,7);

writeln('2. Program Pengurangan');

gotoxy(3,8);

writeln('3. Program Perkalian');

gotoxy(3,9);

writeln('4. Program Pembagian');

gotoxy(3,10);

writeln('5. Keluar');

gotoxy(1,12);

write('Masukkan Pilihan Anda : ');

readln(pil);

case pil of

'1' : begin

clrscr;

gotoxy(25,1);

writeln('Program Penjumlahan');

gotoxy(3,3);

write('masukan nilai a :');

readln(a);

gotoxy(3,4);

write('masukan nilai b :');

readln(b);

c:=a+b;

gotoxy(3,6);

write('Hasil a+b = ',c:0:2);

readln;

end;



'2' : begin

clrscr;

gotoxy(25,1);

writeln('Program Pengurangan');

gotoxy(3,3);

write('masukan nilai a :');

readln(a);

gotoxy(3,4);

write('masukan nilai b :');

readln(b);

c:=a-b;

gotoxy(3,6);

write('Hasil a-b = ',c:0:2);

readln;

end;



'3' : begin

clrscr;

gotoxy(25,1);

writeln('Program Perkalian');

gotoxy(3,3);

write('masukan nilai a :');

readln(a);

gotoxy(3,4);

write('masukan nilai b :');

readln(b);

c:=a*b;

gotoxy(3,6);

write('Hasil a*b = ',c:0:2);

readln;

end;



'4' : begin

clrscr;

gotoxy(25,1);

writeln('Program Pembagian');

gotoxy(3,3);

write('masukan nilai a :');

readln(a);

gotoxy(3,4);

write('masukan nilai b :');

readln(b);

c:=a/b;

gotoxy(3,6);

write('Hasil a/b = ',c:0:2);

readln;

end;

'5' : begin

clrscr;

writeln('Terimakasih');

readln;

end;

end;



until (pil)='5';

end.

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

nama : ketut tody kresna wijaya
Kls : X.8
No : 41}

program sederhana;
uses crt;
var
z,x,c: integer;
begin
repeat
clrscr;
writeln ('Menu');
writeln ('1. Program Perkalian');
writeln ('2. Program Pembagian');
writeln ('3. Program Penjumlahan');
writeln ('4. Program Pengurangan');
writeln ('5. Exit');
write ('Masukan pilihan anda 1,2,3,4 atau 5:');readln(z);

case z of
1:begin
clrscr;
writeln('program perkalian');
write('masukan angka pertama: ');readln(x);
write('masukan angka kedua: ');readln(c);
writeln('hasil perkalian',x,'X',c,'=',x*c);
readln;
end;
2:begin
clrscr;
writeln('program pembagian');
write('masukan angka pertama: ');readln(x);
write('masukan angka kedua: ');readln(c);
writeln('hasil pembagian',x,':',c,'=',x/c);
readln;
end;
3:begin
clrscr;
writeln('program penjumlahan');
write('masukan angka pertama: ');readln(x);
write('masukan angka kedua: ');readln(c);
writeln('hasil penjumlahan',x,'+',c,'=',x+c);
readln;
end;
4:begin
clrscr;
writeln('program pengurangan');
write('masukan angka pertama: ');readln(x);
write('masukan angka kedua: ');readln(c);
writeln('hasil pengurangan',x,'-',c,'=',x-c);
readln;
end;
5:begin
clrscr;
write('exit');
readln;
end;
end;
until (z=5);
end.

Post a Comment

Subscribe to: Post Comments (Atom)

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