Programación en Pascal

sentencia
condicional
{y=m1x+c1; -> x=(c1-c2)/(m2-m1)
y=m2x+c2; -> y=m1x+c1
}
program Intersec_Rectas;
var x,y,m1,m2,c1,c2:real;
begin
writeln ('Datos de la primera recta');
write ('m1= '); readln(m1);
write ('c1= '); readln(c1);
writeln ('Datos de la segunda recta');
write ('m2= '); readln(m2);
write ('c2= '); readln(c2);
lectura de
datos
if abs(m2-m1) < 0.00001 (*rectas paralelas*)
then writeln ('Rectas Paralelas, no intersectan')
else begin
x:=(c1-c2)/(m2-m1);
y:=m1*x+c1;
writeln ('Punto de intersección: (',x:4:2,',',y:4:2,')');
end;
readln;
end.
comentarios
declaración de
variables
cálculos y
salida
formateada
Bucles
En muchas ocasiones los programas repiten una serie de sentencias un número determinado o
indeterminado de veces. Por ejemplo si deseamos leer por teclado los n vértices de un
polígono, bastaría con escribir una sentencia de lectura genérica, (por ejemplo que lea el
vértice número i) y repetirla un total de n veces. Si recordamos, en seudocódigo existen los
bucles PARA-REPETIR, MIENTRAS y REPETIR-HASTA. Veremos sus modificaciones a
Pascal.
Sentencia while (Mientras)
• Sintaxis:
while expresión_lógica do
sentencia1;
• sentencia1 puese ser una sentencia compuesta, en cuyo caso se escribiría:
while expresión_lógica do
begin
conjunto se sentencias;
end;
Sentencia for (Para-Repetir)
• Utilidad: escribir menos en ciclos controlados por una variable contador.
• Es menos genérica que while, existen ciclos, que por su condición de iteración, pueden
expresarse mediante una sentencia while, pero no mediante una for.
• Sintaxis:
for vcb := valor_inicial to/downto valor_final do
sentencia1;
• Características:
1) La variable de control del bucle (vcb) no debe cambiarse dentro del bucle. Sus valores
pueden utilizarse pero no deben cambiarse. Esto es, la vcb puede aparecer en una
expresión pero no debería aparecer en la parte izquierda de una sentencia de
asignación.
2