Find Data

Tugas Kuliah Komputer Dasar - Statistika-A UB

Tugas No 1. Prosedur AKU

type
tdata=char;
tlarik=array[1..100] of tdata;

procedure input(var n:byte; var data:tlarik);
var i:byte;
Begin
     Write('input banyak data : ');
     Readln(n);
     for i:=1 to n do
     begin
         write('input data ke-',i,' : ');
         readln(data[i]);
     end;
end;

procedure cetak(n:byte; var data:tlarik);
var i:byte;
begin
     writeln;
     writeln('Tampilan');
     writeln('--------');
     for i:=1 to n do
     begin
          write(data[i]);
     end;
end;

var
data:tlarik;
n:byte;
begin
     input(n,data);
     cetak(n,data);
     readln;
End.



Tugas no 2. Find Data

const max=100;
type
tdata=real;
tlarik=array[1..max] of tdata;

procedure setdata(n:byte; var a :tlarik);
var i:byte;
begin
     for i:= 1 to n do
     begin
          write('a[',i,']= ');
          readln(a[i]);
     end;
end;

procedure cetak (n:byte; var a:tlarik);
var i:byte;
begin
     for i:=1 to n do
     writeln('a[',i,'] : ',a[i]:2:0);
end;

procedure findpos(n:byte; a:tlarik; dt_cari:real;var posisi:byte);
var i:byte;
    ketemu:boolean;
begin
     i:=1;
     ketemu:=false;
     while (not ketemu) and (i<=n) do
     begin
          if (dt_cari= a[i]) then
          begin
               ketemu := true;
               posisi := i;
          end;
          inc(i);
     end;
end;

function findpos1(n:byte;a:tlarik;dt_cari:real):byte;
var i:byte;
    ketemu:boolean;
begin
     i:=1;
     ketemu:=false;
     while (not ketemu) and (i<=n) do
     begin
          if (dt_cari= a[i]) then
          begin
               ketemu := true;
               findpos1 := i;
          end;
          inc(i);
          end;
end;

var
a:tlarik;
n,posisi,x:byte;
begin
     write('Masukkan banyaknya data : ');
     readln(n);
     setdata(n,a);
     writeln;
     cetak(n,a);
     write('nilai yang dicari: ');
     readln (x);
     findpos(n,a,x,posisi);
     writeln('nilai ',x,': terletak pada posisi ke- ',posisi);
     write('nilai yang dicari: ');
     readln (x);
     writeln('nilai  ',x,':terletak pada posisi ke-',findpos1(n,a,x));
     writeln;
     readln;
end.