Hehe haha

Disponível somente no TrabalhosFeitos
  • Páginas : 2 (364 palavras )
  • Download(s) : 0
  • Publicado : 11 de outubro de 2012
Ler documento completo
Amostra do texto
1. Considere o seguinte programa que cria a lista da fig.1 pelo método FIFO:
1 | Program Exercício_1; | Item1
Item1
nil
nil
Rita
Rita
Item
Item
Origem
Origem
Figura 1
Figura 1
PedroPedro
Ana
Ana


|
2 | Type lig ^Pessoal; | |
3 | Pessoal=Record | |
4 | Nome: string; | |
5 | End; | |
6 | Var item, origem,item1:Pessoal; | |
7 | N, I: Integer; | |8 | Begin | |
9 | New (item); | |
10 | Item^.nome: =‘Ana’; item: =origem; | |
11 | New (item); | |
12 | Item^.nome: =‘Zé’; item1^.next: =item; item1: =item; | |
13 | New (item); | |14 | Item^.nome: =‘Pedro’; item1^.next: =item; item1: =item; | |
15 | New (item); | |
16 | Item^.nome: =‘Rita’; item^.next:=nil; | |
17 | Proc_Alterar; | |
18 | End. | |
a.Identifique no programa erros de sintaxe e de lógica, corrigindo-os. (4val)
2 – lig=^pessoal;
4 – next:lig;
6 – var item, origem, item1:lig;
10 – origem:=item; item1:=item;
16 – item1^.next:=item;b. Se o procedimento Proc_Alterar tiver as seguintes linhas de código, indique quais as alterações que sucederiam na lista: (8val)
i. Procedure proc_alterar;
BeginItem:=origem^.next; origem^.next:=item1;
Item^.next:=origem;
End;
nil
nil
Rita
Rita
Ana
Ana


Pedro
Pedro

origem item item1

ii. Procedure proc_alterar;
BeginItem^.next:=origem^.next; Origem^.next:=nil;
Item1^.next:=origem;
End;

nil
nil
ze
ze
pedro
pedro
rita
rita
Ana
Ana

item1 item origem

iii. Procedure proc_alterar;
BeginItem:=origem^.next; origem^.next:=item1;
dispose(item);
End;
nil
nil
rita
rita
pedro
pedro
Ana
Ana

Origem item1
iv. Procedure proc_alterar;
Begin
Item^.next:=item1;Origem:=Origem^.next
Origem^.next:=item; Item1^.next:=nil;
End;
Ana
Ana
ze
ze
rita
rita

nil
nil
pedro
pedro



Origem item1 item

2. Faça um programa que permita criar...
tracking img