Exercicios Resolvidos De Programação No Pascal
Monografias: Exercicios Resolvidos De Programação No Pascal. Pesquise 862.000+ trabalhos acadêmicosPor: Darcir • 9/9/2014 • 1.333 Palavras (6 Páginas) • 1.077 Visualizações
Exercício numero 1 Program Pzim ; var contador, b: integer; Begin for contador :=1 to 10 do Begin b:= b+10; writeln (b); End; End.
Exercício numero 2
Program Pzim ;
var
b : integer;
Begin
b:=0;
while (b<>100) do
Begin
b:=b+1;
if (b mod 10 = 0)then
writeln (b, ' é multiplo de 10')
else
writeln (b);
End;
End.
Exercício numero 3
Program Pzim ;
var
k, soma, quantidade, media : real;
Begin
repeat
k:=1;
begin
writeln ('digite um numero');
read (k);
soma:=k+soma;
quantidade:= quantidade +1
end;
media:= soma+ quantidade;
writeln (' media e', media);
until k=0
End.
Exercício numero 4
Program Pzim ; var contador, valor_inicial, valor_final, soma: integer; Begin soma:=0; writeln ('digite o numero desejado'); read (valor_inicial); writeln ('digite o numero desejado'); read (valor_final); for contador:=valor_inicial to valor_final do Begin if contador mod 2=0 then soma:=soma+contador; end; writeln ('o resultado da soma é ', soma); End.
Exercício numero 5
Program Pzim ;
Var
b, centimetro: real;
Begin
while (b<>20) do
Begin
b:=b+1;
centimetro:=b*2.54;
writeln (' o resultado da conversao de polegadas para centimentros e', centimetro);
end;
End.
Exercício numero 6
Program Pzim ;
var
fatorial, j, m: integer ;
Begin
write('digite um valor: ');
readln(m);
fatorial:= 1;
for j:= 1 to m do
begin
fatorial:= fatorial * j;
end;
write('O fatorial é: ', fatorial);
End.
Exercício numero 7
Program Pzim ;
Var
m, j : integer;
primo: boolean;
Begin
writeln('digite um número: ');
read(m);
j:=2;
primo:= true ;
while (j<m) and (primo) do
Begin
if (m mod j = 0) then
Begin
primo:= false ;
end ;
j:= j+1 ;
end;
if (primo) then
begin
writeln(m, ' é um número primo');
end
else
begin
writeln(m, ' não é um número primo ', j-1);
end;
End.
Exercício numero 8
Program Pzim ;
Var
k,l,contador: integer;
Begin
repeat
l:=0;
writeln ('Digite um numero:');
read (k);
for contador:=1 to k do
begin
if (k mod contador=0) then
l:=l+1;
end;
if l=2 then
writeln ('é primo')
else
if l<>2 then
writeln ('não é primo');
until (l=0);
end.
Exercício numero 9
Program Pzim ;
Var
j: integer ;
m: integer;
Begin
writeln('Informe o número desejado: ');
readln(m);
for j:= 1 to 10 do
begin
writeln(m, ' x ', j:2, ' = ', m*j:2);
end;
End.
Exercício numero 10
Program
...