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.
Special Thank’s For Yasohati Sarumaha S.kom
Amirullah91 
Wow
it’s much for more info
thanks your attention…
apeeeeeee ngasi contoh salah!!!!!!!!!!!!!!!!!!!!!!!
blajar sana!!!!!!!!!!!!!!!!!!
@dodol
waduh kenapa salah bang
mngkin jg abg aja yg dodol y
hha..
Rumus program di atas untuk menghitung luas persegi panjang tuh, soalnya rumusnya alas x tinggi. Sedangkan untuk menghitung luas segitiga rumusnya yang benar adalah 1/2 x alas x tinggi bos….
Ini rumus yang saya coba ubah sedikit dari script diatas…dengan Turbo Pascal For Windows…
uses wincrt;
var a,t,ls :real;
begin
clrscr;
write(‘alas=’);
readln(a);
write(‘tinggi=’);
readln(t);
ls :=a*t/2;
writeln (‘Luas Segitiga Adalah=’, ls);
readln;
end.
terima ksih banyak masukkanya
hha.. waktu itu saya sedang rise/coba2 programnya
alhamdulillah trnyata jalan
mgkin rumusnya yg tidak begtu saya perhatikan
sekali lagi mohon maaf kakak2 & abg2
saya masih belajar 😀
terima kasih banyak bang 😀
Dulu waktu kuliah pemrograman pascal, saya pernah dimarahi dosen karena perintah “readln;” yang terakhir sebelum End. Fungsi readln sebenarnya untuk memberi input masukan sedangkan readln sebelum end itu untuk menahan layar, memberi kita kesempatan untuk menginput sesuatu.
Tanpa readln sebelum End, sebenarnya program sudah benar. Saya lupa ada cara lain untuk menampilkan hasil (dengan menekan tombol di keyboard), tanpa memasukkan readln; sebelum End.
Btw, nice share brother.
Jazakillah Khair.
assalamualaikum bang ivan
iyah ni, skedar mengamalkan yang saya tahu
dan pstinya itu semua tidak lepas dari salah
Dan terima kasih juga sudah memberikan masukkan kepada saya.
😀
Walhamdulillah,
thanks ya amir..
membantu bgt pas buat ujian..kebetulan ini mjd kisi2 nya…
trimakasih jg y bu lili…
saya senang saya dapat membantu ibu dsana 😀
cara ilangin komanya g mana? gw dapet hasil 6.00000000000e+00
Itu mah gak sulit sama sekali, cukup variabel hasilnya (misalnya : ls) diakhiri dgn :0:0. jdnya ls:0:0. itu bisa dilakukan untuk variabel bertipe real atau sejenisnya.
kok gx bisa yahh
makasi teman2. .:-)
bagus tuh
uses wincrt;
var a,t,ls :real;
begin
clrscr;
write(‘alas=’);
readln(a);
write(‘tinggi=’);
readln(t);
ls :=a*t/2;
writeln (‘Luas Segitiga Adalah=’, ls);
readln;
end.
kok aku RUN Eror ya hasilnya
Liat comen aja sudah ngeri , apa lagi nyoba :v
wkk lain kali kasih yang benar coeg :v