Pascal Function

program tes;uses wincrt;function pertama(var a, b : integer):integer;beginpertama := a*b;end;function kedua(var a, b : integer):integer;beginkedua := a+b;end;function ketiga(var a, b : integer):real;beginketiga := a/b;end;function keempat(var a, b : integer):integer;beginkeempat := a-b;end;varx, y : integer;a : char;beginwriteln('------------------------------------------------------');writeln(' a. perkalian');writeln(' b. penjumlahan');writeln('...

Read More

Pascal Procedure

program satu;uses wincrt;var y, z, n : integer;procedure pertama;var x : integer;begin x := y + z; writeln(x);end;procedure kedua(b, c : integer);var a : integer;begin a:= b - c; writeln(a);end;procedure ketiga(d, e, f : integer);begin d:= e * f; writeln(d);end;begin write(' y= ');readln(y); write(' z= ');readln(z); pertama; kedua(y,z); ketiga(n,y,z);e...

Read More

Pascal Perulangan Bintang

program soal12;uses wincrt;vara, b : byte;begina:=6;while a<7 dobeginb:=1;while b<a dobeginwrite('x');b := b+1;end;a := a-1;writeln;end;readln;end.program soal22;uses wincrt;vara, b : byte;begina:=1;while a<7 dobeginb:=1;while b<a dobeginwrite('x ');b := b+1;end;a := a+1;writeln;end;readln;e...

Read More

Pascal Perulangan

1. program tugas11;uses wincrt;vara, b : byte;beginfor a := 1 to 5 dobeginwriteln('   ',a);b := b+a;end;writeln('------ +');writeln('   ',b);readln;end.-------------------------program tugas12;uses wincrt;vara, b : byte;begina:=1;b:=0;while a<6 dobeginwriteln('   ',a);b := b+a;a := a+1;end;writeln('------ +');writeln('   ',b);readln;end.-------------------program tugas13;uses wincrt;vara, b : byte;begina...

Read More