tugas BPTT (bilangan gampang dan perulangan) tgl 17

program bilangan gampang :
-------------------------------------
program hitung_114;
uses crt;
var hasil114,e114,n114:integer;
    bil : array[1..100] of integer;
begin
  clrscr;
  writeln('   -*******************-');
  writeln('     PROGRAMS HITUNGAN  ');
  writeln('****************************');
  writeln;
  write('Masukkan Bilangan Gampang" saja N : ');
  readln(n114);
  for e114 := 1 to n114 do
    begin
      write('   bil',e114,'=');
      readln(bil[e114]);
      hasil114 := hasil114 + bil[e114];
    end;
  writeln('Jumlah Bilangan Gampang" = ', hasil114);
  readln;
end.

-----------------------------------------------
output: masukan bilangan gampang" : 3
   bil 1 = 10
   bil 2 = 4
   bil 3 = 3
Jumlah bilangan gampang" = 17

file pas : download
file exe : download

***********************************************************************************************
program perulangan :

------------------------------------------------
program kelipatan_114;
uses crt;
var e114, n:integer;
    tanya114,t : char;
begin
    clrscr;
    repeat
      write('masukkan jumlah : ');readln(n);
      writeln;
      for e114:= 1 to n do
        if e114  mod 2 = 0 then
           write(e114, ' ');readln;
      write('ingin coba lagi [y/t]?');
      readln(tanya114);
    until tanya114<> 'y';
end.

-------------------------------------------------------------------------

output :
masukan bilangan : 10
2 4 6 8 10
ingin coba lagi [y/t]?

file pas : download
file exe : download