segunda-feira, 9 de março de 2009

Exercícios nº 7 de LTP2

Elabore um programa que leia um vetor de 30 elementos inteiros e gere um segundo vetor cujas posições pares são o dobro do vetor original e as ímpares são o triplo.
Postado por às

15 comentários:

  1. Anônimo13 de março de 2009 às 09:56

    program exe7;
    uses crt;
    type
    vetorA=array[1..30] of integer;
    vetorB=array[1..30] of integer;
    var
    a:vetorA;
    b:vetorB;
    r,i:integer;
    begin
    clrscr;
    for i:=1 to 30 do
    begin
    gotoxy(8,4);
    writeln('VETOR 1');
    gotoxy(8,4+i);
    readln(a[i]);
    r:=i mod 2;
    if(r<>0)then
    begin
    b[i]:=a[i]*3;
    end;
    if(r=0)then
    begin
    b[i]:=a[i]*2;
    end;
    end;

    for i:=1 to 30 do
    begin
    gotoxy(19,4);
    writeln('VETOR 2');
    gotoxy(19,4+i);
    writeln(b[i]);
    end;
    readln;
    readln;
    end.

    Galera, deixei minha resposta do Exer.7, Rafael Carlos.

    ResponderExcluir
  2. Guilherme Prze15 de março de 2009 às 22:54

    Program ex_originalsim ;
    usescrt;
    type
    vetorA=array [1..30] of integer;
    vetorB=array [1..30] of integer;
    var
    A:vetorA;
    B:vetorB;
    I, resto:integer;
    Begin
    clrscr;
    for I:=1 to 30 do
    begin
    gotoxy(10,5);
    writeln('Vetor A');
    gotoxy(10,5+I);
    readln(A[I]);
    resto:=I mod 2;
    if resto=0 do
    B[I]:= A[I]*2
    else
    B[I]:=A[I]*3;
    gotoxy(30,5);
    writeln('Vetor B');
    gotoxy(30,5+I);
    writeln(B[I]);
    end;

    End.

    ResponderExcluir
  3. Maiara - Informática16 de março de 2009 às 13:05

    Resposta postada por *MAIARA C.*
    do grupo high tech
    program vetor;
    uses crt;
    type
    nota= array [1..20] of real;
    var
    i:integer;
    quant1,quant2:integer;
    begin
    for i:=1 to 20 do
    begin
    writeln('digite a nota');
    readln(nota[i]);
    if (nota[i]>=7) then
    begin
    quant1:=quant+1;
    end;
    if (nota[i]<7) then
    begin
    quant2:=quant2+1;
    end;
    end;
    writeln('digite a quantidade de alunos com maior media é',quant1);
    writeln('digite a quantidade de alunos com menor media é',quant2);
    end.

    ResponderExcluir
  4. Bdvis16 de março de 2009 às 19:54

    Gilberson do valle
    Program elementos;
    uses crt;
    type
    vetorA=array [1..30] of integer;
    vetorB=array [1..30] of integer;
    var
    A:vetorA;
    B:vetorB;
    I:integer;
    resto:integer;
    Begin
    clrscr;
    For I:=1 to 30 do
    begin
    writeln('digite o valor de A[i] ');
    readln(A[I]);
    resto:=I mod 2;
    If resto=0 do
    B[I]:= A[I]*2;
    else
    B[I]:=A[I]*3;

    end;
    writeln(‘o valor é’, B[I]);
    readln;
    readln;


    End.

    ResponderExcluir
  5. Bdvis16 de março de 2009 às 19:55

    Sinara do valle
    Program elementos;
    uses crt;
    type
    vetorA=array [1..30] of integer;
    vetorB=array [1..30] of integer;
    var
    A:vetorA;
    B:vetorB;
    I:integer;
    resto:integer;
    Begin
    clrscr;
    For I:=1 to 30 do
    begin
    writeln('digite o valor de A[i] ');
    readln(A[I]);
    resto:=I mod 2;
    If resto=0 do
    B[I]:= A[I]*2;
    else
    B[I]:=A[I]*3;

    end;
    writeln(‘o valor é’, B[I]);
    readln;
    readln;


    End.

    ResponderExcluir
  6. Bdvis16 de março de 2009 às 20:19

    Bianca Nunes
    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(4);
    Clrscr;

    For I: =1 to 20 do
    Begin
    Gotoxy(10,12);
    Writeln(‘Digite valor do vetor A’);
    Gotoxy(10,13);
    Readln(A[I]);
    Gotoxy(10,15);
    Writeln(‘Digite valor do vetor B’);
    Gotoxy(10,16);
    Readln(B[I]);
    end;
    For I := 1 to 20 do
    Begin
    C[I]:= A[I] + B[I];
    Media:=C[I]/20;
    End;
    Gotoxy(10,17);
    Writeln(‘ A media é ‘, C[I]);
    Readln;
    Readln;
    End.

    ResponderExcluir
  7. Bdvis16 de março de 2009 às 20:25

    Isadora
    Program Elementos ;
    UsesCRT;
    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(4);
    Clrscr;

    For I: =1 to 20 do
    Begin
    Gotoxy(10,12);
    Writeln(‘Digite valor do vetor A’);
    Gotoxy(10,13);
    Readln(A[I]);
    Gotoxy(10,15);
    Writeln(‘Digite valor do vetor B’);
    Gotoxy(10,16);
    Readln(B[I]);
    end;
    For I := 1 to 20 do
    Begin
    C[I]:= A[I] + B[I];
    Media:=C[I]/20;
    End;
    Gotoxy(10,17);
    Writeln(‘ A media é ‘, C[I]);
    Readln;
    Readln;
    End.

    ResponderExcluir
  8. Douglas17 de março de 2009 às 20:44

    Sobre a resposta do Fernando, não é writeln (Vetor 1) e writeln(Vetor 2) e sim, Vetor A e Vetor B.

    ResponderExcluir
  9. Anônimo18 de março de 2009 às 09:33

    Valeu Douglas, obrigada pela observação a respeito da resposta do Fernando. Sua contribuição é muito importante. Mas não entendí onde está a resposta do Fernando.
    Está em qual blog? Qual é o exercício?

    Me manda uma resposta. Obrigada. Professora Aline

    ResponderExcluir
  10. Anônimo18 de março de 2009 às 16:27

    Gostaria de saber o endereço do blog do grupo do Mateus, Gilberson, Fernando.....

    Até agora eu não conheço o blog do grupo, alguém pode me passar o endereço?

    Obrigada!!
    Professora Aline

    Obs.: Não conseguí postar um comentário no blog dos insanos nem do grupo high tech

    ResponderExcluir
  11. Bdvis18 de março de 2009 às 19:53

    Daniella
    Program Elementos ;
    UsesCRT;
    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(4);
    Clrscr;

    For I: =1 to 20 do
    Begin
    Gotoxy(10,12);
    Writeln(‘Digite valor do vetor A’);
    Gotoxy(10,13);
    Readln(A[I]);
    Gotoxy(10,15);
    Writeln(‘Digite valor do vetor B’);
    Gotoxy(10,16);
    Readln(B[I]);
    end;
    For I := 1 to 20 do
    Begin
    C[I]:= A[I] + B[I];
    Media:=C[I]/20;
    End;
    Gotoxy(10,17);
    Writeln(‘ A media é ‘, C[I]);
    Readln;
    Readln;
    End.

    ResponderExcluir
  12. Shogun19 de março de 2009 às 19:38

    :Gabriel:

    Program Shogun;

    type

    vetora=array [1..30] of integer;
    vetorb=array [1..30] of integer;

    var
    a:vetora;
    b:vetorb;
    i:integer;
    begin
    for i:= 1 to 30 do
    begin
    writeln ('Digite Valor');
    readln (a[i]);
    resto:=I mod 2;
    If resto=0 do
    B[I]:= A[I]*2;
    else
    B[I]:=A[I]*3;
    end;
    writeln (b[i]);
    readln;
    end.

    ResponderExcluir
  13. Anônimo20 de março de 2009 às 15:49

    Oi grupo The Original Sim, ainda faltam alguns alunos postarem as respostas dos exercícios aqui no blog de vcs. Por favor, fale com seus colegas que eles precisam postar as respostas aqui no blog de vcs.
    Abraços!!
    Professora Aline

    ResponderExcluir
  14. Douglas21 de março de 2009 às 11:07

    Program vetor;
    usescrt;
    type
    vetorA=array [1..30] of integer;
    vetorB=array [1..30] of integer;
    var
    A:vetorA;
    B:vetorB;
    I,r:integer;
    Begin
    clrscr;
    for I:=1 to 30 do
    begin
    gotoxy(10,5);
    writeln('Vetor A');
    gotoxy(10,5+I);
    readln(A[I]);
    r:=I mod 2;
    if r=0 do
    B[I]:= A[I]*2
    else
    B[I]:=A[I]*3;
    gotoxy(30,5);
    writeln('Vetor B');
    gotoxy(30,5+I);
    writeln(B[I]);
    end;
    End.

    ResponderExcluir
  15. Anônimo22 de março de 2009 às 21:40

    Oi Douglas, ainda não achei a resposta do Fernando. Professora Aline

    ResponderExcluir

Assinar: Postar comentários (Atom)