Ir ao conteúdo
  • Cadastre-se
Gustavo30

Pascal Testem meu programa em pascal

Recommended Posts

program Central;
uses crt;
var op:integer;
    a1, a2, resultad:integer;
    s1, s2, resultsu:integer;
    m1, m2, resultmu:integer;
    d1, d2:integer;
    r1, r2:integer;
    resultdi:real;
    r:real;
    x:integer;
    restod:integer;
    nt:integer;
    ntresult:integer;
    poi:integer;
    n:integer;
    
    

begin
  clrscr;
  gotoxy(1,2);
  textcolor(lightgreen);
  write('Inicializando');
  for n:= 1 to 55 do
    begin
      delay(50);
      textcolor(lightgreen);
      write('.');
    end;
  clrscr;
  gotoxy(26,2);
  write('SEJA BEM VINDO(A)!');
  delay(1500);
repeat
  clrscr;
  gotoxy(1,2);
  textcolor(lightblue);
  write('***CENTRAL DE CÁLCULOS***  by: Gustavo Moura');
  textcolor(white);
  writeln;
  writeln;
  writeln;
  writeln('1 - ADIÇÃO');
  writeln('2 - SUBTRAÇÃO');
  writeln('3 - MULTIPLICAÇÃO');
  writeln('4 - DIVISÃO');
  writeln('5 - RAIZ QUADRADA');
  writeln('6 - RESTO DA DIVISÃO');
  writeln('8 - TABUADA');
  writeln('9 - PAR OU IMPAR');
  writeln;
  write('Digite um número como opção/-1 para sair: ');
  read(op);
    if op = 1 then
      begin
        clrscr;
        gotoxy(1,2);
        Write('Digite um número: ');
        read(a1);
        writeln;
        write('Digite outro número para somar: ');
        read(a2);
        resultad:=a1+a2;
        writeln;
        write('O resultado da soma é: ');
        textcolor(lightgreen);
        write(resultad);
        textcolor(white);
        writeln;
        writeln;
        delay(300);
        write('Aperte enter para voltar ao menu ');
        readln;
        readkey;
        clrscr;              
      end;
    if op = 2 then
      begin
        clrscr;
        gotoxy(1,2);
        Write('Digite um número: ');
        read(s1);
        writeln;
        write('Digite outro número para subtrair: ');
        read(s2);
        resultsu:=s1-s2;
        writeln;
        write('O resultado da subtração é: ');
        textcolor(lightgreen);
        write(resultsu);
        textcolor(white);
        writeln;
        writeln;
        delay(300);
        write('Aperte enter para voltar ao menu ');
        readln;
        readkey;
        clrscr;                
      end;
    if op = 3 then
      begin
        clrscr;
        gotoxy(1,2);
        Write('Digite um número: ');
        read(m1);
        writeln;
        write('Digite outro número para multiplicar: ');
        read(m2);
        resultmu:=m1*m2;
        writeln;
        write('O resultado da multiplicação é: ');    
        textcolor(lightgreen);
        write(resultmu);
        textcolor(white);
        writeln;
        writeln;
        delay(300);
        write('Aperte enter para voltar ao menu ');
        readln;
        readkey;
        clrscr;
      end;
    if op = 4 then
      begin
        clrscr;
        gotoxy(1,2);
        Write('Digite um número: ');
        read(d1);
        writeln;
        write('Digite outro número para dividir: ');
        read(d2);
        resultdi:= d1/d2;      
        writeln;         
        write('O resultado da divisão é: ');
        textcolor(lightgreen);
        write(resultdi:0:2);
        textcolor(white);
        writeln;
        writeln;
        delay(300);
        write('Aperte enter para voltar ao menu ');
        readln;
        readkey;
        clrscr;                
      end;
    if op = 5 then
      begin
        clrscr;
        gotoxy(1,2);
        write('Digite um número para saber sua raiz quadrada: ');
        read(x);
        r:=sqrt(x);
        writeln;
        write(' A raiz quadrada de ',x, ' é: ');
        textcolor(lightgreen);
        write(r:0:2);
        textcolor(white);
        writeln;
        writeln;
        delay(300);
        write('Aperte enter para voltar ao menu ');
        readkey;
        readln;
        clrscr;
      end;
    if (op > 9) or (op = 0) or (op = 7) or (op < -1) then
      begin
        clrscr;
        textcolor(red);
        gotoxy(1,2);
        write('Número inválido, aperte enter para tentar novamente');
        readkey;
        readln;
        clrscr;                
      end;
    if (op = 6) then
      begin
        clrscr;
        gotoxy(1,2);
        write('Digite um número: ');
        read(r1);
        writeln;
        write('Digite outro número para saber o resto da divisão: ');
        read(r2);
        restod:=r1 mod r2;
        writeln;
        write('O resto da divisão de ',r1,' e ',r2,' é: ');
        textcolor(lightgreen);
        write(restod);
        textcolor(white);
        delay(300);
        writeln;
        writeln;
        write('Aperte enter para voltar ao menu ');
        readkey;
        readln;
        clrscr;
      end;
    if (op = 8) then
      begin
        clrscr;
        gotoxy(1,2);
        write('Digite um número para saber sua tabuada: ');
        read(nt);
        clrscr;
        ntresult:=0;
        gotoxy(1,2);
          while ntresult < 11 do
            begin             
              writeln(nt,' x ',ntresult,' = ',nt*ntresult);
              inc(ntresult);
            end;  
        writeln;
        writeln;
        delay(300);
        write('Aperte enter para voltar ao menu ');
        readkey;
        readln;
        clrscr;                 
      end;
    if (op = 9) then
      begin
        clrscr;
        gotoxy(1,2);
        write('Digite um número para saber se é par ou impar: ');
        read(poi);
          if (poi mod 2 = 0) then
            begin
              clrscr;  
              gotoxy(1,2);         
              write('O número informado é ');
              textcolor(lightgreen);
              write('par');
              textcolor(white);
              writeln;
              writeln;
              delay(300);
              write('Aperte enter para voltar ao menu ');
              readkey;
              readln;
              clrscr;
            end
          else
            begin
              clrscr;
              gotoxy(1,2);
              write('O número informado é ');
              textcolor(lightred);
              write('impar');
              textcolor(white);
              writeln;
              writeln;
              delay(300);
              write('Aperte enter para voltar ao menu ');
              readkey;
              readln;
              clrscr;
            end;
            end;
                             
        
until op = -1;

  clrscr;
  gotoxy(26,2);
  textcolor(lightgreen);
  write('Até mais!!! ');
  delay(1000);
     
                             
  
end.

Olá pessoal!! Gostaria que vocês testassem esse programa simples e que dessem um feedback ou até sugestões para melhorias. Tenho 15 anos e estou apenas começando no mundo da programação, sei que ainda tenho muito para aprender, mas estou estudando muito... Obrigado!

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×