Steven's blog

Contoh program procedure hitung yang diajarkan dosen saya hari ini Procedure Hitung2(A,B,C:integer); Begin          C:=A+B;          A:=A+2;B:=B+4;         Writeln ('Nilai A=',A, 'Nilai B=',B, 'Nilai C=',C); End; Var X,Y,Z:integer; Begin Write('Masukkan Nilai X,Y,Z=');readln(X,Y,Z); Hitung2(X,Y,Z); Writeln('Nilai X=',X, 'Nilai Y=',Y, 'Nilai Z=',Z); End.

Program Steven_Pascal; Uses crt; 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 Segitiganya adalah:',luassegitiga(a,t):0:2); End.