Mas Ejercicios en Pascal

11.05.2013 14:35

 

Ejercicios en pascal

 

  1. Ejercicio aplicando vectores

program Familia;

uses crt;

var

flia: array [0..4] of string;

begin

 textbackground(red);//personalizacion de fondo de texto

 textcolor(yellow);//personalizacion de color de caracteres

 flia [0]:= 'Carlos';

 flia [1]:= 'Milagros';

 flia [2]:='Osmar';

 flia [3]:='Wiliannys';

 flia [4]:='Sarai';

 writeln ('El Nombre del 1er familiar es: ' ,flia [0]);

 writeln;//para general espacio entre lineas

 writeln ('El Nombre del 2do familiar es: ' ,flia [1]);

 writeln;//para general espacio entre lineas

 writeln ('El Nombre del 3er familiar es: ' ,flia [2]);

 writeln;//para general espacio entre lineas

 writeln ('El Nombre del 4to familiar es: ' ,flia [3]);

 writeln;//para general espacio entre lineas

 writeln ('El Nombre del 5to familiar es: ' ,flia [4]);

 writeln;//para general espacio entre lineas

 writeln ('', flia [3],' Y ',flia [4], '  Son Familias  ' );

 writeln;//para general espacio entre lineas

 writeln ('',flia [0],', ',flia [1], ', ', flia [2], ', ', flia [3], ' Y ', flia [4]);

 writeln ('Son Hermanos');//cuando uso "write" en dos lineas ambos escritos aparecen en una misma linea

 writeln; writeln;

end.

 

  1. Promedio de 8 materias:

 

program promedio_8materias;

uses crt;

 

Var

R,alumn: string;

Suma,N1,N2,N3,N4,N5,N6,N7,N8: integer;

prom: real;

 

procedure repita;

 begin

 clrscr;

 textbackground(red);

 textcolor(yellow);

 writeln ('Nombre del Alumno ');

 readln(alumn);

 writeln ('Ingrese la 1ra Nota'  );

 read (N1);

 writeln ('Ingrese la 2da Nota'  );

 readln (N2);

 writeln ('Ingrese la 3ra Nota'  );

 readln (N3);

 writeln ('Ingrese la 4ta Nota'  );

 readln (N4);

 writeln ('Ingrese la 5ta Nota'  );

 readln (N5);

 writeln ('Ingrese la 6ta Nota'  );

 readln (N6);

 writeln ('Ingrese la 7ma Nota'  );

 readln (N7);

 writeln ('Ingrese la 8va Nota'  );

 readln (N8);

 suma:=N1+N2+N3+N4+N5+N6+N7+N8;

 prom:=suma/8;

 writeln ( '',alumn,  ' TIENE EL PROMEDIO DE:   '  , prom:2:2  );

 writeln;writeln;

 end;

 begin

 repeat repita;

 Writeln( 'Desea continuar? (S/N) ');//pregunta para desicion

 Readln(R);

 until (R = 'N') or (R = 'n')

 end.

 

  1. Suma de dos números

 

program sumar_2numeros;

 

uses crt;

var

Suma,A,B: integer;

R: String;

procedure repita;

BEGIN

            clrscr;

            textbackground(red);

            textcolor(yellow);

            writeln('Introdusca el primer numero');

            readln(A);

            writeln('Introdusca el segundo numero');

            readln(B);

            suma:=A+B;

            Writeln ('El Resultado de la suma es: '  , Suma);

            end;

            begin

            repeat repita;

            Writeln( 'Desea continuar? (S/N) ');//pregunta para desicion

            Readln(R);

            until (R = 'N') or (R = 'n')

           

END.

 

  1. Promedio de 6 calificaciones

 

program prom_6Calificaciones;

 

uses crt;

var suma,prom,A,B,C,D,E,F: Real;

R: string;

procedure repita;

BEGIN

            clrscr;

            writeln('Introdusca la primera Calificacion');

            readln (A);

            writeln ('Introdusca la segunda calificacion');

            readln (B);

            writeln ('Introdusca la tercera calificacion');

            readln (C);

            writeln ('Introdusca la cuarta calificacion');

            readln (D);

            writeln ('Introdusca la quinta calificacion');

            readln (E);

            writeln ('Introdusca la sexta calificacion');

            readln (F);

            suma:=A+B+C+D+E+F;

            prom:=suma/6;

            write ('El promedio es: ' ,prom:2:2);

            writeln;writeln;

            end;

   begin

   repeat repita;

   Writeln( 'Desea continuar? (S/N) ');//pregunta para desicion

   Readln(R);

   until (R = 'N') or (R = 'n')

           

END.

 

  1. Calcula la edad, muestra nombre, año de nacimiento y edad

 

program edad;

uses crt;

var

Nom,R: string;

Nac,A,E:integer;

procedure repite;

BEGIN

textbackground(white);//personalizacion de fondo de texto

textcolor(black);//personalizacion de color de caracteres

writeln ('ESCRIBA SU NOMBRE:   ');

readln (Nom);

writeln ('ESCRIBA SU A?O DE NACIMIENTO  ');

readln (Nac);

Writeln ('ESCRIBA EL A?O ACTUAL');

readln (A);

E:=A-Nac;

writeln; writeln;

Writeln (' ' , Nom,  '  NACIO EN EL  ',Nac, '  Y TIENE  ' ,E, ' A?os' );

end;

begin

repeat repite;

    textbackground(red);//personalizacion de fondo de texto

    TextColor(10);//personalizacion de color de caracteres

            writeln; writeln;

            Writeln( 'Desea continuar? (S/N) ');//pregunta para desicion

            Readln(R);

            until (R = 'N') or (R = 'n'); end.

  1. Muestra nombre y edad (personalizado)

program edad;

uses crt;

var

Nom,R: string;

Nac,A,E:integer;

procedure repite;

BEGIN

textbackground(white);//personalizacion de fondo de texto

textcolor(black);//personalizacion de color de caracteres

writeln ('ESCRIBA SU NOMBRE:   ');

readln (Nom);

writeln ('ESCRIBA SU A?O DE NACIMIENTO  ');

readln (Nac);

Writeln ('ESCRIBA EL A?O ACTUAL');

readln (A);

E:=A-Nac;

writeln; writeln;

Writeln (' ' , Nom,  '  NACIO EN EL  ',Nac, '  Y TIENE  ' ,E, ' A?os' );

end;

begin

repeat repite;

    textbackground(red);//personalizacion de fondo de texto

    TextColor(10);//personalizacion de color de caracteres

            writeln; writeln;

            Writeln( 'Desea continuar? (S/N) ');//pregunta para desicion

            Readln(R);

            until (R = 'N') or (R = 'n');

 

end.

 

 

 

Escritos por: Carlos Cedeño

Estudiante de Sistemas e Informatica

Email: thepolice_3011@hotmail.com

Volver