MENENTUKAN NILAI MAKSIMUM

program maksi;
uses crt;

function nilai(a,b:integer):integer;
begin
if a>b then
nilai:=a
else if a<b then
nilai :=b else;
end;
{prog utama}
var x,y,hasil:integer;
begin
clrscr;
write('input1= ');readln(x);
write('input2= ');readln(y);
hasil:=nilai(x,y);
writeln('nilai maksimum= ',hasil);
readln;
end.

Selengkapnya >>>..

program konfersi cm ke m

program ukuran;
uses crt;
var
     cm, hasil:real;
function hitung_meter(a:real):real;
begin
     hitung_meter :=a/100;
end;
{programutama}
begin
     clrscr;
     write  ('Masukkan cm  =  ');readln(cm);
     hasil:=hitung_meter(cm);
     writeln('Hasilnya     =  ',hasil:0:2);
     readln;
end.

Selengkapnya >>>..

menghitung deret(1+2+3+4+5+6+..n)

program coba;
uses crt;
var a,hasil:integer;
function deret(x:integer):integer;
var i,hasil:integer;
begin
hasil:=0;
for i:= 1 to x do
hasil:=hasil+i;
write('Maka jumlah deretnya adalah= ',hasil);
end;
begin
clrscr;
write('Jika batas deret sampai=');readln(a);
hasil:=deret(a);
readln;
end.

Selengkapnya >>>..

Bilangan Fibonacci

program bil_fibonacci;
uses crt;
var
i, a, a1, a2: integer;

begin
clrscr;
writeln('ingin mencetak bilangan fibonacci');
{write('sampai suku ke - '); readln (x[i]);
writeln; }
{writeln('suku ke- 1= ',1);
writeln('suku ke- 2= ',1);}
a1:=0; a2:=1;
for i:=0 to 8 do
begin
a:=a1+a2;
a2:=a1;
a1:=a;
write(a:3);

end;
readln;
end.

Selengkapnya >>>..

Perulangan down to (segitiga bintang)

program segitiga;
uses crt;
var i,j,n:integer;
begin
clrscr;
write('Masukkan jumlah baris = ');readln(n);
for i:=n downto 1 do
begin
for j:=1 to i do
write('*');
writeln;
end;
readln;
end.

Selengkapnya >>>..

Logika segitiga bintang

contoh1
program segitiga;
uses crt;
var i,j,n:integer;
begin
clrscr;
write('Masukkan jumlah baris = ');readln(n);
for i:=1 to n do
begin
for j:=1 to i do
write('*');
writeln;
end;
readln;
end.

contoh2

program segitiga;
uses crt;
var jlh_brs,jlh,baris,spasi,bintang,n:integer;
begin
clrscr;
write('Masukkan jumlah baris=');readln(n);
jlh_brs:=n;
jlh:=jlh_brs*2-1;
for baris:=1 to jlh_brs do
begin
    for spasi:=1 to baris do
write(' ');
for bintang:=1 to jlh do
write('*');
writeln;
jlh:=jlh-2;
end;
readln;
end.

Selengkapnya >>>..