JrFatec

Desenvolvemos um trabalho, consistia em através de um diagrama,que  fosse criado um banco de dados utilizando o Oracle 10 g XE. O NetBeans 6.8 foi a IDE utilizada para o desenvolvimento. Também houve necessidade de utilizar algumas bibliotecas assim também como o drive Oracle para Java. Baixe aqui as dependências  O Projeto não está terminado mas já realiza as principais operações necessárias. O Script SQL de criação do banco é esse. create type Funcao as OBJECT(   id number(4),   titulo varchar2(30),   descricao varchar2(50) ); create type Imagem as OBJECT(   imagem blob,   formato char(5),   nome varchar2(50),   desc_imagem varchar2(50) ); create type Voz as OBJECT(   id number(4),   audio blob,   frase varchar2(30) ); create type Foto as OBJECT(   numero number(4),   data date,   IMG Imagem ); create type Polegar as OBJECT(   numero number(4),   dedo blob,   IMG Imagem ); create type Cientista as OBJECT(   nome varchar2(50),   email varch

Esse exemplo que vou colocar aqui, não está completo, falta terminar a parte de edição que na verdade só está faltando fazer o POST dele da servelet e as manipulações la. O de exclusão esta fácil, lembra que a exclusão para a edição é moleza só pegar o Codigo e dar um delete no bd. o Script para criação do DB é esse: create database escola; use escola; CREATE TABLE `escola`.`aluno` (   `codigo` integer  NOT NULL AUTO_INCREMENT,   `nome` varchar(50) ,   `dn` date ,   `rg` varchar(20) ,   PRIMARY KEY (`codigo`) ) ENGINE = InnoDB; CREATE TABLE `escola`.`professor` (   `codigo` integer  NOT NULL AUTO_INCREMENT,   `nome` varchar(50) ,   `cpf` varchar(20) ,   `capacitacao` varchar(255) ,   PRIMARY KEY (`codigo`) ) ENGINE = InnoDB; CREATE TABLE `escola`.`sala` (   `codigo` integer  NOT NULL AUTO_INCREMENT,   `nome` varchar(20) ,   `qtdemax` integer ,   PRIMARY KEY (`codigo`) ) ENGINE = InnoDB; CREATE TABLE `escola`.`turma` (   `codigo` integer  NOT NULL,

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

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.