JrFatec

program pilha; uses crt; type apontador = ^celula; celula = record item:integer; prox:apontador; end; tipopilha=record fundo:apontador; topo:apontador; end; procedure iniciapilha(var pilha:tipopilha); var aux:apontador; begin new (aux); pilha.fundo:=aux; pilha.topo:=pilha.fundo; pilha.topo^.prox :=nil; end; function vazia(pilha:tipopilha):boolean; begin vazia:=pilha.fundo = pilha.topo; end; procedure inserir(x:integer;var pilha:tipopilha); var aux:apontador; begin new (aux); pilha.topo^.prox:=aux; aux^.prox := nil; aux^.item :=x; pilha.topo := aux; end; procedure imprimir(pilha:tipopilha); var aux:apontador; begin aux := pilha.fundo^.prox; while ( aux <> nil ) do begin writeln(aux^.item); aux:=aux^.prox; end; end; procedure retirai(var x:integer; var pilha:tipopilha); var aux:apontador; begin aux:= pilha.fundo^.prox; x:=aux^.item; pilha.fundo^.prox := aux^.prox; if(pilha.fundo^.prox = nil ) then pilha.topo := pilha.fundo; dispose(aux); end; procedur

program ed; uses crt; type apontador = ^celula; celula = record item:integer; prox:apontador; end; tipolista = record primeiro:apontador; ultimo:apontador; end; procedure inicialista(var lista:tipolista); var aux:apontador; begin new (aux); lista.primeiro:=aux; lista.ultimo:=lista.primeiro; lista.ultimo^.prox :=nil; end; function vazia(lista:tipolista):boolean; begin vazia:=lista.primeiro = lista.ultimo; end; procedure inserirf(x:integer;var lista:tipolista); var aux:apontador; begin new (aux); lista.ultimo^.prox:=aux; aux^.prox := nil; aux^.item :=x; lista.ultimo := aux; end; procedure imprimir(lista:tipolista); var aux:apontador; begin aux := lista.primeiro^.prox; while ( aux <> nil ) do begin writeln(aux^.item); aux:=aux^.prox; end; end; procedure inseriri(x:integer; var lista:tipolista); var aux:apontador; begin if(vazia(lista)) then inserirf(x,lista) else begin new(aux); aux^.item := x; aux^.prox:=lista.primeiro^.prox; lista.primeiro^.p

Um novo recurso do google docs é que você agora pode criar Fórmulas. http://googleblog.blogspot.com/2009/09/back-to-school-with-google-docs.html O link é para o blog do google docs com o anuncio oficial.

No link abaixo você encontrara vários exemplo de programas interessantes sobre o gambas. http://www.gambasdoc.org/help/app

O Exemplo a baixo é um fila, que utiliza apontadores para realizar as operações. program fila; uses crt; type apontador = ^celula; celula = record item:integer; prox:apontador; end; tipofila=record frente:apontador; tras:apontador; end; procedure iniciafila(var fila:tipofila); var aux:apontador; begin new (aux); fila.frente:=aux; fila.tras:=fila.frente; fila.tras^.prox :=nil; end; function vazia(fila:tipofila):boolean; begin vazia:=fila.frente = fila.tras; end; procedure inserir(x:integer;var fila:tipofila); var aux:apontador; begin new (aux); fila.tras^.prox:=aux; aux^.prox := nil; aux^.item :=x; fila.tras := aux; end; procedure imprimir(fila:tipofila); var aux:apontador; begin aux := fila.frente^.prox; while ( aux <> nil ) do begin writeln(aux^.item); aux:=aux^.prox; end; end; procedure retirar(var x:integer; var fila:tipofila); var aux:apontador; begin aux:=fila.frente^.prox; x:=aux^.item; fila.frente^.prox := aux^.prox; if (fila.

Um novo artigo foi publicado do VOL ( Viva o Linux ). Esse fala detalhadamente sobre a integração do Mysql com o Gambas2. Segue o link. http://www.vivaolinux.com.br/artigo/Gambas2-e-MySQL-aprofundando-relacoes/