registro

15 de agosto de 2010

oi gente sera qu vocês poderiam me ajudar com esse exercicio?!!

Exercício 02

Construa um programa que contenha os seguintes dados dos alunos de uma turma,

Matrícula, nome e media final O programa devera conter um menu com as seguintes opções.

1-cadastrar os alunos

2-pesquisar um aluno pelo nome

3-pesquisar um aluno pela matricula

4-mostrar todos os dados dos alunos

5-sair do programa

A resposta que eu tentei fazer!

Program02
Type
    Dados:Record;
   Nome:string;
    Mat,media:
End;
Var
   Menu:array[1..5] of dados  :integer
 N:integer
Achou :boolean;
Begin
    Writeln(‘1-cadastrar alunos’;
   Writeln(‘2-pesquisar um nome pelo aluno’;
   Writeln(‘3-pesquisar aluno pela matricula’;
   Writeln(‘4-mostrar todos os dados dos alunos’);
   Writeln(‘5-sair do programa’);
     Wrile opcao<>5 do
Begin
  Case opcao of
1:Begin
     Clrscr
 For i:= to 5 do
Begin
  Write(I , ‘ nome do  aluno:’);
Read(nome[i]maricula:);
Write(‘media:’);
Read(media[i].aluno;
End;
  End;
Begin
  Clrscr
    Writeln(‘digite o nome que deseja pesquisar:’);
   Read(n);
  Chou:=false
   i=1
  wrile(achou=false  and (1<5) do
Begin
   If(n=menu[i].nome  the
Begin
 Clrscr
 For i:= 1 to 5 do
Writeln(‘menu[i],nome’);
Writeln(‘menu[i]matricula’);
Writeln(‘menu[i]dados’);
End;
End;
End.

Simon Viegas · 17 de agosto de 2010

oi gente sera qu vocês poderiam me ajudar com esse exercicio?!!

Exercício 02

Construa um programa que contenha os seguintes dados dos alunos de uma turma,

Matrícula, nome e media final O programa devera conter um menu com as seguintes opções.

1-cadastrar os alunos

2-pesquisar um aluno pelo nome

3-pesquisar um aluno pela matricula

4-mostrar todos os dados dos alunos

5-sair do programa

A resposta que eu tentei fazer!

Program02

Type

Dados:Record;

Nome:string;

Mat,media:

End;

Var

Menu:array[1..5] of dados :integer

N:integer

Achou :boolean;

Begin

Writeln(‘1-cadastrar alunos’;

Writeln(‘2-pesquisar um nome pelo aluno’;

Writeln(‘3-pesquisar aluno pela matricula’;

Writeln(‘4-mostrar todos os dados dos alunos’);

Writeln(‘5-sair do programa’);

Wrile opcao<>5 do

Begin

Case opcao of

1:Begin

Clrscr

For i:= to 5 do

Begin

Write(I , ‘ nome do aluno:’);

Read(nomemaricula:);

Write(‘media:’);

Read(media.aluno;

End;

End;

Begin

Clrscr

Writeln(‘digite o nome que deseja pesquisar:’);

Read(n);

Chou:=false

i=1

wrile(achou=false and (1<5) do

Begin

If(n=menu.nome the

Begin

Clrscr

For i:= 1 to 5 do

Writeln(‘menu,nome’);

Writeln(‘menumatricula’);

Writeln(‘menudados’);

End;

End;

End.

Dei um ajustadinha no seu código. (mais para deixá-lo compilável). Tem outras detalhes que devem ser vistos.

De qualquer forma, sugiro que dê uma lida nesse tópico: http://forum.clubedohardware.com.br/topicos-importantes-secao/709833. Lá tem umas dicas legais sobre o Pascal. Sobretudo sugiro que dê uma lida no livro Livro "Programando com Pascal".

Abaixo o código:

{
- Faltou um espaço entre o idenficador "program" e o "02", mas de qualquer
forma não é possível começar com números. Defini como "exercicio02"

- Houve um erro na declaração do registro. Em vez de "Dados: record;", o
correto seria: "Dados = record"

- Faltou definir o tipo da variável "mat" e da "media". No caso eu
defini como "string" e "real" respectivamente. (sendo assim, não utilizei
",", já que são tipos diferentes.

- A declaração do "array" está errada. No caso deveria ser um "array" de alunos,
ou seja, um vetor que armazenará os "dados" dos alunos. (a questão em si não é o
nome do identificador (que estava "menu"), mas sim a ideia que ele deve fazer.
Daí é mais "justo" é chamá-lo de "alunos" e ao mesmo tempo corrigindo a declaração.
(não tem esse ':interger" no final)

PS: O nome "menu" não faz muito sentido. "Array" é para os dados... "menu" é uma
lógica para se ter um "cardápio de opções", ou seja, essa lógica de "menu" está
relacionada na questão de você disponibilizar uma lista de opções e executar de-
terminada tarefa a depender do que o usuário escolher... O conceito de "menu" é
todo um conjunto: disponibilizar uma lista, ler a opção desejada e fazer o que
foi pedido... (é semelhante ao um "menu" de um restaurante": O cliente tem um
cardápio, diz para o garçom qual opção ele quer e o garçom entrega o que foi pedido.)

- Faltou declarar a variável opção (para ler a opção do usuário, no caso de
relativo ao "menu" que foi apresentado)

- Em vez de "‘" (acento agudo), usa-se "'" (aspas simples) e faltou fechar os
parenteses.

- Inserir a leitura da opção do usuário (ele tem que informar qual opção ele
quer.)

- "While" é com "H"

- Case tem um "end" também

etc...
}


program exercicio02;
uses
  CRT; {carrega comandos extras como ClrScr, ReadKey, TextColor.. etc}
type
  {Dados: record;}
   Dados = record
             nome  :string;
             mat   :string;
             media :real;
           end;

Var
  {Menu:array[1..5] of dados :integer}
  alunos :array[1..5] of dados;
  opcao  :char; {5}
  i      :integer;
  achou  :boolean;
  n      :string;

Begin
Writeln('1-cadastrar alunos');
Writeln('2-pesquisar um nome pelo aluno');
Writeln('3-pesquisar aluno pela matricula');
Writeln('4-mostrar todos os dados dos alunos');
Writeln('5-sair do programa');

readln(opcao);

{Wrile opcao<>5 do}
while opcao<>'5' do
  begin
  Case opcao of
    '1' :begin
         clrscr;
         for i:=1 to 5 do
           begin
           write('Matricula ');
           readln(alunos[i].mat);
           write(I ,' nome do aluno: ');
           readln(alunos[i].nome);
           write('media: ');
           readln(alunos[i].media);
           end;
         end;
    '2' :begin
         clrscr;
         writeln('digite o nome que deseja pesquisar: ');
         readln(n);
         achou:=false;
         i:=1;
         while (achou=false) and (1<5) do
           begin
           if (n = alunos[i].nome) then
             begin
             clrscr;
             for i:= 1 to 5 do
               writeln('NOME      :',alunos[i].nome);
               writeln('MATRICILA :',alunos[i].mat);
               writeln('MEDIA     :',alunos[i].media);
             end;
           end;
         end
    end; {fim case}
  end; {fim while}
End.

Qualquer coisa é só postar

Abraços

17 de agosto de 2010

hà sera que você poderia me ajudar ?

como eu faço pra colocar nesse exercicio esta parte de altura ?

Elaborar um programa que armazene o nome e a altura de 15 pessoas, por meio do uso de

registros. O programa deverá ser manipulado por meio de um menu que execute as seguintes

etapas:

f) Cadastrar 10 registros;

g) Apresentar os registros (nome e altura) das pessoas menores ou iguais a 1.5m;

h) Apresentar os registros (nome e altura) das pessoas que sejam maiores que 1.5;

i) Apresentar os registros (nome e altura) das pessoas que sejam maiores que 1.5 e

menores que 2.0m;

j) Apresentar todos os registros com média extraída de todas as alturas armazenadas.

k) Sair do programa.

Simon Viegas · 18 de agosto de 2010

Olá,

ericalucca,

1) Sobre o primerio exercício?

- Existe ainda alguma dúvida sobre esse exercício?

- Você já o finalizou?

Veja que esse exercício ainda está pendende. Falta sabermos se você já fez as devidas mudanças para concluí-la.

Dei um ajustadinha no seu código. (mais para deixá-lo compilável). Tem outras detalhes que devem ser vistos.

Por exemplo, cadê os itens 3 e 4? O item 2 está já está pronto? Será que o "menu" (a lista) está combinada com o while de forma correta (o programa está se repetindo de forma correta) ?... entre outras.

2) Sobre o novo exercício

hà sera que você poderia me ajudar ?

como eu faço pra colocar nesse exercicio esta parte de altura ?

Elaborar um programa que armazene o nome e a altura de 15 pessoas, por meio do uso de

registros. O programa deverá ser manipulado por meio de um menu que execute as seguintes

etapas:

f) Cadastrar 10 registros;

g) Apresentar os registros (nome e altura) das pessoas menores ou iguais a 1.5m;

h) Apresentar os registros (nome e altura) das pessoas que sejam maiores que 1.5;

i) Apresentar os registros (nome e altura) das pessoas que sejam maiores que 1.5 e

menores que 2.0m;

j) Apresentar todos os registros com média extraída de todas as alturas armazenadas.

k) Sair do programa.

- O que você já fez?

- Qual a sua dúvida.

Lembre que não estamos aqui para fazer o exercício para você, e sim ajudá-la. Tente fazer o que você consegue (assim como fez com o primeiro) e daí tire suas dúvidas com a gente.

***

PS: Sugiro que tente finalizar o primeiro exercício antes, e depois passar para o próximo. A estrutura de registro é semelhante, o que muda é que um exercício é voltado para "pesquisa de dados" e o outro para "estatísticas".

Resumindo, se terminar o primeiro direitinho, o segundo será mamão-com-açúcar

Qualquer dúvida é só perguntar.

No aguardo

Abraços

19 de agosto de 2010

Olá,
ericalucca,

1) Sobre o primerio exercício?

- Existe ainda alguma dúvida sobre esse exercício?

- Você já o finalizou?

Veja que esse exercício ainda está pendende. Falta sabermos se você já fez as devidas mudanças para concluí-la.

Por exemplo, cadê os itens 3 e 4? O item 2 está já está pronto? Será que o "menu" (a lista) está combinada com o while de forma correta (o programa está se repetindo de forma correta) ?... entre outras.

2) Sobre o novo exercício

- O que você já fez?

- Qual a sua dúvida.

Lembre que não estamos aqui para fazer o exercício para você, e sim ajudá-la. Tente fazer o que você consegue (assim como fez com o primeiro) e daí tire suas dúvidas com a gente.

***

PS: Sugiro que tente finalizar o primeiro exercício antes, e depois passar para o próximo. A estrutura de registro é semelhante, o que muda é que um exercício é voltado para "pesquisa de dados" e o outro para "estatísticas".

Resumindo, se terminar o primeiro direitinho, o segundo será mamão-com-açúcar

Qualquer dúvida é só perguntar.

No aguardo

Abraços