Programas para beginners
Área do quadrado
program AreaQuadrado;
var
lado, area: real;
begin
writeln('*** Área do Quadrado ***');
write('Introduza a medida do lado: ');
readln(lado);
area := lado * lado;
writeln('A área do quadrado é ', area:0:2, '.');
end.
Área do Rectângulo
program AreaRectangulo;
var
comprimento, largura, area: real;
begin
WriteLn('*** Área do Rectângulo ***');
Write('Comprimento: ');
Write('Largura: ');
area := comprimento * largura;
WriteLn('A área do rectângulo é ', area:0:2, '.');
end.
Área do triângulo
Program Pzim ;
uses crt;
VAR BASE, LADO, AREA:REAL;
Begin
writeln('*-------------------------------*');
writeln('| ÁREA DO TRIÂNGULO |');
writeln('*-------------------------------*');
writeln('');
writeln('Prima qualquer tecla para continuar...');
readkey;
clrscr;
writeln('Introduza a medida da base to triângulo:');
readln(BASE);
clrscr;
writeln('Introduza a medida do lado do triângulo:');
readln(LADO);
clrscr;
AREA := BASE * LADO / 2;
writeln('A área do rectângulo é ',AREA:10:2);
writeln('Prima qualquer tecla para sair');
readkey;
End.
Cubo par ou ímpar
Program CUBO_PAR;
uses crt;
var tipo :string;
NUM1,CUBO :real;
cubo1:integer;
Begin
writeln('*===============================*');
writeln('| CUBO PAR OU IMPAR |');
writeln('*===============================*');
writeln('');
writeln('Prima qualquer tecla para continuar...');
readkey;
clrscr;
writeln('Insira o numero:');
readln(NUM1);
clrscr;
CUBO := exp(3*ln(NUM1));
CUBO1 := abs(CUBO);
if CUBO1 MOD 2 = 0
then tipo:='IMPAR'
else tipo:='PAR';
writeln('O cubo do número ',NUM1:0:0,' é ',CUBO:0:0,' e é ',tipo);
writeln('Prima qualquer tecla para sair');
readkey;
End.
Ler n numeros, somá-los e verificar se a soma é par ou ímpar
Program numeros;
uses crt;
var num, i, nrnumeros, soma : integer;
control : string;
Begin
writeln('*===============================*');
writeln('| Ler n numeros e par ou impar |');
writeln('*===============================*');
writeln('');
writeln('Prima qualquer tecla para continuar...');
readkey;
clrscr;
writeln('Quantos numeros quer somar?');
readln(nrnumeros);
clrscr;
for i:=1 to nrnumeros do
begin
writeln('Introduza o ',i,' numero:');
readln(num);
clrscr;
soma := soma + num;
end;
if soma mod 2 = 0
then
control := 'par'
else
control := 'impar';
writeln('A soma é ',soma,' e é ',control,'.');
writeln('Prima qualquer tecla para sair');
readkey;
End.
Maior de dois números
Program Pzim ;
uses crt;
VAR NUM1, NUM2, CONTROL:INTEGER;
Begin
writeln('*===============================*');
writeln('| NUMERO MAIOR EM 2 |');
writeln('*===============================*');
writeln('');
writeln('Prima qualquer tecla para continuar...');
readkey;
clrscr;
{LER VARIAVEIS}
writeln('Insira o primeiro numero:');
readln(NUM1);
clrscr;
writeln('Insira o segundo numero:');
readln(NUM2);
clrscr;
{CALCULAR RESULTADO}
IF NUM1 > NUM2
THEN CONTROL := NUM1
ELSE CONTROL := NUM2;
{MOSTRAR RESULTADO}
writeln('O numero maior é ',CONTROL,'.');
writeln('Prima qualquer tecla para sair...');
readkey;
End.
Maior de três números
Program Pzim ;
uses crt;
VAR NUM1, NUM2, NUM3, CONTROL:INTEGER;
Begin
writeln('*===============================*');
writeln('| NUMERO MAIOR EM 3 |');
writeln('*===============================*');
writeln('');
writeln('Prima qualquer tecla para continuar...');
readkey;
clrscr;
{LER VARIAVEIS}
writeln('Insira o primeiro numero:');
readln(NUM1);
clrscr;
writeln('Insira o segundo numero:');
readln(NUM2);
clrscr;
writeln('Insira o terceiro numero:');
readln(NUM3);
clrscr;
{CALCULAR RESULTADO}
IF (NUM1 > NUM2) AND (NUM1 > NUM3)
THEN CONTROL := NUM1
ELSE IF NUM2 > NUM3
THEN CONTROL := NUM2
ELSE CONTROL := NUM3;
{MOSTRAR RESULTADO}
writeln('O numero maior é ',CONTROL,'.');
writeln('');
writeln('Prima qualquer tecla para continuar...');
readkey;
End.
Media Gasolina por 100km
Program Pzim ;
uses crt;
VAR GASOLINA, INICIOKM, FIMKM, MEDIA100:REAL;
Begin
writeln('*===============================*');
writeln('| MEDIA 100 |');
writeln('*===============================*');
writeln('');
writeln('Prima qualquer tecla para continuar...');
readkey;
clrscr;
writeln('Insira os km iniciais:');
readln(INICIOKM);
clrscr;
writeln('Insira os km finais:');
readln(FIMKM);
clrscr;
writeln('Insira gasolina gasta');
readln(GASOLINA);
clrscr;
MEDIA100 := 100 * GASOLINA / (FIMKM - INICIOKM);
writeln('A media aos 100 de gasolina é ',MEDIA100,'.');
writeln('Prima qualquer tecla para sair');
readkey;
END.
Lê nota e verifica se foi aprovado ou não
Program Pzim ;
uses crt;
VAR NOTACOMP, NOTAT, NOTAFINAL:REAL;
VAR AVALIA:STRING;
Begin
writeln('*-------------------------------*');
writeln('| NOTA FINAL |');
writeln('*-------------------------------*');
writeln('');
writeln('Prima qualquer tecla para continuar...');
readkey;
clrscr;
writeln('Introduza nota do competência:');
readln(NOTACOMP);
clrscr;
writeln('Introduza a nota atitude:');
readln(NOTAT);
clrscr;
NOTAFINAL := (0.60 * NOTACOMP) + (0.40 * NOTAT);
IF NOTAFINAL <= 9.49
THEN
AVALIA := 'REPROVADO'
ELSE
AVALIA := 'APROVADO';
writeln('A nota final é ',NOTAFINAL:10:2,' que significa que foi ',AVALIA);
writeln('Prima qualquer tecla para sair');
readkey;
End.
Seleção modelos.
Seleciona se tiver cabelo loiro, mais de 1.70 de altura e menos de 57 kg
Program modelos;
uses crt;
var cabelo, control :string;
altura, peso : real;
Begin
writeln('*===============================*');
writeln('| Seleciona modelos |');
writeln('*===============================*');
writeln('');
writeln('Prima qualquer tecla para continuar...');
readkey;
clrscr;
writeln('Insira cor do cabelo:');
readln(cabelo);
clrscr;
writeln('Insira altura:');
readln(altura);
clrscr;
writeln('Insira peso');
readln(peso);
clrscr;
{TESTE LOGICO}
if (cabelo = 'loiro') AND (altura >= 1.70) AND (peso <= 57)
then control := 'selecionada'
else control := 'não selecionada';
{OUTPUT}
writeln('Você foi ',control);
writeln('Prima qualquer tecla para sair');
readkey;
End.
Soma e produto
Program Pzim ;
uses crt;
VAR NUM1, NUM2, NUM3, PRODUTO, SOMA:integer;
Begin
writeln('*===============================*');
writeln('| SOMA E PRODUTO |');
writeln('*===============================*');
writeln('');
writeln('Prima qualquer tecla para continuar...');
readkey;
clrscr;
writeln('Insira o primeiro numero:');
readln(NUM1);
clrscr;
writeln('Insira o segundo numero:');
readln(NUM2);
clrscr;
writeln('Insira o terceiro numero:');
readln(NUM3);
clrscr;
SOMA := NUM1 + NUM2 + NUM3;
PRODUTO := NUM1 * NUM2 * NUM3;
writeln('A soma dos três números é ',SOMA,' e o produto é ',PRODUTO,'.');
writeln('Prima qualquer tecla para sair');
readkey;
End.