LovesTheTeam.com

Jums būs nepieciešams

• PascalABC.NET vai PascalTurbo programmēšanas vide.

Instrukcijas

1

Tātad, pirmkārt, atveriet programmu. Izveidojiet jaunu failu un norādiet spraudņus. Šajā gadījumā mums vajag moduli darbam ar konsoli - CRT. Par to mēs rakstām: izmanto CRT;

2

Mēs norādām reālā tipa mainīgos i, s, m - mainīgos. Var i, s, m: reāls;

3

Lai sāktu programmu, mēs rakstīsim: sāksim Un mēs norādīsim konsole loga nosaukumu: SetWindowTitle ("Hronometrs");

4

Teksta krāsu procedūra piešķir teksta krāsu unRaksta paziņojums izdrukā tekstu uz ekrāna: TextColor (LightGreen); WriteLn ("Nospiediet Enter, lai sāktu hronometru"); WriteLn ("Nospiediet vēlreiz, lai apturētu"); Rakstīt ("Noklikšķiniet vēlreiz, lai restartētu"); Ln beigas pāriet uz nākamo rindiņu.

5

Operators ReadLn ievada vērtības no tastatūras, bet šajā gadījumā tas vienkārši gaida, kamēr lietotājs nospiež Enter: ReadLn;

6

Mēs darām bezgalīgu cilpu:kamēr (taisnība) sākas. Laiks (patiess) sāk būvēt tiek tulkots kā: Kamēr (nosacījums) do (). Jautājums ir, kāpēc mēs sākam šeit? Šajā gadījumā mums ir nepieciešams apvienots operators, kas nozīmē, ka līdz šim nosacījums ir taisnība vairākiem operatoriem. Ja nebija sākuma, tad pēc tam, kad tika izpildīts tikai viens paziņojums, kas izraisītu programmas darbības traucējumus. Beigās beigsim paziņojumu "Kauls", un beigsim rakstīšanu.

7

Tagad nomainiet skaitītāju: i: = 0;

8

Šāds paziņojums izpaužas šādi: kamēr taustiņš ir nospiests (). kamēr netiek nospiests taustiņš startOperator ClrScr notīra ekrānu: ClrScr;

9

Mēs izvirzām nosacījumus: Ja sekundes ir lielāks par 60 un mazāks par 3600 (tas ir nepieciešams, lai tad, kad laiks bija vairāk nekā stundu, programma būs tikai drukāt, kas ir uz trešā ja), tad: ja (i> 60) un (i <3600), tad sāk mainīgo m (minūtēs ) ir vienāda ar: seconds dalot ar 60 un noapaļota uz Chela porciju. m: = int (i / 60); A mainīgās s (sekundes bez minūtēs) ir: visi seconds mīnus minūtes reizina ar 60. s: = i - m * 60;

10

Raksta paziņojums raksta, cik minūtes pagājis unsekundes, un gala operators pabeidz iesācēja darbu pēc nosacījuma, ja: Rakstīt (m, "minūtes un", s: 1: 2, "sekundes (a / s)") beigas; Funkcija: 1: 2 nozīmē ka sekundes jāuzraksta ar divām zīmēm aiz decimālzīmēm.

11

Ja sekundes ir mazākas par 60, vienkārši uzrakstiet, cik sekundes pagājušas ar diviem cipariem aiz komata: ja i <60 tad rakstīt ("", i: 1: 2, "sekundes (a / s)");

12

Ja sekundes ir vairāk nekā 3600 (tas ir, vairāk nekā stunda), tad:ja i> 3600 tad sākas m: = Int (i / 60); s: = i - m * 60; ch: = int (m / 60); m: = m - ch * 60; Rakstīt (ch, "stunda (s)", m, "minūtes (s) un", s: 1: 2, "sekundes (a / s)"); beigas;

13

Tātad, programma rakstīja, ka tas bija 0 sekundes,Tagad palielina letes i līdz 10 milisekundes, un kā programma izpilda visu uzreiz darīt, lai aizkavētu šo laiku: i: = i + 0,01; Delay (10); Tālāk, mēs galu Kamēr operators (ne keypressed) beigām, ja lietotājs nospiež Enter taustiņu, programma gaida, kad viņš atkal nospiež viņu palaistu hronometru vēlreiz: Readln; Readln, mēs nodot nav nejaušība mērītāju pēc operatora Kaut (patiess), tāpēc, ka tad, kad lietotājs noklikšķina otro reizi Enter, programma dosies tikai ar viņu, būs reset counter un sākt skaitīšanu līdz beigām dara zanovo.Dalee gan visai programmai: beigās;

14

Šeit ir visa programma: izmanto CRT; var i: Reāls; s: reāls; m: reāls; ch: reāls; sāciet SetWindowTitle ("hronometrs"); TextColor (LightGreen); WriteLn ("Nospiediet Enter, lai sāktu hronometru"); WriteLn ("Nospiediet vēlreiz, lai apturētu"); Rakstīt ("Noklikšķiniet vēlreiz, lai restartētu"); Lasīt Ln; kamēr (taisnība) sākas i: = 0; kamēr netiek nospiests taustiņš, sāciet ClrScr; ja (i> 60) un (i <3600) sākas m: = int (i / 60); s: = i - m * 60; Rakstīt (m, "minūtes un", s: 1: 2, "sekundes (a / s)") beigām; ja es <60 tad rakstīt ("", i: 1: 2, "sekundes (a / s)"); ja i> 3600 tad sākas m: = Int (i / 60); s: = i - m * 60; ch: = int (m / 60); m: = m - ch * 60; Rakstīt (ch, "stunda (s)", m, "minūtes (s) un", s: 1: 2, "sekundes (s / s)"); beigas; i: = i + 0,01; Delay (10); beigas; Lasīt; Lasīt; beigas beigas

