MENGHITUNG LUAS JAJAR GENJANG DENGAN PASCAL
MENGHITUNG LUAS JAJAR GENJANG DENGAN PASCAL
Nah berikut adalah cara menghitung luas jajar genjang
dengan menggunakan pascal
1.Programnya
Program MencariLuasJajarGenjang;
Uses crt;
Var
L:integer;
a:integer;
t:integer;
Begin
clrscr;
writeln('Program Mencari Luas Jajar Genjang');
write('Input Nilai a=');readln(a);
write('Input Nilai t=');readln(t);
L:=a*t;
writeln('Nilai Mencari Luas Jajar Genjang=',L);
readln;
end.
2.Pascal
3.Hasilnya
Nah berikut adalah cara menghitung luas jajar genjang
dengan menggunakan pascal
1.Programnya
Program MencariLuasJajarGenjang;
Uses crt;
Var
L:integer;
a:integer;
t:integer;
Begin
clrscr;
writeln('Program Mencari Luas Jajar Genjang');
write('Input Nilai a=');readln(a);
write('Input Nilai t=');readln(t);
L:=a*t;
writeln('Nilai Mencari Luas Jajar Genjang=',L);
readln;
end.
2.Pascal
3.Hasilnya


Komentar
Posting Komentar