Program trabalho ;
const pi=3.14;
var i, escolha, idade, porcentagemidade, mulheres, conjuntodeb, conjuntodea : integer;
sexo: char;
raio, altura, maioraltura : real;
cabelo, olhos, sair : string;
conjuntoa : array [1..10] of integer;
conjuntob : array [1..10] of integer;

Begin
clrscr;
writeln('Digite Comecar ou Sair para sair: ');
readln(sair);
While (sair = 'comecar') do
begin
writeln('Digite o número correspondente a questão');
writeln('1 - Para fazer a questão de Seleção');
writeln('2 - Para fazer a questão de Repetição');
writeln('3 - Para fazer a questão de Variáveis Compostas');
readln(escolha);
case escolha of
1 : begin
writeln('Escolha um valor de Raio, para calcular o volume da esfera: ');
readln(raio);
writeln('O volume da esfera é: ',(4*pi*raio*raio*raio)/3:2:2);
end;
2 : begin
repeat
writeln('Digite a Idade ou -1 para sair do programa: ');
readln(idade);
writeln('Digite M para masculino e F para feminino: ');
readln(sexo);
writeln('Digite a Altura: ');
readln(altura);
writeln('Digite a cor a cor do cabelo: Castanho, Loiro, Preto, ou Ruivo');
readln(cabelo);
writeln('Digite a cor dos olhos: Preto, Azul, Verde ou Castanho');
readln(olhos);
if (altura > maioraltura) then
begin
maioraltura:=altura;
end;
if sexo = 'f' then
begin
mulheres:=mulheres + 1;
if (idade > 18) and (idade < 35) and (olhos = 'verdes') and (cabelo = 'loiro') then
begin
porcentagemidade:=porcentagemidade + 1;
end;
end;
until (idade = -1);

end;
3 : begin
for i:=1 to 10 do
writeln('Digigite um Conjunto de números A');
readln(conjuntoa[i]);
writeln('Digite um Conjunto de números B');
readln(conjuntob[i]);
conjuntodea:= conjuntoa[i];
conjuntodeb:= conjuntob[i];
end;
end;
for i:=1 to 10 do
begin
write(conjuntodea,conjuntodea);
end;
end;
End.

Qualquer Blog/Site pode fazer parceria com o Download Filmes BR, Contato que não ultlize de métodos ilegais de para obter vantagens em cima de visitas, exemplo: iframe.

Banner 128X60

Banner 180X40

Banner 468X60

Logfile of Trend Micro HijackThis v2.0.2
Scan saved at 10:53:24, on 11/08/2009
Platform: Windows Vista SP1 (WinNT 6.00.1905)
MSIE: Internet Explorer v8.00 (8.00.6001.18813)
Boot mode: Normal

Running processes:
C:\Windows\system32\Dwm.exe
C:\Windows\Explorer.EXE
C:\Windows\system32\taskeng.exe
C:\Program Files\Windows Defender\MSASCui.exe
D:\C&E\OSD\osd.exe
C:\Program Files\Avira\AntiVir Desktop\avgnt.exe
C:\Program Files\Java\jre6\bin\jusched.exe
C:\Program Files\Windows Media Player\wmpnscfg.exe
D:\Mozilla Firefox\firefox.exe
C:\Program Files\Windows Live\Messenger\msnmsgr.exe
C:\Program Files\Windows Live\Contacts\wlcomm.exe
c:\users\Chernobyl\Downloads\Hijackthis\HijackThis.exe

