Program Deret Bilangan Genap Pada Pascal

Soal

Buatlah program menghitung bilangan genap dengan output:
2 4 6 8 10 dst

Listing Program

program bilangangenap;
uses crt;
var
 i,n:integer;
begin
 clrscr;
 write('Masukkan Angka : ');readln(n);
 for i:=1 to n do
  write(2*i,' ');
 readln;
end.

Output Program

Program Deret Bilangan Ganjil Pada Pascal

Soal

Buatlah program untuk menghitung bilangan ganjil dengan output :
1 3 5 7 9 dst

Listing Program

program bilanganganjil;
uses crt;
var
 n,i:integer;
begin
 clrscr;
 write('Masukkan Angka : ');readln(n);
 for i:= 1 to n do
   write (2*i-1,' ');
 readln;
end.

Output Program

Program Menghitung Derajat Celcius Pada Pascal

Soal

Buatlah program untuk menghitung derajat celcius menjadi, reamur, farenheit, dan kelvin!

Listing Program 

program derajat;
uses crt;
var
 c,f,r,k:real;
begin
 clrscr;
 write('masukkan derajat celcius : ');readln(c);
 f:=1.8*c+32;
 r:=c*0.8;
 k:=c+273;
 write(c,'derajat celcius adalah ',r, 'derajat reamur adalah ',f, 'derajat farenheit adalah ',k,'derajat kelvin ');
 readln;
end.

Output Program

Program Facktorial Pada Pascal

Soal

Buatlah Program menghitung nilai facktorial menggunakan pascal!

Listing Program

program faktorial;
uses crt;
var
 i,n : integer;
 fact: integer;
begin
clrscr;
 write('masukkan angka : ');
 readln(n);
 fact:=1;
  for i:=1 to n do
   fact := fact*i;
   writeln(n,'! : ',fact);
 readln;
end.

Output Program

Program Segitiga Siku Pada Pascal

Soal

Buatlah program dengan output seperti dibawah ini :

*
**
***
****
***** 

Listing Program 

program segitigabintang;
uses crt;
var
 i,j,n:integer;
begin
clrscr;
 write('masukkan nilai :');readln(n);
 for i:=1 to n do
  begin
   for j:=1 to i do
    begin
     write('* ');
    end;
  writeln;
  end;
 readln;
end. 

Output Program

 

Program Menghitung Gaji Pegawai Pada Pascal

Soal
Buatlah program aplikasi untuk menampilkan hasil dan keluaran sebagai berikut:
- judul program data penggajian karyawan
- inputannya : 1. No induk karyawan
                       2. Nama
                       3. Golongan 
                       4. Jumlah jam kerja 
- Keterangannya : jam normal = 40 jam
                             upah lembur = 10.000 / jam 
                             gol A upah perjam = 6.500
                             gol B upah perjam = 7.500
                             gol C upah perjam = 8.500
Rumus hitung gaji ketentuannya :
jika jumlah jam kerja <= jam normal maka total upah = jumlah jam kerja x upah perjam
jika jumlah jam kerja >= jam normal maka total upah = ( jam normal x upah perjam ) + ( lembur x upah lembur ).
Tentukan total upahnya! 

Listing Program

program gaji;
uses crt;
var
 ul,jn,jjk,up,lembur,totup:longint;
 nik:char;
 gol,nama:string;
begin
clrscr;
jn:=40;
ul:=10000;
write('nomor induk karyawan : ');readln(nik);
write('masukkan nama : ');readln(nama);
write('masukkan golongan : ');readln(gol);
if gol= 'a' then
 up:=6500
else
if gol= 'b' then
 up:=7500
else
 up:=8500;
write('masukkan jumlah jam kerja : ');readln(jjk);
 if jjk<=40 then
  totup:=jjk*up
  else
  lembur:=jjk-jn;
   totup:=(jn*up)+(lembur*ul);
 writeln('Total upahnya : ',totup);
 readln;
end.


Output Program