12.185 cursos gratis
8.723.930 alumnos
Facebook Twitter YouTube
Busca cursos gratis:

Introducción al lenguaje Pascal

Autor: emarinch@racsa.co.cr
Curso:
9,63/10 (8 opiniones) |40127 alumnos|Fecha publicación: 01/03/2006
Envía un mensaje al autor

Capítulo 21:

 Respuestas

Respuesta No 1.

 Program Salario;

Uses wincrt;

Var

   id_empleado,i,n : integer;

   nom_empleado : string [40];

   sal_bruto,salario_neto,tod_ded: real;

   resp : char;

Procedure calcula (var sal_brut : real);

Var

  cc_ss,b_p : real;

Begin

   cc_ss := sal_brut * 0.08;

   b_p := sal_brut * 0.01;

   tod_ded := cc_ss + b_p;

   salario_neto := sal_brut - tod_ded

End;

Begin

       i:=1;

       Write ('Digite el número de empleados a procesar: ');

       readln (n);

       While i <= n do

        begin

         clrscr;

         write ('Id. del empleado ',i,' de ',n,' : ');

         readln (id_empleado);

         write ('Nombre: ');

         readln (nom_empleado);

         write ('Salario bruto: ');

         readln (sal_bruto);

         writeln;

         calcula(sal_bruto);

         writeln;

         writeln ('El salario neto de ',nom_empleado,' es ',salario_neto:10:2);

         writeln ('Sus deducciones fueron ',tod_ded:10:2);

         writeln;

         writeln ('Presione enter para continuar...');

         readln;

         i := i+1;

       end;

End.
Respuesta No. 3.

Program sumas;

Uses wincrt;

Var i,n:integer;

Function Sumar (N : integer) : integer;

     Var suma : integer;

Begin

     Suma := 0;

     For i:= 1 to N do

       suma := suma + i;

       Sumar := Suma;

     Write ('La suma de los números del 1',' al ',n, ' es: ',suma);

     Readln;

End;

Begin

     Write ('Digite el número máximo: ');

     Readln (N);

     Sumar (N);

End.

Respuesta No. 6.

Program TestPrimos;

Uses Wincrt;

Var

            N : integer;

Function Primo (Q : integer) : boolean;

Var

            D : integer;

            P : boolean;

Begin

            If Q < 4 then

                        Primo := True

            Else

                        Begin

                             P:= True;

                             D := 2;

              While P and (D<=Q div 2) do

                        Begin

                            P := Q mod D <> 0;

                            D := D + 1

                        End;

            Primo := P

            End

End;

Begin

            Writeln ('Introduzca un entero positivo o cero para terminar: ');

            Readln (N);

            While N > 0 do

               Begin

                        If Primo (N) then

                                   Writeln (N,' es primo')

                        Else   

                                   Writeln (N,' no es primo');

                                   Writeln ('Introduzca otro entero');

                                   Readln (N);

               End;

            Writeln

End.

"AÚN EN LA ADVERSIDAD, PUEDES MANEJAR TUS PROPIAS CONDICIONES CON GARRA Y FORTALEZA. HAZLO CON LA CONVICCIÓN FIRME DEL LEÓN Y CON LA ELEGANCIA DEL ÁGUILA EN LAS ALTURAS.

Capítulo siguiente - Arreglos
Capítulo anterior - Práctica general

Nuestras novedades en tu e-mail

Escribe tu e-mail:

Al presionar "Recibir" estás dándote de alta y aceptas las condiciones legales de mailxmail

Cursos similares a Introducción al lenguaje Pascal


  • Vídeo
  • Alumnos
  • Valoración
  • Cursos
1. Introducción al lenguaje HTML
¿Te interesa entrar al mundo de la programación web ? ¡Entonces este curso de... [14/04/11]
739
Curso con video
2. Introducción al lenguaje SQL
Curso de programación, aprende el lenguaje sql que es un lenguaje de acceso a bases... [16/11/11]
131  
3. Algoritmos y lenguaje C
Este curso pretende dar a conocer las explicaciones más simples del trabajo de los... [13/01/06]
36.357  

¿Qué es mailxmail.com?|ISSN: 1699-4914|Ayuda
Publicidad|Condiciones legales de mailxmail


¿Te interesa? ¡Te enviamos gratis las novedades de Programación!