PROKOM LAGI

program lagu;

uses wincrt;

var x,n:integer;

begin

write(‘masukkan jumlah anak ayam= ‘);readln(n);

x:=n;

clrscr;

while x>1 do

begin

writeln(‘ LAGU ANAK AYAM ’);

writeln(‘ ================ ’);

writeln(‘tek kotek kotek kotek’);

writeln(‘anak ayam turun ‘,x);

writeln;

writeln(‘tek kotek kotek kotek’);

writeln(‘mati satu tinggal ‘,x-1);

writeln;

x:=x-1;

end;

writeln(‘tek kotek kotek kotek’);

writeln(‘anak ayam turun 1′);

writeln;

writeln(‘tek kotek kotek kotek’);

writeln(‘mati satu tinggal induknya’);

end.

Program jumlah;

uses wincrt;

var num,total,x:integer;

begin

num:=1;

total:=1;

writeln(‘masukkan bilangan= ‘);readln(x);

repeat

if num

total:=num*total;

num:=num+1;

until num>x;

write(total,’ ‘);

end.

program pembagian;

uses wincrt;

var

a,b:integer;

c:real;

begin

writeln(‘PROGRAM PEMBAGIAN’);

writeln(‘——————-’);

writeln;

write(‘a=’);read(a);

write(‘b=’);read(b);

c:=a/b;

write(‘Jadi hasil bagi dua bilangan tersebut adalah ‘,c:10:2);

end.

program perkalian_berulang;

uses wincrt;

var a,b,c:integer;

function faktorial(n:integer):longint;

begin

if n=0 then faktorial:=1

else

faktorial:=n*faktorial(n-1);

end;

begin

write(‘a=’);read(a);

writeln;

for b:=1 to (a-1) do write(b,’*');

write(a,’=',faktorial(a));

end.

Program Penjumlahan_Deret_Bilangan_Bulat;

Uses Wincrt;

Var

bilangan_awal,bilangan_akhir,bilangan_setelah_awal,bilangan_penolong1,bilangan_penolong2:longint;

jumlah1,jumlah2,jumlah_akhir:longint;

Begin

Write (‘Masukkan bilangan awal yang diinginkan = ‘); readln (bilangan_awal);

Write (‘Masukkan bilangan akhir yang diinginkan = ‘); readln (bilangan_akhir);

If bilangan_akhir=bilangan_awal then write (bilangan_awal)

else begin

jumlah_akhir:=0;

jumlah1:=0;

jumlah2:=0;

bilangan_setelah_awal:=bilangan_awal+1;

bilangan_penolong1:=0;

bilangan_penolong2:=0;

Write (bilangan_awal);

Repeat

jumlah2:=jumlah2+bilangan_penolong2;

bilangan_penolong2:=bilangan_penolong2+1;

Until bilangan_penolong2>=bilangan_awal;

Repeat

jumlah1:=jumlah1+bilangan_penolong1;

bilangan_penolong1:=bilangan_penolong1+1;

Until bilangan_penolong1>bilangan_akhir;

Repeat

Write (‘ + ‘,bilangan_setelah_awal);

bilangan_setelah_awal:=bilangan_setelah_awal+1;

jumlah_akhir:=jumlah1-jumlah2;

Until bilangan_setelah_awal>bilangan_akhir;

Write (‘ = ‘,jumlah_akhir);

end

End.

Program Latihan_Rekursi_2;

Uses Wincrt;

Procedure Rekursi(a:integer);

Var

y:integer;

Begin

If a<10>

Begin

Writeln(‘Pascal’);

Writeln;

a:=a+1;

Rekursi(a);

End;

End;

Var

x:integer;

Begin

Writeln(‘Berapa batas awalnya?’);Readln(x);

Rekursi(x);

End.

program rekursi;

procedure penjumlahan;

var

a,b,c:integer;

begin

write(‘nilai pertama ‘);readln(a);

write(‘nilai kedua ‘);readln(b);

c:=a+b;

writeln(‘hasil penjumlahannya ‘,c);

end;

procedure pengurangan;

var

a,b,c:integer;

begin

write(‘nilai pertama ‘);readln(a);

write(‘nilai kedua ‘);readln(b);

c:=a-b;

writeln(‘hasil pengurangannya ‘,c);

end;

procedure perkalian;

var

a,b,c:integer;

begin

write(‘nilai pertama ‘);readln(a);

write(‘nilai kedua ‘);readln(b);

c:=a*b;

writeln(‘hasil perkaliannya ‘,c);

end;

var

x:integer;

begin

write(‘pilih yang mana? ‘);

write(‘1=penjumlahan’);

write(‘2=pengurangan’);

write(‘3=perkalian’);

readln(x);

if x=1 then

begin

penjumlahan;

end else;

if x=2 then

begin

pengurangan;

end else;

if x=3 then

begin

perkalian;

end;

end.