Teknik Informatika: Program Fungsi Pascal

Program Fungsi Pascal

uses crt;

function kelilingsegitiga(a:integer; b:integer; c:integer) :real;

var keliling:real;

begin

clrscr;

keliling:=a+b+c;

kelilingsegitiga:= keliling;

end;

var a,b,c:integer;

keliling:real;

begin

writeln('PROGRAM FUNGSI KELILING SEGITIGA');

writeln('----------------------------------------------------');

write('Masukkan Nilai A : '); readln(a);

write('Masukkan Nilai B : '); readln(b);

write('Masukkan Nilai C : '); readln(c);

write(‘’);

write('Keliling Segitiga Adalah : ', kelilingsegitiga(a,b,c):0:0);

readln;

end.

Logika Program

program ini dibuat untuk menghitung keliling segitiga. pertama tentukan integer , yaitu a,b dan c sebagai integer. kemudian Var keliling dengan ketentuan harus bilangan real. mulai dengan memasukkan perinah clrscr; yatu untuk meclear program yang sebelumnya sudah pernah dijalankan.masukkan rumus untuk mencari keliling segitiga yaitu (a+b+c). kemudian akhiri dengan end;.
kemudian mulai lagi dengan menginput dan mengoutput program dengan menggunakan perintah "writeln dan readln". kemudian jalankan program.