Lompat ke konten Lompat ke sidebar Lompat ke footer

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 😂