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 » Aplicación de Ciclos en Pascal

Pascal/Turbo Pascal - Aplicación de Ciclos en Pascal

Volver
Nuevo Tema
<<>>
 
Vista:

Aplicación de Ciclos en Pascal

Publicado por Madeline (1 intervención) el 29/08/2016 02:38:51
1. Realizar un programa que muestre la siguiente secuencia de números: 3 7 15 31 63 127
2. Realizar un programa que muestre la siguiente secuencia de números: 1 4 19 364
3. Realizar un programa de una secuencia numérica que usted debe crear
4. Realizar un programa de una secuencia numérica que realice la operación 3*X – 2elevado a la 2, iniciando la
secuencia en 3, mostrar 4 números.

Necesito ayuda, muchas gracias! :D
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

Aplicación de Ciclos en Pascal

Publicado por dario (42 intervenciones) el 29/08/2016 08:36:26
Te dejo esto haber si te sirve

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
{Ejercicio Nro 1}
uses crt;
var
    n,i:integer;
    r,x:longint;
begin
    clrscr;
    x:=1;
    write('Cuantos numeros tiene la serie: ');
    readln(n);
    writeln;
    writeln('Creando la serie.....');
    for i:=1 to n do
    begin
        r:=x*2+1;
        x:=r;
        write(r,' ');
    end;
    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

Aplicación de Ciclos en Pascal

Publicado por dario (42 intervenciones) el 29/08/2016 09:09:04
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
{Ejercicio Nro 2}
uses crt;
var
    n,i:integer;
    r,x:longint;
begin
    clrscr;
    x:=1;
    write('Cuantos numeros tiene la serie: ');
    readln(n);
    writeln;
    writeln('Creando la serie.....');
    write(x,' ');
    for i:=1 to n-1 do
    begin
        r:=sqr(x)+3;
        x:=r;
        write(r,' ');
    end;
    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

Aplicación de Ciclos en Pascal

Publicado por dario (42 intervenciones) el 29/08/2016 09:09:50
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
{Ejercicio Nro 4}
uses crt;
var
    a,n,i,m:integer;
begin
    clrscr;
    write('Numero inicial de la serie: ');
    readln(n);
    write('Numero final de la serie: ');
    readln(m);
    writeln;
    writeln('Creando la serie.....');
    for i:=n to m do
    begin
        a:=3*i-sqr(2);
        write(a,' ');
    end;
    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

Aplicación de Ciclos en Pascal

Publicado por dario (42 intervenciones) el 29/08/2016 09:10:29
El ejercicio Nro 3 te lo dejo a tu criterio.
Saludos.
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