Program Prosedur dan Fungsi (Dilatasi)

Fungsi : Mengalikan dua buah angka yang dimasukan dengan angka tertentu.

Hint : -

Screenshot Output:

uses crt;

var absis,ordinat,pengali:integer;

procedure dilat(a,b,peng:integer);

   var c,d:integer;

   begin

    c:=a*peng;

    d:=b*peng;

    writeln('(',c,',',d,')');

   end;

begin

  writeln('Kordinat Awal');

  write('Absis : ');readln(absis);

  write('Ordinat : ');readln(ordinat);

  writeln;

  write('masukan faktor pengali ');readln(pengali);

  write('Kordinat (',absis,',',ordinat,') setelah didilatasikan terhadap faktor ',pengali,' menjadi ');

  dilat(absis,ordinat,pengali);

  readln;

end.