Cibern tica y Computaci n II

Cibernética y Computación II
Programas en Pascal


1. Realiza un programa que ejecute un saludo

Program saludo;
uses crt;
begin
textcolor(3);
gotoxy(10,10);
write('Hola Azu');
readln;
end.


2. Realiza un programa que realice una carátula

Program caratula;
uses crt;
begin
textcolor(2);
gotoxy(10,4);
write('Universidad Nacional Autónoma de México');
textcolor(3);
gotoxy(12,7);
write('Colegiode Ciencias y Humanidades');
textcolor(4);
gotoxy(14,10);
write('Cibernética y Computación II');
textcolor(5);
gotoxy(17,13);
write('Azucena Morales López');
textcolor(6);
gotoxy(30,16);
write('12/01/2014');
readln;
end.



3. Escribe un programa que realice la pregunta ¿Como te llamas?

Program pregunta;
uses crt;
var nombre:string;
begin
textcolor(2);
gotoxy(10,4);
write('Hola ¿Cómo te llamas?');
readln(nombre);
textcolor(6);
gotoxy(10,7);
write('Hola!! ',nombre);
readln;
end.


4. Realiza un cuestionario de 5 preguntas, y que al finalizar las ligue en una sola oración

Program cuestionario;
uses crt;
var nombre,edad,pasatiempo:string;
begin
textcolor(2);
gotoxy(10,4);
write('Hola ¿Cómo te llamas? ');
readln(nombre);
textcolor(3);
gotoxy(10,6);
write('¿Cuantos años tienes? ');readln(edad);
textcolor(4);
gotoxy(10,8);
write('¿Cual es tu pasatiempo favorito? ');
readln(pasatiempo);
textcolor(5);
gotoxy(10,10);
write('Hola!! ',nombre,' la edad de ',edad,' es buena aun ');
textcolor(5);
gotoxy(10,12);
write('el pasatiempo de ',pasatiempo,' se me hace muy bueno');
readln;
end.



5. Realiza un programa que ejecute la suma de dos números

Program suma;
uses crt;
var a,b,c:integer;begin
textcolor(2);
gotoxy(10,4);
write('Este programa realiza una suma');
textcolor(4);
gotoxy(10,6);
write('Dame el valor del primer numero ');
readln(a);
textcolor(6);
gotoxy(10,8);
write('Dame el valor del segundo numero ');
readln(b);
c:=a+b;
textcolor(8);
gotoxy(10,10);
write('El valor de la suma es ',c);
readln;
end.










6. Realiza un programa que ejecute la resta de dos númerosProgram resta;
uses crt;
var a,b,c:integer;
begin
textcolor(2);
gotoxy(10,4);
write('Este programa realiza una resta');
textcolor(4);
gotoxy(10,6);
write('Dame el valor del primer numero ');
readln(a);
textcolor(6);
gotoxy(10,8);
write('Dame el valor del segundo numero ');
readln(b);
c:=a-b;
textcolor(8);
gotoxy(10,10);
write('El valor de la resta es ',c);
readln;
end.

















7. Realiza unprograma que ejecute la multiplicación de dos números

Program multiplicacion;
uses crt;
var a,b,c:integer;
begin
textcolor(2);
gotoxy(10,4);
write('Este programa realiza una mutiplicación');
textcolor(4);
gotoxy(10,6);
write('Dame el valor del primer numero ');
readln(a);
textcolor(6);
gotoxy(10,8);
write('Dame el valor del segundo numero ');
readln(b);
c:=a*b;
textcolor(8);
gotoxy(10,10);
write('Elvalor de la multiplicación es ',c);
readln;
end.


















8. Realiza un programa que ejecute la división de dos números

Program division;
uses crt;
var a,b,c:real;
begin
textcolor(2);
gotoxy(10,4);
write('Este programa realiza una división');
textcolor(4);
gotoxy(10,6);
write('Dame el valor del primer numero ');
readln(a);
textcolor(6);
gotoxy(10,8);
write('Dame el valor del segundonumero ');
readln(b);
c:=a/b;
textcolor(8);
gotoxy(10,10);
write('El valor de la división es ',c:5:2);
readln;
end.

9. Realiza un programa que calcule el área de un circulo
Program area;
uses crt;
var a,r:real;
const pi=3.14159;
begin
textcolor(2);
gotoxy(10,4);
write('Este programa realiza al area de un circulo');
textcolor(4);
gotoxy(10,6);
write('Dame el valor del radio ');
readln(r);a:=pi*sqr(r);
textcolor(6);
gotoxy(10,8);
write('El valor del area es ',a:5:2);
readln;
end.

10. Ejecuta un programa que realice el promedio de tres calificaciones
Program promedio;
uses crt;
var p,c1,c2,c3:real;
Begin
gotoxy(10,5);
textcolor(3);
write('Este programa calcula el promedio de tres calificaciones');
gotoxy(10,7);
textcolor(4);
write('Dame el valor de tu primera calificación: ');
readln(c1);...