Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Pascal/Turbo Pascal » programa en turbo pascal

Pascal/Turbo Pascal - programa en turbo pascal

Volver
Nuevo Tema
<<>>
 
Vista:

programa en turbo pascal

Publicado por genesis (2 intervenciones) el 24/05/2017 09:30:04
Buenas...Soy estudiante de Pnf informatica y solicito su ayuda en la materia de programacion ya que no es mi fuerte...El enunciado es el siguiente:

-Se necesita un programa en turbo pascal que solicite por teclado varios numeros,se debe mostrar por pantalla la suma de los numeros positivos y la cantidad de numeros negativos ingresados.

Este debe ser en programacion modular y debo usar el ciclo for..
Espero me sean de 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
sin imagen de perfil
Val: 287
Oro
Ha mantenido su posición en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

programa en turbo pascal

Publicado por dario (31 intervenciones) el 24/05/2017 11:00:19
Te dejo esto, espero te sirva.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses crt;
var
	num,n,i,positivos,negativos:integer;
begin
	clrscr;
	positivos:=0; negativos:=0;
	write('Cuantos numeros desea ingresar: ');
	readln(n);
 
	for i:=1 to n do begin
		write('Ingrese numero: ');
		readln(num);
		if num >=0 then
			positivos:=positivos+num
		else
			inc(negativos);
	end;
	writeln;
	writeln('Suma de numeros positivos: ',positivos);
	writeln('Cantidad de numeros negativos: ',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

programa en turbo pascal

Publicado por genesis (2 intervenciones) el 24/05/2017 20:10:45
gracias =)
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