Turbo pascal
6)While
Su
sintaxis formal es:
While <cond>
Do
<bloque>;
Si hay que colocar mas de una sentencia en While, se deben de colocar entre un Begin y un End;.
Veamos el siguiente ejemplo:
Program
Suma;
Uses
CRT;
Var
N,num,cont,suma:integer;
Begin
CLRSCR;
Write ('¿Cuantos
numeros desea ingresar?');
Readln (N);
suma:=0;
cont:=1;
While cont<=N
Do
Begin
Write ('Ingrese Numero:');
Readln (num);
suma:=suma+num;
cont:=cont+1;
End;
Writeln ('La suma total es: ',suma);
Readln;
End.
Descargar gratis los programas y compiladores necesarios para aprender a programar
¿Buscas algo?