| NAMA : FATKHUL ILMIAH |
Soal UAS Algoritma I:
1. Buat
Algoritma Untuk Sejumlah data N dari 4 Variabel dan hitung nilai rata-rata dari
total nilai setiap data (Dengan Program)
2. Buat
Algoritma Untuk 5 Variabel dan cari nilai data minimum dan maksimumnya (Dengan
Program)
3. Buat
Program untuk data perhitungan nilai dari 2 data pada 5 variabel. Lakukan
perbandingan untuk hasil dari perhitungan nilai tesebut untuk memberi
keterangan pada setiap data.
Jawaban UAS Algoritma I:
1.
Mencari
nilai Rata-rata
program rerata;
uses wincrt;
var
n,i,total:integer;
b:array[1..100] of integer;
rata:real;
begin
total:=0;
clrscr;
writeln('##################################################');
writeln('# #');
writeln('# Program mencari nilai
rata-rata #');
writeln('# #');
writeln('##################################################');
writeln;
write('masukan banyak bilangan = ');
readln(n);
for i:= 1 to n do begin
write('masukkan bilangan ke-',i,' =
');readln(b[n]);
total:=total+b[n];
end;
rata:=total / n;
writeln;
writeln('jumlah bilangan = ' ,total);
writeln('rata-rata bilangan =
',rata:0:2);
readln;
end.
2.
Mencari
Nilai Max dan Min
program min_max;
uses wincrt;
var
a: array[1..100] of real;
i,n: integer;
max,min : real;
begin
write ('masukkan banyaknya data:');
readln(n);
max:=-9999;
min:=9999;
clrscr;
for i:=1 to n do begin
write ('data ke ', i ,'= '); readln (a[i]);
if max<(a[i]) then max := (a[i]);
if min>(a[i]) then min :=
(a[i]);
end;
writeln('nilai maksimum : ', max:6:2);
writeln('nilai minimum : ', min:6:2);
end.
3.
Menentukan
bilangan genap atau ganjil
program genap_or_ganjil;
uses wincrt;
var
bil,sisa,i : integer;
total :
integer;
ket :
string;
begin
begin
total:=0;
writeln
('..::Menentukan Bilangan Genap or Ganjil ::..');
writeln
('===========================');
for i :=1 to
2 do
begin
write('Masukkan Bilangan ke-',i,' = ');readln(bil);
total
:=total+bil;
end;
sisa := total
mod 2;
if sisa = 0
then ket :='Genap' else ket := 'Ganjil';
writeln('------------------------------------');
write('Total
: ',total,' adalah bilangan ');write (ket);
end;
end.
