Contoh Kegiatan Free Pascal Perkalian,Pembagian,Pertambahan,Dll

Pascal adalah salah satu bahasa pemrograman komputer yang umumnya dipakai sebagai pengantar untuk mulai berguru algoritma dan pemrograman. Pascal relatif gampang dipelajari alasannya perintah-perintahnya yang menyerupai dengan bahasa inggris sehari-hari seperti begin, end, write, dan read. Berikut pola coding Program free pascal:

Program Menghitung Luas Segitiga

kegiatan luas;
uses crt;
var
a,t: integer;
L: real;
begin
clrscr;
write(‘Masukan Nilai Alas:’);
readln (a);
write(‘Masukan Nilai Tingi:’);
readln(t);
writeln(‘ ‘);
L:=(a*t)/2;
writeln(‘Luas Segitiga ialah =’,L:6:2);
readln;
end.

Program Menghitung Pertambahan

kegiatan pertambahan;
uses crt;
var
a,b,h :integer;
begin
write('Masukan Angka Pertama: ');readln(a);
write('Masukan Angka Kedua: ');readln(b);
h:=a+b;
writeln('Maka Hasilnya Adalah ',h);
end.

Program Menghitung Perkalian

kegiatan perkalian;
uses crt;
var
a,b,h :integer;
begin
write('Masukan Angka Pertama: ');readln(a);
write('Masukan Angka Kedua: ');readln(b);
h:=a*b;
writeln('Maka Hasilnya Adalah ',h);
end.

Program Menghitung Pengurangan

kegiatan pengurangan;
uses crt;
var
a,b,h :integer;
begin
write('Masukan Angka Pertama: ');readln(a);
write('Masukan Angka Kedua: ');readln(b);
h:=a-b;
writeln('Maka Hasilnya Adalah ',h);
end.

Program Menghitung Pembagian

kegiatan pembagian;
uses crt;
var
a,b,h :real;
begin
write('Masukan Angka Pertama: ');readln(a);
write('Masukan Angka Kedua: ');readln(b);
h:=a/b;
writeln('Maka Hasilnya Adalah ',h:0:2);
end.

segitu aja dulu ya 😆jangan lupa share ke sobat sahabat kalian , mungkin ada yg belom dapat coding programnya suruh aja ke sini 😂

Berbagi :