syntax algoritma perulangan

1       Perulangan

Perulangan adalah cara mengulang perintah-perintah sampai pada kondisi tertentu.

a.      For To Do

perulangan ini berjalan dengan menggunakan suatu variabel counter yang akan bertambah secara otomatis ketika perintah yang diulang telah selesai dikerjakan

b.      For Down Do

Perulangan ini sama seperti perulangan dengan menggunakan For To Do tetapi arah isi counternya berkurang (mundur/turun).

c.       Repeat Until

Perulangan ini bekerja sampai kondisi yang diinginkan tercapai. Perulangan ini bisa digunakan sebagai perulangan yang menggunakan banyak kondisi keluar (multi condition loop).

d.      While Do

Perulangan ini mirip dengan perulangan Repeat Until tetapi pengecekannya berada di awal sebelum melakukan proses yang berulang. Perulangan ini berjalan selama kondisi pengecekan bernilai true. Jika kondisi telah mempunyai nilai false maka perulangan tidak dilakukan lagi.

 

berikut contoh syntax nya :

program MENGHITUNG_RERATA_STANDARDEVIASI;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  pilih,i,n:integer ;
  rerata,s,jd,jd2,mean,variansi,l,x : real ;
  lagi : string ;

begin
  lagi:='y';
  while lagi='y' do
  begin
    writeln ('=======================HAI SELAMAT DATANG========================');
    writeln ('===Pada Program STATISTIKA DESKRIPTIF Rizki Alifah Putri====') ;
    writeln ('Sebelum memulai silahkan memilih rumus terlebih dahulu') ;
    writeln ('......................................................') ;
    writeln ('1. Program Menghitung Rerata') ;
    writeln ('2. Program Menghitung s (standar deviasi)');
    writeln ('Masukkan Pilihan Rumus'); readln (pilih);

    case pilih of
    1: begin
       writeln ('Menghitung rerata (mean)') ;
       writeln ('...................................................');
       writeln ('Keterangan');
       writeln ('n=banyaknya data');
       writeln ('jd=jumlah data');

       writeln ('Banyaknya data=  '); readln (n) ;
       jd:=0.0;
       for i:= 1 to n do
        begin
        writeln ('data ke- ',i,'=') ; readln (x) ;

        jd:=jd+x ;
       end;
    rerata:=jd/n;
    writeln ('jumlah data =  ',jd:5:2);
    writeln('mean= ',rerata:5:2);
    writeln ('=========Terima Kasih Sudah Menggunakan Program Ini==========');
    writeln ('===CREATED BY RIZKI ALIFAH PUTRI===');
    writeln('==========hitung lagi?=========='); readln(lagi);
end;

    2: begin
       writeln ('===Menghitung s (Standar Deviasi)===');
       writeln ('------------------------------') ;
        writeln ('Banyaknya data=  '); readln (n) ;
       jd:=0.0;
       for i:= 1 to n do
        begin
        writeln ('data ke- ',i,'=') ; readln (x) ;
        jd:=jd+x ;
        jd2:=jd2+x*x;
    rerata:=jd/n;
    l:= (n * jd2 - jd * jd) / (n * ( n - 1));
    end;
    s:=(sqrt(l));
    writeln ('jumlah data =  ',jd:5:2);
    writeln('mean = ',rerata:5:2);
    writeln ('variansi = ',l:5:2);
    writeln ('standar deviasi = ',s:5:2);
    writeln ('=========Terima Kasih Sudah Menggunakan Program Ini==========');
    writeln ('===CREATED BY RIZKI ALIFAH PUTRI===');
    writeln('==========hitung lagi?=========='); readln(lagi);

readln ;
end ;
end ;
end;
  { TODO -oUser -cConsole Main : Insert code here }
end.