TI

Pertanyaan

buatlah program hitung luas segitiga menggunakan bahasa pemograman pascal rumus

Lsegitiga=0,5xaxt

1 Jawaban

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

Pertanyaan Lainnya