Pascal

Disponível somente no TrabalhosFeitos
  • Páginas : 9 (2032 palavras )
  • Download(s) : 0
  • Publicado : 21 de novembro de 2012
Ler documento completo
Amostra do texto
2.Efetue a leitura de 4 números inteiros, e apresentar os números que são divisíveis por 2 e por 3.

program Ex2;
USES CRT;
VAR
num: array[1..4] of integer;
x: integer;
begin
for x:= 1 to 4 do
begin
writeln ('digite o [',x,'] numero');
readln (num[x]);
end;
for x:= 1 to 4 do
begin
if (num[x] mod 2 = 0) and (num[x] mod 3 = 0) thenwriteln (' O numeros divisivel por 2 e 3 eh',num[x]);
end;
readkey;
end.


13.Crie um programa usando sub-rotinas de tal forma que, o programa principal deverá ser um menu de opções para que o usuário efetue as 4 operações matemáticas (+ - * /). Esse menu deverá apresentar as opções de 1 a 5, sendo 1 – adição, 2 – subtração, 3 – multiplicação, 4 – divisão e 5 – sair. Ao escolher qualqueruma das opções acima o sistema deverá chamar as respectivas sub-rotinas solicitando ao usuário 2 números e apresentando a operação desejada com esses números.

program Ex13;
uses crt;
var
n1,n2,opt:real;
begin
repeat
writeln('digite a opcao desejada');
writeln('1- para adcao');
writeln('2- para subtracao');
writeln('3- para multiplicacao');
writeln('4-para divisao');
writeln('5- para sair');

readln(opt);
clrscr;
until(opt<=5);
if opt=1 then
begin
writeln('digite o primeiro numero');
read(n1);
writeln('digite o segundo numero');
read(n2);
writeln('a adcao e=' ,n1+n2:0:1);
end
else
begin
if opt=2 then
begin
writeln('digite o primeiro numero');read(n1);
writeln('digite o segundo numero');
read(n2);
writeln('a subtracao e=' ,n1-n2:0:1);
end
else
begin
if opt=3 then
begin
writeln('digite o primeiro numero');
read(n1);
writeln('digite o segundo numero');
read(n2);
writeln('a multiplicacao e=' ,n1*n2:0:1);end
else
begin
if opt=4 then
begin
writeln('digite o primeiro numero');
read(n1);
writeln('digite o segundo numero');
read(n2);
writeln('a divisao e=' ,n1/n2:0:1);
end
else
begin
writeln('sessao encerrada');
end;

end;
end;
end;
end.


1. Efetue aleitura de um número inteiro positivo ou negativo, e apresente o módulo desse numero.

programa EX1;
uses crt;
var
num : integer;
begin
writeln ('Digite um número para o modulo');
readln (num);
if (num < 0) then
begin
num:= num-1;
writeln (' o Módulo eh /',num,'/');
end
else
writeln (' o módulo eh /',num,'/');
readkey;
end.

4. Crie umamatriz “A” de 20 posições do tipo inteiro, e outra matriz “B” de tamanho 5 também do tipo inteiro. Solicite ao usuário o preenchimento da matriz “A”. Somente após o preenchimento dessa matriz calcule a média dos valores digitados. De posse dessa média procure na matriz “A” 5 valores menores do que essa média e os insira na matriz “B”. Ao final apresenta a matriz “A” e “B”.
program EX4;
uses crt;var
vet1: array[1..20] of integer;
vet2: array[1..5] of integer;
j,i,soma: integer;
media: real;
begin
for i:= 1 to 20 do
begin
writeln ('digie o ',i,' numero da matriz');
readln(vet1[i]);
soma:= vet1[i]+soma;
end;
media:=soma/2;
writeln(media);
for i:= 1 to 20 do
begin

j:=1;
while(vet1[i]<= media)and (j<5) do
begin
vet2[j]:=vet1[i];
j:=j+1

end;
end;

for i:= 1 to 20 do
begin
writeln ('(',i,') valor da matriz A', vet1[i]);
end;
for i:= 1 to 5 do
begin
writeln('(',i,') valor da matriz B', vet2[i]);
end;
readkey;
end.

3. Crie uma matriz de 10 posições do...
tracking img