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 » Ayuda :(

Pascal/Turbo Pascal - Ayuda :(

Volver
Nuevo Tema
<<>>
 
Vista:
sin imagen de perfil

Ayuda :(

Publicado por Souma (2 intervenciones) el 26/01/2014 16:49:34
Ayuda por favor :(
Creo que el problema está aquí:

1
2
3
4
5
(********)
For i:=1 to N do
Begin
min:=1;
(*********)

elprograma:

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
program Ex2;
uses WinCrt;
Type
Tab = Array [1..20] of Char;
Var
T1,T2:Tab;
i,j,min,N:integer;
Begin
Repeat
Write('N=');readln(N);
until (N in [5..20]);
For i:=1 to N do
Repeat
Write('Donner une lettre');
readln (T1[i]);
until (T1[i]in['A'..'Z']);
(********)
For i:=1 to N do
Begin
min:=1;
(*********)
For j:= 2 to N do
if (T1[j]<>'*')and(T1[j]<T1[min])then
min:=j ;
T2[i]:=T1[min]; T1[min]:='*';
end;
For i:=1 to N do
Writeln(T2[i]);
end.
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

Ayuda :(

Publicado por Rene gar (58 intervenciones) el 27/01/2014 05:52:18
explica lo que quieres hacer porque no entiendo tu codigo ya que ni lo tienes identado ni comentado
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 :(

Publicado por Souma (2 intervenciones) el 27/01/2014 08:45:05
mi programa organizará caracteres de la A a la Z sin *

http://postimg.org/image/eimw1o2vh/

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
program Ex2;
uses WinCrt;
Type
Tab = Array [1..20] of Char;
Var
T1,T2:Tab;
i,j,min,N:integer;
Begin
Repeat
Write('Numero=');readln(N);
until (N in [5..20]);
For i:=1 to N do
Repeat
Write('Escribir un personaje :');
readln (T1[i]);
until (T1[i]in['A'..'Z']);
For i:=1 to N do
Begin
min:=i;
For j:= 2 to N do
if (T1[j]<>'*')and(T1[j]<T1[min])then
min:=j ;
T2[i]:=T1[min]; T1[min]:='*';
end;
For i:=1 to N do
Writeln(T2[i]);
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
sin imagen de perfil

Ayuda :(

Publicado por Rene gar (58 intervenciones) el 27/01/2014 22:44:43
mira amigo no se si esto es lo que querias hice un programa que ordena las letras desordenas que ingreses y las ordena del menor a mayor ejemplo:
das b,c,z,a,d
y devuleve a,b,c,d,z espero que resuelva tu problema si no dime que querias

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
var
m:array[1..26]of char;
abc:string='ABCDEFGHIJKLMNOPQRSTUVWXYZ';
con:array[1..26]of char;
n,i,p,j:byte;
Begin
write('ingrese un valor: ');
readln(n);
 
if (N>=5) AND (N<=26) then
  BEGIN
     for i := 1 to n do
      begin
       write('ingrese un personaje: ');
       readln(m[i]);
       p:=pos(m[i],abc);
       if p<>0 then
        BEGIN
         con[p]:=m[i];
        END;
  end;
 
for j := 1 to 26 do
  begin
     if con[j]<>'' then
       writeln(con[J]);
  end;
END
 ELSE
  WRITELN('ERROR INGRESE UN NUMERO MAYOR 5 Y MENOR A 26');
 
 
readln;
end.

ojo para que ande sin problemas solo ingresar mayusculas si no dara fallos
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