Pascal/Turbo Pascal - encontar números de 0 en la secuencia

 
Vista:

encontar números de 0 en la secuencia

Publicado por Rodrigo Gutiérrez Martínez (1 intervención) el 05/05/2013 03:20:37
Hola por favor como puedo hacer los.siguientes programas en turbo pascal es urgente para hoy Gracias:
I.-De la secuencia de núm 5,3,0,2,4,4,0,0,2,3,6,0,2 se contara e imprimira el número de ceros en la secuencia .
Se utilizarán las palabras número y total para almacenar
1.-Establecer total a 0
2.¿Quedan más números a examinar?
3.Sí no hay más números, imprimir el valor de total y fin
4.Sí existen más números , ejecutar los pasos 5 a 8
5.Leer el siguiente numero y poner su valor en numero
6.sí número=0,incrementar total en 1
7.sí número incrementar<>0 ,no modificar Total
8.Saltar a pasó 2

II-Diseñar un algoritmo para encontar el factorial de un número n

1.Inicio
2.Asignar total con 1(total=1)
3.Solicitar al usuario el número para calculó de su factorial(n)
4.Asignar a total con total por n( total =total *n)
5.Asignar n el valor de n-1(n=n1)
6.Sí n es mayor que 1 a saltar al pasó 4; en caso contrario continuar
7.imprime el valor de n y de total
8. Fin
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

encontar números de 0 en la secuencia

Publicado por franco sanguedolce (32 intervenciones) el 05/05/2013 08:41:15
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
{A ver, esto.para el primer programa}
 
Program cuentacero;
 
Uses crt;
 
Var num: array Of integer;
  total,la: integer;
  i: byte;
 
 
Begin
  clrscr;
  write('Ingrese la cantidad de numeros a leer: ');
  readln(la);
  setlength(num,la);
  For i:= 1 To length(num) Do
    Begin
      write('Ingrese num ',i,': ');
      readln(num[i]);
    End;
  For i:= 1 To length(num) Do
    Begin
      If num[i]=0 Then
        total := total+1;
    End;
  write('La cantidad de 0 en la cadena es : ',total);
  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

encontar números de 0 en la secuencia

Publicado por ramon (2158 intervenciones) el 05/05/2013 19:23:50
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
54
{Espero esto sirva]
 
 program cuenta;
  {$N+}
  uses
     crt;
  CONST
   BigFact = 500;
  var
    cadena : string;
    numero, total : longint;
    nu, num : integer;
 
  procedure ceros(cad : string);
  var
    n1, cont : integer;
  begin
     cadena := cad;
     total := 0;
  for cont := 1 to length(cadena) do
  if cadena[cont] = '0' then
  total := total + 1;
  writeln(' Total De [0] = ',total);
 end;
 
 function factorial(n : integer) : extended;
 var
   t : Integer;
   e : extended;
  begin
        if n = 0 then
        e := 1
   else
       begin
          if (n > 0) and (n <= 500) then
          begin
              e := 1;
            for t := 1 to n do
            e := e * t
          end
       else
           e := 0;
       end;
        factorial := e;
    end;
 
 
 begin
     clrscr;
     ceros('5302440023602');
     nu := 80;
     writeln(' El Factorial De ',nu,' Es : ',factorial(nu):0);
     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