Pascal Exercícios versão 2

 

EXER

 

 

 

1

 

Program Lesson1_Program3;

Var      

    Num1, Num2, Sum : Integer;

Begin {depois do begin não se coloca ;}

                Write('Input numero 1:');

                Readln(Num1);

                Writeln('Input numero 2:');

                Readln(Num2);

                Sum := Num1 + Num2; {adição dos números}

                Writeln(Sum);

                Readln;

End.

 

2

 

Program ProgramString;

Var nome1, ultnome: String;

    

Begin

                write('digita o teu nome:');

                readln(nome1);

                write('Digita o ultimo nome:');

                readln(ultnome);

                writeln;{nova linha}

                writeln;{ nova linha }

                writeln('O nome completo: ',nome1,' ',ultnome);

                readln;

End.

Variáveis do tipo STRING

 

3

 

Program ProgramConstante;

Var

                ultnome: String;

 Const { 'const' é uma palavra reservada do pascal e é usada para inicializar constantes}

                Nome1 = 'Rui';

    

Begin

                Write(' Digita o ultimo nome:');

                readln(ultnome);

                writeln;

                writeln;

                writeln('O nome completo: ',nome1,' ',ultnome);

                Readln;

End.

Constantes e Declaração de Atribuição

4

 

Program ProgramaResumo;

Var Combustivel, NomeCondutor, Modelo : String;

    TotalKM, CustoCombustivel, TCustoCombustivel, Distancia : Real;

     {Um numero real pode ter virgulas}

                  

Begin

                TCustoCombustivel := 0; { isto é chamado de "inicialização".

É importante inicializar variáveis ​​inteiras a 0, deste modo

as variáveis são "limpas" dos valores anteriores do "lixo" na memória. }

                Writeln('Este programa solicita que ' +

                               + 'introduza o custo por litro');

                Writeln('do combustivel gasolina/diesel que gasta ' +

                               + 'tendo em conta a distancia que percorre por semana');

                Writeln('com o seu carro. Depois ' +

                               + 'o programa calcula o custo total');

                Writeln('que gasta todas as semanas.');

                               Writeln('ENTER para continuar.');

                Readln;

                Write('Diesel ou Gasolina?: ');

                Readln(Combustivel);

                Write('Nome do condutor: ');

                Readln(NomeCondutor);

                Write('Modelo do carro: ');

                Readln(Modelo);

                Write('Preco custo Diesel/gasolina: (EURO) ');

                Readln(CustoCombustivel);

                Writeln('Media da distancia ' +

                               + 'que percorre por semana: (Kilometros) ');

                Readln(Distancia);

                Writeln;

                Writeln;

                Writeln('Nome do condutor:',NomeCondutor);

                Writeln('Modelo do carro:',Modelo);

                Writeln('Diesel/Gasolina:',Combustivel);

                Writeln('Media da distancia percorrida '+

                               +'por semana: ',Distancia:1:2,'Km');

                Writeln('Custo ',Combustivel,' por litro: EURO',CustoCombustivel:1:2,'/litro');

                Writeln;

                Writeln;

                TCustoCombustivel := Distancia * CustoCombustivel;

                Writeln('Custo total ',Combustivel,' por semana:' +

                               + 'EURO',TCustoCombustivel:1:2);

                TCustoCombustivel := 0;

                Writeln('Custi total  ',Combustivel,' por semana:'+

                               + 'EURO',(Distancia * CustoCombustivel):1:2); {Altere os valores e veja o que faz :1:2}

                Writeln('Custo total ',Combustivel,' por semana:'+

                               + 'EURO',Distancia * CustoCombustivel); {Desta vez sem ':1:2'}

                Readln;

End.                

Inicialização de variáveis

String

Real

 

 

 

program calculator;

var

a,b,c : integer;

d: real;

 

begin

writeln('digite o valor de A');

readln(a);

writeln('digite o valor de B');

readln(b);

   c := a + b;

   writeln('    Linha 1 - c=a+b, valor de C= ', c );

  

 c := a - b;

   writeln('    Linha 2 - c=a-b, valor de C= ', c );

 

 c := a * b;

   writeln('    Linha 3 - c=axb, valor de C= ', c );

 

 d := a / b;

   writeln('    Linha 4 - c=a/b, valor de C= ', d:3:2 );

 

 c := a mod b;

   writeln('Linha 5 - c=a MOD b, valor de C= ' , c );

  

 c := a div b;

   writeln('Linha 6 - c=a DIV b, valor de C= ', c );

  

    readln;

end.

EXPRESSÕES MATEMÁTICAS

+ adição ;

- subtração ;

* multiplicação ;

/ divisão ;

DIV divisão

 

 

program exString;

var

   nome, cumprimento: string; {declara uma String }

   escola: string[3]; {declara uma String e Limita o comprimento da string para 3 caracteres}

begin

   cumprimento := 'Ola '; {Atribui à variável cumprimento a String 'OLA' }

   writeln('Escreve o teu nome');

   readln(nome);

   writeln('Escreve o nome da escola');

   readln(escola);

   writeln(cumprimento, nome, ' da ', escola);   {OUTPUT }

   readln;

end.

Inicialização de variáveis

String