Convert pascal to c

Program avaliacao_proposicional;
uses crt;
var c,d,i,b:boolean;
x,n,y: integer;
vetor:array [1..10]of boolean;
conect,valor_logico:string;
Begin
clrscr;
writeln('digite o numero de proposições: ');
readln(n);
writeln('digite os valores lógicos das proposições');
writeln('digite V para verdadeiro e F para false');

  for x:= 1 to n do
  begin    
    readln(valor_logico); 
    if valor_logico='V'
       then vetor[x]:=true;
    if valor_logico='F'
       then vetor[x]:=false;
 end;
 Writeln('existe o operador not 1=> sim, 2=>não ');
 readln(x);
 if x=1 then
 begin                                                                             
      writeln('digite 1 para as proposições que tem not e 0 para as demais');
      for x:=1 to n do 
      begin
        writeln(x,'= ');
        readln(y);
        if y=1
           then vetor[x]:= not vetor[x];
       end;
end;
writeln('Digite os conectivos');
writeln('and para conjunção');
writeln('or para disjunção');
writeln('-> para implicação');                               
writeln('<-> para bi-implicação');                          
for x:=1 to n-1 do
begin                                                             
       readln(conect);
       if conect='and'
          then vetor[x+1]:=vetor[x] and vetor[x+1];
       IF conect='or' 
          then vetor[x+1]:=vetor[x] or vetor[x+1];                                       
        IF conect='->' 
          then vetor[x+1]:=NOT vetor[x] or vetor[x+1]; 
       IF conect='<->' 
          then vetor[x+1]:=( not vetor[x] or vetor[x+1]) and (not vetor[x+1] or vetor[x]) ;
 end;
 write('A proposição é ');
 if vetor[n]=true
    then writeln('verdadeira')
    else writeln('falsa');

End.

Comments

Sign In or Register to comment.

Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories

In this Discussion