Struktur perulangan For dalam pascal

seperti pada judul diatas kita akan mengulas tentang struktur perulangan for dalam pascal sampai habis :D
perulangan ini digunakan untuk mempersingkat perintah yg diulang-ulang, benerkan? daripada ngetik script panjang-panjang lebih baik pakai perulangan kan? :D
sok tancap gan:

for Variable:= integer to integer do
 begin
  statement_yang_mau_diulang;
 end;

yap, diatas tadi syntax-nya
nah ini contoh kasusnya

uses wincrt;
var
 js,per:integer;
 nm,kls:string;
begin
 write('Jumlah Siswa   : ');readln(js);
 for per:=1 to js do
  begin
   write('Nama           : ');readln(nm);
   write('Kelas          : ');readln(kls);
  end;
end.

siiip......
segitu aja ya?, ane takutnya kalo ane nulis artikel panjang" nanti agan" bosen....:D
jadi ane langsung ke "point utamanya" OK ;D
sip-sip kalo mao liat contoh perulangan bertingkat atau nested for langsung aja gan kepostingan sebelah :)

wassalam......
Selalu Berusaha untuk menjalani KeSuksesan kita.

Struktur Nested For dalam Pascal

oke.....Assalamualaikum Gan? nested for tau gan? kalo belum tau liat di postingan yang ini neh gan "If Bertingkat dalam Pascal" , kalo gag mao kesana sininih ane kasih tau tapi singkat...

Nested for itu perulangan for yang didalam for tersebut ada for lagi, ya keliatannya seperti anaknya gitu hehe:D
kalo kurang jelas langsung aja nih Syntax-nya cekidot:

for variable:=integer to integer do
 begin
  for variable:=integer to integer do
   begin
    statement_yang_mau_diulang;
   end;
 end;

kalo masih bingung??? langsung aja nih gan liat contohnya

uses wincrt;
var
 jk,js:integer;

  nm,kls:string;
begin
 write('Jumlah kelas    : );readln(jk);
 for jk:=1 to jk do
  begin
   write('Jumlah Siswa    : ');readln(js);
   writeln('Kelas ke',jk);
   for js:=1 to js do
    begin
     write('Nama            : ');readln(nm);
     write('Kelas           : ');readln(kls);
    end;
  end;
end.

oke mungkin itu cukup jelas ya gan?  hehe, maklum ane masih nubi gan...
ane tutup sampai disini kalo ada kata yang salah mohon di maapin ya gan, kalo perlu kasih komentarnya gan... :D

If Bertingkat dalam Pascal

nah jumpa lagi nih.... hehe...
sesuai janji saya pada postingan sebelumnya "Struktur IF dalam Pascal"  saya akan kasih sesuatu neh gan... :D
pada postingan ini saya akan kasih syntax dan contoh if bertingkat ato sering dikenal dengan NESTED IF.
yaudah ni syntaxnya gan.... monggo disimak :D


if kondisi then
 begin
  if kondisi then
   begin
    statement_benar;
   end
  else
   begin
    Statement_salah;
   end;
 end
else
 begin
  statement_salah;
 end;


nah ini scriptnya nih gan....
monggo coba di TPW-nya... :)



uses wincrt;
var
 j:string;
 n1,n2,n3:integer;
 rata:real;
begin
 Write('Jenis Ulangan   : ');readln(j);
 write('Nilai1          : ');readln(n1);
 write('Nilai2          : ');readln(n2);
 write('Nilai3          : ');readln(n3);
 writeln;
 rata:=(n1+n2+n3)/3;
 if (j='P') or (j='p') then
  begin
   if rata>=70 then
    begin
     writeln('Anda dinyatakan LULUS pada bidang Produktif dengan nilai ',rata:0:2);
    end
   else
    begin
     writeln('Anda dinyatakan GAGAL pada bidang Produktif dengan nilai ',rata:0:2);
    end;
  end
 else if (j='A') or (j='a') then
  begin
   if rata>=74 then
    begin
     writeln('Anda dinyatakan LULUS pada bidang Adaptif dengan nilai ',rata:0:2);
    end
   else
    begin
     writeln('Anda dinyatakan GAGAL pada bidang Adaptif dengan nilai ',rata:0:2);
    end;
  end
 else
  begin
   if rata>=68 then
    begin
     writeln('Anda dinyatakan LULUS pada bidang Normatif dengan nilai ',rata:0:2);
    end
  else
   begin
    writeln('Anda dinyatakan GAGAL pada bidang Normatif dengan nilai ',rata:0:2);
   end;
  end;
end. 


segitu dulu ya :D
nanti ane posting yg laen ok ;D
"Selalu Belajar untuk keSUKSESan"

Struktur IF dalam Pascal

hmmmm....... dah lama nih gag mposting artikel di blog neh, haha kebanyakan tugas luar yg tak bisa di tunda. Ok  menuju ke pokok pembahasan. Pada postingan kali ini ane mau ngasih sedikit tentang IF dari bahasa pemrograman pascal. 


Struktur IF merupakan struktur yg paling lazim dimiliki semua bahasa pemrograman  terutama pascal. Penggunaan if  digunakan untuk mengambil keputusan apabila ada sebuah kondisi yg ditemui. Jika kondisi tersebut bernilai benar, maka pernyataan di dalam struktur if akan dijalankan. Sebaliknya jika bernilai salah, maka struktur if akan diabaikan dan melanjutkan ke pernyataan selanjutnya. Syntax IF nya bisa dilihat langsung gan.


if kondisi then
 begin
  statmen_benar;
 end
else
 begin
  statement_salah;
 end;


catatan nih gan, jika statement-nya lebih dari satu, kita harus menggunakan begin dan end  kalo cuma satu boleh gag pake. tapi kalo ane saranin lebih baik pakai begin ama end


nah contoh programnya ini, kebetulan ane pake turbo pascal 1.5 (TPW 1.5) nih gan


uses wincrt;
var
 n:integer;
begin
 write('Nilai  :');readln(n);
 if n>=70 then
  begin
   writeln('LULUS');
  end
 else
  begin
   writeln('GAGAL');
  end;
end.


segini dulu ya gan. nanti selanjutnya ane mao mposting tentang NESTED IF
OK  ;D
"selalu belajar untuk menuju keSUKSESan"