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
0