TURBO PASCAL : PROGRAM UNTUK MENENTUKAN NILAI MAX DAN MIN DARI N-BUAH DATA YANG DIINPUTKAN

1.    Program max-min

Langkah-langkah :

program max_min;

uses crt;

var a,b,c,min,max:integer;

begin

textcolor(yellow);

textbackground(blue);

clrscr;

writeln('***** PROGRAM NILAI MAX & NILAI MIN *****');

writeln;

write('Masukkan banyaknya data = ');readln(a);

min:=10000000;

max:=-1000000;

for b:=1 to a do

begin

write('Data ke-',b,' = ');readln(c);

if c<=min then min:=c;

if c>=max then max:=c;

end;

writeln('Jadi, Nilai Min = ',min);

writeln('      Nilai Max = ',max);

readln;

end.

Hasil RUN :

CONTOH PROGRAM PENYELESAIN SPL MENGGUNAKAN METODE CRAMMER PADA MATLAB

Pada M-File :

clear all;

clc;

format rat;

a=0;

b=1;

while a~=b;

disp('PROGRAM PENYELESAIAN PERSAMAAN LINEAR');

disp('    MENGGUNAKAN METODE CRAMMER');

disp('=====================================');

disp(' ');

a=input('Masukkan Banyaknya Baris = ');

b=input('Masukkan Banyaknya Kolom = ');

if a~=b;

    disp(' ');

    disp('Maaf,,, banyaknya kolom dan baris matriks harus sama');

    input('silahkan tekan enter!');

    clc;

end

end

disp(' ');

disp('=> Nilai Untuk Matriks A :');

for x=1:a

    for y=1:b

        A(x,y)=input(['   inputkan matriks A[',num2str(x),',',num2str(y),']  = ']);

    end

end

disp(' ');

disp('=> Nilai Untuk Matriks B :');

for x=1:a

B(x,1)=input(['   inputkan matriks B[',num2str(x),',1]  = ']);

end   

disp(' ');

disp('Jadi : ');

disp('*.Matriks A :');

disp(A);

disp('*.Matriks B :');

disp(B);

disp('dengan menggunakan metode crammer diperoleh :');

X=det(A);

z=1;

while z<=x;

Y=A;

for i=1:x;

    Y(i,z)=B(i);

end

D=det(Y)/X;

disp(['x',num2str(z),' = ',num2str(D)]);

z=z+1;

end

Hasil :

setelah tekan enter, maka akan diperoleh tampilan sebagai berikut :