Contoh Kegiatan Free Pascal Perkalian,Pembagian,Pertambahan,Dll
Senin, 18 Maret 2019
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.
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.
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.
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.
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 😂