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.

Tugas Algoritma Program Pascal "Luas Lingkaran"

11. Masukan nilai jari-jari sebuah lingkaran. Kemudian program akan menampilkan





hasil luas lingkaran.
Layout :
Jari-jari lingkaran : 7
Luar Lingkaran adalah 154


Jawab :
1. Masukan nilai jari-jari yang menyatakan r
2. Menetapkan nilai phi yaitu phi = 3.14
3. Menghitung luas lingkaran yang menyatakan L yaitu L = phi * r * r
4. Cetak hasil luas lingkaran (L)
uses crt;
const phi=3.14;
var L,r: real;
begin
writeln('Program Menghitung Luas Lingkaran');
write('Masukan jari-jari Lingkaran:');
Readln(r);
L:=phi*r*r;
writeln('Luas Lingkaran adalah:',round(L));
Readln;
end.

Tugas Algoritma Program Pascal "Menghitung Luas"

12. Buat algoritma dan program untuk menghitung luas yang diarsir pada gambar dibawah ini:
















1. Menentukan nilai panjang sisi luar (pL): pL= 18, lebar sisi luar (lL): lL= 12, panjang sisi dalam (pT): pT= 10, dan lebar sisi dalam (lT): lT= 5.
2. Menghitung luas total, Ltotal= pL x lL
3. Menghitung luas tengah, Ltengah= pT x lT
4. Didapat luas yang diarsir, Larsir= Ltotal-Ltengah

jawab:
uses crt;
var pL, lL, pT, lT, Ltotal , Ltengah: integer;
begin
clrscr;
pL:=18; lL:=12; pT:=10; lT:=5;
Ltotal:= pL*lL;
Ltengah:= pT*lT;
writeln('Luas total = ', Ltotal);
writeln('Luas tengah = ', Ltengah);
writeln('Luas yang diarsir= ', Ltotal-Ltengah);
readln;
end.

Tugas Algoritma Program Pascal "Metode Perulangan"

14. Buat urutan angka dari terkecil sampai terbesar dari 5 (lima) nilai yang dinput. Gunakan metode urutan, pemilihan dan perulangan.
Layout :
Angka 1 : 8
Angka 2 : 17
Angka 3 : 5
Angka 4 : 7
Angka 5 : 18

Hasil urutan sebagai berikut:
5 7 8 17 18
Jawab:
if N1 > N2 maka tukarkanlah

8 17 5 7 18


5 17 8 7 18

5 8 17 7 18


5 7 17 8 18


5 7 8 17 18

Tugas Algoritma Program Pascal "Metode urutan, pemilihan dan perulangan"

14. Buat urutan angka dari terkecil sampai terbesar dari 5 (lima) nilai yang dinput. Gunakan metode urutan, pemilihan dan perulangan.
Layout :
Angka 1 : 8
Angka 2 : 17
Angka 3 : 5
Angka 4 : 7
Angka 5 : 18

Hasil urutan sebagai berikut:
5 7 8 17 18
Jawab:
if N1 > N2 maka tukarkanlah

8 17 5 7 18


5 17 8 7 18

5 8 17 7 18


5 7 17 8 18


5 7 8 17 18

Tugas Algoritma

15. Buat program sederhana menggunakan metode pemilihan untuk menampilkan keterangan umur di mana:
Umur Keterangan
0-5 Balita
6-13 Anak-Anak
14-25 Remaja
26-40 Dewasa
 41 Orang Tua

Dengan memasukan nama, nim, program studi, tahun lahir. Maka akan ditampilkan umur dan keterangan umur



Layoutnya :
Nama : Andi
Nim : 21015199
Program Studi : Sistem Informasi
Tahun Lahir : 1981

Umur : 29
Keterangan : Dewasa

jawab :
uses crt;
var nama, nim,programstudi,ket: string ;
tahunlahir, umur : integer;
begin
clrscr;
write('Nama : '); readln(nama);
write('NIM : '); readln(nim);
write('Program Studi: '); readln(programstudi);
write('Tahun Lahir : '); readln(tahunlahir);
umur:= 2010-tahunlahir;
writeln;
writeln('Umur: ', umur);
if umur <=5 then ket:='balita'
else if umur <=13 then ket:='anak-anak'
else if umur <=25 then ket:='remaja'
else if umur <=40 then ket:='dewasa'
else ket:='orang tua';
writeln('Keterangan: ',ket);
readln;
end.

Program Sederhana Biodata

uses crt;

var

      nama, alamat : string;

      umur             : integer;

begin

clrscr;

writeln ('===============================');

writeln ('                                Biodata                                ');

writeln ('===============================')

write ('Nama :'); readln (nama);

write ('Umur :') readln (umur);

write ('Alamat :') readln (alamat);

writeln ('--------------------------------------------------------------')

writeln ('Jadi data Anda : ');

writeln ('Anda bernama ',nama,'. Umur Anda ',umur,' tahun. Anda tinggal di ',alamat,'.');

writeln;

readkey;

end.