Pascal/Turbo Pascal - programa bucle

   
Vista:

programa bucle

Publicado por Erik Napster_EPD88@hotmail.com (73 intervenciones) el 24/02/2014 11:53:52
necesito realizar un programa que utilizando una estructura repetitiva (bucle) solicite al usuario desde y hasta que número quiere presentar por pantalla
que Añada un control a este programa para asegurar que el valor final sea mayor que el inicial. En caso contrario se deberá volver a pedir los valores al usuario.
gracias de antemano
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
- Juego de la serpiente
- Radar
- Agenda

programa bucle

Publicado por ramon (2072 intervenciones) el 24/02/2014 12:25:03
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
{Espero esto sirva}
 
program repeticion;
uses
   crt;
var
  tec : boolean;
  i, num1, num2 : integer;
 
 procedure entradas;
 begin
    tec := false;
    num1 := 0;
    num2 := 0;
    clrscr;
    repeat
       write('  Entre 1. numero :');
       readln(num1);
       write('  Entre 2. numero :');
       readln(num2);
    if num1 < num2 then
     tec := true
   else
      begin
         num1 := 0;
         num2 := 0;
      end;
    until tec = true;
    clrscr;
    for i := num1 to num2 do
    writeln(i);
    readkey;
 end;
 
  begin
    entradas;
  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