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

Ayuda porfavor nose como hacer esto en pascal

Publicado por Esteban (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 clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Ayuda porfavor nose como hacer esto en pascal

Publicado por David (224 intervenciones) el 27/03/2014 19:55:34

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 clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

Ayuda porfavor nose como hacer esto en pascal

Publicado por Esteban (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

Comentar

Ayuda porfavor nose como hacer esto en pascal

Publicado por ramon (2158 intervenciones) el 28/03/2014 00:46:06

{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

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

Comentar

Ayuda porfavor nose como hacer esto en pascal

Publicado por David (224 intervenciones) el 28/03/2014 10:10:53

No sé que puede ocurrir. Probado en Turbo Pascal 7.0 funciona perfectamente.

Valora esta respuesta

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

Comentar

Ayuda porfavor nose como hacer esto en pascal

Publicado por David (224 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

Comentar

Ayuda porfavor nose como hacer esto en pascal

Publicado por David (224 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:

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

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

Comentar

4.2 tema 7

ARCHIVOS DE TEXTO