SCRPIT TUGAS Dosen NANA

Tugas memang sangat mengesalkan bagi para mahasiswa, tapi tenang sobat2qu. . .
ini ada script tugas dari dosen NANA, hari senin besok seperti biasa kita akan di kurung dalam sebuah lab dan dijak mengutak-atik script dan script tugas yang kemarin pasti tak luput dari ingatan dosen kita yang lulusan dari Japan itu. . .

> SCRIPT UNTUK ANAK AYAM ( menggunakan for )

program ayam;
uses wincrt;
var
i,n:integer;
begin
write('anak ayam turun ');readln(n);
for i:=n downto 1 do
begin
write('anak ayam turun ',i);
 if(i>1)then
 begin
 writeln(' mati satu tinggal ',i-1);
 end
 else
 if(i-1=0)then
 begin
 write(' mati satu tinggal induknya');
 end

end;
 

end.


> ANAK AYAM ( menggunkan WHILE )


program ayam;
uses wincrt;
var
i,n:integer;
begin
write('anak ayam turun ');readln(n);
i:=n;
while i>=1do
begin
write('anak ayam turun ',i);
i:=i-1;
 if(i>0)then
 begin
 writeln(' mati satu tinggal ',i);
 end
 else
 if(i=0)then
 begin
 write(' mati satu tinggal induknya');
 end

end;
 

end.

> SCRIPT MENULISKAN FAKTORIAL


Program Faktorial;
Uses Wincrt;
Var i,n,x:longint;
Begin
  writeln('ini lah program presented by @ditya Pramono');
  writeln('=================');
  Writeln('Program Faktorial');
  Writeln('=================');
  writeln('faktorial adalah perkalian dalam matematik misalkan');
  writeln('( 4! )=> 4*3*2*1 => 24');
  Writeln;
  Write('Masukkan Nilai Faktorial: ');
  readln(n);
  Writeln;
  if (n<=0) then
     Writeln('Hasil Faktorial: ',1)
  else
     Begin
       x:=1;
       For i := 1 to n do
            x:=x*i;
       Writeln('Hasil Faktorial: ',x);
     End;
End.

> SCRIPT MENAMPILKAN KELIPATAN BINTANG


program bintang;
Uses Wincrt;
Var i,j,n:integer;
Begin
  writeln('PrOgRaM AdItYa_PrAmoNO');
  writeln('===========================');
  Writeln('Program Menampilkan Bintang');
 Writeln('===========================');
  Writeln;
  Write('Masukkan Jumlah Baris: ');readln(n);
  For i:= 1 to n do
     Begin
       For j:= 1 to i do
          Write('*');
       Writeln;
     End;
End.