Welcome To my Blog :)

Welcome to my blog.. :)

Tugas dan laporanku yang telah berlalu... xixixixiiii.. :D :P

Selasa, 19 Maret 2013

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.

Tidak ada komentar:

Posting Komentar