uses wincrt ;
type
ponteiro = ^elemento;
elemento = record
chave : integer ;
vet : array[1...3] of string ;
prox : ponteiro ;
end ;
var p,prim,h,q : ponteiro ;
i : integer;
begin
clrscr ;
prim := nil ;
new (p);
h:=p;
p^.chave:=1;
p^.vet[1]:='ana';
p^.vet[2]:='bia';
p^.vet[3]:='lia';
writeln(p^.vet[1]);
writeln(p^.vet[2]);
writeln(p^.vet[3]);
writeln;
for i := 1 to 3 do
begin
new(q);
q^.vet[1]:=p^.vet[1]+p^.vet[1,4-i];
q^.vet[2]:=p^.vet[2]+p^.vet[2,4-i];
q^.vet[3]:=p^.vet[3]+p^.vet[3,4-i];
writeln(q^.vet[1]);
writeln(q^.vet[2]);
writeln(q^.vet[3]);
writeln;
p:=q;
end;
end;
#include<stdio.h>
#include<stdlib.h>
#include<string.h>
typedef struct elemento{
int chave;
char vet[3];
int *prox;
char *p ,*prim, *h, *q;
};
main(){
struct elemento_l;
int i;
prim = NULL;
p=(char*) malloc (sizeof(char));
h=&p;
p.chave=1;
p.vet[1]='ana';
p.vet[2]='bia';
p.vet[3]='lia';
printf("%s\n",p.vet[1]);
printf("%s\n",p.vet[2]);
printf("%s\n",p.vet[3]);
free(p);
for (i=0;i<4;i++){
q=(char*) malloc (sizeof(char));
q.vet[1]=p.vet[1] + p.vet[1,(4-i)];
q.vet[2]=p.vet[2] + p.vet[2,(4-i)];
q.vet[3]=p.vet[3] + p.vet[3,(4-i)];
printf("%s\n",q.vet[1]);
printf("%s\n",q.vet[2]);
printf("%s\n",q.vet[3]);
p = &q;
}
return(0);}
Pergunta
Mickey Mause
uses wincrt ;
type
ponteiro = ^elemento;
elemento = record
chave : integer ;
vet : array[1...3] of string ;
prox : ponteiro ;
end ;
var p,prim,h,q : ponteiro ;
i : integer;
begin
clrscr ;
prim := nil ;
new (p);
h:=p;
p^.chave:=1;
p^.vet[1]:='ana';
p^.vet[2]:='bia';
p^.vet[3]:='lia';
writeln(p^.vet[1]);
writeln(p^.vet[2]);
writeln(p^.vet[3]);
writeln;
for i := 1 to 3 do
begin
new(q);
q^.vet[1]:=p^.vet[1]+p^.vet[1,4-i];
q^.vet[2]:=p^.vet[2]+p^.vet[2,4-i];
q^.vet[3]:=p^.vet[3]+p^.vet[3,4-i];
writeln(q^.vet[1]);
writeln(q^.vet[2]);
writeln(q^.vet[3]);
writeln;
p:=q;
end;
end;
Link para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.