Showing Tag: "readkey" (Show all posts)

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 ...
 

Char - ascii converter

Posted by Ketut Joko on Tuesday, July 6, 2010, In : Half 


Mungkin sebelumnya saya memosting Asscii viewer yang berguna untuk menampilkan hasil dari kode asscii ke charakter, nah rekan-rekan dapat mengonvert dari asscii ke charakter atau sebaliknnya. berikut source kode pada pascal:


PROGRAM ASSCIICHAR;
USES crt;
var i,j: char;
k : integer;
label akhir;
begin
clrscr;
repeat;
writeln;
writeln;
writeln;
writeln('1. ascii to char');
writeln('2. char to ascii');
write('input pilihan, ' + chr(39) + 'Q' + chr(39) +' untuk keluar : ');
j := readkey ;
j := upcase(j);
if j = '...
Continue reading ...
 

Lagu Anak Ayam

Posted by Ketut Joko on Tuesday, July 6, 2010, In : looping 
Berikut merupakan sebuah contoh program pada pascal yang menggunakan perulangan :
program anak_ayam;
uses crt;
var n:integer;
begin
write('Masukkan Jumlah Ayam');
readln(n);

writeln('lagu anak ayam:');

if n > 1 then
repeat
writeln('anak ayam turunlah ',n);
writeln('mati satu tinggalah ',n-1);
n:=n-1;
until (n=1);
writeln('anak ayam turunlah 1');
writeln('mati satu tinggalah induknya');
readkey;
end.


ketika program tersebut di run pada pascal maka anda harus mengimput angka, misalkan 7 maka akan terlihat output...
Continue reading ...
 
 
Jumlah Pengunjung
hit counter
html hit counter