Program Pascal Menghitung Luas Segitiga

Author:

Jika kamu sedang mencari jawaban atas pertanya program pascal menghitung luas segitiga, kamu berada di halaman yang tepat. Kami punya sekitar 10 tanya jawab mengenai program pascal menghitung luas segitiga. Silakan baca lebih lanjut di bawah.

contoh program pascal sederhana hingga  rumit

bahasa PASCALBuatlah Program untuk menghitung luas lingkaran.​

Pertanyaan: bahasa PASCAL

Buatlah Program untuk menghitung luas lingkaran.​

program brainly;

var

r:integer;

pi:real;

begin

readln(r);

pi:=3.14

writeln(‘luas lingkaran : ‘,pi*r*r);

end.

program pascal menghitung boros atau iritnya seseorang​

Pertanyaan: program pascal menghitung boros atau iritnya seseorang​

Jawaban:

program irit – boros

user CRT :

VAR

-Saku . penghasil : (Integer)

begin

-write ( jumlah uang saku Anda per-minggu) : readln (saku)

-write ( jumlah pengeluaran Anda per-minggu) : readln (Peng)

hasil = saku – peng :

IF hasil >=peng then

writeln (‘Sisa uang saku Anda per-minggu adalah) : ‘.hasil.’ artinya anda adalah seorang yang irit’)

else

writeln (‘Sisa uang saku Anda per-minggu adalah : ‘.hasil.’ artinya adalah seorang yang boros’):

end

Program pascal Menghitung Gaji karyawan

Pertanyaan: Program pascal Menghitung Gaji karyawan

uses crt;
var gaji_pokok, gaji_bersih, uang_lembur, jam_kerja : longint;
golongan : byte; begin clrscr;
write(‘Masukan Golongan = ‘);
readln(golongan);
write(‘Masukan Jam Kerja = ‘);
readln(jam_kerja);
  if (golongan=1) then gaji_pokok := 1500000;
if (golongan=2) then gaji_pokok := 2000000;
if (golongan=3) then gaji_pokok := 2500000;   if (jam_kerja > 50) then uang_lembur := (jam_kerja-50) * 10000;
gaji_bersih := gaji_pokok + uang_lembur; writeln;
writeln(‘Gaji Bersih = ‘, gaji_bersih);
readln;
End.

 

Buatlah contoh program menggunakan FREE PASCAL Menghitung luas sisi kerucut.

Pertanyaan: Buatlah contoh program menggunakan FREE PASCAL Menghitung luas sisi kerucut.

Kerucut adalah bangun ruang yang terbentuk dari limas dengan alas lingkaran. Luas sisi kerucut didapatkan dengan menjumlahkan luas alas dan luas selimut kerucut. Luas tersebut dapat dihitung dengan rumus

[tex]L = pi r^{2} + pi rs[/tex] atau [tex]L = pi r (r+s)[/tex]

dimana r adalah jari – jari lingkaran alas

             t adalah tinggi kerucut

             s adalah garis pelukis dimana [tex]s=t^{2} +r^{2}[/tex]

Pembahasan

Maka diketahui program akan menerima input jari – jari alas dan tinggi kerucut untuk menghitung luas sisi kerucut. Program dalam pascal adalah

var

L,r,t,s:real;

begin

       writeln(‘masukkan nilai r:’);

       readln(r);

       writeln(‘masukkan nilai t:’);

       readln(t);

       s:=sqrt(sqr(r)+sqr(t));

       L:=Pi*r*(r+s);  

       writeln(‘Luas kerucut dengan jari-jari : ‘,r:10:1,’ dan tinggi ‘,t:10:1, ‘ adalah  ‘,L:10:3);

end.

Pertama kita mendeklarasikan variabel yang dibutuhkan yaitu

L,r,t,s:real;  

real adalah tipe data yang digunakan oleh bilangan pecahan.

Kemudian kita menerima input tinggi dan jari -jari kerucut

      writeln(‘masukkan nilai r:’);

       readln(r);

       writeln(‘masukkan nilai t:’);

       readln(t);

Setelah itu kita mencari nilai s baru kemudian menggunakan s untuk menghitung luas sisi kerucut

      s:=sqrt(sqr(r)+sqr(t));

      L:=Pi*r*(r+s);  

