Curso Programacion Turbo Pascal




UNIVERSIDAD CENTRAL

Carrera de Ingeniería en Informática

Curso Programacion Turbo Pascal

Tarea Programada

Realice los 10 ejecicios dados por el profesor.

Integrante:
WalterRobles Arce

Profesor:
Lic. Jonathan Hernandez Trejos.


San José, Costa Rica
Marzo, 2013
1-Se desea calcular independiente las sumas de los números pares e impares comprendidos entre 1 y 200program T2E1; (*TAREA 2 EJERCICIO 1*)
uses crt;
var contp, contimp, sp, si,n : integer;
(*Contador par, contador impar, suma_par, suma_impar, n*)
Begin
clrscr;
contp:=0; contimp:=0; si:=0; sp:=0;for n:=1 to 200 do
begin
if n mod 2 = 0 then
begin
sp:=sp+n;
contp:=contp+1;
end
else
begin
si:=si+n;
contimp:=contimp+1;
end;end;
writeln('La suma de los numeros pares es: ' ,sp);
writeln('La suma de los numeros impares es: ',si);
READKEY;

2-)Calsular y visualizar la suma y el producto de losnúmeros pares comprendidos entre 20 y 40, inclusive el 20 y el 40
program T2E2; (*TAREA 2 EJERCICIO 2*)

uses crt;
var contp, sp, n : integer;
prod: longint;
(*Contador par, suma_par,producto, n*)
Begin
clrscr;
prod:=1;
sp:=0;

for n:=20 to 40 do
begin
if n mod 2 = 0 then
begin
sp:=sp+n; prod:=prod*n;
end
else
end;writeln('La suma de los numeros pares entre 20 y 40 es: ' ,sp);
writeln('El producto de los numeros pares entre el 20 y 40 es: ' ,prod);
READKEY;

end.
3-)Calcular la suma de loscuadrados de los 100 primeros números naturales
program T2E3; (*TAREA 2 Ejercicio 3*)
uses crt;
var n: integer;
suma, cuadrado : longint;
Begin
clrscr;
for n:=1 to 100 do
Begincuadrado:=N*N;
suma:=suma+cuadrado;
end;
writeln('La suma de los cuadrados de los numeros naturales entre 1-100 es: ',suma);
readkey;
end.

4-)Calcular el promedio de 10...