Rabu, 16 Maret 2011

Tugas SOD 2 Merubah Infiks menjadi posfiks

Program adi_carroll;
uses crt;

const max_elemen = 250;

type s250 = string [max_elemen];
tumpukan = record
rinci : s250;
atas : 0..max_elemen
end;

var infix : s250;
lagi : char;

function valensi (tanda_op : char) : integer;
begin
case tanda_op of
'^' : valensi := 3;
'*', '/' : valensi := 2;
'+', '-' : valensi := 1;
'(' : valensi := 0
end
end;

procedure push (var t : tumpukan; elemen : char);
begin
t.atas := t.atas +1;
t.rinci[t.atas] := elemen
end;

function pop (var t : tumpukan) : char;
begin
pop := t.rinci[t.atas];
t.atas := t.atas - 1
end;

procedure konversi_cetak (infix : s255);
var i : integer;
operator : set of char;
temp, kar : char;
t : tumpukan;
test : boolean;
begin
operator := ['^']+['*']+['/']+['+']+['-'];
for i := 1 to length (infix) do
begin
kar := infix[i];
if kar = '(' then push (t, kar)
else if kar = ')' then
begin
while t.rinci[t.atas] <> '(' do
write (pop(t) : 2);
temp := pop(t)
end
else if kar in operator then
begin
while (t.atas <> 0 ) and (valensi(kar)
<= valensi (t.rinci[t.atas])) do write (pop(t) : 2); push (t, kar) end else if kar <> ' ' then
write (kar : 2)
end;

if t.atas <> 0 then
repeat
write (pop(t):2)
until t.atas = 0
end;

begin
clrscr;
writeln ('Merubah Notasi Infix Menjadi Postfix');
writeln ('Dengan Menggunakan Struktur Tumpukan');
writeln ('-------------------------------------');
writeln ;
repeat
write ('Masukkan Ungkapan Infix : ');
readln (infix); writeln;
write ('Ungkapan Postfix : ');
konversi_cetak (infix);
writeln; writeln;
write ('Akan Mencoba Lagi ? y(ya) / t(idak) : ');
readln (lagi);
writeln
until not (lagi in ['Y', 'y'])
end.

Rabu, 02 Maret 2011

Tugas Struktur Organisasi Data 2

uses crt;
var
j,k,l,m,n : integer;
pilihan : byte;
x,y,str1,str2: string[99];
z:char;
label p,q,r;
begin
clrscr;
p:writeln(‘<<>>’);
writeln(’1.Input’);
writeln(’2.Menghitung Panjang String’);
writeln(’3.Menggabungkan beberapa String’);
writeln(’4.Menyisipkan String’);
writeln(’5.Exit’);
writeln;
writeln(‘Ketik Pilihan Anda’);
readln(pilihan);
case pilihan of
1 : begin
clrscr;
writeln(‘Masukan 2 String yang ingin di proses : ‘);
writeln(‘String 1: ‘);
readln(x);
writeln(‘String 2: ‘);
readln(y);
readln;
goto p;
end;
2 : begin
clrscr;
writeln(‘Masukan String yang ingin anda hitung: ‘);
readln(a);
if j = 1 then
begin
writeln(‘Panjang String 1: ‘,length(x));
end
else
if j = 2 then
begin
writeln(‘Panjang String 2: ‘,length(y));
end
else
begin
writeln (‘Maaf string yang anda maksud tidak tersedia’);
end;
readln;
clrscr;
goto p;
end;
3: begin
clrscr;
r:writeln(‘Untuk String 1 ke string 2 (y/r) : ‘);
readln (z);
if z = ‘y’ then
begin
writeln(‘Hasil penggabungan : ‘,concat(x,y));
readln;
goto p;
end
else if z = ‘r’ then
begin
writeln(‘Untuk String 2 ke string 1 (y/r): ‘);
readln(z);
if z = ‘y’ then
begin
writeln(‘Hasil penggabungan : ‘,concat(y,x));
readln;
goto p;
end
else
writeln(‘Ingin Kembali ke Menu utama? (y/n) :’);
readln(z);
if z = ‘y’ then
begin
clrscr;
goto p;
end
else
goto r;
end;
end;
4: begin
clrscr;
writeln(‘Masukan nomor string yang akan di sisipkan :’);
readln(k);
writeln(‘Masukan nomor string sebagai penyisip: ‘);
readln(l);
writeln(‘Masukan posisi String untuk di sisipkan: ‘);
readln(m);
if k = 1 then
begin
write(‘Hasilnya : ‘);
insert(x,y,n);
writeln(y);
readln;
goto p;
end
else if b = 2 then
begin
write(‘Hasilnya : ‘ );
insert(y,x,n);
writeln(x);
readln;
clrscr;
goto p;
end;
end;
5: begin
end;
end;
end.