Programacao

FUNDAMENTOS DE PROGRAMAÇÃO
AD1 1° semestre de 2013

AVALIAÇÃO À DISTÂNCIA 1
Data

Aluno: Marcelo Musci Zaib Antonio Matrícula: 12213050218

1a Questão

program Exercicio1; var n,k,i:integer; FIM:boolean;

begin FIM:=false; while not FIM do begin write('Digite um numero N. (N menor que 1 termina) '); readln(n); if n>=1 then for i:=n downto 1 do begin for k:=1 to (n-i+1) do write(i*i:6); writeln(); end else FIM:=true; end end. 2a Questão (2,5 pontos) program Exercicio2; var n,nI,nP,maior,menor:integer; mediaI,mediaP:real; FIM:boolean;

begin FIM:=false; nI:=0; nP:=0; mediaP:=0; mediaI:=0; maior:=0; menor:=maxint; writeln('Digite uma sequencia de numeros. (Numero negativo termina) '); while not FIM do begin readln(n); if n>=0 then begin if odd(n) then begin nI:=nI+1; mediaI:=mediaI+n; end else begin nP:=nP+1; mediaP:=mediaP+n; end; if n>maior then maior:=n; if n0 then mediaP:=mediaP/nP; if nI>0 then mediaI:=mediaI/nI; if menor=maxint then {Nenhum numero digitado} menor:=0; writeln('Quantidade de pares = ',nP); writeln('Quantidade de impares = ',nI); writeln('Media dos pares = ',mediaP:6:2); writeln('Media dos impares = ',mediaI:6:2); writeln('Maior positivo = ',maior); writeln('Menor positivo = ',menor); end. 3a Questão (2,5 pontos)

program Exercicio3; const A=150;B=150; var n:integer; d,x,y,medx,medy,proximo,proxX,proxY:real; FIM:boolean;

begin