Pascal/Turbo Pascal - Ayuda porfavor nose como hacer esto en pascal

   
Vista:

Ayuda porfavor nose como hacer esto en pascal

Publicado por Esteban striker966@hotmail.com (5 intervenciones) el 27/03/2014 06:53:34
Hola les agradecería muchísimo que me ayudaran con estos dos problemas ya que la verdad nose mucho de Free pascal

1.-Obtener la serie 1,2,4,8,16,32,64,125,256,512,1024

1.-Desarrollar un programa que lea diez edades y diga cuantos son niños, cuantos jóvenes y cuantos adultos
Ninos 12 años
jovenes 18 años
adultos 100 años
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 porfavor nose como hacer esto en pascal

Publicado por David (139 intervenciones) el 27/03/2014 19:55:34
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
Program Serie;
 
Uses CRT;
 
Var
  i,base, exponente : integer;
  resultado:real;
begin
  base:=2;
  i:=0;
  while resultado <=1024 do
  begin
    resultado:=exp(i*ln(base));
    write(resultado:5:0);
    i:=i+1;
  end;
 
  readln;
end.
 
SEGUNDO PROGRAMA:
 
Program EDADES;
 
Uses CRT;
 
Const
  TOPE = 10;
 
var
  I, EDAD, NINIOS, JOVENES, ADULTOS : Integer;
 
begin
  clrscr;
  ADULTOS:=0; JOVENES:=0; NINIOS:=0;
 
  For i:=1 to TOPE do
    begin
      gotoxy(10,10); WriTELN('EDAD: ');
      GOTOXY(17,10); CLREOL; READLN(EDAD);
      CASE EDAD OF
         0..12 : NINIOS:=NINIOS+1;
         13..18 : JOVENES :=JOVENES+1;
         19..100 : ADULTOS:=ADULTOS+1;
      END;
    end;
    Writeln('ADULTOS: ',ADULTOS,'     JOVENES: ',JOVENES,'     NI¥OS: ',NINIOS);
    READLN;
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

Ayuda porfavor nose como hacer esto en pascal

Publicado por Esteban striker966@hotmail.com (5 intervenciones) el 28/03/2014 00:43:25
Muchas gracias me ayudaste muchisimo pero el primer programa me sale que esto es error

resultado:=exp(i*ln(base));

MUCHAS GRACIAS ENCERIO MUCHISIMAS 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

Ayuda porfavor nose como hacer esto en pascal

Publicado por ramon (2072 intervenciones) el 28/03/2014 00:46:06
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
55
56
57
58
59
60
61
62
63
64
{Mira esto}
 
program edades_series;
  uses
     crt;
  const
     ninos = 12;
     joven = 18;
     adult = 100;
  var
    edad : array[1..10] of integer;
    cont : integer;
 
  procedure serie;
  var
    seri : integer;
  begin
     seri := 1;
   repeat
       write(' ',seri);
       seri := seri + seri;
   until seri > 1024;
   writeln;
   writeln('  Pulse Una Tecla');
  end;
 
  procedure edades;
  var
    n, j, a : integer;
  begin
     cont := 1;
     n := 1;
     j := 1;
     a := 1;
   while cont < 11 do
   begin
      write('  Edad ',cont,' : ');
      readln(edad[cont]);
      cont := cont + 1;
   end;
    for cont := 1 to 10 do
    begin
       if edad[cont] <= ninos then
       n := n + 1;
       if (edad[cont] > ninos) and (edad[cont] <= joven) then
       j := j + 1;
       if edad[cont] > joven then
       a := a + 1;
    end;
     clrscr;
     writeln('  Total Ni¤os   = ',n - 1);
     writeln('  Total Jovenes = ',j - 1);
     writeln('  Total Adultos = ',a - 1);
     writeln;
     writeln('  Pulse Una Tecla');
     readkey;
  end;
 
  begin
     clrscr;
     serie;
     readkey;
     edades;
  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

Ayuda porfavor nose como hacer esto en pascal

Publicado por Esteban (5 intervenciones) el 28/03/2014 00:50:53
Muchas gracias amigo el segundo esta resuelto pero tengo unos problemitas con el primero gracias por responder
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 porfavor nose como hacer esto en pascal

Publicado por David (139 intervenciones) el 28/03/2014 10:10:53
No sé que puede ocurrir. Probado en Turbo Pascal 7.0 funciona perfectamente.
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 porfavor nose como hacer esto en pascal

Publicado por Esteban (5 intervenciones) el 28/03/2014 22:50:14
talves sea que estoy usando el free pascal
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 porfavor nose como hacer esto en pascal

Publicado por David (139 intervenciones) el 29/03/2014 11:43:24
Se me escapa que puede ocurrir. Probado con free pascal 2.6, también funciona.
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 porfavor nose como hacer esto en pascal

Publicado por David (139 intervenciones) el 31/03/2014 22:03:24
Si utilizas free pascal una forma sencilla de hacer el programa de la serie es usar la función power:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Uses CRT,MATH;
 
Var
  i,base, exponente : integer;
  resultado:real;
begin
 
  base:=2;
  i:=0;
  resultado:=0;
  while resultado<1024 do
  begin
    resultado:=power(base,i);
    writeln(resultado:2:0);
  i:=i+1;
  end;
 
  readln;
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

Ayuda porfavor nose como hacer esto en pascal

Publicado por Esteban (5 intervenciones) el 05/04/2014 02:57:05
Gracias amigo me ayudaste muchisimo
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