Ir para conteúdo
Fórum Script Brasil

Mickey Mause

Membros
  • Total de itens

    1
  • Registro em

  • Última visita

Sobre Mickey Mause

Mickey Mause's Achievements

0

Reputação

  1. 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);}
×
×
  • Criar Novo...