Ferramentas de Usuário

Ferramentas de Site


dev_geral:pascal:snippet:primeiros_programas

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.
dev_geral/pascal/snippet/primeiros_programas.txt · Última modificação em: 2018/05/14 21:37 (edição externa)