program aritha_pascal;
uses wincrt;
function luassegitiga(alas: integer; tinggi:integer) : real;
var luas:real;
begin
luas:= alas*tinggi/2;
luassegitiga:= luas;
end;
var a,t:integer;
luas : real;
begin
writeln('-======Program Fungsi Luas segitiga======-');
writeln;
write('masukkan nilai alas : '); readln(a);
write('masukkan nilai tinggi : '); readln(t);
write('luas segitiga adalah : ', luassegitiga(a,t):0:2);
end.
Minggu, 10 Juni 2012
contoh prosedur luas segitiga
program aritha_pascal;
uses wincrt;
procedure inputan(alas: integer; tinggi:integer; var luas:real);
begin
write('masukkan nilai alas : '); readln(alas);
write('masukkan nilai tinggi : '); readln(tinggi);
luas:= alas*tinggi/2;
end;
var a,t:integer;
luas : real;
begin
writeln('-======Program Procedure Luas segitiga======-');
writeln;
inputan(a,t,luas);
write('luas segitiga adalah : ', luas:0:2);
end.
uses wincrt;
procedure inputan(alas: integer; tinggi:integer; var luas:real);
begin
write('masukkan nilai alas : '); readln(alas);
write('masukkan nilai tinggi : '); readln(tinggi);
luas:= alas*tinggi/2;
end;
var a,t:integer;
luas : real;
begin
writeln('-======Program Procedure Luas segitiga======-');
writeln;
inputan(a,t,luas);
write('luas segitiga adalah : ', luas:0:2);
end.
contoh program pascal prosedur nama
program aritha_pascal;
uses wincrt;
procedure nama;
var nm: string;
begin
write('masukkan nama anda ');
readln(nm);
write('haloo ', nm);
end;
begin
writeln('-======Program Procedure Input Nama======-');
nama;
end.
Langganan:
Postingan (Atom)