Tugas Algoritma "Menampilkan Bilangan Kelipatan 3 dari angka 1 s/d 20"

4. Menampilkan bilangan kelipatan 3 dari angka 1 s/d 20
Jawab:
uses crt;
var I,A: integer;
begin
clrscr;
A:=3;
for I:=1 to 6 do
begin
writeln(A);
A:=A+3
end;
Readln;
end.

Tugas Algoritma "Menampilkan Bilangan Ganjil dari angka 1 s/d 100"

5. Menampilkan bilangan ganjil dari angka 1 s/d 100
Jawab:

uses crt;
var I,A: integer;
begin
A:=1;
clrscr;
for I:= 1 to 100 do
begin
if I mod 2= 1 then
write(I:5);
end;
Readln;
end.

Tugas Algoritma "Menampilkan Bilangan Genap dari angka 1 s/d 50"

6. Menampilkan bilangan genap dari angka 1 s/d 50
NilaiA=1
I=1 sampai 50, lakukan
• Cetak nilai A
• Jika A mod 2 = 0, maka nilai A = bilangan genap

jawab:
uses crt;
var I,A: integer;
begin
A:=1;
clrscr;
for I:= 1 to 50 do
begin
if I mod 2 = 0 then
write(I:5);
end;
Readln;
end.

Tugas Algoritma "Menampilkan Bilangan Prima dari angka 1 s/d 20"

7. Program untuk menampilkan bilangan prima yang dimulai dari angka 1 sampai dengan angka 20 dalam bahasa pascal adalah sebagai berikut :

Jawab:
uses crt;
var x,y: integer;
begin
clrscr;
write(‘2 ‘);
for x:= 3 to 20 do
begin
prima:=true;
for y := 2 to x-1 do
begin
if (x mod y) = 0 then
begin
prima := false;
break;
end;
end;
if prima then write(x,’ ‘);
end;
Readln;

end.

Tugas Algoritma " Input Bilangan Ganjil atau Genap menggunakan Metode Pemilihan"

9. Program ini digunakan untuk menentukan apakah bilangan yang diinput termasuk bilangan ganjil atau bilangan genap. Metode yang digunakan adalah metode pemilihan.

uses crt;
var
bilangan : integer;
begin
clrscr;
write('Masukan sebuah bilangan='); Readln(bilangan);
if (bilangan mod 2)= 0 then
writeln('Bilangan yang Anda input adalah bilangan genap')
else
writeln('Bilangan yang Anda input adalah bilangan ganjil');
Readln;
End.

Tugas Algoritma "Menampilkan kelipatan 3 dan 5 dari angka 1 s/d 30

8. Menampilkan bilangan kelipatan 3 dan kelipatan 5 dari angka 1 s/d 30

Jawab:
uses crt;
var I,A,B: integer;
begin
clrscr;
A:= 3;
B:= 5;
for I:= 1 to 6 do
begin
write (A,B);
A:= A+3;
B:= B+5;
end;
Readln;

End.

Tugas Algoritma Program Pascal "Penjumlahan,Perkalian,Pengurangan dan Pembagian"

10. Masukan bilangan 1, setelah itu masukan bilangan 2, kemudian lakukan proses penjumlahan, perkalian pengurangan, dan pembagian. Hasil dari ke empat operasi aritmatika tersebut ditampilkan
Layout :
Bilangan 1 : 6
Bilangan 2 : 3
Hasil Penjumlahan : 9
Hasil Pengurangan : 3
Hasil Perkalian : 18
Hasil Pembagian : 2
Jawab:
uses crt;
var A,B:integer;
begin
clrscr;
Write('Bilangan 1: ');Readln(A);
Write('Bilangan 2: ');Readln(B);
Writeln('Hasil Penjumlahan= ',A+B);
Writeln('Hasil Pengurangan= ',A-B);
Writeln('Hasil Perkalian = ',A*B);
Writeln('Hasil Pembagian = ',A/B:0:0);
Readln;
end.