¿Cómo programar en lenguaje pascal?

Échale un vistazo

Var{Definir variable:}

Entero largo

k, m, n;

{Defina k, m, n como enteros largos, que deben ser largos o largos en C

long}

delta1, delta2

：

real;

{Definir delta1, delt12 como tipos reales}

Comenzar

{Equivalente al lado izquierdo de la llave en C}

write('k=');

{Entiendo, printf("k=");}

readln(k);

{

Ingrese k en el teclado, que debe ser scanf

}

m:=k;

{Asignar k Dar m}

while

mgt;=1

do

{Bucle while, hazlo cuando mgt; =1 Abajo}

comenzar

{El lado izquierdo de la llave nuevamente}

delta1:=sqrt(5.0*m*m 4);{ asignación}

si

(delta1-trunc(delta1))lt;1e-9

entonces

{si

delta1 menos delta1 redondeado

es menor que

1*10^(-9)

Entonces}

comenzar

{……}

n：=trunc((m delta1)/2);

{trunc se redondea, la derecha se asigna a la izquierda }

si

nlt;=k

entonces

comenzar

escribirn(m,',' ,n); halt ;

end;

{Si n es menor o igual que k, entonces genera my n}

end;

delta2:=sqrt (5.0*m*m-4);

{sqrt es la raíz cuadrada}

si

(delta2 -trunc(delta2))lt;1e- 9

luego

{Igual que arriba}

comenzar

n：=trunc ((m delta2)/2);

{Igual que arriba}

si

nlt;=k

entonces

comenzar

writeln (m, ', ', n);

fin

{Si n es menor o igual; a k, luego genera myn, lo mismo que arriba}

end;

dec(m);

{dec es disminuir m en 1 }

fin;

fin;