Pemrograman Turbo Paskal

Hari ini, pas menunggu dijemputi kk q, aq ngenet sama ade tingkat q di depan kampus. Dan dia menanyakan soal pemrograman komputer (matkul ku waktu semester 2), tapi masalahnya, karena otak ku gak begitu berpotensi dalam mengingatkan sesuatu, alhasil aku gak bisa memberikan bantuan yang berarti buat dia.. :\ O'o..

Sampe di kost, akhirnya buka lagi file semester 2, ini ne beberapa program (program turbo pascal) yang tadi ditanyain (N gak bisa Q kerjain td..!!).. yang dulu bisa ku kerjain.. :P

Entah ne dulu TM alias tiket masuk (kalo gak dikerjain gak bisa masuk!! Jd, mau gak mau harus dikerjain :D :P) .. hahaa

1. Menentukan bilangan terbesar

• Cara 1:

      program soal_1a;

uses wincrt;

var

b1,b2,b3:integer;

begin

     writeln ('^Program ini akan membantu anda menentukan nilai terbesar dari tiga bilangan bulat^');

     write('Masukkan bilangan pertama =',' ');readln(b1);

     write('Masukkan bilangan kedua =',' ');readln(b2);

     write('Masukkan bilangan ketiga =',' ');readln(b3);

     if (b1>b2) and (b1>b3) then

     writeln (b1,' adalah nilai terbesar')

     else

     if (b2>b3) and (b2>b1) then

     writeln (b2,' adalah nilai terbesar')

     else

     writeln (b3,' adalah nilai terbesar');

     writeln;

     writeln;   

     writeln('"Terima kasih telah menggunakan program ini ^.^"');

     writeln('                  See You Again...             ');

end.

• Cara 2:

program soal_1b;

uses wincrt;

function terbesar(var a,b,c:integer):integer;

begin

     if (a>b) and (a>c) then terbesar:=a

     else

     if (b>a) and (b>c) then terbesar:=b

     else

     terbesar:=c

     end;

var

b1,b2,b3:integer;

begin

     writeln('^-^ Program mencari nilai terbesar dari tiga bilangan bulat ^-^');

     writeln;             

     writeln;

     write('Masukkan bilangan b1 =',' ');readln(b1);

     write('Masukkan bilangan b2 =',' ');readln(b2);

     write('Masukkan bilangan b3 =',' ');readln(b3);

     writeln;

     writeln('Angka terbesar adalah',' ',terbesar(b1,b2,b3));

     writeln;

     writeln('             Terimakasih sudah menggunakan program ini..');

     writeln('                    "..See You Again.."');

end.

2. Program Mencari Akar Persamaan Kuadrat

     program solusi_persamaan_kuadrat;

uses wincrt;

Var

a,b,c,x,y,D: real;

begin

      writeln('Program ini akan membantu anda mencari akar-akar dari persamaan kuadrat:ax^2+bx+c') ;

      write('Masukkan nilai a =');readln(a);

      write('Masukkan nilai b =');readln(b);

      write('Masukkan nilai c =');readln(c);

      D:=(b*b)-4*a*c;

      if d<0 then writeln('Oupss., angka yang anda masukkan tidak memiliki akar real');

      x:=(-b+sqrt(d))/(2*a) ;

      y:=(-b-sqrt(d))/(2*a) ;

      writeln;

      writeln('Nilai distriminan (D)=',D);

      writeln('Nilai x=',b);

      writeln('Nilai y=',c);

      writeln('Nilai x1:=',x:2:2);

      writeln('Nilai x2:=',y:2:2);

end.