Program-1

Berikut pembahasan program latihan dengan bahasa PASCAL :

Mencari bilangan genap dan ganjil :

Program HelloWorld(output);
var i:integer;
begin
writeln('Bilangan genap');
{ metode mencari bilangan genap terletak pada fungsi mod }
for i:=1 to 20 do begin
     if i mod 2 = 0 then writeln(i);
end;
writeln('Bilangan ganjil');
{ metode mencari bilangan ganjil terletak pada fungsi mod }
for i:=1 to 20 do begin
     if i mod 2 > 0 then writeln(i);
end;
end.

Mencari bilangan maksimum dan minimum :

Program maksmin;
var n1,n2,n3,maks,min: integer;
begin
   write('Masukan nilai 1: '); readln(n1);
   write('Masukan nilai 2: '); readln(n2);
   write('Masukan nilai 3: '); readln(n3);

   {metode mencari bilangan maksimum}
   if (n1>n2) and (n1>n3) then writeln('bilangan maksimum :',n1);
   if (n2>n1) and (n2>n3) then writeln('bilangan maksimum :',n2);
   if (n3>n1) and (n3>n2) then writeln('bilangan maksimum :',n3);

   {metode mencari bilangan minimum}
   if (n1<n2) and (n1<n3) then writeln('bilangan minimum :',n1);
   if (n2<n1) and (n2<n3) then writeln('bilangan minimum :',n2);
   if (n3<n1) and (n3<n2) then writeln('bilangan minimum :',n3);

end.

Menghitung nilai faktorial :

Program faktorial;
var bil,fak,x:integer;
begin
write('Masukan bilangan faktorial : ');
readln(bil);
fak:=1;

{Metode penghitungan faktorial}
for x:=1 to bil do begin
      fak:=fak*x;
end;
writeln('Hasil faktorial : ',fak);
end.

Menghitung nilai pangkat :

Program pangkat;
var bil,pang, hasil,x:integer;
begin
write('Masukan bilangan : ');
readln(bil);
write('Masukan nilai pangkat : ');
readln(pang);
hasil:=1;

{Metode penghitungan pangkat}
for x:=1 to pang do begin
      hasil:=hasil*bil;
end;
writeln('Hasil ',bil,' pangkat ',pang,' : ',hasil);
end.

Menghitung nilai rata-rata :

Program ratarata;
var n1,n2,n3,r :real;
begin
write('Masukan nilai 1 : ');
readln(n1);
write('Masukan nilai 2 : ');
readln(n2);
write('Masukan nilai 3 : ');
readln(n3);
r:=(n1+n2+n3)/3;

{Metode penghitungan grade rata-rata}
if r>=89 then writeln('Nilai rata-rata: ',r:4:2,' Grade A')
else if r>=79 then writeln('Nilai rata-rata: ',r:4:2,' Grade B')
else writeln('Nilai rata-rata: ',r:4:2,' Grade C');
end.

Menghitung nilai BMI :

Program bmi;
var berat,tinggi,indeks :real;
begin
write('Masukan berat : ');
readln(berat);
write('Masukan tinggi : ');
readln(tinggi);
indeks:=berat/(tinggi*tinggi);

{Metode penghitungan bmi indeks}
if indeks<=18 then writeln('Nilai indeks: ',indeks:4:2,' Underweight')
else if indeks<=25 then writeln('Nilai indeks: ',indeks:4:2,' Normal')
else writeln('Nilai indeks: ',indeks:4:2,' Obesitas');
end.

Untuk program terakhir, saya menggunakan bahasa FORTRAN
Program menampilkan huruf :

program karakter
   character :: kata*30
   integer :: x
   print *, "Masukkan kata"
   read *, kata
   do x=1,len_trim(kata)
      if (mod(x,2)==0) then
         print *, kata(x:x)
      end if
   end do
end program karakter