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

Vetores. Рrogram ex1vetores

Abstract: Vetores. Рrogram ex1vetores. Pesquise 862.000+ trabalhos acadêmicos

Por:   •  15/10/2014  •  Abstract  •  1.243 Palavras (5 Páginas)  •  223 Visualizações

Página 1 de 5

Vetores

1)

program ex1vetores;

uses wincrt;

var

vetor1:array[1..10] of integer;

i,soma:integer;

media:real;

begin

for i:=1 to 10 do begin

writeln('digite o ',i,' numero');

readln(vetor1[i]) ;

end;

for i:= 1 to 10 do begin

soma:= soma + vetor1[i];

end;

media:= soma div 10;

writeln('a soma eh ',soma);

writeln('a media eh ',media:5:2);

delay(30000);

end.

2)

program ex2;

uses wincrt;

var

vetor1: ARRAY[1..10] of integer;

i,x,y,soma,soma1:integer;

media,porc:real;

begin

x:=0;

y:=0;

for i:=1 to 10 do begin

writeln('digite um numero real');

readln(vetor1[i]);

end;

for i:= 1 to 10 do

begin

if (vetor1[i]<0) then

begin

soma:=soma+vetor1[i];

x:=x+1;

end

else if (vetor1[i]>0) then

begin

soma1:=soma1+vetor1[i];

y:=y+1;

end

end;

if (x>0) then begin

media:=(soma div x );

end;

porc:=(y*10);

writeln('a media eh ',media:5:2);

writeln('a porc eh ',porc:5:2,'%');

delay(30000);

end.

3)

program ex3vetores;

uses wincrt;

var

vetor1:array[1..5] of integer;

vetor2:array[1..5] of integer;

i:integer;

begin

for i:= 1 to 5 do begin

writeln('digite o ',i,' numero');

readln(vetor1[i]);

end;

for i:= 1 to 5 do begin

vetor2[i]:=(vetor1[i]*(-1));

end;

for i:= 1 to 5 do begin

writeln('vetorA=',vetor1[i],' vetorB=',vetor2[i]);

end;

delay(30000);

end.

4)

program ex4;

uses wincrt;

var

vetor1:array[1..5] of integer;

i,x,y,z:integer;

begin

x:=0;

y:=0;

z:=0;

for i:= 1 to 5 do begin

writeln('digite o ',i,' numero');

readln(vetor1[i]);

end;

for i:= 1 to 5 do begin

if (vetor1[i]>0) then begin

x:=x + 1;

end

else if (vetor1[i]<0) then begin

y:=y +1;

end

else if (vetor1[i]=0) then begin

z:=z +1;

end

end;

writeln('tem ',x,' numero(s) positivo(s)');

writeln('tem ',y,' numero(s) negativo(s)');

writeln('tem ',z,' numero(s) nulo(s)');

delay(30000);

end.

Vetores

1)

program ex1vetores;

uses wincrt;

var

vetor1:array[1..10] of integer;

i,soma:integer;

media:real;

begin

for i:=1 to 10 do begin

writeln('digite

...

Baixar como (para membros premium)  txt (4.6 Kb)  
Continuar por mais 4 páginas »
Disponível apenas no TrabalhosGratuitos.com