Pascal/Turbo Pascal - Ayuda con ESTRUCTURA DE ITERACION

   
Vista:
Imágen de perfil de Francisco

Ayuda con ESTRUCTURA DE ITERACION

Publicado por Francisco (9 intervenciones) el 26/04/2015 19:22:20
Hola a todos,
Estoy en primer año de Ing en Sist y no encuentro la forma de resolver este ejercicio. En lo posible si alguno me pudiera ayudar con el Diagrama de Chaplin y la forma de programarlo en pascal, se lo agradeceria. Gracias!

*Ingresando una sucesión de 300 números enteros, determinar la cantidad de números positivos que hay en ella
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

Ayuda con ESTRUCTURA DE ITERACION

Publicado por Juan López (10 intervenciones) el 27/04/2015 23:55:17
Buenas Francisco

Yo te doy la idea y después la programas. Hallar si un número es positivo es tan fácil como ver si es >=0. En cuanto a la sucesión de números si no los entras por teclado estarán en algún array es cuestión de ir leyéndolos desde ahí.

Un saludo
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 ESTRUCTURA DE ITERACION

Publicado por ramon (2072 intervenciones) el 28/04/2015 22:11:31
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
{Mira el resto te lo dejo a ti }
 
program losnumeros;
  uses
     crt;
  var
    num : array[1..300] of integer;
    cont, t, h : integer;
    esta : boolean;
 
  begin
     clrscr;
     fillchar(num,sizeof(num),0);
     randomize;
     cont := 1;
     esta := false;
   repeat
      h := random(900) + 1;
      for t := 1 to cont do
      if num[t] = h then
      esta := true;
      if esta = false then
      begin
      num[cont] := h;
      cont := cont + 1;
      end
    else
      esta := false;
   until cont > 300;
   h := 1;
   cont := 0;
   for t := 1 to 300 do
   if num[t] mod 2 = 0 then
   begin
     write('  ',num[t]);
     cont := cont + 1;
     h := h + 1;
     if h > 15 then
     begin
        h := 1;
        writeln;
     end;
   end;
   writeln;
   writeln('  Numeros Entrados son 300 Los Numeros Positivos son = ',cont);
   readkey;
  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