Grupo Lógica de Programação
ESTAMOS EM CONSTRUÇÃO - DESENVOLVIMENTO


Seja Bem Vindo ao Forum Grupo Lógica de Programação é uma satisfação recebê-los aqui.. espero que gostem desse espaço que foi feito para todos nós PROGRAMADORES.. Então venha fazer Parte deste Time tambem.. Saiba que este Forum foi feito com muita dedicação para o bem estar de todos vocês.. Então Registre-se e Decole no Mundo da Programação.....
Ao se Registrar você tem direito a participar do CHAT que só é visivel ao membros registrados. e pode bater papo com algum outro membro que estiver on line.. caso tenha alguma duvida pode olhar no Menu FAQ as perguntas mais recentes.
Bons Estudos é o que deseja todos nós que fazemos o GRUPO LÓGICA DE PROGRAMAÇÃO acontecer...

(EL MENSAJERO [FUNDADOR])

[Resolvido]super Basico! Ajuda!

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

[Resolvido]super Basico! Ajuda!

Mensagem por Gmaster em Sab 22 Set 2012, 23:22

Criar um procedimento chamado metade que divida um valor do tipo real (passando com parametro) pela metade.
Escrever um progama de vetor A de 30 elementos reais e, usando o procedimento metade divida todos seus elementos pela metade.

E facil Mais so Muito noob.
Da Pra alguem faser pra mim! Pfv!
Se quiser Explicar parte por parte agradeceria! Very Happy

Gmaster
Novo no Fórum
Novo no Fórum

Mensagens : 1
Pontos : 4
Reputação : 0
Data de inscrição : 22/09/2012

Voltar ao Topo Ir em baixo

Re: [Resolvido]super Basico! Ajuda!

Mensagem por Vanessa Thaisa em Qua 04 Set 2013, 11:48

Código:
Program Pzim ;
const
   max=30;
type   
   vetor = Array [1..max] of Real;
var   
   x:integer;
   vetorA: vetor;
   
procedure divide (divideVetor: vetor);
var i:integer;
begin
   for i:= 1 to max do
   begin
      vetorA[i]:= divideVetor[i] / 2;   
   end;
end;
 Begin
    writeln('Vetor original: ');
     for x:= 1 to max do
     begin
         vetorA[x]:= x;
         write(vetorA[x]:2:0,' ');
     end;
  
     divide(vetorA);
     writeln;
     writeln('vetor metade');
   for x:= 1 to max do
     begin
        write(vetorA[x]:2:1,' ');
     end;
  
 End.
avatar
Vanessa Thaisa
Conselheiro
Conselheiro

Mensagens : 5
Pontos : 11
Reputação : 0
Data de inscrição : 03/07/2010
Idade : 31
Localização : Campo Grande - MS - Brasil

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum