Eu ando a programar uma calculadora em pascal para ver até aonde chego mas não arranca, diz que tem erro na 14 (a que tá a negrito) mas na encontro erro nenhum.
program calculadora_em_pascal;
uses Crt;
var r, v1, v2: Real;
var c, sn: Char;
begin
writeln ('***Calculadora by Gaminger VersÆo 0.1 19/12/2005***');
writeln ('Instru‡äes: +=soma, -=subtrac‡Æo, /=divisÆo, *=multiplica‡Æo');
repeat
writeln ('Qual o c*lculo que pretende fazer? Insira o sinal correspondente.');
readln (c);
writeln ('Agora insira dois valores, clique enter quando inserir o primeiro e outraves enter quando inserir o segundo.');
readln (v1, v2);
if c=+ then
r := v1+v2;
writeln ('Foram somados os valores e o resultado ‚:',r);
else
if c=- then
r := v1-v2;
writeln ('Foram subtra¡dos os valores e o resultado ‚:',r);
else
if c=/ then
r := v1/v2;
writeln ('Foram divididos os valores e o resultado ‚:',r);
else
if c=* then
r := v1*v2;
writeln ('Foram multiplicados os valores e o resultado ‚:',r);
else
writeln ('Instru‡äes erradas!');
end;
end;
end;
end;
writeln ('Deseja fazer outro c*lculo? Inserir s se sim ou n se nÆo.');
readln (sn);
until sn='n';
readkey;
end.