Pascal 11 - Bucles (1): Mientras (while). Contadores

[@juanabad2333]

Gracias!, me sirvio de mucho!.

[@ImStrangeThing]

program Raiz;
var
X: real;
---------
BEGIN
x:=0;

while x >= 0 do
Begin
write ('Ingrese un numero: ');
readln (X);
IF x

[@Nacho_Cabanes]

Imagino que es una propuesta de repuesta al primer ejercicio ;-)
La lógica es buena, aunque yo el mensaje de aviso lo pondría tras terminar de repetir, en vez de dentro del bucle.

[@ImStrangeThing]

Cierto, eso lo hace más legible. Gracias nacho :)
He estado leyendo tu curso/blog de pascal y actualmente tengo pensado hacer la mini agenda que hiciste por mi propia cuenta.

[@axelsotelo8168]

1. begin

writeln('Ingrese un numero');
readln(n);

while n >= 0 do
begin
writeln('La raiz cuadrada de ', n, ' es: ', sqrt(n):8:2);
readln(n);
if n

[@juanchiperi8731]

este es mi codigo para el segundo ejercicio, el primero se me complico bastante aunque con ayuda de los comentarios l,o pude hacer
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
program ejFinalContadorWhile;
var
i:integer;
begin
i := 2;
while i

[@Nacho_Cabanes]

Está correcto, lo tomo como "solución oficial" y lo subo a GitHub 🙂

[@Maximilianoes11]

Que es github?

[@Nacho_Cabanes]

@@Maximilianoes11 Es un "repositorio software". Es donde tienes subidos todos los ejemplos, y donde voy subiendo algunas de las soluciones aportadas por vosotros. Tienes un enlace en la descripción del video.

[@fernandoyupanqui1104]

que grande loco abz.

[@manuelgarciagarcia2501]

Muy buen tutorial.
He descubierto que en lazarus se puede hacer i += 1

[@javierjbsanchez4400]

Buenas tardes, estoy buscando como hacer un contador ya que quiero hacer un juego de preguntas y respuestas en el que por cada pregunta correcta me sume 10 puntos, alguna sugerencia? Por favor y gracias

[@Nacho_Cabanes]

Existen muchas posibles variaciones sobre esa idea. Por ejemplo, ¿siempre vas a mostrar todas las preguntas o vas a escogerlas al azar? ¿Vas a desordenar las respuestas para que sea más difícil memorizarlas de forma mecánica? ¿Siempre existirá una única respuesta correcta? Un primer planteamiento básico podría ser usar un array para las preguntas (si fuera de un array de "records" podrías usar el mismo array también para las respuestas), pero la dificultad mayor está en los pequeños detalles que pueden hacer que la forma de atacarlo sea radicalmente distinta. Sin un planteamiento más estructurado es fácil acabar haciendo algo bastante distinto de lo que tú pretendes.

[@Adrian_1345]

Program ejercicio_de_practica;
var
x : integer;
begin
writeln ('calculemos raices cuadradas continuas: ');
readln (x);
write (sqrt(x));
while x=4 do
begin
x:= 4-1;
write (sqrt(4)-1 );
writeln (' no debe ser un numero negativo');
end;
readln;
end.

[@Adrian_1345]

trate que fuera lo mas compacta posible

[@Nacho_Cabanes]

Lamento decirte que ese no está muy fino. No entiendo para qué son el 4 y el 4-1. He compartido una "solución oficial" en GitHub.

[@ramiroaraujo2561]

no logro que mi programa se ejecute bien y nose en que estoy fallando, no lee correctamente el if y nose como seria.
program raiz;
var num:integer;
begin
write('dime un numero');
readln(num);
while num >= 0 do
begin
write('Escriba otro numero');
readln(num);
write('La raiz cuadrada es ',sqrt(num));
end;
if num < 0 then
writeln('no puede ser negativo');
end.

[@Nacho_Cabanes]

La condición IF debe ir dentro del bucle WHILE, justo después de leer el dato con ReadLn.

[@edgardorianmurillocastro6158]

(* Programa calcula raices cuadradas de manera continua*)
program SquareRoot;
var
x : integer;
begin
write ('Proporciona un numero: ');
readln (x);
while x >= 0 do
begin
writeln ('La raiz cuadrada es: ', sqrt(x));
write ('Proporciona otro numero: ');
readln (x);
end;
writeln ('No se puede hallar la raiz cuadrada de un numero negativo');
end.
(* Contador de numeros pares 2 al 10*)
program PairCounter;
var
x : integer;
begin
x := 2;
while x

[@catitotv3028]

1° ejercicio:
program ej12;
uses crt;
Var
I, n1, op:Integer;
begin
WriteLn('Escriba un número') ;
Readln (n1) ;
op:=Sqr(n1);
WriteLn (op) ;
While (n1>=0) do
Begin
WriteLn('Escriba un número') ;
Readln (n1) ;
I:=1;
op:=Sqr(n1);
WriteLn (op) ;
I:=I+1;
End;
If (n1

[@TetsuyaYama525]

free pascal ide
program raiz;
var
n1 : integer;
res : real;
begin
writeln('ingresa un numero');
read(n1);
while n1 > 0 do
begin
res :=(sqrt(n1);
writeln('la raiz es: ', res);
writeln('ingresa otro dato');
read(n1);
end;
writeln('no se puede hayar la raiz de un numero negativo');
end.