15

Izrādījās ne ļoti jauki, bet programma darbojas pareizi!

Padoms 2: Kā uzrakstīt programmu pascal

Pascal ir viena no populārākajām programmēšanas valodām. Viņš ir pazīstams ar relatīvo vieglumu, un dažās skolās viņš ieņem obligāto vispārējo izglītību programma par informātiku un IKT. Tas padara teksta programmas vieglāk, nekā kompilators ir ar to.

Jums būs nepieciešams

• Instalēta pakete Turbo Pascal.

Instrukcijas

1

Rakstīt programma Uz Pascal Pirmkārt, jums ir nepieciešams atvērt vidiprogrammēšana. Lai to izdarītu, palaidiet failu Turbo.exe, kas atrodas mapē ar instalēto programmu bin direktorijā. Tālāk parādās zils logs, kas ir redaktors.

2

Īstenot programma vispirms ir jānosaka tā nosaukums unto izmanto ar mainīgo lielumu kopumu. Piemēram, uzdevums ir īstenot divu skaitļu pievienošanu. Šajā gadījumā jums jāizveido attiecīgi 3 mainīgie - A, B un C.

3

Tālāk jums ir jānosaka mainīgo lielumu veids. Papildus operācijām var izmantot tikai ciparus, tādēļ ir ieteicams piešķirt vesels skaitlis (vesels skaitlis).

4

Tad jums jāveic aprēķinu operācijas. Parasti programma izskatās šādi: "Programmas papildinājums; var A, B, C: vesels skaitlis; beginA: = B + C; beigas".

5

Tagad, kad programma ir rakstīta, jums tas ir vajadzīgssaglabāt, apkopot un palaist. Ietaupīšana tiek veikta, izvēloties attiecīgo vienumu izvēlnē (F10 - Fails - Saglabāt). Pēc tam tiek atvērts dialoglodziņš, kurā jums tiks lūgts izvēlēties faila nosaukumu un atrašanās vietu. Kompilācijai programma bez nepieciešamības palaist un turiet nospiestu Alt F9. Ja lietojumprogramma nesatur kļūdas, Pascal parādīs ziņojumu "Veiksmīgi apkopot: nospiediet jebkuru taustiņu". Lai sāktu programmu, izmantojiet pogas Ctrl un F9. Ja rakstiskā programma sākas bez kļūdas ziņojuma, tā darbojas pareizi.

Padoms 3: Kā rakstīt programmu Turbo Pascal

Pascal ir vispopulārākā lietotā valodaprogrammēšana. Tas ir samērā vienkāršs, un pat iekļauta obligātajā programmā datorzinātnēs dažās skolās. Arī tas nāk ar kompilatoru, kas ļauj rakstīt programmas vēl vieglāk.

Instrukcijas

1

Atveriet programmēšanas vidi, lai rakstītu programma Pascal. Lai to izdarītu, palaidiet failu Turbo.exe. Tas ir mapē ar instalēto programmu. Pēc tam tiks atvērts zilo krāsu logs. Šis ir redaktors, kurā jums rakstīt programma.

2

Lai realizētu programma, nākt klajā ar nosaukumu un mainīgo lielumu kopumu,tajā izmanto. Piemēram, ja problēma ir pievienot divus skaitļus, tad mums ir jāizveido trīs mainīgie, kas apzīmē pirmo summu, otro summu un summu.

3

Neizmantojiet krievu burtus nosaukumam, zīmēmpieturzīmes vai speciālie simboli (šī ir vienkārša valoda, un visam jābūt pēc iespējas vienkāršākai - latīņu valodā). Pretējā gadījumā programma saglabās vai veiks nepareizu darbību.

4

Padomājiet par mainīgo lielumu veidu. Veikt to pašu papildināšanas darbību. Tajā var izmantot tikai ciparus, tāpēc piešķirt skaitli skaitli, t.i. ir vesels skaitlis.

5

Veikt operāciju. Sastādīšanas gadījumā viss ir vienkāršs, un, rakstot sarežģītākas programmas, jums jāzina Pascal lietotās komandas. Pievienošanas darbība izskatās šādi: Programmas papildinājums; Var A, B, C: vesels skaitlis: BeginA: = B + C: Beigas.

6

Pēc programmas ierakstīšanas to saglabājietsastādīt un palaist. Saglabājiet, izvēlnē atlasot atbilstošo vienumu - F10 / File / Save. Atveras logs, kur jums ir jāizvēlas faila nosaukums un ceļš, lai to saglabātu. Apkopot programma, turot Alt + F9. Ja lietojumprogrammā nav kļūdas, ziņojums Kompileizēt veiksmīgi: nospiediet jebkuru taustiņu.

7

Palaist to programma nospiežot pogas Ctrl + F9. Ja jūs nesaņēmāt informāciju par kļūdām, kad sākāt programmu, tā darbojas pareizi, un jūs esat paveicis uzdevumu.