Alpro (algoritma dan pemrograman) bagian 2

ini postingan yang ke sekian kali akan memberikan program-program alpro lanjutan dari postingan sebelumnya, dan program program ini akan lebih beragam dibandingakn dengan program sebelumnya, karena adminnya sudah belajar pada kajian ke 2.

program pengurutan angka secara menurun

ilustrasi :

input : 6

6 5 4 3 2 1

6 5 4 3 2 1

6 5 4 3 2 1

6 5 4 3 2 1

6 5 4 3 2 1

6 5 4 3 2 1

program modul7;

var j,i,n : integer;

begin

   write('input : ');

   readln(n);

   j:=1;

   while j<=n do

   begin

      i:=n;

      while i>=1 do

      begin

         write(i,' ');

         i:=i-1;

      end;

   writeln();

   j:=j+1;

   end;

   readln;

end.

program Convert dari bilangan desimal ke biner

 ilustrasi :

input : 25

 11001

program ubahbiner;
var bil:integer;
    sisa:integer;
    st:string;
begin
   write('masukan bilangan : ');
   readln(bil);
   st:='';
   while bil>0 do begin
         sisa:=bil mod 2;
         if sisa=0 then begin
            st:='0'+st;
         end else begin
            st:='1'+st;
         end;
         bil:=bil div 2;
   end;
   writeln('hasil binernya : ',st);
   readln;
end.

program untuk penjumlahan secara terus menerus

program jumlahbilangan;
var bil:integer;
    i:byte;
    jml: integer;
begin
    jml:=0;
    i:=1;
    while i<=5 do
    begin
        write('masukan : ');
        readln(bil);
        jml:=jml+bil;
        writeln('hasil : ',jml);
        i:=i+1;
        readln;
    end;
end.

Program menetukan nilai indeks IPK dalam alfabet

program ipk;
var nilai:integer;
    indeks:char;
begin
    write('masukan nilai :');
    readln(nilai);
    if nilai>=80 then begin
    indeks:='a';
    end else if nilai>=65 then begin
    indeks:='b';
    end else if nilai>=50 then begin
    indeks:='c';
    end else if nilai>=40 then begin
    indeks:='d';
    end else begin
    indeks:='e';
    end;
    writeln('indeks nilainya= ',indeks);
    readln;
end.

program penjumlahan denngan rentang angka tertentu dengan for, sebenarnya ada juga dalam while dan repeat, tapi males klo ditulisin semua, kecuali kalo ada yang minta.

ilustrasi :

input 5

 1 + 4 + 9 + 16 + 25 = 55

program Deretkuadrat;
var a:longint;
    b:longint;
    c:longint;
    hasil:longint;

begin
    write('masukan angka : ');
    readln(a);
      if a > 0 then
       begin
         for b := 1 to a-1 do
           begin
             hasil := b*b;
             write(hasil,' + ');
             c := c+hasil;
           end;
        writeln(a*a,' = ',c+(a*a));
       end
      else
     write('inputan tidak valid');
     readln();
end.

tugas-tugas alpro saya, pada kajian ke 2 yakni loopign (perulangan)   download