Browsing Archive: September, 2010

Suhu Konverter

Posted by Ketut Joko on Thursday, September 16, 2010, In : suhu 
berikut adalah listing program yang dapat mengkonversi dari celcius ke fahrenheit dan ke reaumur.


program suhu;
uses crt;
var celcius : integer;
    reamur,fahrenhait : real;
begin
     clrscr;
     writeln('Program konversi suhu');
     writeln('---------------------');
     write('Suhu dalam celcius : ');readln(celcius);
     reamur:=4/5*celcius;
     fahrenhait:=9/5*celcius+32;
     writeln('Suhu dalam reamur=',reamur:5:2);
     writeln('Suhu dalam fahrenhait= ',fahrenhait:5:2);
     readln;
end.

...
Continue reading ...
 

Tabel Suhu

Posted by Ketut Joko on Thursday, September 16, 2010, In : suhu 
berikut merupakan suhu converter, namun disini menggunakan rentangan convertan sesuai inputan. namun saya hanya menampilkan celcius ke farenheit saja.



program tabelsuhu;
var f:real;
c1,c2,i, j: integer;
begin
write('masukkan suhu celcius awal : ');readln(c1);
write('masukkan suhu celcius akhir : '); readln(c2);
writeln('tabel conversi suhu');
writeln('-------------------------');
writeln('no   celcius  fahrenheit');
writeln('-------------------------');

j := 0;
for i := c1 to c2 do
begin
j := j+1;
f:= 1.8*i...
Continue reading ...
 

Fungsi Spasi

Posted by Ketut Joko on Thursday, September 16, 2010, In : fungsi spasi 
Kali ini saya akan memaparkan bagaimana membuat space(tempat) untuk spasi. ini biasanya digunakan untuk pembuatan tabel, ini hanya diperlukan untuk kerapian. kususnya peng arsipan.



program spasi;
uses crt;
type data=record
     nama,nim:string;
     end;

var i,text:integer;
dt : array[1..2] of data;
function spasi(teks:string):string;
var teks1:string;
j:integer;
begin
teks1:=teks;
for j := 1 to (20-length(teks1)) do
teks1 := teks1 + ' ';
spasi := teks1;

end;

begin
for i := 1 to 2 do
begin
write('masukkan nama :...
Continue reading ...
 

Record + Array pada Pascal

Posted by Ketut Joko on Thursday, September 16, 2010, In : record array 
Record adalah sebuah sebuah bentuk yang dapat menampung variabel yang berbeda. sedangkan array adalah berfungsi untuk menampung data dengan index yang ada, sehingga cukup 1 variabel yang digunakan.
record dan array dapat digabungkan sebagai berikut


program record&array;
uses crt;
type
    Thiphop = record
            nama : string[20];
            alamat : string[30];
            Nick   : string[10];
            end;
var i:byte;
hiphoper :array[1..6] of Thiphop;
begin
writeln('inputkan kosong / enter unt...
Continue reading ...
 

Polindrom

Posted by Ketut Joko on Thursday, September 16, 2010, In : polindrom 
Om Suastiastu ide dane sareng sami.. kali ini saya akan memberikan salah satu program polindrom pada pascal. kata polindrom adalah sebuah kata yang bila di baca dari belakang memiliki makna yang sama.
contoh : "katak" bila dibaca dari kanan maka akan sama yaitu "katak"


berikut listingnya:



program polindrom;
uses crt;
var kata,huruf,huruf1:string;
    i,j:integer;
begin
    write('Masukkan kata : ');readln(kata);
    j:=length(kata);
    writeln;
    huruf:='';
    for i:=1 to j do
    huruf:=huruf+kata[i...
Continue reading ...
 
 
Jumlah Pengunjung
hit counter
html hit counter