Tugas Algoritma Pemrograman

1.program luas_segitiga;

uses wincrt; var a,b,c,s,L :real; begin writeln('program menghitung luas segitiga'); writeln('Diketahui : '); writeln('input nilai a : ');readln(a); writeln('input nilai b : ');readln(b); writeln('input nilai c : ');readln(c); writeln('Ditanya :'); writeln('s dan Luas segitiga ? '); s:=(a+b+c)/2; L:=sqrt(s((s-a)(s-b)*(s-c)));

writeln('Jawab :'); writeln('s-nya adalah : ',s:2:2); writeln('jadi luas segitiga adalah ',L:2:2); readln; end.

2.program bil_trbsr; uses wincrt; var a,b,c,d : integer; terbesar : integer; begin writeln('PROGRAM MENCARI BILANGAN TERBESAR'); writeln; writeln('Masukkan 4 Buah bilangan'); writeln; write('Bilangan Ke-1 :'); readln(a); write('Bilangan Ke-2 :'); readln(b); write('Bilangan Ke-3 :'); readln(c); write('Bilangan Ke-4 :'); readln(d); terbesar:=0; if (a > b) then terbesar:= a else terbesar:=b; if (terbesar > c) then terbesar:= terbesar else terbesar:= c; if (terbesar > d) then terbesar:= terbesar else terbesar := d; writeln; write ('Jadi Bilangan Terbesarnya Adalah :',terbesar); end.

3.program Jumlah_bilangan; uses wincrt; var n, i,byk,jum, bil : integer; begin Write('Masukkan banyak bilangan : '); readln(n); Writeln; for i := 1 to n do begin write('Bilangan ',i,' = '); read(bil); if bil >= 0 then begin jum := jum+bil ; end; end; writeln; writeln('jumlah bilangan : ',jum); end.

4.program nilairatarata4bilangan;

uses wincrt; var a,b,c,d :integer; s:real; begin writeln('program menghitung nilai rata-rata'); writeln('Diketahui : '); writeln('input nilai a : ');readln(a); writeln('input nilai b : ');readln(b); writeln('input nilai c : ');readln(c); writeln('input nilai d : ');readln(d); writeln('Ditanya :'); writeln('Nilai Rata-Rata 4 Bilangan jika salah satunya tidak sama dengan nol'); if a>0 then begin

s:=(a+b+c+d)/4;

writeln('Jawab :'); writeln('Rata-ratanya adalah : ',s:2:2); readln; end.

0 Jawaban