[1/7, 23:48] Aji: program WhileLoopExamples;
uses crt;
var
i, n: integer;
begin
clrscr;
// Contoh 1: Mencetak angka 1-5
i := 1;
while i <= 5 do
begin
writeln(i);
i := i + 1;
end;
writeln;
// Contoh 2: Menghitung jumlah bilangan genap dari 1 sampai 10
i := 2;
n := 0;
while i <= 10 do
begin
n := n + i;
i := i + 2;
end;
writeln('Jumlah bilangan genap dari 1-10: ', n);
writeln;
// Contoh 3: Faktorial dengan while
n := 5;
i := 1;
n := 1;
while i <= 5 do
begin
n := n * i;
i := i + 1;
end;
writeln('Faktorial dari 5: ', n);
writeln;
// Contoh 4: Menghitung jumlah digit dalam angka
n := 12345;
i := 0;
while n > 0 do
begin
n := n div 10;
i := i + 1;
end;
writeln('Jumlah digit: ', i);
writeln;
// Contoh 5: Menampilkan deret Fibonacci
var a, b, c: integer;
a := 0; b := 1; i := 1;
while i <= 10 do
begin
writeln(a);
c := a + b;
a := b;
b := c;
i := i + 1;
end;
readln;
end.
[1/7, 23:48] Aji: program RepeatUntilExamples;
uses crt;
var
i, n: integer;
begin
clrscr;
// Contoh 1: Mencetak angka 1-5
i := 1;
repeat
writeln(i);
i := i + 1;
until i > 5;
writeln;
// Contoh 2: Menghitung jumlah bilangan ganjil dari 1 sampai 10
i := 1; n := 0;
repeat
n := n + i;
i := i + 2;
until i > 10;
writeln('Jumlah bilangan ganjil dari 1-10: ', n);
writeln;
// Contoh 3: Faktorial dengan repeat until
n := 5; i := 1; n := 1;
repeat
n := n * i;
i := i + 1;
until i > 5;
writeln('Faktorial dari 5: ', n);
writeln;
// Contoh 4: Menampilkan angka terbalik
n := 12345;
repeat
writeln(n mod 10);
n := n div 10;
until n = 0;
writeln;
// Contoh 5: Menebak angka
var angka: integer;
angka := 7;
repeat
writeln('Tebak angka: ');
readln(n);
until n = angka;
writeln('Benar! Angkanya adalah ', angka);
readln;
end.
[1/7, 23:48] Aji: program ForLoopExamples;
uses crt;
var
i, n: integer;
begin
clrscr;
// Contoh 1: Mencetak angka 1-5
for i := 1 to 5 do
writeln(i);
writeln;
// Contoh 2: Menghitung jumlah bilangan genap dari 1 sampai 10
n := 0;
for i := 2 to 10 do
if i mod 2 = 0 then
n := n + i;
writeln('Jumlah bilangan genap dari 1-10: ', n);
writeln;
// Contoh 3: Faktorial dengan for
n := 1;
for i := 1 to 5 do
n := n * i;
writeln('Faktorial dari 5: ', n);
writeln;
// Contoh 4: Menampilkan deret Fibonacci dengan for
var a, b, c: integer;
a := 0; b := 1;
for i := 1 to 10 do
begin
writeln(a);
c := a + b;
a := b;
b := c;
end;
writeln;
// Contoh 5: Menampilkan tabel perkalian 2
for i := 1 to 10 do
writeln('2 x ', i, ' = ', 2 * i);
readln;
end.
[1/7, 23:53] Aji: program Soal1;
uses crt;
var
angka, i: integer;
begin
clrscr;
write('Input Sebuah angka: ');
readln(angka);
i := 1;
while i <= 10 do
begin
if i mod 2 = 0 then
writeln(angka, ' x ', i, ' = ', angka * i)
else
writeln(angka, ' : ', i, ' = ', (angka div i), ' sisa ', (angka mod i));
i := i + 1;
end;
readln;
end.
[1/7, 23:54] Aji: program Soal2;
uses crt;
var
kelipatan, batasBawah, batasAtas, total: integer;
begin
clrscr;
write('Input Kelipatan: '); readln(kelipatan);
write('Input Batas Bawah: '); readln(batasBawah);
write('Input Batas Atas: '); readln(batasAtas);
total := 0;
repeat
if (batasBawah mod kelipatan = 0) then
begin
write(batasBawah, ' ');
total := total + batasBawah;
end;
batasBawah := batasBawah + 1;
until batasBawah > batasAtas;
writeln;
writeln('Total: ', total);
readln;
end.
[1/7, 23:54] Aji: program Soal3;
uses crt;
var
baris, kolom, i, j: integer;
begin
clrscr;
write('Input Jumlah Baris: '); readln(baris);
write('Input Jumlah Kolom: '); readln(kolom);
for i := 1 to baris do
begin
for j := 1 to kolom do
begin
if j mod 2 = 0 then
write('0')
else
write('X');
end;
writeln;
end;
readln;
end.
[1/7, 23:54] Aji: program Soal4;
uses crt;
var
angka: array[1..4] of integer;
i: integer;
begin
clrscr;
for i := 1 to 4 do
begin
write('Input Bilangan ke-', i, ': ');
readln(angka[i]);
end;
writeln('Bilangan yang diinput: ');
for i := 1 to 4 do
begin
write(angka[i], ' ');
end;
readln;
end.
[1/7, 23:54] Aji: program Soal1;
uses crt;
var
angka, i: integer;
begin
clrscr;
write('Input Sebuah angka: ');
readln(angka);
i := 1;
while i <= 10 do
begin
if i mod 2 = 0 then
writeln(angka, ' x ', i, ' = ', angka * i)
else
writeln(angka, ' : ', i, ' = ', (angka div i), ' sisa ', (angka mod i));
i := i + 1;
end;
readln;
end.
[1/7, 23:55] Aji: program Soal2;
uses crt;
var
kelipatan, batasBawah, batasAtas, total: integer;
begin
clrscr;
write('Input Kelipatan: '); readln(kelipatan);
write('Input Batas Bawah: '); readln(batasBawah);
write('Input Batas Atas: '); readln(batasAtas);
total := 0;
repeat
if batasBawah mod kelipatan = 0 then
begin
write(batasBawah, ' ');
total := total + batasBawah;
end;
batasBawah := batasBawah + 1;
until batasBawah > batasAtas;
writeln;
writeln('Total: ', total);
readln;
end.
[1/7, 23:55] Aji: program Soal3;
uses crt;
var
baris, kolom, i, j: integer;
begin
clrscr;
write('Input Jumlah Baris: '); readln(baris);
write('Input Jumlah Kolom: '); readln(kolom);
for i := 1 to baris do
begin
for j := 1 to kolom do
begin
if j mod 2 = 0 then
write('0')
else
write('X');
end;
writeln;
end;
readln;
end.
[1/7, 23:55] Aji: program Soal4;
uses crt;
var
angka: array[1..4] of integer;
i: integer;
begin
clrscr;
for i := 1 to 4 do
begin
write('Input Bilangan ke-', i, ': ');
readln(angka[i]);
end;
writeln('Bilangan yang diinput: ');
for i := 1 to 4 do
write(angka[i], ' ');
readln;
end.