Pascal/Turbo Pascal - Ayuda con 2 ejercicios

 
Vista:
sin imagen de perfil
Val: 2
Ha aumentado su posición en 3 puestos en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

Ayuda con 2 ejercicios

Publicado por dragunx (1 intervención) el 05/05/2019 20:54:44
necesito ayuda con hacer los siguiente ejercicios utilizando IF. ya lo estuve intentando pero no me sale.

ingresar tres letras mayúsculas y mostrarlas ordenadas alfabéticamente.

Dada la medida de cada uno de los tres ángulos de un triángulo determinar e informar mediante un mensaje si pertenecen o no a un triángulo rectángulo.
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

Ayuda con 2 ejercicios

Publicado por David (200 intervenciones) el 08/05/2019 19:09:47
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
uSES crt;
 
VAR
  N : ARRAY [1..3] OF CHAR;
 
  I,J : INTEGER;
  AUX : CHAR;
  Angulos: array[1..3] of integer;
 
BEGIN
  CLRSCR;
  for i :=1 to 3 do
    begin
       writeln('Introduzca un CARACTER: ');
       readln(n[i]);
    end;
  for i :=1 to 3 do
    for j:=1 to 2 do
        if n[i]<n[j] then
          begin
           Aux:=n[i];
           n[i]:=n[j];
           n[j]:=aux
          end;
    clrscr;
for i :=1 to 3 do
  writeln(n[i]);
  {EJERCICIO 2}
      FOR I:=1 to 3 DO
        BEGIN
           wRITeLN('Introduzca un  ngulo: ');
           readln(Angulos[i]);
        END;
  if (angulos[1]<>90) and (angulos[2]<>90) and (angulos[3]<>90) then
    writeln('No es un tri ngulo rect ngulo')
  else
    if (angulos[1]=90) or (angulos[2]=90) or (angulos[3] = 90) then
      writeln('S¡ es un tri ngulo rect ngulo');
 
  readln;
 
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

Ayuda con 2 ejercicios

Publicado por Javier Villa (1 intervención) el 08/05/2019 21:27:22
Hola puedes utilizar la funcion Ord para que cada caracter te devuelva un numero, con ese numero lo puedes guardar en un arreglo dinamico poniendo el numero de elemento, el numero que te devuelve la funcion Ord, luego muestras lo que tienes en el arreglo solo las celdas que tienen datos y va te va a salir ordenado.

La funcion Ord devuelve el codigo ASCII de las letras y estas estan ordenadas alfabeticamente.

Ejemplo:

1
2
3
4
5
6
7
miVariable := 'ZGA';
miOrd1 := Ord(miVariable[1]); //-- Saco el codigo ascci de la primera letra
miArregloDinamico[miOrd1] := miVariable[1];
 
//-- Luego hago lo mismo con cada letra - puede ser con otras varibles o con un for, etc.
 
//-- Luego muestro el contenido del arreglo con un for, solo mostrando los elementos con datos

saludos.
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

Ayuda con 2 ejercicios

Publicado por David (21 intervenciones) el 09/05/2019 17:14:43
Sí y no. Me explico, según el alfabeto latino la ñ tendría que estar después de la n, pero sin embargo si codigo ascii no coincide.
ord('n') = 100
ord('ñ')=164
Por lo que si lo haces así, podría no salir ordenado en algunos casos.Para este ejercicio cmpleto si metes los caracteres o,p,ñ te dirá quye el orden correcto es ese, cuando no es así, ya que la ñ tiene un ascii mayo que la o y la p.
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