ALgoritma Program

	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.