ordered linked list
mengurutkan data pada linkedlist
berikut coding dengan menggunakan NetBeans


package orderedlinklist;

class Node{
    int data;
    Node prev;
    Node next;
}

public class OrderedLinkList {
    static Node head,tail;
   
    static void traverse(){
        Node x = head;
        while(x != null){
            System.out.print(x.data + " - ");
            x = x.next;
        }
        System.out.println("");
    }
   
    static void insert(int new_data){
        Node new_node = new Node();
        new_node.data = new_data;
        if(head == null && tail == null){  
            head = new_node;
            tail = new_node;
        }else if(new_node.data <= head.data){
            new_node.next = head;
            head.prev = new_node;
            head = new_node;
        }else if(new_node.data >= tail.data){
            new_node.prev = tail;
            tail.next = new_node;
            tail = new_node;
        }else{
            Node position = head;
            while(position != null && position.data < new_node.data){
                position = position.next;
            }
            if(position != null){
                new_node.next = position;
                new_node.prev = position.prev;
                position.prev = new_node;
                new_node.prev.next = new_node;
            }
        }
    }
   
   public static void remove(int deleted){
       if(head == null && tail == null){
          
       }else if(head==tail && head.data == deleted){
           head = null;
           tail = null;
       }else if(head.data == deleted){
           head = head.next;
           head.prev.next = null;
           head.prev = null;
       }else if(tail.data == deleted){
           tail = tail.prev;
           tail.next.prev = null;
           tail.next = null;
       }else{
           Node position = head;
           while(position != null && position.data != deleted){
               position = position.next;
           }
           if(position != null){
               Node previous = position.prev;
               Node next_ = position.next;
               position.prev = null;
               position.next = null;
               previous.next = next_;
               previous.prev = previous;
           }
       }
   }
   
    public static void main(String[] args) {
        insert(12);
        insert(11);
        traverse();
        insert(3);
        traverse();
    }
}

konversi scrip bahasa pemograman java ke bahasa pemograman pascal

Hayy guys kali ini saya belajar mengkonversi bahasa pemograman java ke pascal

Kali ini saya mengkonversikan bahasa pemograman java yang berkonsep circularry kedalam bahasa pemograman pascal

circularry

Yang berikut ini adalah konversi bahasa pemograman java yang berkonsep linkedlist ke dalam bahasa pemograman pascal.

Linkedlist 



singgle linkedlist

Sekian bebrapa conto konversi dari saya guys maksih ya... udah mampir lagi di blog saya

selamat mancoba guys

program operasi bilangan pecahan pascal

HAllo guys selamat datang di blog saya. kali ni saya membahas tentang program perhitungan bilangan pecahan.menggunakan bahasa pemograman pascal.

Berikut contoh program sederhana pascal perhitungan bilangan pecahan

Program OperasiPecahan;

type pecahan = record

     pb,py : integer;

end;

var p1, p2, jumlah, kurang, kali, bagi : pecahan;

begin

     writeln('');

     writeln('');

     write('Masukan penyebut pecahan pertama : ');

     read(p1.py);

     write('Masukan pembilang pecahan pertama : ');

     read(p1.pb);

     write('Masukan penyebut pecahan kedua : ');

     read(p2.py);

     write('Masukan pembilang pecahan kedua : ');

     read(p2.pb);

     jumlah.pb := p1.pb*p2.pb;

     jumlah.py := (p1.py*p2.pb) + (p2.py*p1.pb);

     kurang.pb := jumlah.pb;

     kurang.py := (p1.py*p2.pb) - (p2.py*p1.pb);

     kali.pb := kurang.pb;

     kali.py := p1.py * p2.py;

     bagi.pb := p1.pb * p2.py;

     bagi.py := p1.py * p2.pb;

     writeln('Pecahan 1 : ', p1.py,'/',p1.pb);

     writeln('Pecahan 2 : ', p2.py,'/',p2.pb);

     writeln('Hasil jumlah : ',jumlah.py,'/',jumlah.pb);

     writeln('Hasil kurang : ',kurang.py,'/',kurang.pb);

     writeln('Hasil kali : ',kali.py,'/',kali.pb);

     writeln('Hasil bagi : ',bagi.py,'/',bagi.pb);

end.

Output
Di bagian output ini anda mengentrikan bilangan pembilang dan penyebut untuk di proses

Selamat mencoba mohon maaf jika ada salah tulis dalam blog saya
Terimakasih