Lista de exercicios em pascal

Disponível somente no TrabalhosFeitos
  • Páginas : 2 (420 palavras )
  • Download(s) : 0
  • Publicado : 28 de fevereiro de 2013
Ler documento completo
Amostra do texto
LINGUAGEM DE PROGRAMAÇÃO PASCAL
1ª LISTA DE EXERCICIOS/ Aluna: Geórgia Araujo – Matricula: 200954188 – NAI3

1. Ler dois números inteiros e imprimir a soma.

program soma;
uses crt;
varnum1:integer;
num2:integer;
result:integer;

begin
clrscr;
writeln('Digite o 1º numero: ');
readln(num1);
writeln('Digite o 2º numero: ');
readln(num2);result:=num1+num2;

writeln('O resultado da soma eh: ',result);

readkey;
end.

2. Ler dois números inteiros e imprimir o produto.

program produto;
uses crt;
var
num1:integer;
num2:integer;result:integer;
begin
clrscr;
writeln('Digite o 1º numero: ');
readln(num1);
writeln('Digite o 2º numero: ');
readln(num2);

result:=num1*num2;

writeln('O resultado do produtoeh: ', result);

readkey;
end.
3. Ler um número real e imprimir a terça parte deste número.

program T_parte;
uses crt;

var
numero, Terca_parte:integer;

begin
clrscr;writeln('Digite um numero: ');
readln(numero);
Terca_parte:=numero/3;

writeln('A terca parte do numero eh: ',Terca_parte);
readkey;
end.

4. Entrar com dois numeros rais e imprimir amedia aritmética.

program media_aritmetica;
uses crt;
var
N1,N2,MA:real;

begin
clrscr;
writeln('Digite um numero: ');
readln(N1);
writeln('Digite outro numero: ');
readln(N2);MA:=(N1+N2)/2;

writeln('A media aritmetica eh: ', MA);

readkey;
end.

5. Entrar com dois números inteiros e imprimir a seguinte saída: Dividendo, Divisor, Quociente e Resto.program divisao;
uses crt;
var
Dividendo, Divisor, Quociente, Resto: integer;

begin
clrscr;
writeln('Digite o Dividendo: ');
readln(Dividendo);
writeln('Digite o Divisor: ');readln(Divisor);

Quociente:=Dividendo div Divisor;
Resto:=Dividendo mod Divisor;

writeln('O dividendo eh: ',dividendo);
writeln('O divisor eh: ',divisor);
writeln('O...
tracking img