DUNIA HAMPA SEKALI

♥ 1212~mnLnysm

menentukan nilai maksimal dan minimal dalam pascal

ini ada lagi program untuk menentukan nilai maksimal dan minimal..

program minmax;
uses crt;
var a,b,c : integer;

procedure max;
begin
if (a>b) and (a>c) then
writeln(‘Jadi nilai maksimal dari ketiga bilangan tersebut adalah ‘,a);
else if (b>a) and (b>c) then
writeln(‘Jadi nilai maksimal dari ketiga bilangan tersebut adalah ‘,b);
else
writeln(‘Jadi nilai maksimal dari ketiga bilangan tersebut adalah ‘,c);
end;

procedure min;
begin
if (a<b) and (a<c) then
writeln(‘Jadi nilai minimal dari ketiga bilangan tersebut adalah ‘,a);
else if (b<a) and (b<c) then
writeln(‘Jadi nilai minimal dari ketiga bilangan tersebut adalah ‘,b);
else
writeln(‘Jadi nilai minimal dari ketiga bilangan tersebut adalah ‘,c);
end;

{program utama}
begin
writeln(‘===================================’);
writeln(‘”PENENTUAN NILAI MAKSIMAL DAN MINIMAL”‘);
writeln(‘===================================’);
writeln;
write(‘Masukkan Nilai Pertama : ‘);readln(a);
write(‘Masukkan Nilai Kedua   : ‘);readln(b);
write(‘Masukkan Nilai Ketiga  : ‘);readln(c);
writeln;
max;
min;
readln;
end.

program di atas hanya menggunakan tiga nilai saja,, untuk program yang menggunakan banyak nilai anda harus menggunakan tipe data array…

itu duluh….

About these ads

January 5, 2010 - Posted by | pascal

4 Comments »

  1. ea…
    bahasa apa yg diajarkan ko d kampusmu ikram??

    Comment by ibull | January 8, 2010 | Reply

    • bahasa apa??
      bahasa burung2…
      kwkwkwww,,,,
      kw iiah bhasa apa??

      Comment by 1212mnlnysm | January 9, 2010 | Reply

  2. bang kok gak bisa di compile ya?

    Comment by nadya | March 18, 2012 | Reply

    • hmmm.. kok gk bs ?
      mang pake apa ??

      Comment by 1212mnlnysm | May 7, 2012 | Reply


Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

Follow

Get every new post delivered to your Inbox.

%d bloggers like this: