Uso de Listas Encadeadas.
Program l2call;
Uses
Crt,
Lista2;
Var
s: expressao;
c: char;
Begin
Repeat
ClrScr;
writeln('Escolha a operacao desejada');
writeln('a) Verifique parentizacao da expressao');
writeln('b) Verifique se palavra eh palindrome');
writeln('F) Fim');
readln(c);
writeln;
case c of
'a': Begin
writeln('Digite a expressao p/ checagem de parentizacao');
readln(s);
chk_parenteses(s);
End;
'b': Begin
writeln('Digite a palavra p/ checagem se palindrome');
readln(s);
writeln(s);
chk_palindrome(s);
End;
'F': Begin
writeln('Fim');
End;
End;
writeln('Digite para continuar.');
readln;
Until c = 'F';
End.
Exercícios