Fundamentos i

Disponível somente no TrabalhosFeitos
  • Páginas : 2 (291 palavras )
  • Download(s) : 0
  • Publicado : 30 de agosto de 2012
Ler documento completo
Amostra do texto
Program Exercicio01 ;
var
A, B, C: Integer;
Begin
A:= 10;
B:= 20;
C:= A;
A:= B;
B:= C;
Writeln ('O valor de A é ', A,', e o de B é ', B,'.');End.


Program Exercicio03 ;
Var
NUMERO, ANTECESSOR, SUCESSOR: Integer;
Begin
Writeln ('Digite um número:');
Readln (NUMERO);
Clrscr;
ANTECESSOR:= NUMERO - 1;SUCESSOR:= NUMERO + 1;
Writeln ('O número ', NUMERO,' tem o ', ANTECESSOR,' como seu
antecessor, e o ', SUCESSOR,' como seu sucessor.');
End.



Program Exercicio04 ;
VarVOTOSBRANCOS,VOTOSNULOS,VOTOSVALIDOS,TOTALVOTOS: Integer;
PERCBRANCOS, PERCNULOS, PERCVALIDOS: Real;
Begin
Writeln ('Digite o número de votos brancos: ');
Readln (VOTOSBRANCOS);Clrscr;
Writeln ('Digite o número de votos nulos: ');
Readln (VOTOSNULOS);
Clrscr;
Writeln ('Digite o número de votos válidos: ');
Readln (VOTOSVALIDOS);
Clrscr;TOTALVOTOS:= VOTOSBRANCOS + VOTOSNULOS + VOTOSVALIDOS;
PERCBRANCOS:= (VOTOSBRANCOS * 100) / TOTALVOTOS;
PERCNULOS:= (VOTOSNULOS * 100) / TOTALVOTOS;
PERCVALIDOS:= (VOTOSVALIDOS *100) / TOTALVOTOS;
Writeln ('O percentual de votos brancos é ', PERCBRANCOS:0:1,' %');
Writeln ('O percentual de votos nulos é ', PERCNULOS:0:1,' %');
Writeln ('O percentual de votosválidos é ', PERCVALIDOS:0:1,' %');
End.

Program Exercicio07 ;
Var
NUMERO: Integer;
QUADRADO, RAIZ: Real;
Begin
Writeln ('Digite um número: ');
Readln (NUMERO);
Clrscr;QUADRADO:= SQR (NUMERO);
RAIZ:= sqrt(numero);
Writeln ('O número ', NUMERO,' elevado ao quadrado é ',
Trunc(QUADRADO),' e sua raíz é ', RAIZ:0:2);
End.Program Exercicio08 ;
Var
ALTURA, BASE, BASEMAIOR, AREA: Real;
Begin
Writeln ('Digite a altura do trapézio: ');
Readln (ALTURA);
Clrscr;
Writeln ('Digite a base maior...
tracking img