Rumus Luas Segitiga Di Pascal

Standard

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

About these ads

About Amir

Jangan pernah sedih karena kamu tidak dapat melakukan sesuatu seperti orang lain karena memang tidak memiliki kemampuan untuk itu, Tetapi apa yang dapat kamu lakukan lakukanlah itu dengan sebaik-baiknya Dan jangan sombong jika kamu merasa banyak melakukan beberapa hal pada orang lain, Karena orang yang tinggi hati akan direndahkan dan yang rendah hati akan ditinggikan

17 responses »

  1. apeeeeeee ngasi contoh salah!!!!!!!!!!!!!!!!!!!!!!!
    blajar sana!!!!!!!!!!!!!!!!!!

  2. 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….

  3. 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.

  4. 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 :D

  5. 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.

  6. 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. :D

    Walhamdulillah,

  7. 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.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s