Memperoleh sedikit ilmu, dan langsung diamalkan akan lebih baik dan disini saya sedikit menuangkan yang baru saja saya ketahui tentang perumusan bahasa pemrograman pascal.
Rumus Menghitung Luas Segitiga;
uses crt;
var a,t,ls :integer;
begin
clrscr;
write (‘alas=’); readln(a);
write (‘tinggi=’); readln(t);
ls :=a*t;
writeln (‘Luas Segitiga Adalah=’, ls);
readln;
end.
Tidak ada komentar:
Posting Komentar