aku takkan bisa bertemu dengan siapapun
karena aku ingin sendiri, tak ada yang menemani
dan jika aku terus begini
takkan ada yang mau berteman denganku
takkan ada cinta di antara kita
dan takkan ada yang peduli denganku
hal itu semua karena
aku hanya memikirkan diriku sendiri
dan ego telah menghancurkan semuanya..
Proses Pengerjaan :
PROGRAM Hitung;
USES Crt;
TYPE
BilanganNyata = Integer;
VAR
panjang:BilanganNyata;
lebar:BilanganNyata;
BEGIN
ClrScr; {Membersihkan layar output}
panjang := 7; {Memberikan nilai pada variabel “panjang”}
lebar := 4; {Memberikan nilai pada variabel “lebar”}
WriteLn(‘Diketahui Panjang = 7, Lebar = 4’);
WriteLn(‘Rumus luas = Panjang x Lebar’);
WriteLn(‘Rumus keliling = 2 x (Panjang + Lebar)’);
WriteLn(”);
WriteLn(‘Hasil:’);
WriteLn(‘Luas = ‘, panjang * lebar);
WriteLn(‘Keliling = ‘, 2 * (panjang + lebar));
ReadLn;
END.
kenapa saya namakan ‘Termehek-mehek Local’?
yak,saya juga bingung..
tadi ada nangis masal di kelas,well there is something prob lah
yaelah hari gini nangis-nangisan?
mending jambak-jambakan…
…Apa bedanya Bilangan Byte, ShortInt, Word, Integer dan LongInt ?
Program Pascal berikut mungkin bisa memberikan gambaran perbedaannya.
Program Kosntanta_numeric_integer;
Uses Crt;
Const
c1 =197; {byte}
c2 =-2; {shortInt}
c3 =1050; {Integer}
c4 =50678; {word}
c5 =3000000; {LongInt}
…
Huh..hari Rabu kemarin aku ga bisa ngerjain tugas komputer dengan maksimal..soalnya komputer yang aku pake di sekolah (khususnya di ruang B alias ruang komputer sekolah) sama sekali ga bisa kupake alias error. Jadi, ku nebeng sama Ima, temanku deh!
Pada awalnya, dia nyuruh aku cek lagi komputerku udah bisa digunakan belum. Tapi karena sampe zuhur tetap error, jadi terpaksa nebeng. Dia nyuruh aku diktein semua perintah yang ada di papan tulis.
Testing pertama:
error!!! ya iyalah, ada salah satu yang ga ada tanda titik koma (;) nya..
Terus testing kedua:
Sukses!!!! tapi dia ga ngerti cara previewnya, gitu pula dengan aku. Udah kucoba-coba, tapi ga bisa. Ya udah.
Kata pak guru, testing turbo pascalnya dilanjutin aja di rumah kalo ga berhasil di sekolah. Tapi sayangnya ku ga punya softwarenya turbo pascal. Ku udah coba download dari internet ga bisa juga. gimana lagi coba?
Kalo begitu, besok-besok copy softwarenya dari sekolah deh!
Perhatikan program berikut ini.
PROGRAM waktu;
Uses Crt;
Const
JamPerHari =24;
HariPerMinggu =7;
BulanPertahun =12;
HariPerTahun =365;
Begin
Clrscr {Clear Screen};
Writeln (‘Jumlah Jam Per Hari =’,JamPerHari:3);
Writeln (‘Jumlah Hari Per Minggu =’,HariPerMinggu:3);
Writeln (‘Jumlah Bulan Per Tahun =’,BulanPerTahun:3);
Writeln (‘Jumlah Hari Per Tahun =’,HariPerTahun:4);
Readln
End.
1. Perhatikan hasil program diatas dengan cara Alt+F9 dan Ctrl+F.
2. Jika seandainya program di atas dihilangkan Uses Crt nya apa yang terjadi ?
PROGRAM waktu;
Const
JamPerHari =24;
HariPerMinggu =7;
BulanPertahun =12;
HariPerTahun =365;
Begin
Clrscr {Clear Screen};
Writeln (‘Jumlah Jam Per Hari =’,JamPerHari:3);
Writeln (‘Jumlah Hari Per Minggu =’,HariPerMinggu:3);
Writeln (‘Jumlah Bulan Per Tahun =’,BulanPerTahun:3);
Writeln (‘Jumlah Hari Per Tahun =’,HariPerTahun:4);
Readln
End.
3. Program di atas bila diganti seperti berikut ini apa hasilnya ?? Kenapa demikian ??
PROGRAM waktu;
Uses Crt;
Const
JamPerHari =24;
HariPerMinggu =7;
BulanPertahun =12;
HariPerTahun =365;
Begin
Clrscr {Clear Screen};
Writeln (‘Jumlah Jam Per Hari =’,JamPerHari:1);
Writeln (‘Jumlah Hari Per Minggu =’,HariPerMinggu:1);
Writeln (‘Jumlah Bulan Per Tahun =’,BulanPerTahun:1);
Writeln (‘Jumlah Hari Per Tahun =’,HariPerTahun:2);
Readln
End.
