Bagi anak-anak SMA N 8 Denpasar kelas X yang ikut ekstra bahasa pemrograman silakan upload source code tugasnya di blog ini dengan cara memberikan comment pada tulisan ini...
Upload terakhir tgl 30 november 2009....
ingat nama lengkap, kelas dan nomor absen....
Senin, 23 November 2009
Langganan:
Posting Komentar (Atom)
Tugas Pertama :
BalasHapusProgram Memasukkan;
uses crt;
var a,b : integer;
begin;
clrscr;
writeln ('Memasukkan Bilangan I : '); readln (a);
writeln ('Memasukkan Bilangan II : '); readln (b);
writeln ('Hasil Penjumlahan : '); writeln (a+b);
writeln ('Hasil Pengurangan : '); writeln (a-b);
wrteln ('Hasil Perkalian : '); writeln (a*b);
writeln ('Hasil Pembagian : '); writeln (a div b);
writeln ('Terima Kasih');
readln;
end.
Tugas Kedua :
Program Persegi;
uses crt;
var a,b : integer;
begin;
clrscr;
writeln ('Masukkan Bilangan Persegi Panjang');
writeln ('Masukkan Panjang : '); readln (a);
writeln ('Masukkan Lebar : '); readln (b);
writeln ('Luas Persegi : '); writeln (a*b,' cm');
writeln ('Keliling Persegi : '); writeln (2*(a+b), 'cm persegi');
writeln ('Terima Kasih');
readln;
end.
Tugas 1 :
BalasHapusPROGRAM Operasi_Hitungan;
USES crt;
VAR a,b,c,d,e : integer;
f : real;
BEGIN
clrscr;
Write ('Masukkan Nilai a : ');
Readln (a);
Write ('Masukkan Nilai b : ');
Readln (b);
c := a+b;
d := a-b;
e := a*b;
f := a/b;
Writeln ('Hasil Penjumlahan ',a,' + ',b,' adalah ',c);
Readln;
Writeln ('Hasil Pengurangan ',a, ' - ' ,b, ' adalah ',d);
Readln;
Writeln ('Hasil Perkalian ',a, ' * ' ,b, ' adalah ',e);
Readln;
Writeln ('Hasil Pembagian ',a, ' / ' ,b, ' adalah ',f:0:2);
Readln;
Writeln ('Terima Kasih');
Readln;
END.
Tugas 2 :
PROGRAM Pengukuran_Bangun_Datar;
USES Crt;
VAR Panjang,Lebar,Keliling,Luas : integer;
BEGIN
Clrscr;
Write ('Masukkan Panjang Persegi : ');
Readln (Panjang);
Write ('Masukkan Lebar Persegi : ');
Readln (Lebar);
Keliling := (2*Panjang) + (2*Lebar);
Luas := Panjang * Lebar;
Writeln ('Keliling Persegi : ',2,' * ',Panjang,' + ',2,' * ',Lebar,' adalah ',Keliling,' CM');
Readln;
Writeln ('Luas Persegi : ',Panjang,' * ',Lebar,' adalah ',Luas,' CM Persegi');
Readln;
Writeln ('Terima Kasih');
Readln;
END.
tugas pertama
BalasHapusprogram penjumlahan_pengurangan_perkalian_pembagian;
uses crt;
var a,b,c,d,e:integer;
f:real;
begin
clrscr;
write('memasukan nilai a:');
readln(a);
write('memasukan nilai b:');
readln(b);
c:=a+b;
d:=a-b;
e:=a*b;
f:=a/b;
writeln('hasil penjumlahan ',a,'+',b,' adalah ',c);
readln;
writeln('hasil pengurangan ',a,'-',b,' adalah',d);
readln;
writeln('hasil perkalian ',a,'*',b,' adalah',e);
readln;
writeln('hasil pembagian ',a,'/',b,' adalah ',f:0:2);
readln;
writeln('terimakasih');
readln;
end.
tugas kedua
program pengukuran_bentuk;
uses crt;
var panjang,lebar,keliling,luas:real;
begin
clrscr;
write('masukan nilai panjang :');
readln(panjang);
write('masukan nilai lebar :');
readln(lebar);
keliling:=(2*panjang)+(2*lebar);
luas:=panjang*lebar;
writeln ('keliling persegi adalah ',keliling:0:2,' cm');
readln;
writeln ('luas persegi adalah ',luas:0:2,' cm persegi');
readln;
writeln('terimakasih');
readln;
end.
edit: x6 42 ni wayan sutraeni rahayu
BalasHapustugas1 :
BalasHapusPROGRAM Operasi_ Hitungan;
USES crt;
VAR a,b,c,d,e :integer;
f : real;
BEGIN
clrscr;
Write ('Masukkan nilai a : ');
Readin (a);
Write ('masukkan nilai b : ');
Readin (b);
c :=a+b;
d :=a-b;
e :=a*b;
f :=a/b;
Writein ('hasil penjumlahan',a,'+',b,' adalah ',c);
readin;
writein ('hasil pergurangan'.a,'-',b,'adalah',d);
Readin;
writein ('hasil perkalian',a,'*',b,'adalah',e);
Readin:
writein ('hasil pembagian',a,'/',b,'adalah',f:0:2);
readin;
Writein ('terima Kasih');
readin;
Tugas 2 :
BalasHapusPROGRAM Pengukuran_Bangun_Datar;
USES Crt;
VAR Panjang,Lebar,Keliling,Luas : integer;
BEGIN
Clrscr;
Write ('Masukkan Panjang Persegi : ');
Readln (Panjang);
Write ('Masukkan Lebar Persegi : ');
Readln (Lebar);
Keliling := (2*Panjang) + (2*Lebar);
Luas := Panjang * Lebar;
Writeln ('Keliling Persegi : ',2,' * ',Panjang,' + ',2,' * ',Lebar,' adalah ',Keliling,' CM');
Readln;
Writeln ('Luas Persegi : ',Panjang,' * ',Lebar,' adalah ',Luas,' CM Persegi');
Readln;
Writeln ('Terima Kasih');
Readln;
Tugas1 :
BalasHapusPROGRAM Operasi_ Hitungan;
USES crt;
VAR a,b,c,d,e :intenger;
f : real;
clrscr;
Writen ('masukkan nilai a :';
readin (a);
writan ('masukkan Nilai B :';
Readin (b);
c :=a+b;
d :=a-b;
e :=a*b;
f :=a/b;
Writein ('hasil penjumlahan',a,'+',b,'adalah',c);
readin;
Writein ('hasil pengurangan',a,'-',b,'adalah',d);
readin;
Writein ('hasil perkalian',a,'*',b,'adalah',e);
readin;
Writein ('hasil pembagian',a,'/',b,'adalah',f:0:2);
readin;
Writein ('Terima kasih');
readin;
End.
Tugas 2 :
BalasHapusPROGRAM Pengukuran_Bangun_Datar;
USES Crt;
VAR Panjang,Lebar,Keliling,Luas : integer;
BEGIN
Clrscr;
Write ('Masukkan Panjang Persegi : ');
Readln (Panjang);
Write ('Masukkan Lebar Persegi : ');
Readln (Lebar);
Keliling := (2*Panjang) + (2*Lebar);
Luas := Panjang * Lebar;
Writeln ('Keliling Persegi : ',2,' * ',Panjang,' + ',2,' * ',Lebar,' adalah ',Keliling,' CM');
Readln;
Writeln ('Luas Persegi : ',Panjang,' * ',Lebar,' adalah ',Luas,' CM Persegi');
Readln;
Writeln ('Terima Kasih');
Readln;
END.
mantab dah programna... kunjungi juga ya... http://andy-study.blogspot.com ,,sharing2 ilmu ya...
BalasHapusAde karunia wiadnyani (x.2/01)
BalasHapustugas 1 :
PROGRAM Operasi_ Hitungan;
USES crt;
VAR a,b,c,d,e :intenger;
f : real;
clrscr;
Writen ('masukkan nilai a :';
readin (a);
writan ('masukkan Nilai B :';
Readin (b);
c :=a+b;
d :=a-b;
e :=a*b;
f :=a/b;
Writein ('hasil penjumlahan',a,'+',b,'adalah',c);
readin;
Writein ('hasil pengurangan',a,'-',b,'adalah',d);
readin;
Writein ('hasil perkalian',a,'*',b,'adalah',e);
readin;
Writein ('hasil pembagian',a,'/',b,'adalah',f:0:2);
readin;
Writein ('Terima kasih');
readin;
End.
Tugas 2 :
PROGRAM Pengukuran_Bangun_Datar;
USES Cr...
Thursday, November 26, 2009 11:31 PM
Tugas 2 :
PROGRAM Pengukuran_Bangun_Datar;
USES Crt;
VAR Panjang,Lebar,Keliling,Luas : integer;
BEGIN
Clrscr;
Write ('Masukkan Panjang Persegi : ');
Readln (Panjang);
Write ('Masukkan Lebar Persegi : ');
Readln (Lebar);
Keliling := (2*Panjang) + (2*Lebar);
Luas := Panjang * Lebar;
Writeln ('Keliling Persegi : ',2,' * ',Panjang,' + ',2,' * ',Lebar,' adalah ',Keliling,' CM');
Readln;
Writeln ('Luas Persegi : ',Panjang,' * ',Lebar,' adalah ',Luas,' CM Persegi');
Readln;
Writeln ('Terima Kasih');
Readln;
ade karunia wiadnyani(x.2/01)
BalasHapustugas 1:
PROGRAM Operasi_ Hitungan;
USES crt;
VAR a,b,c,d,e :intenger;
f : real;
clrscr;
Writen ('masukkan nilai a :';
readin (a);
writan ('masukkan Nilai B :';
Readin (b);
c :=a+b;
d :=a-b;
e :=a*b;
f :=a/b;
Writein ('hasil penjumlahan',a,'+',b,'adalah',c);
readin;
Writein ('hasil pengurangan',a,'-',b,'adalah',d);
readin;
Writein ('hasil perkalian',a,'*',b,'adalah',e);
readin;
Writein ('hasil pembagian',a,'/',b,'adalah',f:0:2);
readin;
Writein ('Terima kasih');
readin;
End.
Tugas 2 :
PROGRAM Pengukuran_Bangun_Datar;
USES Cr...
Thursday, November 26, 2009 11:31 PM
Tugas 2 :
PROGRAM Pengukuran_Bangun_Datar;
USES Crt;
VAR Panjang,Lebar,Keliling,Luas : integer;
BEGIN
Clrscr;
Write ('Masukkan Panjang Persegi : ');
Readln (Panjang);
Write ('Masukkan Lebar Persegi : ');
Readln (Lebar);
Keliling := (2*Panjang) + (2*Lebar);
Luas := Panjang * Lebar;
tugas 1
Writeln ('Keliling Persegi : ',2,' * ',Panjang,' + ',2,' * ',Lebar,' adalah ',Keliling,' CM');
Readln;
Writeln ('Luas Persegi : ',Panjang,' * ',Lebar,' adalah ',Luas,' CM Persegi');
Readln;
Writeln ('Terima Kasih');
Readln;
putu yoga artanaya
BalasHapusX1
48
tugas1 :
PROGRAM Hitungan;
USES crt;
VAR a,b,c,d,e :integer;
f : real;
BEGIN
clrscr;
Write ('Masukkan nilai a : ');
Readin (a);
Write ('masukkan nilai b : ');
Readin (b);
c :=a+b;
d :=a-b;
e :=a*b;
f :=a/b;
Writein ('hasil penjumlahan',a,'+',b,' adalah ',c);
readin;
writein ('hasil pergurangan'.a,'-',b,'adalah',d);
Readin;
writein ('hasil perkalian',a,'*',b,'adalah',e);
Readin:
writein ('hasil pembagian',a,'/',b,'adalah',f:0:2);
readin;
Writein ('terima Kasih');
readin;
end.
Tugas 2 :
PROGRAM Pengukuran;
USES Crt;
VAR Panjang,Lebar,Keliling,Luas : integer;
BEGIN
Clrscr;
Write ('Masukkan Panjang Persegi : ');
Readln (Panjang);
Write ('Masukkan Lebar Persegi : ');
Readln (Lebar);
Keliling := (2*Panjang) + (2*Lebar);
Luas := Panjang * Lebar;
Writeln ('Keliling Persegi : ',2,' * ',Panjang,' + ',2,' * ',Lebar,' adalah ',Keliling,' CM');
Readln;
Writeln ('Luas Persegi : ',Panjang,' * ',Lebar,' adalah ',Luas,' CM Persegi');
Readln;
Writeln ('Terima Kasih');
Readln;
end.
Adi Jayakusuma
BalasHapus01
X.1
Tugas 1 :
PROGRAM Hitungan_Bilangan;
USES crt;
VAR a,b,c,d,e : integer;
f : real;
BEGIN
clrscr;
Write ('Masukkan Nilai a : ');
Readln (a);
Write ('Masukkan Nilai b : ');
Readln (b);
c := a+b;
d := a-b;
e := a*b;
f := a/b;
Writeln ('Hasil Penjumlahan ',a,' + ',b,' adalah ',c);
Readln;
Writeln ('Hasil Pengurangan ',a, ' - ' ,b, ' adalah ',d);
Readln;
Writeln ('Hasil Perkalian ',a, ' * ' ,b, ' adalah ',e);
Readln;
Writeln ('Hasil Pembagian ',a, ' / ' ,b, ' adalah ',f:0:2);
Readln;
Writeln ('Terima Kasih');
Readln;
END.
Tugas 2 :
PROGRAM Pengukuran;
USES Crt;
VAR Panjang,Lebar,Keliling,Luas : integer;
BEGIN
Clrscr;
Write ('Masukkan Panjang Persegi : ');
Readln (Panjang);
Write ('Masukkan Lebar Persegi : ');
Readln (Lebar);
Keliling := (2*Panjang) + (2*Lebar);
Luas := Panjang * Lebar;
Writeln ('Keliling Persegi : ',2,' * ',Panjang,' + ',2,' * ',Lebar,' adalah ',Keliling,' CM');
Readln;
Writeln ('Luas Persegi : ',Panjang,' * ',Lebar,' adalah ',Luas,' CM Persegi');
Readln;
Writeln ('Terima Kasih');
Readln;
End.
i made prasta gunada x6 34
BalasHapustugas I
program penghitungan;
uses crt;
var a,b,c,d,e:integer;
f:real;
begin
clrscr;
write('memasukan nilai I:');readln(a);
write('memasukan nilai II:');readln(b);
c:=a+b;
d:=a-b;
e:=a*b;
f:=a/b;
writeln('hasil penjumlahan',a,'+',b,'adalah',c);readln;
writeln('hasil pengurangan',a,'-',b,'adalah'.d);readln;
writeln('hasil perkalian',a,'*',b,'adalah',e); readln;
writeln('hasil pembagiaan',a,'/',b,'adalah',f:0:2);readln;
writeln('terima kasih');
readln;
end.
Tugas II
program pengukuran;
uses crt;
var panjang,lebar,keliling,luas:real;
begin
Clrscr;
write('memasukan nilai panjang:'); readln(panjang);
write('memasukan nilai lebar :'); readln(lebar);
keliling:=(2*panjang)+(2*lebar);
luas:=panjang*lebar;
writeln('keliling persegi adalah',keliling:0:2,'cm');readln;
write('luas persegi adalah',luas:0:2,'cm persegi');
readln;
writeln('terima kasih');
readln;
end.
NI KADEK DWI PURNAMA RATNA SARI
BalasHapusX6
18
tugas I
program pascal_penghitungan;
uses crt;
var a,b,c,d,e:integer;
f:real;
begin
clrscr;
write('memasukan nilai I:');readln(a);
write('memasukan nilai II:');readln(b);
c:=a+b;
d:=a-b;
e:=a*b;
f:=a/b;
writeln('hasil penjumlahan',a,'+',b,'adalah',c);readln;
writeln('hasil pengurangan',a,'-',b,'adalah'.d);readln;
writeln('hasil perkalian',a,'*',b,'adalah',e); readln;
writeln('hasil pembagiaan',a,'/',b,'adalah',f:0:2);readln;
writeln('terima kasih');
readln;
end.
Tugas II
program pengukuran_bangun_datar;
uses crt;
var panjang,lebar,keliling,luas:real;
begin
Clrscr;
write('memasukan nilai panjang:'); readln(panjang);
write('memasukan nilai lebar :'); readln(lebar);
keliling:=(2*panjang)+(2*lebar);
luas:=panjang*lebar;
writeln('keliling persegi adalah',keliling:0:2,'cm');readln;
write('luas persegi adalah',luas:0:2,'cm persegi');
readln;
writeln('terima kasih');
readln;
end.
Tugas Pertama :
BalasHapusProgram Memasukkan;
uses crt;
var a,b : integer;
begin;
clrscr;
writeln ('Memasukkan Bilangan I : '); readln (a);
writeln ('Memasukkan Bilangan II : '); readln (b);
writeln ('Hasil Penjumlahan : '); writeln (a+b);
writeln ('Hasil Pengurangan : '); writeln (a-b);
wrteln ('Hasil Perkalian : '); writeln (a*b);
writeln ('Hasil Pembagian : '); writeln (a div b);
writeln ('Terima Kasih');
readln;
end.
Tugas Kedua :
Program Persegi;
uses crt;
var a,b : integer;
begin;
clrscr;
writeln ('Masukkan Bilangan Persegi Panjang');
writeln ('Masukkan Panjang : '); readln (a);
writeln ('Masukkan Lebar : '); readln (b);
writeln ('Luas Persegi : '); writeln (a*b,' cm');
writeln ('Keliling Persegi : '); writeln (2*(a+b), 'cm persegi');
writeln ('Terima Kasih');
readln;
end.
GDE A PRABHAWATYA POUNDRA
BalasHapusX3
35
Tugas 1:
PROGRAM Operasi Hitungan;
USES crt;
VAR a,b,c,d,e : integer,
f : real;
BEGIN
clrscr
write('Masukan Nilai a:');
readln (a);
write('Masukan Nilai b:');
readln (b);
c:=a+b;
d:=a-b;
e:=a*b;
f:=a/b;
writeln('Hasil penjumlahan',a,'+',b,'adalah',c);
readln;
writeln('Hasil pengurangan',a,'-',b,'adalah',d);
readln;
writeln('Hasil perkalian',a,'*',b,'adalah',e);
readln;
writeln('Hasil pembagian',a,'/',b,'adalah'f:0:2);
readln;
wrteln('Terima Kaih');
END.
Tugas 2:
PROGRAM Pengukuran Bangun Datar;
USES Crt;
VAR Panjang,Lebar,Keliling,Luas : Integer;
BEGIN
Clrscr;
Write('Masukan Panjang Persegi:');
readln(Panjang);
Writeln('Masukan Lebar Persegi:');
readln(Lebar);
Keliling:=(2*Panjang)+(2*Lebar);
Luas:=Panjang*Lebar;
Writeln('Keliling Persegi Panjang:',2,'*',Panjang,'+',2,'*',Lebar,'adalah'Keliling,'cm');
readln;
Writeln(Luas Persegi Panjang:',Panjang,'*',Lebar,'adalah',Luas,'cm persegi');
readln;
writeln('Terima Kasih');
readln;
END.
yogi aditya
BalasHapus49
X1
PROGRAM Hitungan;
USES crt;
VAR a,b,c,d,e : integer;
f : real;
BEGIN
clrscr;
Write ('Masukkan Nilai a : ');
Readln (a);
Write ('Masukkan Nilai b : ');
Readln (b);
c := a+b;
d := a-b;
e := a*b;
f := a/b;
Writeln ('Hasil Penjumlahan ',a,' + ',b,' adalah ',c);
Readln;
Writeln ('Hasil Pengurangan ',a, ' - ' ,b, ' adalah ',d);
Readln;
Writeln ('Hasil Perkalian ',a, ' * ' ,b, ' adalah ',e);
Readln;
Writeln ('Hasil Pembagian ',a, ' / ' ,b, ' adalah ',f:0:2);
Readln;
Writeln ('Terima Kasih');
Readln;
END.
Tugas 2 :
PROGRAM Pengukuran;
USES Crt;
VAR Panjang,Lebar,Keliling,Luas : integer;
BEGIN
Clrscr;
Write ('Masukkan Panjang Persegi : ');
Readln (Panjang);
Write ('Masukkan Lebar Persegi : ');
Readln (Lebar);
Keliling := (2*Panjang) + (2*Lebar);
Luas := Panjang * Lebar;
Writeln ('Keliling Persegi : ',2,' * ',Panjang,' + ',2,' * ',Lebar,' adalah ',Keliling,' CM');
Readln;
Writeln ('Luas Persegi : ',Panjang,' * ',Lebar,' adalah ',Luas,' CM Persegi');
Readln;
Writeln ('Terima Kasih');
Readln;
End.
I Wayan Herry Wiguna
BalasHapusX3
27
Tugas 1 :
PROGRAM Operasi Hitungan;
USES crt;
VAR a,b,c,d,e : integer,
f : real;
BEGIN
clrscr;
write('Masukan Nilai a:');
readln(a);
write('Masukan Nilai b:');
readln(b);
c:=a+b;
d:=a-b;
e:=a*b;
f:=a/b;
writeln('Hasil penjumlahan',a,'+',b,'adalah',c);
readln;
writeln('Hasil pengurangan',a,'-',b,'adalah',d);
readln;
writeln('Hasil perkalian',a,'*',b,'adalah',e);
readln;
writeln('Hasil pembagian',a,'/',b,'adalah'f:0:2);
readln;
writeln('Terima Kasih');
END.
TUGAS 2:
PROGRAM Pengukuran Bangun Datar;
USES crt;
VAR Panjang,Lebar,Keliling,Luas : integer;
BEGIN
clrscr;
write('Masukan Panjang Persegi:');
readln(Panjang);
writeln(Masukan Lebar Persegi:');
readln(Lebar);
Keliling:=(2*Panjang)+(2*Lebar);
Luas:=Panjang*Lebar;
Writeln(Keliling Persegi Panjang:',2,'*',Panjang,'+',2,'*,'Lebar,'adalah'Keliling,'cm');
readln;
Writeln(Luas Persegi Panjang:',Panjang,'*',Lebar,'adalah',Luas,'cm persegi');
readln;
writeln('Terima Kasih');
readln;
END.
tugas I
BalasHapusprogram penjumlahan_pengurangan_perkalian_pembagian;
uses crt;
var a,b,c,d,e:integer;
f:real;
begin
clrscr;
write('memasukkan nilai a :');
readln(a);
write('memasukkan nilai b :');
readln(b);
c:=a+b;
d:=a-b;
e:=a*b;
f:=a/b;
writeln('hasil penjumlahan',a,'+',b,'adalah',c);
readln;
writeln('hasil pengurangan',a,'-',b,'adalah',d);
readln;
writeln('hasil perkalian',a,'*',b,'adalah',e);
readln;
writeln('hasil pembagian',a,'/',b,'adalah',f:0:2);
readln;
writeln('terima kasih');
readln;
tugas II
program pengukuran;
uses crt;
var panjang,lebar,keliling,luas:real;
begin
clrscr;
write('masukkan nilai panjang:');
readln('panjang');
write('masukkan nilai lebar:');
readln('lebar');
keliling:=(2*panjang)+(2*lebar);
luas:=panjang*lebar;
writeln('keliling persegi adalah',keliling:0:2,'cm');
readln;
writeln('luas persegi adalah',luas:0:2,'cm persegi');
readln;
writeln('terima kasih');
readln;
kurnia philyanti x6 29
BalasHapustugas I
program menghitung;
uses crt;
Var a,b,c,d,e:integer;
F:real;
Begin
Clrscs;
write('memasukkan nilai I:");readln(a);
write("memasukkan nilai II:')readln(b);
C:=a+b;
D:=a-b;
E:=a*b;
F:=a/b;
writeln('hasil penjumlahan ',a,'+',b,' adalah ',c); readln;
writeln('hasil pengurangan ',a,'-',b,' adalah ',d); readln;
writeln('hasil perkalian ',a,'*',b,' adalah ',e); readln;
writeln('hasil pembagian ',a,'/',b,' adalah ',f:0:2); readln;
writeln('terima kasih');
readln;
end.
tugas II
program mengukur;
uses crt;
var panjang,lebar,keliling,luas:real;
begin
clrscr;
write('memasukkan nilai panjang :'); readln(panjang);
write('memasukkan nilai lebar :'); readln(lebar);
keliling:=(2*panjang)+(2*lebar);
luas:=panjang*lebar;
writeln('keliling persegi adalah',keliling:0:2,'cm');readln;
write('luas persegi adalah',luas:0:2,' cm persegi');
readln;
writeln('terima kasih');
readln;
end.