Necesito ayuda con un programa en lenguaje Pascal

Tengo una duda con el siguiente programa, específicamente se trata de ingresar 3 números, donde si n1 es mayor a n2 los reste, si n1 es menor a n2, los sume, y si son iguales los multiplique, el problema esta en que cuando ingreso los números iguales, me los suma y multiplica, estoy recién en esto, abajo va el programa escrito.
Gracias.
program ejer2guia;
uses
wincrt;
var
N1,N2,rest,mult,sum:integer;
resp:char;
begin
resp:='s';
while (resp='S') or(resp='s') do
begin
writeln('INGRESE N1:');
readln(N1);
writeln('INGRESE N2:');
readln(N2);
if N1>N2 then
begin
rest:=N1-N2;
writeln('LA DIFERENCIA ENTRE N1 Y N2 ES:',rest);
end
else
begin
sum:=N1+N2;
writeln('LA SUMA ENTRE N1 Y N2 ES:',sum);
end;
if N1=N2 then
begin
mult:=N1*N2;
writeln('LA MULTIPLICACION ENTRE N1 Y N2 ES:',mult);
end;
writeln ('');
writeln ('');
writeln('DESEA SEGUIR INGRESANDO MAS DATOS:(S/N)');
readln(resp);
end
end.

1 Respuesta

Respuesta
1
El problema esta en que deberías de comparar si son iguales primero, porque si pones primero la comparación de " If n1>n2 then" e ingresas dos números iguales pascal dirá que n1 no es mayor a n2, en consecuencia la siguiente linea en ejecutarse sería el Else es por eso que lo suma y luego en el segundo if que es el "if n1= n2 then" pues dirá que es verdad y también lo multiplicara.
Para mayor aclaración te incluyo como seria la forma correcta de ordenarlo al código:
{1º CON IF ANIDADOS}
program ejer2guia;
uses
wincrt;
var
n1,N2:Integer;
rest,mult,sum:integer;
resp:char;
begin
resp:='s';
while ucase(resp)='S' do
begin
writeln('INGRESE N1:');
readln(N1);
writeln('INGRESE N2:');
readln(N2);
if n1 = n2 then
begin
mult:=n1*n2;
write(?la multip:?,mult);
end
else
if N1>N2 then
begin
rest:=N1-N2;
writeln('resta:',rest);
end
else
begin
sum:=N1+N2;
writeln('SUMA:',sum);
end;
writeln ('');
writeln ('');
write('desea seguir s/n ');
readln(resp);
end;
end.
{OTRA MANERA SERIA CON LOS IF SIN ANIDAR OSEA INDEPENDIENTES}
program ejer2guia;
uses
wincrt;
var
n1,N2:Integer;
rest,mult,sum:integer;
resp:char;
begin
resp:='s';
while ucase(resp)='S' do
begin
writeln('INGRESE N1:');
readln(N1);
writeln('INGRESE N2:');
readln(N2);
if n1 = n2 then
begin
mult:=n1*n2;
write(?la multip:?,mult);
end;
if N1>N2 then
begin
rest:=N1-N2;
writeln('resta:',rest);
end
if n1 <n2 then
begin
sum:=N1+N2;
writeln('SUMA:',sum);
end;
writeln ('');
writeln ('');
write('desea seguir s/n ');
readln(resp);
end;
end.
Bueno esta es tu respuesta espero no haberme equivocado pues no lo he hecho en pascal pero espero que no tenga ningún fallo.
No se si lo sepas pero aun así te lo aclaro el "Ucase" es para pasar una letra de minúscula a mayúscula y si esta en mayúscula no le hace nada.
Pues ya sabes puedes consultarme cualquier otra cosa cuando lo necesites..
Pd. No te olvides de calificar y finalizar la pregunta

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Como utilizar lenguaje ensamblador con pascal

Quisiera saber sobre programación híbrida. Como utilizar lenguaje ensamblador con pascal. Y como utilizar macros en lenguaje ensamblador. Si alguien sabe. Por favor díganme, necesito saber sobre este tema
2 respuestas

Establecer varios máximos o mínimos en Pascal

Estoy en mi primer año de Ingeniería Informática y necesito ayuda para identificar y comparar máximos y mínimos (más de uno). Por ejemplo, me dan una lista (es decir, dispongo de ella) con distintos valores (enteros, reales, lo que fuera) y creo un...
1 respuesta

Eliminar repetidos secuenciales en un array

Quería saber como podría solucionar el siguiente programita: Como eliminar de un arreglo de enteros los elementos que aparezcan repetidos secuencialmente, dejando solo los primeros de la secuencia A1=111 2 1 5 66 Aresultante = 1 2 1 5 6 Me gustaría...
1 respuesta

¿Alguien me podría ayudar con pascal?

Tengo un problema con un ejercicio de pascal, no lo entiendo y no se como sacar lo que me pide. Desearía un poco de ayuda por parte de los expertos, en fin el ejercicio dice así: ""Diseñar un algoritmo que lea un arreglo bidimensional de datos...
1 respuesta

Estoy aprendiendo a programar en Pascal y me he encontrado con un pequeño problema

Quizá este muy usada la frese, pero estoy aprendiendo a usar pascal y me he encontrado con un pequeño problema, ojala me ayudes a resolverlo. Deseo convertir grados Celsius a Fahrenheit y viceversa mediante un programa, he realizado este código pero...
1 respuesta

Ayuda pascal

¿Una preguntica tu de casualidad has llegado a programar un sudoku en pascal?
1 respuesta

Duda pascal... Carga de archivo

Otra vez... Mira esta vez vengo a preguntarte si yo hago un block de notas y lo cargo a pascal (por la carga de archivo)... Pascal me imprime por pantalla lo que yo tengo en el block Ejemplo ¿Tengo en el block de notas la palabra HOLA... Y lo...
1 respuesta

Una duda con las matrices en pascal

Mi problema esta en como puedo hacer para que un usuario me pida una matriz NxM y el programa me la llene automáticamente... También puede ser que el usuario la llene pero me interesa más que la llene el programa por si solo Osea cual es la...
2 respuestas

Otra duda con las matrices

Otra vez con otra duda con las matrices de pascal esta vez necesito saber como recorrer una matriz... Pero solamente las columnas impares... Partiendo de un punto que el usuario ingresa por pantalla A los números que introduce el usuario los llame...
1 respuesta

Árbol binario en pascal

Como estas, soy nuevo acá, me cree la cuenta ayer así que no se bien como es esto pero bueno, pasemos al pedido. Necesitaría hacer una unidad en pascal de un árbol binario con sus funciones y procedimientos como insertar, ver (preorden, inorden,...
1 respuesta