R1 - HKCU\Software\Microsoft\Internet Explorer\Main,Search Page = http://go.microsoft.com/fwlink/?LinkId=54896
R0 - HKCU\Software\Microsoft\Internet Explorer\Main,Start Page = http://go.microsoft.com/fwlink/?LinkId=69157
R1 - HKLM\Software\Microsoft\Internet Explorer\Main,Default_Page_URL = http://go.microsoft.com/fwlink/?LinkId=69157
R1 - HKLM\Software\Microsoft\Internet Explorer\Main,Default_Search_URL = http://go.microsoft.com/fwlink/?LinkId=54896
R1 - HKLM\Software\Microsoft\Internet Explorer\Main,Search Page = http://go.microsoft.com/fwlink/?LinkId=54896
R0 - HKLM\Software\Microsoft\Internet Explorer\Main,Start Page = http://go.microsoft.com/fwlink/?LinkId=69157
R0 - HKLM\Software\Microsoft\Internet Explorer\Search,SearchAssistant =
R0 - HKLM\Software\Microsoft\Internet Explorer\Search,CustomizeSearch =
R0 - HKCU\Software\Microsoft\Internet Explorer\Toolbar,LinksFolderName =
O2 - BHO: btorbit.com - {000123B4-9B42-4900-B3F7-F4B073EFC214} - D:\Orbitdownloader\orbitcth.dll
O2 - BHO: AcroIEHelperStub - {18DF081C-E8AD-4283-A596-FA578C2EBDC3} - C:\Program Files\Common Files\Adobe\Acrobat\ActiveX\AcroIEHelperShim.dll
O2 - BHO: (no name) - {5C255C8A-E604-49b4-9D64-90988571CECB} - (no file)
O2 - BHO: Auxiliar de Conexão do Windows Live - {9030D464-4C02-4ABF-8ECC-5164760863C6} - C:\Program Files\Common Files\Microsoft Shared\Windows Live\WindowsLiveLogin.dll
O2 - BHO: Java(tm) Plug-In 2 SSV Helper - {DBC80044-A445-435b-BC74-9C25C1C588A9} - C:\Program Files\Java\jre6\bin\jp2ssv.dll
O4 - HKLM\..\Run: [Windows Defender] %ProgramFiles%\Windows Defender\MSASCui.exe -hide
O4 - HKLM\..\Run: [MSConfig] "C:\Windows\system32\msconfig.exe" /auto
O4 - HKLM\..\Run: [OSD] D:\C&E\OSD\osd.exe
O4 - HKLM\..\Run: [avgnt] "C:\Program Files\Avira\AntiVir Desktop\avgnt.exe" /min
O4 - HKLM\..\Run: [SunJavaUpdateSched] "C:\Program Files\Java\jre6\bin\jusched.exe"
O8 - Extra context menu item: &Download by Orbit - res://D:\Orbitdownloader\orbitmxt.dll/201
O8 - Extra context menu item: &Grab video by Orbit - res://D:\Orbitdownloader\orbitmxt.dll/204
O8 - Extra context menu item: Do&wnload selected by Orbit - res://D:\Orbitdownloader\orbitmxt.dll/203
O8 - Extra context menu item: Down&load all by Orbit - res://D:\Orbitdownloader\orbitmxt.dll/202
O8 - Extra context menu item: E&xportar para o Microsoft Excel - res://D:\MICROS~2\Office12\EXCEL.EXE/3000
O9 - Extra button: Research - {92780B25-18CC-41C8-B9BE-3C9C571A8263} - D:\MICROS~2\Office12\REFIEBAR.DLL
O13 - Gopher Prefix:
O16 - DPF: {D27CDB6E-AE6D-11CF-96B8-444553540000} (Shockwave Flash Object) - http://fpdownload2.macromedia.com/get/shockwave/cabs/flash/swflash.cab
O23 - Service: Avira AntiVir Scheduler (AntiVirSchedulerService) - Avira GmbH - C:\Program Files\Avira\AntiVir Desktop\sched.exe
O23 - Service: Avira AntiVir Guard (AntiVirService) - Avira GmbH - C:\Program Files\Avira\AntiVir Desktop\avguard.exe
O23 - Service: ##Id_String1.6844F930_1628_4223_B5CC_5BB94B879762## (Bonjour Service) - Apple Computer, Inc. - C:\Program Files\Bonjour\mDNSResponder.exe
O23 - Service: FLEXnet Licensing Service - Acresso Software Inc. - C:\Program Files\Common Files\Macrovision Shared\FLEXnet Publisher\FNPLicensingService.exe
O23 - Service: Google Update Service (gupdate) (gupdate) - Google Inc. - C:\Program Files\Google\Update\GoogleUpdate.exe
O23 - Service: Nero BackItUp Scheduler 4.0 - Nero AG - C:\Program Files\Common Files\Nero\Nero BackItUp 4\NBService.exe

