Pascal/Turbo Pascal - Error con una cuenta en programa

 
Vista:
sin imagen de perfil
Val: 2
Ha aumentado su posición en 12 puestos en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

Error con una cuenta en programa

Publicado por Felipe (1 intervención) el 07/11/2019 12:41:43
Buenas, estoy tratando de realizar el siguiente programa pero cuando ingreso el caracter negativo (-) la cuenta me da siempre como resultado 0. Aqui abajo les dejo la consigna para saber de que se trata y dicho programa.

Ejercicio: Realizar un programa que lea un carácter, que puede ser “+” (suma) o “-” (resta); si se ingresa otro carácter, debe informar un error y finalizar. Una vez leído el carácter de suma o resta, deberá leerse una secuencia de números enteros que finaliza con 0. El programa deberá aplicar la operación leída con la secuencia de números, e imprimir el resultado final. Por ejemplo:
A- Si se leé el carácter “-” y la secuencia 4 3 5 -6 0 , deberá imprimir: 2 (4 – 3 – 5 -
(-6) )
B- Si se leé el carácter “+” y la secuencia -10 5 6 -1 0, deberá imprimir 0 ( -10 + 5 +
6 + (-1) )

Programa:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
='editor_code'>
Program E9P1;
 
VAR
 nump, numn, cuentap, cuentan: integer;
 car: char;
 
BEGIN
 cuentap:=0;
 cuentan:=0;
 writeln('Ingresar el caracter + o - ...');
 read (car);
 if (car='+') then
 begin
  writeln('Ingrese un numero');
  readln(nump);
  while (nump <> 0) do
  begin
   cuentap:= nump+cuentap;
   writeln ('Ingrese un numero');
   readln (nump);
  end;
 writeln('(',cuentap,')');
 end
 else
 begin
  if (car='-') then
  begin
   writeln('Ingrese un numero');
   readln(numn);
   while (numn <> 0) do
    begin
     cuentan:= (numn)-(cuentan);
     writeln ('Ingrese un numero');
     readln (numn);
    end;
   writeln('(',cuentan,')');
  end
  else
   writeln ('Error, dato incorrecto');
 end;
readln;
readln;
END.

Si me pueden aclarar la duda seria de mucha ayuda,
Gracias!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder