Perulangan : Menampilkan Huruf A-Z dengan while - do

Sebelumnya kita harus paham tentang ASCII
dimana  A = 0100 0001 (biner) dan 65 (Dec)
dll
==================================
TRANSLASI KE BAHASA PASCAL

uses crt;
var
x:integer;
begin
clrscr;
x:=65;
while (x<=89) do
begin
write(chr(x));
x:=x+1;
end;
readln;
end.

=========
NOTICE :
perintah chr pada bagian write merupakan function default dari library yang berfungsi mengkonversikan nilai numeric mencadi character sesuai dengan tabel ASCII, karena yang kita deklarasikan sebenarnya adalah x:integer dan memiliki nilai (65) yang berarti berupa decimal sementara yang akan kita tampilkan adalah sebuah karakter (A).

Perulangan : Menampilkan bilangan prima 1 - 20 dengan For - to - do

TRANSLASI KE BAHASA PASCAL

Perulangan : Menampilkan Bilangan Prima 1 - 20 dengan while - do

TRANSLASI KE BAHASA PASCAL

program bilprima;
Uses crt;
var
  prima,nilai,pembagi:integer;
Begin
Clrscr;
prima:=1;
while prima <= 20 do
begin
  nilai:=0;
  pembagi:=1;
while pembagi <= prima do
 begin
   if prima mod pembagi=0 then
   nilai:=nilai+1;
   pembagi:=pembagi+1;
  end;
    if nilai=2 then
    begin
      write(' ',prima);
      prima:=prima+1;
    end
      else
       prima:=prima+1;
      end;
readln;
end.
=============================================================