algoritma pemrograman dasar

askum reader...
d kesempatan ne, aq mw shared  dikit ttg algoritma, membwt program d pascal...
moga j berguna,amiennn

misalx qt mw bwt program mengurutkn bilangan:

Program Urut_Bilangan;
Uses Wincrt;
Var A,B,C:integer;
Begin
  Writeln('Program Mengurut Bilangan');
  Writeln('=========================');
  Writeln;
  Write('Masukkan Nilai A: ');readln(A);
  Write('Masukkan Nilai B: ');readln(B);
  Write('Masukkan Nilai C: ');readln(C);
  Writeln;
  if (A<=B) and (A<=C) then
    if (B<=C) then
       Writeln(A,' ',B,' ',C)
    else
       Writeln(A,' ',C,' ',B)
  else if (B<=A) and (B<=C) then
    if (A<=C) then
       Writeln(B,' ',A,' ',C)
    else
       Writeln(B,' ',C,' ',A)
  else if (C<=A) and (C<=B) then
    if (A<=B) then
       Writeln(C,' ',A,' ',B)
    else
       Writeln(C,' ',B,' ',A)
End.

nah stlh itu coba qm RUN, so outputx akn kyk ne:


program mengurut bilangan
==================
masukkan nilai A : 55
masukkan nilai B : 75
masukkan nilai C : 15

  15  55  75
sipp?!! ^_^

Berikutx qt akan m'bwt program menentukan segitiga. eits, ingat y!! menentukan segitiga, BUKAN mencari luas segitiga

Program Menentukan_Segitiga;
Uses Wincrt;
Var A,B,C,X,Y:integer;
Begin
  Writeln('Program Menentukan Segitiga');
  Writeln('=========================');
  Writeln;
  Write('Masukkan Sisi A: ');readln(A);
  Write('Masukkan Sisi B: ');readln(B);
  Write('Masukkan Sisi C: ');readln(C);
  Writeln;
  X:=sqr(C);
  Y:=sqr(A)+sqr(B);
  if (X<Y) then
    Writeln('Segitiga Lancip')
  else if (X=Y) then
    Writeln('Segitiga Siku-Siku')
  else
    Writeln('Segitiga Tumpul')
End.

outputx bakal kyk ne:

program menentukan segitiga
====================
masukkan sisi A : 3
masukkan sisi B : 4
masukkan sisi C : 5

segitiga siku-siku