Menghitung luas segiempat dalam pascal versi 1

Program segiempat;

uses wincrt;

type titik=record
     x:integer;
     y:integer;
     end;

var
a:array [1..2] of titik;
i,luas,panjang,lebar:integer;

begin
writeln('(1)********');
writeln('   ********');
writeln('   ********(2)');
writeln;
for i:= 1 to 2 do
    begin
    writeln('titik ',i);
    write('masukan absis = ');readln(a[i].x);
    write('masukan ordinat = ');readln(a[i].y);
    end;
if (a[2].x>a[1].x) and (a[1].y>a[2].y) then
begin
     panjang:=a[2].x-a[1].x;
     lebar:=a[1].y-a[2].y;
     luas:=panjang*lebar;
     writeln('panjang = ',panjang);
     writeln('lebar   = ',lebar);
     writeln('luas    = ',luas);
end
else
writeln('nilai panjang/lebar bernilai minus');
end.

› Read More

Menghitung luas segitiga dalam pascal versi 1

Program segitiga;

uses wincrt;

type point=record
     absis:integer;
     ordinat:integer;
     end;

var
titik:array [1..3] of point;
i,alas,tinggi:integer;
jawaban:real;
begin
writeln('     *(3)   ');
writeln('    ***     ');
writeln('(1)******(2)');
writeln('masukan nilai titik 1, 2, 3 : ');
writeln;
for i := 1 to 3 do
    begin
        writeln('titik ',i);
        write('nilai absis = ');readln(titik[i].absis);
        write('nilai ordinat = ');readln(titik[i].ordinat);
    end;
if (titik[1].ordinat=0) and( titik[2].ordinat=0)  then
   begin
   alas:=titik[2].absis-titik[1].absis;
   tinggi:=titik[3].ordinat;
   jawaban:=((0.5*alas)*tinggi);
   writeln('alas   = ',alas);
   writeln('tinggi = ',tinggi);
   writeln('luas   = ',jawaban:0:2);
   end
else
    writeln('titik 1 dan 2 tidak menempel di garis X');
end.

› Read More

Image Processing Modul part 1 dalam delphi 7

Slahkan didownload di link berikut download

› Read More