Programacao

Disponível somente no TrabalhosFeitos
  • Páginas : 2 (424 palavras )
  • Download(s) : 0
  • Publicado : 18 de março de 2013
Ler documento completo
Amostra do texto
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);
ifn>=1 then
for i:=n downto 1 do
begin
for k:=1 to (n-i+1) do
write(i*i:6);
writeln();
end
elseFIM:=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;
ifn0 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('Menorpositivo = ',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...
tracking img