Olá pessoal, apartir de hoje vou postar algumas aplicações em pascal.
meu primeiro post vai ser uma calculador basica.
program calculadora;
uses
crt;
var
num1, num2, res: real;
opcao: integer;
sair: char;
begin
repeat
clrscr;
gotoxy(30,2); write('Calculadora');
gotoxy(32,4); write('OPCOES');
gotoxy(24,6); write('-----------------------');
gotoxy(24,7); write('| 1: Adicao |');
gotoxy(24,8); write('| 2: Subtracao |');
gotoxy(24,9); write('| 3: Multiplicacao |');
gotoxy(24,10); write('| 4: Divisao |');
gotoxy(24,11); write('| 5: Raiz Quadrada |');
gotoxy(24,12); write('-----------------------');
gotoxy(2, 14); write('Digite um numero: ');
readln(num1);
repeat
gotoxy(2,15); clreol;
gotoxy(2,17); clreol;
gotoxy(2,15); write('Digite uma opcao: ');
readln(opcao);
if opcao > 5 then
begin
gotoxy(2,17); write('Opcao invalida tente novamente!');
readkey;
end;
until
(opcao > 0) and (opcao < 6);
if opcao < 5 then
begin
gotoxy(2,16); write('Digite um numero: ');
readln(num2);
end;
writeln;
case opcao of
1: res:= num1 + num2;
2: res:= num1 - num2;
3: res:= num1 * num2;
4: begin
if num2 = 0 then
res:= 0
else
res:= num1 / num2;
end;
5: res:= sqrt(num1);
end;
gotoxy(2,18); write('O resultado eh: ',res:0:2);
gotoxy(2,20); write('Deseja fazer outro caulculo? [S/N] ');
readln(sair);
sair:=upcase(sair);
until
sair <> 'S';
end.
Para baixar a calculadora ja em arquivo executável CLIQUE AQUI!
Muito bem, vou ficando por aqui. Depois postarei outras aplicações!
