LovesTheTeam.com

Necesitarás

• El entorno de programación PascalABC.NET o PascalTurbo.

Instrucciones

1

Entonces, primero, abre el programa. Crea un nuevo archivo y especifica los complementos. En este caso, necesitamos un módulo para trabajar con la consola - CRT. Para esto escribimos: usa CRT;

2

Indicamos las variables i, s, m - variables del tipo real Var i, s, m: Real;

3

Para iniciar el programa, escribiremos: begin Y especificaremos el título de la ventana de la consola: SetWindowTitle ("Cronómetro");

4

El procedimiento TextColor asigna el color del texto, yla instrucción de escritura imprime texto en la pantalla: TextColor (LightGreen); WriteLn ("Presione Enter para iniciar el cronómetro"); WriteLn ("Presione nuevamente para detener"); Escribir ("Hacer clic de nuevo para reiniciar"); El final de Ln pasa a la siguiente línea.

5

El operador ReadLn ingresa valores desde el teclado, pero en este caso simplemente espera que el usuario presione Enter: ReadLn;

6

Hacemos un ciclo infinito:while (true) do begin El while (true) do begin constructo se traduce como: While (condition) do (). La pregunta es: ¿por qué empezamos aquí? En este caso, necesitamos un operador compuesto, lo que significa que hasta ahora la condición es cierta para varios operadores. Si no hubo comienzos, después del tiempo, solo se ejecutó una declaración, lo que provocaría un mal funcionamiento del programa. Para finalizar la declaración While al final, escribiremos end.

7

Ahora restablece el contador: i: = 0;

8

La siguiente declaración se traduce como: hasta que se presiona la tecla (). mientras no esté presionado con la tecla, beginOperator ClrScr borra la pantalla: ClrScr;

9

Establecemos las condiciones: si los segundos son mayores que 60 y menores que 3600 (esto es necesario para que cuando haya más de una hora, el programa imprima solo lo que está después del tercero si) luego: if (i> 60) y (i <3600) luego comience Variable m (minutos) ) es: segundos divididos entre 60 y redondeados a la frente. m: = Int (i / 60); Y la variable s (segundos sin minutos) es: todos los segundos menos minutos multiplicados por 60. s: = i - m * 60;

10

La instrucción Write escribe cuántos minutos pasaron ysegundos, y el operador final termina el trabajo del principiante después de la condición si: Write (m, "minutes (s) and", s: 1: 2, "seconds (a / s)") end; Function: 1: 2 means esos segundos se deben escribir con dos signos después de los lugares decimales.

11

Si es menos de 60 segundos, a continuación, sólo escribo cuántos segundos han pasado desde que los dos caracteres después del punto decimal: si i <60 y Escribir ( "", i: 1: 2, "segundos (a / s)");

12

Si los segundos son más de 3600 (es decir, más de una hora), entonces:si i> 3600, entonces comienza m: = Int (i / 60); s: = i - m * 60; ch: = Int (m / 60); m: = m - ch * 60; Escriba (ch, "hora (s)", m, "minutos (s) y", s: 1: 2, "segundos (a / s)");

13

Entonces, el programa escribió que era 0 segundos,Ahora aumenta el contador i en 10 milisegundos, y como el programa ejecuta todas inmediatamente hacer para retrasar este momento: i: = i + 0,01; Retraso (10); A continuación, hacemos un extremo a Mientras el operador (no keyPressed): fin; Si el usuario pulsa la tecla Intro, el programa espera cuando introduce de nuevo la presiona para iniciar el cronómetro de nuevo: Readln; Readln; ponemos ninguna coincidencia cero el contador después de que el operador while (true), de modo que cuando el usuario hace clic una segunda vez Enter, el programa se va, con él, se restablecerá el contador y empezar la cuenta atrás hasta el fin de hacer zanovo.Dalee Mientras que para todo el programa: fin;

14

Aquí está todo el programa: usa CRT; var i: Real; s: real; m: Real; ch: Real; comience SetWindowTitle ("Cronómetro"); TextColor (LightGreen); WriteLn ("Presione Enter para iniciar el cronómetro"); WriteLn ("Presione nuevamente para detener"); Escribir ("Hacer clic de nuevo para reiniciar"); ReadLn; while (true) do begin i: = 0; mientras no esté presionado por teclado, empiece ClrScr; si (i> 60) y (i <3600) entonces comienza m: = Int (i / 60); s: = i - m * 60; Escriba (m, "minutos (s) y", s: 1: 2, "segundos (a / s)") fin; si yo <60 entonces Escribo ("", i: 1: 2, "segundos (a / s)"); si i> 3600, entonces comienza m: = Int (i / 60); s: = i - m * 60; ch: = Int (m / 60); m: = m - ch * 60; Escriba (ch, "hora (s)", m, "minutos (s) y", s: 1: 2, "segundos (s / s)"); fin; i: = i + 0.01; Retraso (10); fin; Readln; Readln; fin; fin

15

Resultó no muy agradable, ¡pero el programa funciona correctamente!

Consejo 2: Cómo escribir un programa en pascal

Pascal es uno de los lenguajes de programación más populares. Es conocido por su relativa facilidad, y en algunas escuelas ingresa a la educación general obligatoria el programa en informática y TIC. Hace que sea más fácil escribir programas que el compilador.

Necesitarás

• Paquete instalado Turbo Pascal.

Instrucciones

1

Escribir el programa en el Pascal En primer lugar, debe abrir un entorno paraprogramación. Para hacerlo, inicie el archivo Turbo.exe, que se encuentra en la carpeta con el programa instalado en el directorio bin. Luego, aparece una ventana azul, que es el editor.

2

Para implementar el programa primero debe determinar su nombre yutilizado en él por un conjunto de variables. Por ejemplo, hay una tarea para implementar la adición de dos números. En este caso, debe crear 3 variables: A, B y C, respectivamente.

3

Luego, debe determinar el tipo de variables. Además de las operaciones, solo se pueden usar números, por lo que es aconsejable asignar el tipo entero (entero).

4

Luego, debe realizar las operaciones de cálculo. En general, el programa se verá así: "Adición de programa; var A, B, C: entero; beginA: = B + C; end."

5

Ahora que el programa está escrito, lo necesitasguardar, compilar y ejecutar. El guardado se realiza seleccionando el elemento correspondiente en el menú (F10 - Archivo - Guardar). Después de eso, se abre un cuadro de diálogo, donde se le pedirá que seleccione el nombre y la ubicación del archivo. Para compilar el programa sin iniciar, es necesario mantener presionadas las teclas Alt y F9. Si la aplicación no contiene errores, Pascal mostrará el mensaje "Compilar con éxito: presione cualquier tecla". Para iniciar el programa, use la combinación de los botones Ctrl y F9. Si el programa escrito se inicia sin un mensaje de error, funciona correctamente.

Consejo 3: Cómo escribir un programa en Turbo Pascal

Pascal es el idioma más popular utilizado enprogramación. Es relativamente simple e incluso se incluye en el programa obligatorio de informática en algunas escuelas de educación general. También viene el compilador, que hace que escribir programas sea aún más fácil.

Instrucciones

1

Abra el entorno de programación para escribir el programa en pascal Para hacer esto, ejecute el archivo Turbo.exe. Está en la carpeta con el programa instalado. Después de eso, se abrirá una ventana de color azul. Este es el editor en el que tienes que escribir el programa.

2

Para realizar el programa, crea un nombre y un conjunto de variables,usado en eso Por ejemplo, si el problema es agregar dos números, entonces necesitamos crear tres variables que denoten el primer summand, el segundo summand y la suma.

3

No use letras rusas para el nombre, signossignos de puntuación o símbolos especiales (este es un lenguaje simple, y todo debe ser lo más simple posible, en latín). De lo contrario, el programa dará un error al guardar o funcionar incorrectamente como resultado.

4

Piensa en el tipo de variables. Tome la misma operación de adición. Solo se pueden usar números, así que asigne el tipo entero, es decir es un número entero.

5

Realiza la operación. En el caso de la suma, todo es simple, y para escribir programas más complejos, necesita conocer los comandos utilizados en Pascal. La operación de adición tendrá el siguiente aspecto: Adición de programa; Var A, B, C: entero: BeginA: = B + C: End.

6

Después de escribir el programa, guárdalo,compilar y ejecutar. Haga clic en Guardar seleccionando el elemento apropiado en el menú - F10 / Archivo / Guardar. Se abre una ventana donde debe seleccionar el nombre del archivo y la ruta para guardarlo. Compilar el programa, sosteniendo Alt + F9. Si la aplicación no contiene errores, el mensaje Compilación exitosa: presione cualquier tecla.

7

Ejecútalo. el programa presionando los botones Ctrl + F9. Si no recibió información de error cuando comenzó el programa, entonces funciona correctamente y usted hizo frente a la tarea.