LovesTheTeam.com

Du brauchst

• Die Programmierumgebung PascalABC.NET oder PascalTurbo.

Anleitung

1

Öffnen Sie also zunächst das Programm. Erstellen Sie eine neue Datei und geben Sie die Plugins an. In diesem Fall benötigen wir ein Modul, um mit der Konsole zu arbeiten - CRT Dazu schreiben wir: verwendet CRT;

2

Wir geben die Variablen i, s, m - Variablen des realen Typs an: Var i, s, m: Real;

3

Um das Programm zu starten, schreiben wir: begin Und geben Sie den Konsolenfenstertitel an: SetWindowTitle ("Stopwatch");

4

Die TextColor-Prozedur weist die Farbe des Textes zu undDie Write-Anweisung gibt Text auf dem Bildschirm aus: TextColor (LightGreen); WriteLn ("Drücken Sie die Eingabetaste, um die Stoppuhr zu starten"); WriteLn ("Erneut drücken, um zu stoppen"); Schreiben ("Erneut klicken, um neu zu starten") Das Ende von Ln wird in die nächste Zeile verschoben.

5

Der Operator ReadLn gibt Werte über die Tastatur ein. In diesem Fall wartet er jedoch einfach darauf, dass der Benutzer die Eingabetaste drückt: ReadLn;

6

Wir machen eine Endlosschleife:while (true) beginnt Das while (true) do begin Konstrukt wird wie folgt übersetzt: While (Bedingung) do (). Die Frage ist, warum fangen wir hier an? In diesem Fall benötigen wir einen zusammengesetzten Operator, was bedeutet, dass die Bedingung bisher für mehrere Operatoren gilt. Wenn es keine Anfänge gab, dann wurde nach der While nur eine Anweisung ausgeführt, was zu einer Fehlfunktion des Programms führen würde. Um die While-Anweisung am Ende zu beenden, schreiben wir end.

7

Setzen Sie nun den Zähler zurück: i: = 0;

8

Die folgende Anweisung bedeutet: bis die Taste gedrückt wird (). Wenn nicht geklickt wird, wird beginOperator ClrScr den Bildschirm löschen: ClrScr;

9

Wir haben die Bedingungen festgelegt: wenn die Sekunden größer als 60 und kleiner als 3600 sind (dies ist notwendig, damit bei mehr als einer Stunde das Programm nur das nach dem dritten if ausgibt), dann: if (i> 60) und (i <3600) dann beginnt Variable m (Minuten) ) ist: Sekunden durch 60 geteilt und auf die Stirn gerundet. m: Int (i / 60); Und die Variable s (Sekunden ohne Minuten) ist: alle Sekunden minus Minuten multipliziert mit 60. s: = i - m * 60;

10

Die Write-Anweisung schreibt, wie viele Minuten vergangen sind undSekunden, und der Endoperator beendet die Arbeit des Anfängers nach der Bedingung if: Write (m, "minutes (s) and", s: 1: 2, "seconds (a / s)") end; Funktion: 1: 2 bedeutet Diese Sekunden sollten mit zwei Zeichen nach den Dezimalstellen geschrieben werden.

11

Wenn Sekunden kleiner als 60 sind, schreiben Sie einfach, wie viele Sekunden mit zwei Dezimalstellen vergangen sind: Wenn i <60 ist, schreiben Sie ("", i: 1: 2, "Sekunden (a / s)");

12

Wenn die Sekunden mehr als 3600 sind (also mehr als eine Stunde), dann:wenn i> 3600, dann fange ich an m: = Int (i / 60); s: = i - m * 60; ch: = Int (m / 60); m: = m - ch * 60; Schreiben (ch, "Stunde (n)", m, "Minuten (s) und", s: 1: 2, "Sekunden (a / s)"); end;

13

Also, das Programm schrieb, dass es 0 Sekunden war,Nun erhöht den Zähler i um 10 Millisekunden, und da das Programm alle sofort tun, führt diese Zeit zu verzögern: i: = i + 0,01; Verzögerung (10); Als nächstes machen wir ein Ende Während der Bediener (nicht keypressed): Ende, wenn der Benutzer die Taste drückt Enter, das Programm wartet, wenn er sie wieder drückt wieder die Stoppuhr zu starten: Readln; Readln, wir setzen kein Zufall, den Zähler nach dem Operator zurückgesetzt Während (true), so dass, wenn der Benutzer ein zweites Mal klickt eingeben, wird das Programm gehen Sie einfach mit ihm, wird der Zähler zurückgesetzt und der Countdown bis zum Ende tun zanovo.Dalee beginnen Während für das gesamte Programm: Ende;

14

Hier ist das ganze Programm: verwendet CRT; var i: Echt; s: Echt; m: Real; ch: Tatsächlicher; beginnen SetWindowTitle ( "Stoppuhr"); Textfarbe (Hellgrün); WriteLn ("Drücken Sie die Eingabetaste, um die Stoppuhr zu starten"); WriteLn ("Erneut drücken, um zu stoppen"); Schreiben ("Klicken Sie erneut, um neu zu starten"); LesenLn; while (wahr) fange i: = 0 an; während nicht beginnen ClrScr keypressed; if (i> 60) und (i <3600), dann beginnen m: = Int (i / 60); s: = i - m * 60; Schreiben (m, "min (a / s) und" s: 1: 2 "Sekunden (a / s)") Ende; wenn i <60 dann schreiben ( "", i: 1: 2 "Sekunden (a / s)"); wenn i> 3600, dann fange ich an m: = Int (i / 60); s: = i - m * 60; ch: = Int (m / 60); m: = m - ch * 60; Schreiben (ch, "h (a / s)", m "min (a / s) und" s: 1: 2 "Sekunden (a / s)"); Ende; i: = i + 0,01; Verzögerung (10); Ende; Lesen; Lesen; Ende, Ende.

15

Es hat sich nicht sehr gut herausgestellt, aber das Programm funktioniert richtig!

Tipp 2: Wie schreibe ich ein Programm auf Pascal

Pascal ist eine der beliebtesten Programmiersprachen. Er ist bekannt für seine relative Leichtigkeit, und in einigen Schulen tritt er in die obligatorische Allgemeinbildung ein. das Programm Informatik und IKT. Es erleichtert das Schreiben von Programmen, die der Compiler mit sich bringt.

Du brauchst

• Installiertes Paket Turbo Pascal.

Anleitung

1

Schreiben das Programm auf der Pascal Zuerst müssen Sie eine Umgebung fürProgrammierung. Starten Sie dazu die Datei Turbo.exe, die sich im Verzeichnis mit dem installierten Programm im Verzeichnis bin befindet. Als nächstes erscheint ein blaues Fenster, welches der Editor ist.

2

Umsetzen das Programm Sie müssen zuerst seinen Namen bestimmen unddarin durch eine Reihe von Variablen verwendet. Zum Beispiel gibt es eine Aufgabe, die Addition von zwei Zahlen zu implementieren. In diesem Fall müssen Sie 3 Variablen erstellen - A, B und C.

3

Als nächstes müssen Sie den Typ der Variablen bestimmen. Neben Operationen können nur Zahlen verwendet werden, daher ist es ratsam, den Typ Integer (Ganzzahl) zuzuweisen.

4

Dann ist es notwendig, das ganze Operation vychisleniya.V Programm machen wird wie folgt aussehen: «Programm Addition; var A, B, C: Integer; beginA :. = B + C; Ende»

5

Jetzt, wo das Programm geschrieben ist, brauchst du esSpeichern, kompilieren und ausführen. Die Speicherung erfolgt durch Auswahl des entsprechenden Eintrags im Menü (F10 - Datei - Speichern). Danach öffnet sich ein Dialogfeld, in dem Sie aufgefordert werden, den Namen und den Speicherort der Datei auszuwählen. das Programm ohne zu laufen ist es notwendig, die Tasten Alt und F9 gedrückt zu halten. Wenn die Anwendung keine Fehler enthält, zeigt Pascal die Meldung "Erfolgreich übersetzen: Drücken Sie eine beliebige Taste." Um das Programm zu starten, verwenden Sie die Tasten Strg und F9. Wenn das geschriebene Programm ohne Fehlermeldung startet, funktioniert es korrekt.

Tipp 3: Wie schreibe ich ein Programm in Turbo Pascal

Pascal ist die beliebteste Sprache inProgrammierung. Es ist relativ einfach und in einigen allgemeinbildenden Schulen sogar in das obligatorische Informatikprogramm einbezogen. Mit dabei ist auch der Compiler, der das Schreiben von Programmen noch einfacher macht.

Anleitung

1

Öffnen Sie die Programmierumgebung zum Schreiben das Programm in Pascal. Führen Sie dazu die Datei Turbo.exe aus. Es befindet sich im Ordner mit dem installierten Programm. Danach öffnet sich ein Fenster mit blauer Farbe. Das ist der Editor, in dem du schreiben musst das Programm.

2

Um zu realisieren das Programm, mit einem Namen und einem Satz von Variablen aufkommen,darin verwendet. Wenn das Problem beispielsweise darin besteht, zwei Zahlen hinzuzufügen, müssen wir drei Variablen erstellen, die den ersten Summanden, den zweiten Summanden und die Summe angeben.

3

Verwenden Sie keine russischen Buchstaben für den Namen, ZeichenInterpunktion oder spezielle Symbole (das ist eine einfache Sprache, und alles sollte so einfach wie möglich sein - Latein). Andernfalls gibt das Programm beim Speichern einen Fehler aus oder arbeitet fälschlicherweise als Ergebnis.

4

Denken Sie über die Art der Variablen nach. Nehmen Sie die gleiche Operation der Hinzufügung vor. Nur Zahlen können darin verwendet werden. Ordnen Sie daher den Typ Integer zu, d.h. ganze Zahl.

5

Führen Sie die Operation aus. Beim Addieren ist alles einfach, und um komplexere Programme zu schreiben, müssen Sie die in Pascal verwendeten Befehle kennen. Die Additionsoperation sieht wie folgt aus: Programmaddition, Var A, B, C: Ganzzahl: BeginA: = B + C: End.

6

Speichern Sie nach dem Schreiben das Programm,kompilieren und ausführen. Speichern Sie durch Auswahl des entsprechenden Eintrags im Menü - F10 / Datei / Speichern. Es öffnet sich ein Fenster, in dem Sie den Dateinamen und den Pfad zum Speichern auswählen müssen. Kompilieren das ProgrammHalten Sie Alt + F9 gedrückt. Wenn die Anwendung keine Fehler enthält, wird die Meldung Übersetzen erfolgreich angezeigt: Drücken Sie eine beliebige Taste.

7

Führen Sie es aus. das Programm durch Drücken der Tasten Strg + F9. Wenn Sie beim Starten des Programms keine Fehlerinformationen erhalten haben, funktioniert es ordnungsgemäß und Sie haben die Aufgabe bewältigt.