Programas.

22 11 2011

1.- Escribir nombre en pantalla:

program nombre;
begin
  writeln (`Paco & Eric´);
End.

2.- Escribir el numero teleférico de cualquier persona.

program numero telefónico;
Begin
  writeln (`01800998080´);
End.

3.- Mostrar la dirección de cualquier persona.

program direccion;
Begin
  writeln (´calle del clavel  Esquina con calle del tulipán Colonia rosas delegación nopalera´);
End.

4.- Solicitar tu edad.

program edad;
var
n :integer;
Begin.
  writeln (´Escribe tu edad´);
  readln(n);
End.

5.- Este programa solicita la fecha de nacimiento de cualquier persona.

program fecha de nacimineto;
var
f :integer;
Begin.
  writeln (´Teclea la fecha de nacimiento por mes día y año´);
  readln (f);
End.

6.- Solicitar el grado, grupo y asignación tecnológica.

program grado grupo y taller;
var
g :integer
Begin
  writeln (´Teclea tu grado grupo y taller´);
  readln (g);
End.

7.- Calcula el área de un triangulo cualquiera.

program triangulo;
var
C, A, B :real;
Begin.
  writeln (´Introduce la base del triangulo´);
  readln (b);
  writeln (´Introduce la altura del triangulo´);
  readln (a);
  C: = B * A / 2
  readln (c);
  writeln (´El área es ´C);
End.

8.- Solicitud de año de nacimiento y devolver la edad.

program tu edad;
var
C, B, A :Real;
Begin
  writeln (`Teclea tu año de nacimiento´);
  readln (`A´);
  writeln (`Teclea el año actual´);
  readln (`B´);
  A - B = C
  readln (`Tu edad es´, C);
End.

9.- Simular un menú de 3 opciones, preguntando al usuario cual es su elección, el programa debe mostrar como resultado la opción del usuario.

Program menú;
uses crt;
var
a, b, c, d, e, f, g :integer;
Begin
clrscr;
  writeln (`Menú´);
  readln (a);
  writeln (`Programa 1´);
  readln (b);
  writeln (`Programa 2´);
  readln (`c´);
  writeln (`Programa 3´);
  readln (d);
  writeln (`Elige una opción entre:´, "b" "c" "d");
  readln (e);
  writeln (`Tu elegiste´,e);
End.

10.- El programa tendrá que dar la tabla completa del numero que el usuario tecleo.

Program tabla;
var
a, tabla, resultado :integer;
Begin
  writeln (`Teclea el numero de tabla´);
  readln (tabla);
  for i _ 1 to 10 do
  Begin
  writeln (`tabla´, `X´, i, `=´, tabla * a);
  End;
End.

Acciones

Information

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s




A %d blogueros les gusta esto: