Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Pascal/Turbo Pascal » necesito que me asesoren con esto

Pascal/Turbo Pascal - necesito que me asesoren con esto

Volver
Nuevo Tema
<<>>
 
Vista:

necesito que me asesoren con esto

Publicado por Ender BG (1 intervención) el 28/05/2020 23:15:47
Realice un programa en turbo pascal que muestre al usuario el siguiente menú:
1.- Menor
2.- Primo
3.- Salir del Programa
Para el control de las opciones se debe utilizar CASE y While para el control general del programa
que debe realizar lo siguiente:
- Si la opción es igual a 1 se deben capturar 3 números y determinar el menor, pero si los números
son iguales se debe indicar a través de un mensaje que los números son iguales y por lo tanto no hay
menor. Utilice While para el control de la opción
- Si la opción es igual a 3 se debe se debe capturar 1 número y determinar si es primo o no. Utilice
Repeat para el control de la opción
- Si la opción es igual a 3 se debe mostrar el mensaje “Fin del Programa… Cierre la Ventana”

1
2
3
4
5
6
7
8
9
10
11
12
Program menu;
var
 num1,num2,num3:integer
begin
repeat
clrscr;
writeln('Menu Principal');
writeln('1- menor');
writeln('2- Primo');
writeln('3- Salir del Programa');
writeln('Indique una opción: '); readln(opcion);
case opcion of

de allí no se que hacer, que me dicen, como voy?
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Val: 287
Oro
Ha mantenido su posición en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

necesito que me asesoren con esto

Publicado por dario (87 intervenciones) el 29/05/2020 06:43:08
Hola, te dejo esto espero te sirva.
Salu2.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Program menu;
uses crt;
var
	r,num,i,menor,num1,num2,num3:integer;
	primo,opcion:byte;
begin
	opcion:=0;
	while opcion < 3 do begin
		clrscr;
		writeln('Menu Principal');
		writeln('1- menor');
		writeln('2- Primo');
		writeln('3- Salir del Programa'); writeln;
		write('Indique una opción: '); readln(opcion);
		case opcion of
			1:
				begin
					writeln('Ingrese 3 numero separados por ENTER: ');
					readln(num1,num2,num3);
 
					if (num1 = num2) and (num2 = num3) then begin
						writeln('Los numeros son iguales');
						break;
					end
					else if (num1 < num2) and (num1 < num3) then
						menor:=num1
					else if (num2 < num1) and (num2 < num3) then
						menor:= num2
					else
						menor:=num3;
					writeln('El menor es ',menor);
					readln;
				end;
			2:
				begin
					primo:=0;
					write('Ingrese un numero: ');
					readln(num);
					r:=trunc(sqrt(num));
					for i:=1 to r do begin
						if num mod i = 0 then
							inc(primo);
					end;
					if primo = 1 then
						writeln('El numero es primo');
					readln;
				end;
			3:
				writeln('Fin del prgrama');
		end;
	end;
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar