pascal

hay hay hay haaaaayyy .... buat kamu yg lage belajar pascal ... neh saya share contoh2 codingan pascal neh ... dijamin runing bro

1. PROGRAM HITUNG VOLUME KUBUS

Program Mengitung_Volume_Kubus;

Uses Wincrt;

Var

x,y:integer;

Begin

Writeln;

Writeln('Program mengHitung Volume Kubus');

Writeln('------------------------------------');

Writeln;

Write('Masukan Nilai Sisi Kubus = ');Read(y);

x:=y*y*y;

Writeln;

Writeln('Luas Volume Dari Kubus = ',x);

End.

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

2. MENGHITUNG LUAS LINGKARAN

Program Menghitung_Luas_Lingkaran;

uses wincrt;

var

x,y:real;

const phi=3.14;

begin

writeln;

writeln('Program Hitung Luas Lingkaran');

writeln('------------------------------');

write('Masukan Nilai jari - jari :');read(y);

x:= phi*y*y;

writeln('Maka Luas Lingkaran adalah = ',x);

End.

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

3. MENGHITUNG ARITMATIKA

Program Hitung_Aritmatika;

Uses wincrt;

var

x,y:integer;

z:real;

Begin

writeln('Program Aritmatika');

writeln('------------------');

write('Bilangan Pertama dari 1/');readln(x);

write('Bilangan Kedua dari 1/');readln(y);

z:=(1/x)+(1/y);

writeln('Hasil Dari Perhitungan 1/',x,' + 1/',y,'=',z);

end.

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

selamat mencoba bro ... klo ga runing comment aja yaw