Pascal/Turbo Pascal - programa pascal

   
Vista:

programa pascal

Publicado por lizz (1 intervención) el 26/04/2013 05:51:49
escribir un procedimiento que invierta el contenido de n numeros enteros. El primero se vuelve el ultimo; el segundo el penultimos, etc.
Es urgente:c mi examen de programacion es mañana y si repruebo me sacan del colegio u.u
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
información
Otras secciones de LWP con contenido de Pascal/Turbo Pascal
- Código fuente de Pascal/Turbo Pascal
- Cursos de Pascal/Turbo Pascal
- Temas de Pascal/Turbo Pascal
- Chat de Pascal/Turbo Pascal
información
Códigos de Pascal/Turbo Pascal
- Radar
- Serpiente
- Juego puzzler

programa pascal

Publicado por ramon (2072 intervenciones) el 29/04/2013 13:28:07
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
{Algo como esto vale}
 
program numeros;
 uses
   crt;
 var
   num : word;
   temp, tex : string[20];
   i, error, cont : integer;
 begin
    clrscr;
    write('    Entre un numero Max 5 Cifras : ');
    readln(num);
    str(num,tex);
    i := 1;
    num := 0;
    for cont := length(tex) downto 1 do
    begin
    if tex[cont] <> ' ' then
    begin
    temp[i] := tex[cont];
    temp[0] := chr(i);
    i := i + 1;
    end;
  end;
    val(temp,num,error);
    writeln('   Elnumero Es =  ',num);
    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