Cara Membuat Program Menghitung Luas Segitiga Di Free Pascal
Assalamualaikum warah matullahi wabarakatuh.....
Yo bertemu dengan saya fahriz/fahriz-lovers yg terkenal dengan tai lalat di dekat mulutnya
saya juga disini masih anak smk dan sekolah di Smk Doa Bangsa Palabuhanratu meski saya
murid Smk saya mempunya ambisi yang sangat besar yaitu menjadi blogger muda wkwkwk :v
maaf disini sedikit curhat bentar hehehe :v wkwkwk
Saya disini akan membagikan Cara membuat program menghitung luas lingkaran di free pascal
1. Buka free pascal lalu klik file filih new.
2. Lalu tulis script seperti gambar disini/copy secript nya disini
program luas;
uses crt;
var
a,t: integer;
L:real;
begin
clrscr;
write('masukan nilai alas:');
readln (a);
write('masukan nilai tinggi:');
readln(t);
writeln('');
L:=(a*t)/2;
writeln('luas segitiga adalah =',L:6:2);
readln;
end.
3. Lalu klik files pilih change dir
4. Lalu pilih polder yg menjadi tempat penyimpanan contoh seperti saya C:latihan pascal lalu klik ok
5. Lalu pilih compile diatas
6. Ketik nama yg diinginkan tanpa menggunakan sepasi contoh segitiga.pos
7. Jika berhasil akan muncul tampilan seperti berikut
8. Lalu pilh run diatas
9. Maka akan muncul tampilan seperti berikut!
lalu ketik angka Alas yg diinginkan contoh saya meggunakan 10
lalu ketik angka tinggi contoh 12 lalu enter maka hasilnya akan keluar...
sekian dari saya mungkin ingin belajar pascal yang lain tetap ikuti di blogg ane....salam sejahtra wasalamualikum warah matullahi wabarakatuh
0 comments: