Pascal/Turbo Pascal - Ayuda con un ejercicio de while

 
Vista:
sin imagen de perfil
Val: 8
Ha aumentado 1 puesto en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

Ayuda con un ejercicio de while

Publicado por Brayan (3 intervenciones) el 10/05/2019 03:37:41
Hola necesito ayuda con este programa, ya que quiero que al final me de el nombre de las personas y que me distinga entre s y S.

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
program nominawhile;
 
uses crt;
 
var
nomb,apell:string[20];
wl:char;
resul:integer;
 
begin
 clrscr;
 
	writeln('Introduzca el nombre');
		readln(nomb);
			clrscr;
 
	writeln('Introduzca el apellido');
		readln(apell);
			clrscr;
 
wl:='s';
resul:=1;
 
	writeln('Quiere seguir inscribiendo S/N');
		readln(wl);
 
while wl='s' do begin
			clrscr;
 
	writeln('Introduzca el nombre');
		readln(nomb);
			clrscr;
 
	writeln('Introduzca el apellido');
		readln(apell);
 
	writeln('Quiere seguir inscribiendo S/N');
		readln(wl);
 
resul:=resul + 1;
 
end;
 
clrscr;
 
	writeln('Las personas inscritas son: ',resul);
		writeln;
	writeln(nomb,' ',apell);
		writeln;
 
		writeln('Fin del programa');
 
	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
sin imagen de perfil
Val: 48
Ha mantenido su posición en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

Ayuda con un ejercicio de while

Publicado por dario (18 intervenciones) el 15/05/2019 06:15:22
Hola te dejo esto por si te sirve.
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
program nominawhile;
uses crt;
var
	nomb:array[1..20] of string;
	apell:array[1..20]of string;
	wl:char;
	j,i:integer;
 
begin
	wl:=' ';
	i:=0;
	clrscr;
	while (wl <> 'n') and (wl <> 'N') do begin
		inc(i);
		write('Introduzca el nombre: ');
		readln(nomb[i]);
		write('Introduzca el apellido: ');
		readln(apell[i]);
		write('Quiere seguir inscribiendo S/N: ');
		readln(wl);
	end;
 
	writeln;
	for j:=1 to i do begin
		writeln('Nombre: ',nomb[j]);
		writeln('Apellido: ',apell[j]);
	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
2
Comentar
sin imagen de perfil
Val: 8
Ha aumentado 1 puesto en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

Ayuda con un ejercicio de while

Publicado por Brayan (3 intervenciones) el 15/05/2019 13:04:25
Gracias me fue de mucha ayuda.
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