Redes
ATIV1
Program Exe1 ;varx:char;
Begin
writeln ('Entre com uma letra'); read (x); case x of 'A': WRITE('VOGAL'); 'E': WRITE('VOGAL'); 'I': WRITE('VOGAL'); 'O': WRITE('VOGAL'); 'U': WRITE('VOGAL'); ELSE WRITE('CONSOANTE'); END; End.
ATIV2
Program PZIM; varx,y:integer; op:char;
Begin
write ('Entre com Dois Números'); read (x); read (y); write ('Entre com a operação Matemática desejada'); read (op); case op of '+': write('soma:',x+y); '-': write('subtração:',x-y); '*': write('multiplicação:',x*y); '/': write('divisão:',x/y);
Else
writeln('Operação Invalida'); end; End.
ATIV3
Program Pzim ;VAR valor,a,b:REAl; t:char;
Begin
writeln ('Entre como Tipo'); read (t); writeln ('Entre com o valor'); read (valor); case op of '+': write('soma:',x+y); '-': write('subtração:',x-y); '*': write('multiplicação:',x*y); '/': write('divisão:',x/y);
Else
writeln('Operação Invalida'); end; End.
ATIV3
Program Pzim ;
VAR
valor,a,b:REAl; t:char; Begin writeln ('Entre como Tipo'); read (t); writeln ('Entre com o valor'); read (valor); case op of '+': write('soma:',x+y); '-': write('subtração:',x-y); '*': write('multiplicação:',x*y); '/': write('divisão:',x/y);
Else
writeln('Operação Invalida'); end; End.
ATIV3
Program Pzim ;
VAR
valor,a,b:REAl; t:char; Begin writeln ('Entre como Tipo'); read (t); writeln ('Entre com o valor'); read (valor); case op of '+': write('soma:',x+y); '-': write('subtração:',x-y); '*': write('multiplicação:',x*y); '/': write('divisão:',x/y);
Else
writeln('Operação Invalida'); end; End.
ATIV3
Program Pzim ;
VAR
valor,a,b:REAl; t:char; Begin writeln ('Entre como Tipo'); read (t); writeln ('Entre com o valor'); read (valor); case op of '+': write('soma:',x+y); '-':