Exercícios Sobre For No Pascal
Por: Nerimar Pereira • 11/9/2020 • Trabalho acadêmico • 444 Palavras (2 Páginas) • 154 Visualizações
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,
...