Public feed
#722654
program xDE;
uses crt;
var
nome,senha,selec : string;
i,app,op,cor : integer;
n1,n2 : real;
begin
textbackground(green);
clrscr;
textcolor(blue);
repeat
clrscr;
writeln(' xDE - xDesktop Enviroment');
writeln(' Versão 0.0.0.0.0.0.0.0.0.0.0.0[...].0.1/2/2');
writeln('');
writeln('');
writeln('');
writeln('');
writeln('');
writeln('');
writeln('');
writeln('');
write(' Nome de Usuário: ');
readln(nome);
write(' Senha:');
readln(senha);
if senha = 'xde' then
begin
clrscr;
writeln('Seja bem-vindo ao xDE. Você está sendo redirecionado para a Área de Trabalho.');
writeln('');
write('Por favor, aguarde...');
for i:=0 to 50 do
begin
write('.');
delay(50);
end;
delay(300);
clrscr;
repeat
writeln('xDE - xDesktop Enviroment ©2007 - xD Inc.');
writeln('');
writeln('');
writeln('');
writeln(' -- xDE Menu -----------------------------------');
writeln('| |');
writeln('| 1 - xD Calc |');
writeln('| 2 - xD Translator |');
writeln('| 3 - xDE Color Manager |');
writeln('| 4 - xD Exit |');
writeln('| |');
writeln(' -----------------------------------------------');
writeln('');
write('Digite o nº correspondente à aplicação desejada: ');
readln(app);
delay(500);
write('Por favor, aguarde...');
for i:=0 to 50 do
begin
write('.');
delay(50);
end;
if app=1 then
begin
repeat
clrscr;
writeln('xDE Calc - Calculadora do xDE ©2007 - xD Inc.');
writeln('');
writeln('');
writeln('');
writeln(' -- xDE Calc Menu ---------------------------');
writeln('| |');
writeln('| 1 - Soma |');
writeln('| 2 - Subtração |');
writeln('| 3 - Multiplicação |');
writeln('| 4 - Divisão |');
writeln('| 5 - Sair de xDE Calc |');
writeln('| |');
writeln(' --------------------------------------------');
writeln('');
write('Digite o nº correspondente à operação desejada: ');
readln(op);
if (op=1) or (op=2) or (op=3) or (op=4) then
begin
writeln('');
write('Digite o primeiro nº: ');
readln(n1);
write('Digite o segundo nº: ');
readln(n2);
writeln('');
if op = 1 then writeln(n1:2:1,' + ',n2:2:1,' = ',(n1+n2):2:1);
if op = 2 then writeln(n1:2:1,' - ',n2:2:1,' = ',(n1-n2):2:1);
if op = 3 then writeln(n1:2:1,' x ',n2:2:1,' = ',(n1*n2):2:1);
if op = 4 then writeln(n1:2:1,' : ',n2:2:1,' = ',(n1/n2):2:1);
writeln('');
writeln('Pressione qualquer tecla para continuar.');
readkey;
clrscr;
end;
if (op<=0) or (op > 5) then
begin
writeln('');
writeln('Operação não existente!!!');
writeln('');
writeln('Pressione qualquer tecla para tentar novamente.');
readkey;
end;
if op=5 then
begin
writeln('');
write('Você tem certeza que deseja sair do xD Calc? [s/N] ');
readln(selec);
if (selec = 's') or (selec = 'S') then
begin
op:=5;
write('Por favor, aguarde...');
for i:=0 to 50 do
begin
write('.');
delay(50);
end;
end
else op:=0;
end;
until(op=5)
end;
if app = 2 then
begin
clrscr;
writeln('xD Translator - Tradutor de Idiomas do xDE ©2007 xD Inc.');
writeln('');
writeln('');
writeln('');
writeln(' -- xD Translator ---------------------------');
writeln('| |');
writeln('| Perdão, este recurso não está disponível |');
writeln('| no momento. |');
writeln('| |');
writeln(' --------------------------------------------');
writeln('');
writeln('Pressione qualquer tecla para continuar.');
readkey;
end;
if app = 3 then
begin
repeat
clrscr;
writeln('xDE Color Manager - Troque as cores do seu xDE ©2007 xD Inc.');
writeln('');
writeln('');
writeln('');
writeln(' -- xD Color Manager ------------------------');
writeln('| |');
writeln('| 1 - Azul |');
writeln('| 2 - Branco |');
writeln('| 3 - Alaranjado |');
writeln('| 4 - Vermelho |');
writeln('| 5 - Verde |');
writeln('| 6 - Preto |');
writeln('| 7 - Sair |');
writeln('| |');
writeln(' --------------------------------------------');
writeln('');
write('Digite o nº correspondente a cor, ou 7 para sair: ');
readln(cor);
if cor = 1 then
begin
write('Por favor, aguarde...');
for i:=0 to 50 do
begin
write('.');
delay(50);
end;
textbackground(blue);
clrscr;
textcolor(yellow);
end;
if cor = 2 then
begin
write('Por favor, aguarde...');
for i:=0 to 50 do
begin
write('.');
delay(50);
end;
textbackground(white);
clrscr;
textcolor(black);
end;
if cor = 3 then
begin
write('Por favor, aguarde...');
for i:=0 to 50 do
begin
write('.');
delay(50);
end;
textbackground(yellow);
clrscr;
textcolor(red);
end;
if cor = 4 then
begin
write('Por favor, aguarde...');
for i:=0 to 50 do
begin
write('.');
delay(50);
end;
textbackground(red);
clrscr;
textcolor(yellow);
end;
if cor = 5 then
begin
write('Por favor, aguarde...');
for i:=0 to 50 do
begin
write('.');
delay(50);
end;
textbackground(green);
clrscr;
textcolor(blue);
end;
if cor = 6 then
begin
write('Por favor, aguarde...');
for i:=0 to 50 do
begin
write('.');
delay(50);
end;
textbackground(black);
clrscr;
textcolor(white);
end;
if cor = 7 then
begin
write('Tem certeza que deseja sair do xD Color Manager? [s/N] ');
readln(selec);
if (selec = 's') or (selec = 'S') then
begin
cor:=7;
write('Por favor, aguarde...');
for i:=0 to 50 do
begin
write('.');
delay(50);
end;
end
else cor:=0;
end;
if (cor <= 0) or (cor > 7) then
begin
writeln('');
writeln('Esquema de cor não existente!!!');
writeln('');
writeln('Pressione qualquer tecla para tentar novamente.');
readkey;
end;
until(cor=7);
end;
clrscr;
until(app=4)
end
else
begin
clrscr;
writeln(' Senha Inválida!');
delay(5000);
end;
until(senha='xde');
writeln(' Obrigado por usar o xDE');
writeln('');
write('Saindo...');
for i:=0 to 50 do
begin
write('.');
delay(50);
end;
textbackground(black);
clrscr;
textcolor(white);
end.