Tuto Pascal 2 hecho for my!!

Ya lo habia posteado pero lo perdi bueno ak esta devuelta.


condicional:
while: la estructura while controla la sentencia al comienzo de la ejecucion, si tu ciclo debe continuar dependiendo de un dato de entrada es conbeniente usar while. por ejemplo.

supongamos que se nos pide un programa que sauqe el promedio de edades ingresadas y si la edad ingresada es negativa el programa debe terminar.

program promedioT;
uses
crt;
var
suma,conta,edad:integer;
promedio:real;
begin
conta:=0;
suma:=0;
promedio:=0;
clrscr;
writeln('Ingrese la edad (si la edad es negativa el programa terminara)');
readln(edad);
while edad >0 do
begin
conta:=conta+1;//esto es un contador
suma:=suma+edad;//esto es un acumulador
writeln('ingrese la edad');
readln(edad);//si queremos que el ciclo se repita tenemos que hacer el ingreso de datos una vez más
end;
clrscr;
promedio:=suma/conta;
writeln('el promedio de edad es: ',promedio:10:2);
readkey;
end.

Condicional repeat: La estructura repeat creara un ciclo que se ejecutara dependiendo de una varible de salida (es decir el contrario al while).
Supongamos que se nos da un programa y queremos comprabar consistencia (es decir que el dato ingresado sea correcto
program hola;
uses
crt;
var
edad:integer;
begin
clrscr;
writeln('ingrese la edad (el programa no continuara si la edad no se encuentra entre 5 y 23)');
repeat
readln(edad);
until(edad>=5) and (edad<=23);
writeln('su edad es:',edad);
readkey;
end.
Tambien podemos hacer que el programa se repita si la persona lo desea.

program hola2;
uses
crt;
var
edad:integer;
conti:char;
begin
repeat
clrscr;
writeln('ingrese la edad');
readln(edad);
writeln('su edad es:', edad);
writeln('desea continuar s/n?');
readln(conti);
until(conti='n') or (conti='N');
end.


Condicional FOR: rara vez lo usaran ya que el mismo solo se usa si conoces la cantidad de veces que quieres repetir el ciclo.

ejemplo tenemos que repetir una pregunta para una encuesta 10 veces (pd: no hare todo el programa solo el pedaso que nos interes)

for pregunta:= 1 to 10 do
begin
"sentencias"
end;//for

Repetira el proceso 10 veces "1 to 10 do" puedes haerlo decreciente "10 downto 1 do"


Espero que les sirva!!!!!!!!