--
End of file - 4214 bytes

Carga Explosiva 3 - DVDRip - Dublado

Informações do Arquivo:

Áudio:PortuguêsLegenda:IndisponívelTamanho: 492 MbFormato: AVIQualidade: DVDRipQualidade de Audio: 10Qualidade de Vídeo: 10

Informações do Filme

Ano de Lançamento: 2008Gênero: AçãoDuração: 100 min

Sinopse:Em Carga Explosiva 3 Frank Martin (Jason Statham) é obrigado a transportar de Marselha até Odessa, no Mar Negro, Valentina (Natalya Rudakova), a filha seqüestrada de Leonid Vasilev (Jeroen Krabbé), chefe da Agência de Proteção Ambiental da Ucrânia. No longo caminho, com a ajuda do Inspetor Tarconi (François Berléand), Frank tem de lidar com as pessoas que o forçaram a fazer esse trabalho, como os agentes enviados por Vasilev para o interceptar e a total não cooperação de Valentina. Apesar da sua personalidade cínica, seu constante sarcasmo, e sua vontade de resistir a Frank, eles se apaixonam, enquanto tentam fugir de situações bizarras, perigosas e fatais.

Download: Megaupload
Download: 2Shared
Download: Vip File

O Jardim Secreto (1993) [Pedido]

FICHA TÉCNICA

Título Original: The Secret Garden
Tamanho: 331 MB
Áudio: Português
Legenda: Sem Legenda
Tempo de Duração: 101 Min.
Formato: Avi
Qualidade: DvdRip
Gênero: Drama
Ano de Lançamento: 1993

Sinopse: Na Inglaterra, em uma luxuosa casa de campo, três crianças, entre elas uma garota que perdeu seus pais em um terremoto, desafiam a governanta local ao frequentarem um jardim abandonado, o qual passam a usar como esconderijo.

Baixar Via MegaUpload

Velozes e Furiosos 4 - Fast and Furious 4 - TS - DivX - Legendado

FICHA TÉCNICA

Título Original: The Fast And Furious 4
Tamanho: 360 MB
Áudio: Inglês
Legenda: Português
Tempo de Duração: 1h39Min.
Formato: Rmvb
Qualidade: DvdRip
Gênero: Aventura/Ação
Ano de Lançamento: 2009

Sinopse: Vin Diesel e Paul Walker estão juntos novamente no capítulo decisivo da franquia de velocidade, Fast and Furious. De volta às ruas onde tudo começou, eles juntam-se a Michelle Rodriguez e Jordana Brewster para derreter o asfalto com poderosos, tunados e exóticos carros por Los Angeles e queimar o solo no Deserto Mexicano no novo - e poderoso - thriller de ação. Quando um crime faz com que eles voltem a Los Angeles, o ex-presidiário e fugitivo Dom Toretto (Diesel) reencontra o agente Brian.

Baixar Via MegaUpload

A Fruta Proibida - Dual Audio - DVDRip (2006)

FICHA TÉCNICA

Título Original: A Fruta Proibida
Tamanho: 700 MB
Áudio: Português/Inglês
Legenda: Opcional
Tempo de Duração: 01:26:45
Formato: Avi
Qualidade: DvdRip
Gênero: Drama/Romance
Ano de Lançamento: 2006

Sinopse: Uma bela jovem de 19 anos começa a estudar em uma faculdade que tem aulas de dança. A menina não tem noção de como chama a atenção e mexe com a imaginação dos homens. Logo, começa a sentir atraída por seu professor de canto, um pároco que leva a sério o seu compromisso com a igreja. Porém, a atração entre os dois começa a ficar muito forte, fezendo com que ela se entregue completamente a seus instintos. Ao mesmo tempo, o professor de dança da garota também se sente atraído por ela, formando um triângulo amoroso cheio de paixão, luxúria e pecado.

MegaUpload - 2Shared - VipFile - FlyUpload