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