Prugram tugas;
Uses wincrt;
Var s,l,k:integer;
Function luas:integer;
Begin
Write(‘masukkan sisi:’);readln(s);
l:=s*s;
writeln(‘luas:’,l);
end;
Function keliling:integer;
Begin
Write(‘masukkan sisi:’);readln(s);
k:=s*4;
writeln(‘keliling:’’k);
end;
begin
luas;
keliling;
end.
Posted in
Pascal
program contoh;
uses wincrt;
var a,b,c:integer;
procedure input;
begin
writeln('masukkan nilai A=');readln(a);
writeln('masukkan nilai B=');readln(b);
writeln('masukkan nilai C=');readln(c);
end;
procedure tambah;
var d:integer;
begin
d:=a+b+c;
writeln('output D=',d);
end;
Posted in
Pascal
program modularisasi;
uses wincrt;
var x,x1,x2,x3,x5:integer;
x4:real;
procedure tambah;
begin
x:=x1+x2;
writeln('hasil tambah=',x)
end;
procedure kurang;
begin
x5:=x1-x2;
writeln('hasil kurang=',x5);
end;
Posted in
Pascal
program contoh;
uses wincrt;
var a,b:integer;
procedure hitung_a;
var d,c:integer;
begin
d:=a+b+c;
writeln('output D=',d);
end;
procedure hitung_b;
var e:integer;
begin
e:=a*b;
writeln('output E=',e);
end;
begin
writeln('masukkan a=');readln(a);
writeln('masukkan b=');readln(b);
writeln('masukkan c=');readln(c);
hitung_a;
hitung_b;
end.
Posted in
Pascal
