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.