Program Suhu

Program suhu;
uses wincrt;
var
celcius,kelvin:integer;
fahrenheit:real;
begin

Program Rata - Rata

program rata;
uses wincrt;
var i, n: integer;
    x, sum, mean: real;
begin
     writeln ('banyaknya data= ');
     readln (n);
     for i:=1 to n do

Program Menghitung Umur

program menghitung_umur;
uses wincrt;
var nama: string;
umur,TL: integer;
begin

Program Bintang

program persegi;
uses winCrt;
procedure gb (brs,kol:integer);
var i,j:integer;
begin
for i:=1 to brs do
    begin
    for j:=1 to kol do

Program Segitiga Pascal (II)

program segitiga_pascal;
uses wincrt;
var input,i,j:word; isi:array[0..20,0..21] of word;
begin
writeln('Masukkan berapa tingkat segitiga pascal !');
readln(input);

Program Segitiga Pascal (I)

program segitiga_pascal;
uses wincrt;
function faktorial(n:byte):real;
var i,z:word;
begin
if n = 0 then faktorial:=1 else

Program Determinan

program determinan;
uses wincrt;
var A : array[1..2,1..2] of integer;
j,k,D : integer;
begin

Program Nilai (II)

program nilai;
uses wincrt;
var
    nilai:integer;
begin

Program Nilai (I)

program nilai;
uses wincrt;
var
    nilai:integer;
begin

Perkalian Matriks

program perkalian_matriks;

uses wincrt;

var a,b,c: array[1..10,1..10] of integer;

i,j,k1,k2,b1,b2,sum,r:integer;

begin