Program-Program Dasar 1 [PASCAL]

Kita sudah sempat membahas pernyataan REPEAT dan pernyataan IF dalam bahasa pemrograman pascal. Tidak akan berhasil kalau kita hanya mempelajari teori nya tanpa mempraktekkan program pascal yang berhubungan dengan pernyataan tersebut.

Kali ini, akan saya post kan beberapa contoh-contoh program yang didalamnya terdapat pernyataan REPEAT dan pernyataan IF, beserta hasil nya. Kemudian, kalian dapat mencoba memahami bagaimana langkah-langkah kerja (algoritma) nya.

1. Program Penghitung Angka
program pelajar;

hasil program penghitung angka

uses wincrt;
var
i:integer;
begin
i:=1; write(i);write(' ');
repeat
i:=i+3;
write(i);write(' ');
until i=16;
end.

2. Program Penghitung Angka Mundur
program penghitung_angka;

Hasil Program Penghitung Angka Mundur

uses wincrt;
var i,a:integer;
begin
a:=16;
write(a,' ');
repeat
a:=a-3;
write(a,' ');
until a=1;
end.

3. Program Penentu Nilai
program Nilai_matkul;

Hasil Program Penentu Nilai

uses wincrt;
var
n:integer;
begin
write('Nilai Mata Kuliah = ');
read(n);
write('Notasi Mata Kuliah = ');
if (81<=n) and (n<=100) then
write('A')
else if (n>=76) and (n<=80) then
write('AB')
else if (71<=n) and (n<=75) then
write('B')
else if (66<=n) and (n<=70) then
write('BC')
else if (61<=n) and (n<=65) then
write('C')
else if (41<=n) and (n<=60) then
write('D')
else
write('E');
end.

Bagaimana? Bisakah kalian menjelaskan langkah kerja dari program-program diatas? Feel free to ask & comment..