ayuda, cuando compilo me aparece el error 3 y no se como corregirlo
Publicado por jose (1 intervención) el 16/07/2021 22:49:29
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
53
54
55
56
57
58
59
60
61
62
63
Program menujose;
Uses wincrt;
Var
Op:Integer;n1, n2, n3, num: Integer;
r: Real;begin
Clrscr;
Writeln('Menu Principal ');
Writeln('1. Menor de 3 Números');
Writeln('2. Raiz cuadrada');
Writeln('3. Salir del Programa');
Writeln('Seleccione una opción');
Readln(Op);
case op of
1:Begin
Clrscr;
Writeln('Ingrese primer numero:');
Readln(n1);
Writeln('Ingrese segundo numero:');
Readln(n2);
Writeln('Ingrese tercer numero:');
Readln(n3);
If (n1<n2) And (n1<n3) Then
Begin
Writeln('El menor es:',n1);
End;
If (n2<n1) And (n2<n3) Then
Begin
Writeln('El menor es:',n2);
End;
If (n3<n1) And (n3<n2) Then
Begin
Writeln('El menor es:',n3);
End;
If (n2<n1) And (n2<n3) Then
Begin
Writeln('El menor es:',n2);
End;
If (n1=n2) And (n2=n3) Then
Begin
Writeln('No hay menor, los 3 números son iguales');
End;
2:Begin
Clrscr;
Writeln('Ingrese el numero:');
Readln(num);
If (num>0) Then
r := Sqrt(num);
Writeln('La raiz cuadrada es:',r:4:2);
If (num<0) Then
Begin
Writeln('No se puede calcular la raíz cuadrada de un número negativo');
End;
3:Begin
Clrscr;
Writeln('Fin del Programa');
End;
End;
End.Valora esta pregunta
0