Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Bom... ai está meu primeiro programinha feito em pascal (sei que é muito antigo).
Uma calculadora simples... legazinha xD
EDIT: Código ao invés do executável
Program Calculadora_Especial;
var //Variaveis
opcao,opcao2:integer;
resposta1,resposta2:real;
num1,num2:real;
resposta:real;
termo1,termo2,termo3:real;
repetir:string;
Begin //Inicio dos comandos
//Inicio da repetição
repeat
writeln('=====--- || CalculaK ® by Kelvin Dias Dules || ---====='); //Apresentação
writeln('|| versão 0.9 ||');
writeln('|| ||');
writeln('|| ||');
writeln('---------------------------------------------------------');
writeln('||Digite o número correspondente à função para começar!||');
writeln('|||------------------|||'); //Menu de navegação
writeln('|||[1] Somar');
writeln('|||[2] Subtrair');
writeln('|||[3] Multiplicar');
writeln('|||[4] Dividir');
writeln('|||[5] Produtos Notáveis');
writeln('|||[6] Sobre o Programa');
writeln('|||------------------|||');
read(opcao);
//Soma
if opcao=1 then
begin
writeln('Digite o primeiro número da soma:');
read(num1);
writeln('Digite o segundo número da soma:');
read(num2);
resposta:=(num1+num2);
writeln('Resposta :',' ',round(resposta));
end
//Subtração
else if opcao=2 then
begin
writeln('Digite o primeiro número da subtração:');
read(num1);
writeln('Digite o segundo número da subtração:');
read(num2);
resposta:=(num1-num2);
writeln('Resposta:',' ',round(resposta));
end
//Multiplicação
else if opcao=3 then
begin
writeln('Digite o primeiro número da multiplicação:');
read(num1);
writeln('Digite o segundo número da multiplicação:');
read(num2);
resposta:=(num1*num2);
writeln('Resposta:',' ',round (resposta));
end
//Divisão
else if opcao=4 then
begin
writeln('Digite o dividendo (número a ser dividido):');
read(num1);
writeln('Digite o divisor (número de partes que o dividendo será dividido)');
read(num2);
resposta:=(num1/num2);
writeln('Resposta:',' ',round (resposta));
end
//Sobre o Programa
else if opcao=6 then
begin
writeln('||| ===================Sobre o Programa=====================|||');//Início Info
writeln('||-- Por estar começando agora, esse é o primeiro programa');
writeln('||-- que durou mais de 30min para ser criado, então decidi');
writeln('||-- fazer esse "Sobre o Programa" por organização');
writeln('||-- O programa se encontra na versão 0.9, ou seja, não está completo,');
writeln('||-- ele deve chegar à uma versão 2.0 futuramente.');
writeln('||-- Bugs serão corrigidos e novas funções serão adicionadas como:');
writeln('||-- *Raiz, Potênciação etc...');
writeln('||-- Vai ser uma calculadora totalmente completa!');
writeln('||-- [OBS]Nesta versão, todos os resultados são aredondados no caso de de ||-- números decimais');
writeln('||-- Contato = kelvindules@hotmail.com');
writeln('||-- Obrigado!!!');
writeln('================================================================||');
writeln(' \\\ || /// Kelvin Dias Dules \\\ || /// ');
writeln('================================================================||'); //Fim info
end;
//Produtos Notáveis
if opcao=5 then
begin
writeln('===== Produtos Notáveis disponíveis ====='); //Início Menu
writeln('=1= Quadrado da Soma (2 termos)|');
writeln('=2= Quadrado da Diferença (2 termos)|');
writeln('=3= Quadrado da Soma (3 termos)|');
writeln('=4= Cubo da Soma (2 termos)|');
writeln('=5= Cubo da Diferença (2 termos)|');
writeln('=6= Produto da Soma pela Diferença|');
writeln('=== Digite o número correspondente à função para calcular ==='); //Fim Menu
read(opcao2);
end;
//Quadrado da Soma*
if opcao2=1 then
begin
writeln('Informe o primeiro termo:');
read(termo1);
writeln('Informe o segundo termo:');
read(termo2);
resposta1:=(termo1+termo2);
resposta2:=(resposta1*resposta1);
writeln('O resultado final é:',' ',round(resposta2));
end
//Quadrado da Diferença
else if opcao2=2 then
begin
writeln('Informe o primeiro termo:');
read(termo1);
writeln('Informe o segundo termo:');
read(termo2);
resposta1:=(termo1-termo2);
resposta2:=(resposta1*resposta1);
writeln('O resultado final é:',' ',round(resposta2));
end
//Quadrado da Soma 3t
else if opcao2=3 then
begin
writeln('Informe o primeiro termo:');
read(termo1);
writeln('Informe o segundo termo:');
read(termo2);
writeln('Informe o terceiro termo:');
read(termo3);
resposta1:=(termo1+termo2+termo3);
resposta2:=(resposta1*resposta1);
writeln('O resultado final é:',' ',round(resposta2));
end
//Cubo da Soma
else if opcao2=4 then
begin
writeln('Informe o primeiro termo:');
read(termo1);
writeln('Informe o segundo termo:');
read(termo2);
resposta1:=(termo1+termo2);
resposta2:=(resposta1*resposta1*resposta1);
writeln('O resultado final é:',' ',round(resposta2));
end
//Cubo da Diferença
else if opcao2=5 then
begin
writeln(' Informe o primeiro termo:');
read(termo1);
writeln(' Informe o segundo termo:');
read(termo2);
resposta1:=(termo1-termo2);
resposta2:=(resposta1*resposta1*resposta1);
writeln('O resultado final é:',' ',round(resposta2));
end
//Produto da Soma pela Diferença
else if opcao2=6 then
begin
writeln('Informe o primeiro termo:');
read(termo1);
writeln('Informe o segundo termo:');
read(termo2);
resposta1:=(termo1*termo1-termo2*termo2);
writeln('O resultado final é:',' ',round(resposta1));
end;
writeln('Deseja repetir o programa?'); //Pergunta para repetição do programa
read(repetir);
clrscr;
until(repetir ='não');
End.
//Fim da Versão 0.9 do CalculaK
//Data: 04/02/2009
//Autor: Kelvin Dias Dules
//--------------------------------------||
Comentem sobre ele... deem dicas etc.. toda ajuda é bem vinda.
Obrigado!
(PS: Tem 2 dias que eu to estudando pascal.. então pega leve ai uishaiusa)
Agradecimentos à EDIT: BeraldO por me responder no outro tópico onde não estava achando o erro xD
FLW!
Carregando comentários...