Showing Tag: "do" (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 ...
 

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