Pascal

Disponível somente no TrabalhosFeitos
  • Páginas : 2 (417 palavras )
  • Download(s) : 0
  • Publicado : 28 de fevereiro de 2013
Ler documento completo
Amostra do texto
1. Escreva um programa que receba a idade de 10 pessoas, calcule e imprima a quantidade de pessoas maiores de idade (idade>=18 anos).

Program P01 ;
Var
I, ID, ID18, cont: integer;
Begincont:=0;
for I:=1 to 10 do
begin
writeln ('informe a sua idade: '); read (ID);
if (ID >= 18) then
cont:=cont+1;
end;
writeln ('A quantidade de pessoas com idade acima de 18: ',cont);
End.

2. Escreva um programa que receba a idade de 15 pessoas, calcule e imprima a quantidade de pessoas em cada faixa etária:
As faixas etárias são:
1 _______ 15 anos
16 _______ 30 anos31 _______ 45 anos
46 _______ 60 anos
> = 61 anos

Program P02 ;
Var
I, ID, cont, cont16, cont31, cont46, cont61: integer;
Begin
cont:=0;
cont16:=0;
cont31:=0;
cont46:=0;
cont61:=0;for I:=1 to 15 do
begin
writeln ('Informe a sua idade:'); Readln (ID);
begin
if (ID > 1) and (ID < 15) then
cont:=cont+1;
end;
begin
if (ID > 16) and (ID < 30) thencont16:=cont16+1;
end;
begin
if (ID > 31) and (ID 46) and (ID < 60) then
cont46:=cont46+1;
end;
begin
if (ID >= 61) then
cont61:=cont61+1;
end;
end;
writeln('Quantidade de pessoas com idade entre 1 e 15 anos: ', cont);
writeln ('entre 16 e 30: ', cont16);
writeln ('entre 31 e 45: ', cont31);
writeln ('entre 46 e 60: ', cont46);
writeln ('maior que 61:', cont61);
End.

3. Escreva um programa que receba um conjunto de valores inteiros e positivos, calcule e imprima o maior e o menor valor do conjunto.
. Para encerrar a entrada de dados, deveser digitado o valor zero.
. Para valores negativos, deve ser enviada uma mensagem.
. Esses valores (zero e negativos) não entrarão nos cálculos.

Program P03 ;
Var
n, maior, menor: integer;Begin
maior:=0; menor:=2553;
Repeat
writeln ('digite número: '); read (n);
if n < 0 then
writeln ('valor invalido')
else
if n > 0 then
begin
if n > maior then...
tracking img