DBDesigner

Editor visual para criação de banco de dados mySQL que integra criação, modelagem, desenvolvimento e manutenção dos bancos em um ambiente simples e agradável. Comparável com produtos como Oracle's Designer, IBM's Relational Rose, CA Erwin. O DBDesigner é OpenSource distribuído sobre a licença GPL. Algumas características do DBDesigner:
É um software livre, licenciado sob a GPL;
É multi-plataforma;
Além de ser imbatível no uso com o MySQL, também oferece suporte a outros bancos, como Oracle, *MS SQL Server, SQLite, e outros que suportem acesso via ODBC;
Permite engenharia reversa, gerando o modelo a partir das tabelas do BD;
Faz a sincronia no BD das alterações realizadas no DER;
A interface com o usuário é muito bem elaborada, tornando o seu uso bastante simples;
Salva os arquivos em XML;
Importa modelos gerados no ERWin (XML);
Gera relatórios em HTML;

Pode ser expandido através do uso de plugins; É muito bem documentado; O suporte realizado através do fórum do site do DBDesigner é excelente.

Download DBDesigner
+
Manual

IbExpert

O IB Expert é um poderoso gerenciador de banco de dados que permite realizar todas as tarefas necessárias para o suporte e manutenção do banco tanto local como remotamente. Com ele é possível administrar o banco criando tabelas, modificando campos, índices, executando scripts SQL e outras funções. O IB Expert realiza a geração do modelo de entidade relacionamento para bancos de dados Interbase e Firebird.

IbExpert
+
Download Apostila - apostilando.com

FireBird 1.5

Firebird (algumas vezes chamado de FirebirdSQL) é um sistema gerenciador de banco de dados. Roda em Linux, Windows, Mac OS e uma variedade de plataformas Unix
Baseado no código do InterBase da Borland, quando da abertura de seu código na versão 6.0 (em 25 de Julho de 2000), alguns programadores em associação, assumiram o projecto de identificar e corrigir inúmeros bugs da versão original, surgindo aí o Firebird, que se tornou um banco com características próprias, obtendo uma aceitação imediata no círculo de programadores, a primeira versão 1.0. Quase que totalmente ainda compatível com sua origem, estando actualmente em sua versão 2.03, com muitas novidades. A versão 2.1 em fase de produção ainda, deverá trazer muitas inovações, já está se falando até em uma versão 3.0 que hoje tem o codinome Vulcan, cujas características já então seria de um super banco de dados. Seu maior diferencial ainda se baseia na gratuidade, o banco é gratuito em todos os sentidos: não há limitações de uso, e seu suporte amplamente discutido em listas na Internet, o que facilita enormemente a obtenção de ajuda técnica. O produto se mostrou bastante seguro, suportando sistemas com dezenas de usuários simultâneos e bases de dados acima de 2GB de tamanho.

Download Fire bird
+
Download Apostila - Autores: AHR e Marcus Boi

Apostila de Corel Draw

Apostila

Apostila muito simples de ser entendida.

Exercicio 04 Prova 03 - TP

04 - Criar um programa onde o o usuario informe o caracter a ser mostrado e a
quantidade de linhas, para formar a seguinte figura que deve ser centralizada
na tela:

 
                                        *
                                       ***
                                      *****
                                     *******
                                    *********
                                   ***********
                                  *************

Fonte:

program prva03ex04;
uses crt;
procedure arvore(car:string;qtlin:integer);
var col,lin:integer;
copcar:string;
begin
clrscr;
copcar:=(copy(car,1,1));
copcar:=copcar+copcar;
col:=40;
lin:=1;
for lin:=1 to qtlin do
begin
gotoxy(col,lin);
write(car);
car:=car+copcar;
col:=col-1;
delay(100);
end;
end;
var car:string;
qtlin:integer;
begin
clrscr;
write('Digite o Caracter que deseja utilizar......: ');
readln(car);
write('quantidade de linhas (max 25/min 1)........: ');
readln(qtlin);
arvore(car,qtlin);
readln;
end.

Exercicio 03 Prova 03 - TP

03 - Criar um programa que receba dois numeros: A e B . Este programa devera conter um subprograma para fazero calculo onde o numero A deve ser elevado ao numero B.

program prova03ex03;
uses crt;
procedure expo(numero,exp:integer);
var cont,vlr:integer;
begin
vlr:=numero;
if exp=0 then
vlr:=1
else
if exp=1 then
vlr:=numero
else
for cont:=(exp-1) downto 1 do
begin
vlr:=vlr*numero;
end;
writeln;
writeln(numero,' Elevado a ',exp,' = ',vlr);
end;
var numero,exp:integer;
begin
clrscr;
write('Digite um numero inteiro: ');
readln(numero);
write('Digite o exp p/ o calculo :');
readln(exp);
while exp<0 do
begin
write('Expoente Invalido! Redigite...: ');
readln(exp);
end;
expo(numero,exp);
readln;
end.

Exercicio 02 Prova 03 - TP

02 - 02 - Criar um programa que receba idade e sexo, até que a idade seja igual a 0.

Mostrar na tela:
- Média de idade do grupo
- Maior idade entre o grupo masculino
- Maior idade entre o grupo feminino
- Percentual de individuos do sexo maculino
- Percentual de individuos do sexo feminino
- Total de Pessoas informadas

program prova03ex02;
uses crt;

var idade,mmasc,mfem,total,idt,masc:byte;
sexo:char;
mdgrupo,pcfem,pcmasc:real;
begin
clrscr;
write('Idade....: ');
readln(idade);
mmasc:=0;
mfem:=0;
while idade <>0 do
begin
write('sexo (M/F).: ');
readln(sexo);
sexo:=upcase(sexo);
while (sexo<>'M')and (sexo <>'F') do
begin
write('Sexo invalido! Redigite....: ');
readln(sexo);
sexo:=upcase(sexo);
end;
inc(total,1);
inc(idt,idade);
case sexo of
'M': begin
if idade>mmasc then
mmasc:=idade;
inc(masc,1);
end;
'F': begin
if idade>mfem then
mfem:=idade;
end;
end;
write('Idade....: ');
readln(idade);
end;
mdgrupo:=idt/total;
pcfem:=((total-masc)/total)*100;
pcmasc:=masc/total*100;
writeln;
writeln('Media Idade Grupo...................: ',mdgrupo:5:2);
writeln;
writeln('Maior idade entre o grupo masculino.: ',mmasc);
writeln;
writeln('Maior Idade entre o grupo feminino..: ',mfem);
writeln;
writeln('Percentual de individuos do sexo "M": ',pcmasc:5:2,' %');
writeln;
writeln('Percentual de individuos do sexo "F": ',pcfem:5:2,' %');
writeln;
writeln('Total de Pessoas Informadas.........: ',total);
readln;
end.

Exercicio 01 prova 03 - TP

01 - Crie um programa que receba um numero inteiro, calcule o seu fatorial em uma function
e mostre o resultado na tela.

Fonte:

program prova03ex01;
uses crt;
function fator(numero:integer):integer;
var cont,valor:integer;
begin
valor:=0;
for cont:=(numero-1) downto 2 do
begin
valor:=valor+(numero*cont);
end;
fator:=valor;
end;
var numero:integer;
begin
clrscr;
write('Informe um numero inteiro...: ');
readln(numero);
writeln;
writeln('Fatorial do numero ',numero,' eh: ',fator(numero));
readln;
end.