Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  a
Language: PASCAL
Code:

program evolution;
type
var

def proc remplir (var e:tab1; var n:integer;);
type tab1=string of 20 Char;
var i:integer; 
    n:integer;
    e:tab1;
begin
repeat
readln(n);
writeln('n=');
until (n in [3..20]);
begin 
for i:=1 to n do 
repeat
read(e[i]);
writeln('exp[',i,']=')
until FN vérif(e[i]) and odd(lenght(e[i]));
end
DEF FN vérif (ch:char;):boolean;
begin
vérif:=b;
b=[i:=1; b:=true;];
repeat
if (i mod 2=0) and (ch[i] in ['+','-','*','/']); OR ((i mod 2<>0)and (ch[i] in ['1'..'9'])
then i:=i+1;
else b:=false;
end
until ((non(b)) or i>lenght(ch)));
Def fn procédure resultat(e:tab1; var r:tab2 ; n:integer;);
type 
var









type
tab1=string of 20 char;
tab2=string of 20 real;
var
res:tab1
exp:tab2 
remplir(exp,N)
resultat(exp,res,n);
tri(exp,exp,n);
affiche(exp,res,n);
Comments: