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.

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

Mencari Bilangan Ganjil atau 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.    

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.

Program bilangan prima 1-20

Bilangan prima dari angka 1 s/d 20 = 2,3,5,7,11,13,17,19

Bilangan prima adalah bilangan yang bisa dibagi dengan bilangan 1 dan bilangan itu sendiri.

2: 2 mod 1=0, 2 mod 2=0

3: 3 mod 1=0, 3 mod 2=0, 3 mod 3=0

4: 4 mod 1=0, 4 mod 2=0, 4 mod 3=1, 4 mod 4=0

5: 5 mod 1=0, 5 mod 2=1, 5 mod 3=2, 5 mod 4=1, 5 mod 5=0

programnya :

uses crt;

var nilai , pembagi, jumlah0: byte;

begin

  clrscr;

  for nilai := 2 to 20 do

  begin

  jumlah0:=0 ;

  for pembagi :=1 to nilai do

  begin

  if nilai mod pembagi =0 then

  jumlah0:=jumlah0+1;

  end;

  if jumlah0= 2 then

  write(nilai:4);

  end;

  readln;

end.

Bilangan Genap 1-50

Menampilkan bilangan genap dari angka 1 s/d 50 

Jawab:

-                         1. Beri Nilai A = 1

-                         2. Untuk I = 1 samapi 50 lakukan

2.1 Cetak Nilai A

2.2  Jika A mod 2 = 0 , maka nilai A = bilangan genap

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.