Gustavo30

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!