Program algoritma menghitung keliling lingkaran, menampilkan bilangan, menghitung IPK

1.      Menghitung keliling Lingkaran

Flowchart :

uses wincrt;

var

  d:integer;

  k:real;

const phi= 3.14;

begin

write ('Masukkan diameter lingkaran= ');

readln (d);

  k:= phi*d;

writeln ('Jadi keliling Lingkarannya adalah:= ',k,2,2);

end.

Output Menghitung keliling Lingkaran

Analisa :

Didalam program d yang mewakili diameter dari lingkarang memiliki tipe data integer, yaitu hanya bias diinputkan bilangan bulat saja. K yang mewakili keliling suatu lingkaran tipe datanya real dimana real d apat menghasilkan output bilangan-bilangan decimal maupun bilangan bulat.

Saya juga menuliskan constanta phi yang bernilai 3,14, artinya program akan membaca dalam proses bahwa phi secara otomatis bernilai 3,14 sehingga kita tidak perlu lagi menginputkan nilai 3,14 lagi. Write (‘masukan diameter lingkaran = ‘) bertujuan agar dalam tampilan program terdapat perintah untuk menginputkan nilai diameter. Perintah readln (d) berarti program akan membaca inputan user tersebut mewakili d atau diameter suatu lingkaran.

Rumus keliling lingkaran sya tuliskan k:=phi*d, artinya ketikan user menginoutkan nilai d program akan memproses constanta phi yaitu 3,14 dikalikan diameter. Saya menginputkan diameter = 10. Perintah writeln (‘jadi keliling lingkaran adalah :=’,k) akan menampilkan hasil perhitungan keliling suatu lingkaran. Untuk diameter 7 yang saya inputkan pada program menghasilkan output 3.1400000000E+0122.

2.      Menampilkan Bilangan 1-10

Flowchart

 

Skrib progam

uses wincrt;

var

A:integer;

begin

for A:=1 to 10 do

write (A , ' ');

end.

Output

Analisa :

Dalam menampilkan bilangan 1-10, saya menggunakan progam for to do. A tersebut dalam script mewakili bilangan dengan tipe integer karena bilangan yang ditampilakan merupakan bilangan bulat. Perintah yang digunakan yaitu for A :=1 to 10 do.

            Write (A, ‘   ‘) artinya akan menampilakan bilangan tersebut dan tanda ‘   ‘ berguna memberikan spasi pada outputan . End untuk mengakhiri.

3.  Menghitung IPK

Flowchart

Skrip program

 Uses wincrt ;

Var

X:integer;

Begin

Write ('masukan nilai : ') ;readln (x) ;    

If (x>=85) then writeln ('nilai anda adalah A')

Else if (x>=65)then writeln ('nilai anda adalah B')

Else if (x>=45)then writeln ('nilai anda adalah C')

Else if (x>=35) then writeln ('nilai anda adalah D')

Else if (x>=0)then writeln ('nilai anda adalah E') ;

Readln;

End.

Output

Analisa :

Di dalam program ini, x mewakili nilai yang akan diinputkan. X bertipe data integer artinya inputan x bernilai bilangan bulat. Perintah write (‘masukan nilai :’) artinya program akan meminta user memberikan input nilai atau x. perintah readln (x) berfungsi menampilkan perintah inputan.

            Perintah if(x>=85) then writeln (‘nilai anda adalah A’) berarti jika user memberikan inputan nilai lebih dari 85 makan nilai atau output yang keluar yaitu A. perintah else if (x>=65)then writeln ('nilai anda adalah B'), else if (x>=45)then writeln ('nilai anda adalah C'), else if (x>=35) then writeln ('nilai anda adalah D'), else if (x>=0)then writeln ('nilai anda adalah E') ; artinya nilai yang akan keluar selain lebih dari 85 yaitu jika lebih dari 65 maka B, lebih dari 45 C, lebih dari 35 D, dan lebih dari 0 sampai 34 yaitu E. Readln artinya membaca script. End berarti mengakhiri.