• Viernes 15 de Noviembre de 2024, 23:49

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - morales99

Páginas: [1]
1
Pascal / Re:por favor.tengo varios errores
« en: Domingo 3 de Septiembre de 2017, 22:22 »
Alguien que pueda ayudarme? me marca errores (13,6) Fatal: syntax error, "." expected but ";" found
Program Suma_resta_multiplicacion_divicion;
uses crt;
var
x: Integer;
begin
  clrscr;
  write('Preciona  EZ para sumar, P2 para restar, C3 para multiplicar o V4 si decea dividir');
  if X=EZ then
  write('Dame dos numeros:')
  read (C4,F5)
  O3:=(C4+F5)
  read (O3)
  write ('El resultado es:',O3)
  end;
  else
  if X=P2  then
  write ('Dame dos numeros')
  read (Y3,Q9)
   W1:=(Y3-Q9)
   write ('El resultado es:',W1)
   end;
   else
   if X=C3 then
   write ('Dame dos numeros')
   read(M5,B2)
   L6:=(M5*B2)
   write ('El resultado es:',L6)
   end;
   else
   if X=V4 then
   write ('Damedos numeros')
   read(U4,K3)
   L12:=(U4/K3)
   write ('El resultado es:',L12)
   end.



Páginas: [1]