Programa de una calculadora en Pascal
hola la confradía, os escribo para presentaros un problema, el de poder realizar una calculadora en Pascal. No consigo ejecutar 2 cálculos consecutivos sin reiniciar la aplicación. ¿Qué hacer?
5 respuestas
-
program_calculadora;
uses WinCrt; var a,b,r:real; x:char; function add(var a,b: real):real; begin r:=a+b; end; function sub(var a,b: real):real; begin r:=a-b; end; function mul(var a,b: real):real; begin r:=a*b; end; function divis(var a,b: real):real; begin r:=a/b; end; begin writeln('calculette PASCAL'); readln(a); readln(x); readln(b); case x of '+': add(a,b); '-': sub(a,b); '*': mul(a,b); '/': divis(a,b); end; writeln(r); end.
de la part de mehdi skikda algérie en 2eme année informatique LMD -
Hola Bocandé,
Envíanos tu código, lo vamos a corregir.
marvinrouge -
este programa no es válido porque
1_el cálculo fi para 1 vez
2_el programa no reconoce el '=' ok;
dame tu msn quiero ayudarte-
-
-
@aminesoftHola, también necesito este TP, edítame este mes mi correo Mail Meriem .fifi@yahoo.fr
-
@fifiHola
Soy un estudiante de la Universidad de Skikda, en segundo año de informática medlamine21@hotmail.fr -
-
-
Hello,
I noticed 2 errors in your program
1- the 1st in the function divis you must first verify whether b is different from zero
2- the 2nd you must see this ^_^ to understand well
https://pascal.developpez.com/cours/ptrau/?page=page_13#LXIII-D
your problem is located at the two levels: the function calls + the result returned by each function of your program
here is the solution https://pascal.developpez.com/cours/ptrau/?page=page_13#LXIII-D -
Hola, por favor si ya hiciste este programa no podrías pasármelo porque lo necesito mucho, cuenta como control y tengo que entregarlo en dos días :/
