Fundamentos i

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 ; Var VOTOSBRANCOS,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 votos vá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 do