TrabalhosGratuitos.com - Trabalhos, Monografias, Artigos, Exames, Resumos de livros, Dissertações
Pesquisar

Exercícios Sobre For No Pascal

Por:   •  11/9/2020  •  Trabalho acadêmico  •  444 Palavras (2 Páginas)  •  155 Visualizações

Página 1 de 2

1)----------------------------------------------------------------------------------------------------------

var v: array[1..5] of integer;

i, cont: integer;

begin

clrscr;

for i:= 1 to 5 do

begin

write('Informe o ', i ,'¨valor: ');

readln(v[i]);

end; for i:= 1 to 5 do

begin writeln(v[i]);

end; cont:=0;

for i:= 1 to 5 do

begin

if v[i]<0 then

begin

cont:=cont+1;

end;

end;

writeln('Existem ',cont,' valores negativos.');

readkey

End.

2)----------------------------------------------------------------------------------------------------------------------

var i: integer;

begin

clrscr;

writeln('Os numeros pares de 100 a 200 sao: ');

for i:= 100 to 200 do

begin

if i mod 2 = 0 then

begin

write(i:8);

end;

end;

readkey;

End.

3)---------------------------------------------------------------------------------------------------

var i, soma: integer;

begin

clrscr;

soma:=0;

for i:= 0 to 100 do

begin

soma:= soma + i;

4)--------------------------------------------------------------------------------------------------

var i: integer;

begin

writeln('Os numeros inteiros de 1 a 50 são: ');

for i:= 0 to 50 do

begin

write(i

:8);

end;

readkey;

end.

5)------------------------------------------------------------------------------------------------------------

var

nome:string;

n1,n2,n3,media:real;

cont:integer;

begin

clrscr;

for cont:=1 to 3 do

begin

write ('Digite o nome e as 3 notas do ',cont,'º aluno: ');

readln(nome,n1,n2,n3);

while(n1<0) or (n1>10) or (n2<0) or (n2>10) or (n3<0) or (n3>10) do

begin

writeln('Notas inválidas! Digite notas de 0 a 10!');

readln(n1,n2,n3);

end;

media:=(n1+n2+n3)/3;

writeln('A média do aluno ',nome,' é: ',media:2:2);

end;

readkey;

end.

6)----------------------------------------------------------------------------------------------------------------

var

nome:string;

i, m, f, sexo :integer;

begin

for i := 1 to 5 do

begin

writeln('Digite seu nome: ');

readln(nome);

writeln('Digite seu sexo 1-masculino,

...

Baixar como (para membros premium)  txt (3.5 Kb)   pdf (37.3 Kb)   docx (9.9 Kb)  
Continuar por mais 1 página »
Disponível apenas no TrabalhosGratuitos.com