Terakhir kita tinggal mencetak nilai luas yang telah dihitung oleh program

writeln(‘Luas kerucut dengan jari-jari : ‘,r:10:1,’ dan tinggi ‘,t:10:1, ‘ adalah  ‘,L:10:3);

L:10:3 digunakan untuk memberikan format pada tipe data real. 10 adalah jumlah digit angka yang ditampilkan sebelum koma, dan 3 adalah jumlah digit angka yang ditampilkan setelah koma

Pelajari lebih lanjut  

1. Cara menghitung luas sisi kerucut https://brainly.co.id/tugas/903351

2. Program sederhana penentu kelulusan menggunakan pascal https://brainly.co.id/tugas/18902580

Detail jawaban

Kelas:  10

Mapel:  TIK

Bab:  Mengenal Pemrograman Komputer

Kode:  10.11.06

Kata Kunci:  pascal, luas sisi, kerucut

buatlah program hitung luas segitiga menggunakan bahasa pemograman pascal rumus

Pertanyaan: buatlah program hitung luas segitiga menggunakan bahasa pemograman pascal rumus

Lsegitiga=0,5xaxt

program luas;
uses crt;
var
a,t: integer;
Lsegitiga: real;
begin
clrscr;
write(‘Masukan Nilai Alas:’);
readln (a);
write(‘Masukan Nilai Tingi:’);
readln(t);
writeln(‘ ‘);
Lsegitiga:=0.5*(a*t);
writeln(‘Luas Segitiga adalah =’,L:6:2);
readln;
end.

                                                 TURBO PASCALbuatlah sebuah program untuk menghitung luas segitiga diketahui alas=10

Pertanyaan:                                                  TURBO PASCAL
buatlah sebuah program untuk menghitung luas segitiga diketahui alas=10 cm dan tinggi=5cm.

program Menghitung_luas;
A,B,C:integer;
begin
Write(‘masukkan alas’); readln(A);
Write(‘Masukkan tinngi’); readln(B);
C:=1 div 2(A*B);
writeln;
end.

program pascal pengulangan segitiga dengan output +-

Pertanyaan: program pascal pengulangan segitiga dengan output +-

goespoot
semoga bantu ya

bagaimana contoh program segitiga pascal pada bahasa pemrograman c++?

Pertanyaan: bagaimana contoh program segitiga pascal pada bahasa pemrograman c++?

#include
#include
#include
#include
using namespace std;

int main(){
int nilai,a;

cout<<“masukkan batas : “;
cin>>nilai; // batas banyak piramid segitiga pascal
for (int i=0; i<=nilai; i++){
for (int k=0; k<=((2*nilai)-(2*i)); k++){ // looping untuk mencetak spasi
cout<<” “;
}
for (int j=0; j<=i; j++){ // looping untuk mencetak angka pada komponen segitiga pascal
if (j==0||i==j){
a=1;
}else{
a=a*(i+1-j)/j;
}
cout<<” “<< a ;
}
cout<< endl;
}
getch();
}

Source: http://goo.gl/PxL7Tx

Semoga Membantu.

Buatlah program penghitungan luas bangun datara. luas segitigab. luas segipanjang

Pertanyaan: Buatlah program penghitungan luas bangun datar
a. luas segitiga
b. luas segipanjang
Dengan menggunakan Aplikasi Pascal N-IDE  

Jawaban:

Saya bantu yang luas segitiga ya.

Yang luas segipanjang silakan dibuat sendiri. Sama kok, cuma beda rumus.

Penjelasan:

program luas_segitiga;

uses crt;

var

alas, tinggi, hasil : integer;

begin

write(‘Alas : ‘); readln(alas);

write(‘Tinggi: ‘); readln(tinggi);

hasil:=0.5*alas*tinggi;

writeln(‘Luas Segitiga : ’, hasil);

end.

program pascal menghitung luas segitiga

Pertanyaan: program pascal menghitung luas segitiga

var panjang, Tinggi :integer;
luas : real;
begin
write(‘masukkan panjang :’); readln(panjang);
write(‘masukkan Tinggi :’); readln(Tinggi);
luas:=panjang*Tinggi/2;
Writeln(‘luasnya adalah ‘, luas);
end.