Pascal/Turbo Pascal - ayuda con este programa plss

   
Vista:

ayuda con este programa plss

Publicado por smith (1 intervención) el 29/07/2014 16:19:34
el programa tiene algunos errores y necesito pasar todo para array gracias!!
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
program asdf;
var
a,i,d,c:integer;
b:string;
f:char;
 
 
 
begin
repeat
writeln('introducir numero de alumnos');
readln(a);
 
                     i:=1;
                     if a<6 then
                     begin
 
                     repeat
 
                     writeln('escribe nombre de alumno' ,i);
                     readln(b);
                     writeln('escriba edad de alumno' ,i);
                     readln(c);
 
                     if c<18 then
                     begin
                     writeln('alumno',i,': ' ,b,' edad ' ,c, ' menor');
                     readln;
                     end;
                     if c>18 then
                     begin
                     writeln('alumno',i,' : ' ,b,' edad ' ,c, ' mayor');
                     readln;
                     end;
                     i:=i+1;
                     UNTIL i=a;
                     end
                     else
 
                     writeln('error presione enter e introduzca un numero entre 1 y 5');
                     readln;
 
                     writeln('desea contiunar? Si(S) / No (N)');
                     Readln(f);
                     until (f<>'s') and (f<>'S');
                     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

ayuda con este programa plss

Publicado por Rene Gar (58 intervenciones) el 31/07/2014 03:28:28
Explica que es lo que quieres hacer para ayudarte e inclusive tratar de simplificar tu programa 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