Pages

Senin, 01 Oktober 2012

Tugas Algoritma 1B



Contoh Menyatakan Perulangan : PASCAL
uses crt ;
label hoho ;
var
a,menu,b,c,d,p,l,luas,e,f,l,x,nilai : integer ;
nm,kls,nama,kelas,npm:string ;
begin
hoho :
clrscer ;
writeln< ’ ------Menu------ ‘ > ;
writeln< ‘ 1 . Biodata’ > ;
wirteln< ‘ 2 . Deret’ > ;
writeln< ‘ 3 . Luas persegi panjang’ > ;
writeln< ‘ 4 . Nilai’ > ;
writeln< ‘ 5 . Exit’ > ;
writeln< ‘---------------- ‘ > ;
wirte < ‘ Pilihan [1..5] ‘ > ;
readln <Menu> ;
case menu of
1 : begin
clrscr ;
writeln < ‘ 1 . Biodata’ > ;
write < ‘ masukkan nama : ‘ > ;
readln <nama> ;
write < ‘ masukkan npm : ‘ > ;
readln <npm> ;
write < ‘ masukkan kelas : ‘> ;
readln <kelas> ;
writeln < ‘ nama saya : ‘ ,nama> ;
wirteln < ‘ npm saya : ‘ ,npm> ;
writeln <’ kelas saya : ‘ , kelas> ;
readln ;
goto hoho ;
end ;
2 : begin
clrscr ;
writeln < ‘ 2 . Deret’ > ;
write < ‘ Input Nilai : ‘ > ;
readln <a> ;
for b : =1 to a do
begin for c  : =1 to b do
write < ’*’ > ;
writeln ;
end ;
for b : =a downto 1 do
begin
for c : =b downto 1 do
write < ‘*’ > ;
writeln ;
end ;
readln ;
goto hoho ;
end ;
3 : begin
clrscr ;
wirteln < ‘ 3 . Luas persegi panjang ‘ > ;
write < ‘ panjang : ‘ > ;
readln < p > ;
write < ‘ lebar : ‘ > ;
readln < l > ;
luas : =p*1 ;
write < ‘ luasnya adalah : ‘ , luas > ;
readln ;
goto hoho ;
end ;
4 : begin
clrscr ;
writeln < ‘ 4 . Kondisi ‘ > ;
write < ‘ masukkan bilangan : ‘ > ;
readln < x > ;
writeln ;
P : =0 ;
for l : =1 to X do
begin
if < X mod l =0> then
begin
P : =p+1 ;
end ;
end ;
if < p=2 > then
begin
writeln <X , ‘ adalah bilangan prima’ > ;
end
else
begin
writeln <X,’ bukan bilangan prima ‘ > ;
end ;
readln ;
goto hoho ;
end ;
5 : begin
writeln<’selesai’ > ;
readln ;
exit ;
end ;
else
begin
clrscr ;
writeln <’ pilihan 1..5 ‘ > ;
readln ;
goto hoho ;
end ;
end ;
end .

Contoh Menyatakan Perulangan : QBASIC
CLS
FOR I = 1 TO 2
FOR J = 1 TO 1
PRINT “BERANGKAT” ; I
NEXT J
NEXT I
PRINT “BERANGKAT KE KAMPUS”
FOR I = 4 TO 5
FOR J = 4 TO 4
PRINT “BERANGKAT” ; I
NEXT  J
NEXT I
END
Contoh Kondisi : PASCAL
uses crt ;
var
x : integer ;
begin
clrscr ;
write < ‘ masukkan angka : ‘ > ;
readln < x > ;
if x=0 then writeln < ‘ adalah kosong ‘ >
else if x mod 2=0 then
writeln < ‘ adalah bilangan genap ‘ >
else writeln < ‘ adalah bilangan ganjil ‘ > ;
readln ;
end .

Contoh Variabel : JAVA
class LatVariabel
{
public static void main(String[] args)
{
//variabel tanpa nilai
int umur;
String nama;
//isi variabel di atas
umur = 18;
nama = “RENALDI AGUNUG NUGROHO”;
//tampilkan output
System.out.println(umur);
System.out.println(nama);
}
}


Tidak ada komentar:

Posting Komentar