Ver originales (Francés)

Programa de una calculadora en Pascal

bocandé Mensajes publicados 4 Estado Miembro -  
 Lion -
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

  1. bagnola911
     
    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
    23
    1. RIHEM
       
      pero, ¿cómo se hace eso en Lazarus Pascal?????
      0
    2. Lion
       
      Gracias
      0
  2. marvinrouge
     
    Hola Bocandé,

    Envíanos tu código, lo vamos a corregir.

    marvinrouge
    2
  3. zinoudu23
     
    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
    2
    1. Med lamine
       
      Hola
      Soy un estudiante de la Universidad de Skikda, en busca de un programa de cálculo
      Gracias
      0
    2. aminesoft
       
      hola porque no es valido , soy un estudiante de 2º año de informática en skikda , necesito ayuda para hacer este tp con una memoria m1 y m2
      0
    3. fifi > aminesoft
       
      Hola, también necesito este TP, edítame este mes mi correo Mail Meriem .fifi@yahoo.fr
      0
    4. Med lamine > fifi
       
      Hola
      Soy un estudiante de la Universidad de Skikda, en segundo año de informática medlamine21@hotmail.fr
      0
    5. merieming
       
      Nkolkom haja rir bouchham eli ma takadrouch tla3bo 3lh. Meriem ingénieur d'État en informatique, j'ai fini mes études universitaires.
      0
  4. holow1 Mensajes publicados 739 Estado Miembro 71
     
    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
    2
  6. ze choupinette Mensajes publicados 2 Estado Miembro
     
    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 :/
    0