Menampilkan Bilangan Ganjil

program Pengulangan;
uses wincrt;
var i : integer;
begin
clrscr;
for i := 1 to 50 do
if(1 mod 2 = 1) then
write (1,' ');
readln;
end.

Program For ... to ... do

Contoh program For .. to .. do
Program For_Majemuk;
uses wincrt;
var i,j : Integer ;
begin
clrscr;
for i := 1 to 3 do
begin
for j:= 1 to 5 do
write ('*');
writeln;
end;
end.

Algoritma
1. tentukan variabel yang akan digunakan
2. masukkan perintah for i:= 1 to 3 do
3. setelah itu masukkan lagi perintah kedua

4. masukkan perintah write ('*')
5. dan yang terakhir masukkan perintah end.

Flowchart Case ... of

Program Case ... Of

Program Garmen_jaket;
uses wincrt;
var Ukuran : Char;
     Banyak : Integer
     Harga, Jumlah : real;
begin
clrscr;
write('Ukuran jaket (S/M/L) : '); readln(Ukuran);
write('Banyak Jaket  : ');readln(Banyak);
case Ukuran Of
'S'  : Harga := 65000;
'M' : Harga := 71000;
'L'  : Harga := 74000;
end;
Jumlah:= Banyak * Harga ;
writeln; writeln;
writeln('Jumlah yang harus dibayar = Rp',Jumlah:8:0);
end.

Program Luas Lingkaran

ALGORITMA
1. Beri nama Program
2. Tentukan variabel yang akan digunakan
3. Ketik Begin
4. Tulis masukkan yang akan ditulis atau ditampilkan oleh program
5. Ketik rumus luas lingkaran
6. Akhiri dengan mengetikkan perintah end

Program Luas Lingkaran
Program Luas_lingkaran;
Uses Wincrt;
Var r, LS : Real;
Begin
Clrscr;
Write('Masukkan Jari-jari Lingkaran (r) =  ');Readln(r);
LS:=Pi*r*r ;
Writeln('Luas Lingkaran =;L:18:2,'cm2');
Readln;
end.

 
 

Syarat Pemilu

 ALGORITMA

1. WNI

2. Terdaftar dalam DPT

3. Berusia 17 tahun

4. Jika belum berusia 17 tahun tetapi sudah menikah maka memiliki hak pilih

5. Berdomisili di daerah yag akan melakukan pemilihan umum paling tidak 6 bulan

6. Sehat rohani atau tidak gila

Flowchart

Cara Membuat Email

Algoritma
1.  Kita harus terkoneksi dengan internet
2.  Setelah itu buka browser
3.  Ketik alamat http://www.yahoo.com
4.  Lalu pilih buat Account baru
5.  Setelah itu isi data diri pada lembar yang tersedia
6.  Jangan lupa masukkan kode verifikasi yang telah diberikan oleh pihak yahoo
7.  Dan yang terakhir klik tombol Buat Account Saya
8.  Email baru sudah jadi