terça-feira, 10 de março de 2009

Desafio 1

Elabore um programa que leia um vetorA e um VetorB de 20 elementos do tipo real, construa um VetorC de mesma dimensão com o resultado da média do VetorA com o VetorB.
Postado por às

18 comentários:

  1. Guilherme Prze15 de março de 2009 às 18:38

    Este comentário foi removido pelo autor.

    ResponderExcluir
  2. Guilherme Prze15 de março de 2009 às 18:44

    Este comentário foi removido pelo autor.

    ResponderExcluir
  3. Guilherme Prze15 de março de 2009 às 18:46

    Program ex_hightech ;
    usescrt;
    type
    vetorA=array [1..20] of real;
    vetorB=array [1..20] of real;
    vetorC=array [1..20] of real;
    var
    A:vetorA;
    B:vetorB;
    C:vetorC;
    I:integer;
    Begin
    usescrt
    for I:=1 to 20 do
    begin
    gotoxy(10,5);
    writeln('Vetor A');
    gotoxy(10,5+I);
    readln(A[I]);
    gotoxy(30,5);
    writeln('Vetor B');
    gotoxy(30,5+I);
    readln(B[I]);
    C[I]:= (A[I] + B[I])/2;
    gotoxy(50,5);
    writeln('Vetor C');
    gotoxy(50,5+I);
    writeln(C[I]:2:2);
    end;

    End.

    ResponderExcluir
  4. Bdvis16 de março de 2009 às 15:34

    Gilberson do Valle

    program elementos;
    uses crt;
    type
    vetorA=array[1..20] of real;
    vetorB=array[1..20] of real;
    vetorC=array[1..20]of real;
    var
    I:INTEGER;
    A:vetorA;
    B:vetorB;
    C:vetorC;
    media:real;
    Begin
    textbackground(1);
    textcolor(0);
    clrscr;
    For I:=1 to 20 do
    begin
    writeln('escreva o valor a[i]');
    readln(a[i]);
    writeln('escreva o valor b[i]');
    readln(b[i]);
    end;
    For I:=1 to 20 do
    begin
    c[i]:=a[i]+b[i];
    end;
    media:=c[i]/20;
    writeln('a media é',c[i]:2:2);
    readln;
    readln;
    end.

    ResponderExcluir
  5. Bdvis16 de março de 2009 às 15:36

    Sinara do Valle

    program elementos;
    uses crt;
    type
    vetorA=array[1..20] of real;
    vetorB=array[1..20] of real;
    vetorC=array[1..20]of real;
    var
    I:INTEGER;
    A:vetorA;
    B:vetorB;
    C:vetorC;
    media:real;
    Begin
    textbackground(0);
    textcolor(6);
    clrscr;
    For I:=1 to 20 do
    begin
    writeln('digite o valor a[i]');
    readln(a[i]);
    writeln('digite o valor b[i]');
    readln(b[i]);
    end;
    For I:=1 to 20 do
    begin
    c[i]:=a[i]+b[i];
    end;
    media:=c[i]/20;
    writeln('a media é',c[i]:2:2);
    readln;
    readln;
    end.

    ResponderExcluir
  6. Anônimo18 de março de 2009 às 05:30

    Taffarel Ribeiro.

    Program media_ex1 ;

    type
    vetorA = array [1..20] of real;
    vetorB = array [1..20] of real;
    vetorC = array [1..20] of real;
    var
    A:vetorA;
    B:vetorB;
    C:vetorC;
    I:integer;
    Begin

    for I:= 1 to 20 do
    begin
    readln(A[I]);
    readln(B[I]);
    end;
    for I:= 1 to 20 do
    begin
    C[I]:= (A[I] + B[I])/ I;
    writeln(C[I]);
    end;

    End.

    ResponderExcluir
  7. Bdvis18 de março de 2009 às 16:03

    Bianca Nunes
    Program vetor;
    Type
    vetorA=array [1..20] of real;
    vetorB=array [1..20] of real;
    vetorC=array [1..20] of real;

    Var
    I:integer;
    A: A;
    B:B;
    C:C;
    Begin
    For I :=1 to 20 do
    Begin
    writeln('Digite vetor A');
    Readln(A[I]);
    End;
    For I:= 1 to 20 do
    Begin
    Writeln('Digite vetor B');
    Readln(B[I]);
    End;
    For I:= 1 to 20 do
    Begin
    C[I] :=(A[I] +B[I]) /2;
    Writeln('A media e', C [I]:2:2);
    End;
    Readln;
    End.

    ResponderExcluir
  8. Bdvis18 de março de 2009 às 16:04

    Daniella
    Program vetor;
    Type
    vetorA=array [1..20] of real;
    vetorB=array [1..20] of real;
    vetorC=array [1..20] of real;

    Var
    I:integer;
    A: A;
    B:B;
    C:C;
    Begin
    For I :=1 to 20 do
    Begin
    writeln('Digite vetor A');
    Readln(A[I]);
    End;
    For I:= 1 to 20 do
    Begin
    Writeln('Digite vetor B');
    Readln(B[I]);
    End;
    For I:= 1 to 20 do
    Begin
    C[I] :=(A[I] +B[I]) /2;
    Writeln('A media e', C [I]:2:2);
    End;
    Readln;
    End.

    ResponderExcluir
  9. Bdvis18 de março de 2009 às 16:06

    Isadora
    Program vetor;
    Type
    vetorA=array [1..20] of real;
    vetorB=array [1..20] of real;
    vetorC=array [1..20] of real;

    Var
    I:integer;
    A: A;
    B:B;
    C:C;
    Begin
    For I :=1 to 20 do
    Begin
    writeln('Digite vetor A');
    Readln(A[I]);
    End;
    For I:= 1 to 20 do
    Begin
    Writeln('Digite vetor B');
    Readln(B[I]);
    End;
    For I:= 1 to 20 do
    Begin
    C[I] :=(A[I] +B[I]) /2;
    Writeln('A media e', C [I]:2:2);
    End;
    Readln;
    End.

    ResponderExcluir
  10. Shogun18 de março de 2009 às 23:00

    :Gabriel:

    Program V3;
    Uses crt;
    Type

    vetorA=array [1..20] of real;
    vetorB=array [1..20] of real;
    vetorC=array [1..20] of real;

    var

    A:vetorA;
    B:vetorB;
    C:vetorC;
    I:integer;

    Begin
    for I:=1 to 20 do
    begin
    writeln('Digite Vetor A');
    readln(A[I]);
    writeln('Digite Vetor B');
    readln(B[I]);
    C[I]:= (A[I] + B[I])/2;
    writeln('Vetor C');
    writeln(C[I]:2:2);
    end;

    End.

    ResponderExcluir
  11. Anônimo19 de março de 2009 às 13:04

    Beleza, agora já conseguimos adicionar comentários!!!!

    ResponderExcluir
  12. Mateus Dalcol22 de março de 2009 às 06:48

    Este comentário foi removido pelo autor.

    ResponderExcluir
  13. Mateus Dalcol22 de março de 2009 às 06:49

    Mateus Dalcol

    Program ExercicioHitech;
    Uses crt;
    Type
    vetorA=array [1..20] of real;
    vetorB=array [1..20] of real;
    vetorC=array [1..20] of real;

    var
    A:vetorA;
    B:vetorB;
    C:vetorC;
    I:integer;

    Begin
    textcolor(5);
    Textbackground(1);
    for I:=1 to 20 do
    begin
    writeln('Digite Vetor A');
    readln(A[I]);
    writeln('Digite Vetor B');
    readln(B[I]);
    C[I]:= (A[I] + B[I])/2;
    writeln('A media e', C[I]:2:2);
    end;
    End.

    ResponderExcluir
  14. Anônimo23 de março de 2009 às 11:46

    Renato
    Program diadyu;
    uses crt;
    type
    vetorA=array[1..20]of real;
    vetorB=array[1..20]of real;
    vetorC=array[1..20]of real;
    var
    A:vetorA;
    B:vetorB;
    c:vetorC;
    I:integer;
    begin
    textbackground(8);
    textcolor(3);
    clrscr;
    forI:= 1 to 20 do
    begin
    gotoxy(10,4+I);
    readln(A[I]);
    gotoxy(20,4+I);
    readln(B[I]);
    C[I]:=(A[I])+(B[I])/2
    gotoxy(30,4+I);
    writeln(C[I]:2:2);
    end;
    readln;
    end.

    ResponderExcluir
  15. Maiara - Informática24 de março de 2009 às 10:52

    Isso ai galera as respostas estão todas certas,parabénsssssssssss
    Grupo High tech

    ResponderExcluir
  16. Anônimo29 de abril de 2009 às 11:35

    Oi Grupo highTech, vcs conferiram a resposta deste comentário?
    http://grupohightech.blogspot.com/2009/03/desafio-2.html?showComment=1237167960000#c4953978545483593262

    ResponderExcluir
  17. anônimo29 de abril de 2009 às 11:37

    http://grupohightech.blogspot.com/2009/03/desafio-2.html?showComment=1237167960000#c4953978545483593262

    ResponderExcluir
  18. teste29 de abril de 2009 às 11:39

    Este comentário é apenas um este no blog de vcs.

    Desculpem o transtorno

    ResponderExcluir

Assinar: Postar comentários (Atom)