Pascal/Turbo Pascal - AYUDA CON EJERCICIO DE PASCAL URGENTEEEE

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

AYUDA CON EJERCICIO DE PASCAL URGENTEEEE

Publicado por poter (8 intervenciones) el 03/08/2018 08:08:47
Hola buenas noches/madrugadas porfavor nesecito su ayuda para que me ayuden corrigiendo un codigo que tengo un pequeño error nesecito que me sume los numeros positivos y negativos con case ya lo tengo todo armado pero no se como hacer esa ultima parte Si alguien puede aportar algo lo nesecito para mañana antes de las 10am porfavor.
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
45
46
47
48
49
50
51
52
53
{Elaborar un programa en pascal que use la sentencia "FOR"}
{para introducir 10 numeros continuos y sume los positivos}
{con positivos y negativos con negativos. luego usar la sentencia}
{"CASE" para seleccionar 1 de las operaciones algebraicas}
{(Suma, Resta, Multiplicación o División), y mostrar por pantalla}
{la suma y resultado de los numeros positivos y la suma}
{y resultado de los numeros negativos}
 
program ejercicio_2;
uses wincrt;
var
	positivos:integer;
	negativos:integer;
        a,b,c,d:integer;
	i,num:integer;
        s:real;
	opc,n1,n2:integer;
 
begin
	clrscr;
	positivos:=0;
	negativos:=0;
 
	for i:=1 to 10 do begin
		write('Ingrese un numero entero: ');
		readln(num);
 
		if num >= 0 then
			positivos:=positivos + num;
			negativos:=negativos + num;
 
        end;
        writeln('La suma de los positivos es: ',positivos);
	writeln('La suma de los negativos es: ',negativos);
 
       begin
  writeln('Que operacion desea realizar');
   write('1=suma, 2=resta, 3=multiplicacion, 4=division: ');
      readln(opc);
      positivos:= a + b;
	negativos:= c + d;
      case opc of
                1:
			begin
				s:= a + b;
				writeln('La suma de los numeros positivos es : ',s:4:4);
                                s:= c + d;
                                writeln('La suma de los numeros negativos es : ',s:4:4);
                         end;
 
 end;
 end;
end.
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
sin imagen de perfil
Val: 69
Oro
Ha mantenido su posición en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

AYUDA CON EJERCICIO DE PASCAL URGENTEEEE

Publicado por Dario (23 intervenciones) el 03/08/2018 15:55:12
Hola, no entiendo bien tu codigo. Podrias poner un ejemplo de lo que quieres.
Salu2.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

AYUDA CON EJERCICIO DE PASCAL URGENTEEEE

Publicado por Poter (6 intervenciones) el 03/08/2018 18:09:20
Lo que me piden esque haga un programa que sume los positivos con positivos y Etc y después que haga lo mismo con el case, entonces yo lo estuve intentando pero cuando voy a sumar con el case me da 0 alguna ayuda o consejo o algo que le falte a mi código?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 69
Oro
Ha mantenido su posición en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

AYUDA CON EJERCICIO DE PASCAL URGENTEEEE

Publicado por dario (23 intervenciones) el 04/08/2018 16:15:10
Hola de nuevo, lo que no entiendo es que hacer en el CASE. Lo que entiendo es lo siguiente:
Si la opcion = 1, debe pedir 2 numeros a sumar o hay que sumar los 10 numeros ingresados en el FOR.
Luego si la opcion = 2 hay que restar 2 numeros o hay que restar los 10 numeros ingresados en el FOR.
Y asi con la opcion 3 y 4.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

AYUDA CON EJERCICIO DE PASCAL URGENTEEEE

Publicado por Poter (6 intervenciones) el 04/08/2018 18:20:05
Lo que nesecito que haga el case esque sume positivos con positivos y negativos con negativos más nada por eso había creado los valores a+b y c+d pero no funciono. Alguna solución?

Creo que tu idea tiene sentido con lo que nesecito podrías pasarme el código para ver como resulta?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 69
Oro
Ha mantenido su posición en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

AYUDA CON EJERCICIO DE PASCAL URGENTEEEE

Publicado por dario (23 intervenciones) el 05/08/2018 06:08:36
Hola, este programa hace lo que quieres, en un case suma los positivos y en otro case suma los negativos.
Eso es lo que quieres.
Salu2.

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
uses crt;
var
	positivos:integer;
	negativos:integer;
	opc,i,num:integer;
begin
	clrscr;
	positivos:=0;
	negativos:=0;
 
	for i:=1 to 5 do begin
		write('Ingrese un numero entero: ');
		readln(num);
 
		if num >= 0 then
			opc:=1
		else
			opc:=2;
 
		case opc of
			1:
				positivos:=positivos+num;
			2:
				negativos:=negativos+num;
		end;
	end;
 
    writeln; writeln('La suma de los positivos es: ',positivos);
    writeln('La suma de los negativos es: ',negativos);
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 6
Ha disminuido su posición en 5 puestos en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

AYUDA CON EJERCICIO DE PASCAL URGENTEEEE

Publicado por poter (8 intervenciones) el 05/08/2018 19:21:25
Muchas gracias Bro gracias por el apoyo.
Salu2.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar