Qibonk blog

bilangan kelipatan 3 dan 5

Menampilkan bilangan kelipatan 3 dan kelipatan 5 dari angka 1 s/d 30
Jawab:

Untuk i:= 1 sampai 30 lakukan:

jika i mod 3= 0 maka cetak i
selain itu jika i mod 5= 0 maka cetak i.

uses crt;

var i: integer;

begin

clrscr;

for i:= 1 to 30 do

begin
if i mod 3 = 0 then write(i:4) else
if i mod 5 = 0 then write(i:4);

end;

readln;

end.

mencari bilangan ganjil-genap

Masukan sebuah bilangan kemudian tentukan apakah bilangan yang diinput termasuk bilangan ganjil, bilangan genap. Gunakan metode pemilihan

Layout :

Masukan sebuah bilangan : 3 à enter

BIlangan yang anda input adalah bilangan ganjil

Jawab :

1. 1. Beri Nilai A

2. 2..Cetak Nilai A

2.1 Jika A mod 2 = 0, maka A bilangan genap

2.2 Jika tidak, maka A bilangan ganjil

uses crt;

var A: integer;

begin

clrscr;

write('masukan bilangan:');

Readln(A);

if (A mod 2)= 0 then

write(A,' ','adalah bilangan genap')

else

write(A,' ','adalah bilangan ganjil');

Readln;

end.

pascal luas lingkaran

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

hasil luas lingkaran.

Layout :
Jari-jari lingkaran : 7
Luar Lingkaran adalah 154

Jawab :

1. 1. Masukan nilai jari-jari yang menyatakan r

2. 2. Menetapkan nilai phi yaitu phi = 3.14

3. 3. Menghitung luas lingkaran yang menyatakan L yaitu L = phi * r * r

4.      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.

program pascal input data mahasiswa

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 pascal aritmatika

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.

program pascal perulangan bilangan

Buat tampilan program dibawah ini dengan menggunakan metode perulangan

       1 2 3 4                         2 2 2                            3 2 1
       1 2 3 4                         1 1 1                            3 2 1

1 2 3 4 0 0 0 3 2 1
1 2 3 4

1 4 3 2 1 1

1 2 4 3 2 3 5
1 2 3 4 3 7 9 11

1 2 3 4 4 13 15 17 19

Jawab:

1. uses crt;

var I,J :integer;

begin

clrscr;

for I:=1 to 4 do

begin

for J:= 1 to 4 do

write(J:4);

writeln;

end;

readln;

end.

2. uses crt;

var A, I,J: integer;

begin

clrscr;

A:=2;

for I:= 1 to 3 do

begin

for J:= 1 to 3 do

write(A:4);

A:=A-1; writeln;

End;

Readln;

end.

3. uses crt; var i, j: byte;

begin

clrscr;

for i:= 1 to 3 do

begin

for j:= 3 downto 1 do

write(j:4); writeln;

end;

readln;

end.

4. uses crt;

var i, j: integer;

begin

clrscr;

for i:= 1 to 4 do

begin

for j:= 1 to i do

write(j:4); writeln;

end;

readln;

end.

1. 5. uses crt;

var A, i,j:integer;

begin

clrscr;

for i:= 4 downto 1 do

begin

A:=4;

for j:= 1 to i do

begin

write(A:4);

A:=A-1;

end;

writeln;

end;

readln;

end.

6. uses crt;

var A, i, j: byte;

begin

clrscr;

A:= 1;

for i:= 1 to 4 do

begin

for j:= 1 to i do

begin

write(A:4);

A:= A+2;

end;

writeln;

end;

readln;

end.

metode urutan angka

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:

a. urutan
if N1 > N2 maka tukarkanlah

b. pemilihan dan perulangan

uses crt;
var x: array[1..5] of integer;
    n,min,temp,i,j: integer;
begin
clrscr;
writeln('Program pengurutan bilangan');
writeln('____________________________');
writeln;
for n:=1 to 5 do
   begin
write('Input bilangan ',n,': ');readln(x[n]);
   end;
   n:=5;
   for i:=1 to n-1 do
    begin
      min:=i;
      for j:=i+1 to n do
       begin
         if x[j] < x[min] then
         min:=j;
       end;
         temp:=x[i];
         x[i]:=x[min];
         x[min]:=temp;
    end;
   writeln('Hasil pengurutan adalah:');
   writeln;
   for n:=1 to 5 do
   write(x[n]:4);
   readln
end.

Sabtu, 18 Desember 2010