Pascal/Turbo Pascal - Array de string

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

Array de string

Publicado por Marcelo (7 intervenciones) el 30/08/2016 17:05:44
Hola a todos. Estoy empezando con Pascal. Necesito ayuda de un programa que no parece ser difícil. Esto me tira error codigo 201 o algo así. Qué hago mal??


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program p0004a5;  // Pide nombres  hasta q introduzca fin. Y dice si alguno es Pedro
uses crt;
 
const  h = 200;
 
var    n: array[1..h] of string;
       i: integer;
 
 Begin
 clrscr;
           Writeln (' Ingrese nombres, para salir: fin');
          Readln (n[i]);
           While (n[i] <> 'fin') do
           Writeln (i,' ',n[i]);
          For i:= 1 to h do
          begin
          If (n[i] = ' Pedro ') then
          Writeln (' Uno de sus amigos se llama Pedro ')
          else
          Writeln (' Ninguno de sus amigos se llama Pedro ');
         end;
         Readkey;
 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

Array de string

Publicado por dario (42 intervenciones) el 01/09/2016 16:44:53
Tu programa un poco corregido.

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
uses crt;
const
    max = 100;
var
    nombres:array[1..max] of string;
    i,x:byte;
begin
    clrscr;
    i:=1;
    repeat
        write('Ingrese nombre (terminar = fin): ');
        readln(nombres[i]);
        if nombres[i] <> 'fin' then
           inc(i);
    until nombres[i] = 'fin';
 
    for x:=1 to i do begin
        if nombres[x] = 'Pedro' then begin
            writeln('Uno de sus amigos se llama Pedro');
            break;
        end
        else begin
            writeln('Ninguno de sus amigos se llama Pedro');
            break;
        end;
    end;
    readkey;
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
Val: 5
Ha aumentado su posición en 2 puestos en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

Array de string

Publicado por Marcelo (7 intervenciones) el 01/09/2016 16:50:49
Ok,. Se ve que hacerlo con "While" no servía. Mil gracias ¡¡
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