LovesTheTeam.com

Jums reikės

• PascalABC.NET ar PascalTurbo programavimo aplinka.

Instrukcijos

1

Taigi, pirmiausia atidarykite programą. Sukurkite naują failą ir nurodykite papildinius. Šiuo atveju mes turime modulį dirbti su konsolę - CRT. Tam mes rašome: naudoja CRT;

2

Mes nurodome realiojo tipo kintamieji i, s, m - kintamieji. Var i, s, m: Real;

3

Norėdami pradėti programą, parašysime: pradėkime ir mes nurodysime konsolės lango pavadinimą: SetWindowTitle ("Chronometras");

4

Teksto spalvos procedūra priskiria teksto spalvą irnurodymas "Write" spausdina tekstą ekrane: TextColor ("LightGreen"); WriteLn ("Paspauskite Enter, jei norite paleisti chronometrą"); WriteLn ("Paspauskite dar kartą, kad sustabdytumėte"); Parašykite ("Dar kartą spustelėkite, norėdami iš naujo paleisti"); Ln pabaiga pereina į kitą eilutę.

5

"ReadLn" operatorius įveda reikšmes iš klaviatūros, tačiau šiuo atveju tik laukia, kad vartotojas paspaudžia Enter: ReadLn;

6

Mes darome neribotą kilpą:o (tiesa) prasideda. Kol (tiesa) prasideda konstrukcija yra išversta kaip: nors (sąlyga) do (). Kyla klausimas, kodėl yra pradėti? Tokiu atveju, mes turime sudėtinį operatorių, o tai reiškia, kad tol, kol sąlyga yra teisinga veikia kelis operatorius. Jei nebuvo pradžios, tada po to, kai buvo įvykdytas tik vienas teiginys, dėl kurio programa sugedo. Pasibaigus pranešimo pabaigos pabaigai rašysime pabaigą.

7

Dabar iš naujo nustatykite skaitiklį: i: = 0;

8

Šis teiginys išverstas taip: kol klavišas bus paspaustas (). o ne paspaudus klavišą, pradėkite Operatorius ClrScr išvalo ekraną: ClrScr;

9

Mes nustatome sąlygas: Jei sekundžių yra didesnė kaip 60 ir mažesnė kaip 3600 (tai yra būtina, kad kai laikas buvo daugiau nei valandą, programa bus tik spausdinti, kas yra trečioji jei), tada: jei (i> 60) ir (i <3600), tada pradeda kintama m (min ) yra: sekundės, padalintos iš 60 ir suapvalintos iki pralies. m: = Int (i / 60); Ir kintamasis s (sekundės be minučių) yra: visos sekundės, minusios minutės, padaugintos iš 60. s: = i - m * 60;

10

Rašymo ataskaita rašo, kiek minučių praėjo irsekundes, o pabaigos operatorius baigia pradedančiojo darbą po sąlyga, jei: Rašykite (m, "minutes (minutes) ir", s: 1: 2, "seconds (a / s)") end; Funkcija: 1: 2 reiškia kad sekundės turėtų būti parašytos dviem požymiais po dešimtainio skaičiaus.

11

Jei sekundės yra mažesnės nei 60, tiesiog parašykite, kiek sekundžių išlaikyti su dviem skaitmenimis po kablelio: jei i <60, tada parašykite ("", i: 1: 2, "sekundes (a / s)");

12

Jei sekundės yra daugiau nei 3600 (ty daugiau nei valandos), tada:jei i> 3600 tada prasideda m: = int (i / 60); s: = i - m * 60; ch: = int (m / 60); m: = m - ch * 60; Rašyti (CH, tada "H (a / s)", m, "min (A / s), ir", s: 1: 2 "sekundes (a / s)"); pabaiga;

13

Taigi, programa parašė, kad buvo 0 sekundžiųDabar padidina Counter i 10 milisekundžių, ir kaip ši programa atlieka visus iš karto padaryti atidėti šį kartą: I: = i + 0,01; Vėlavimas (10); Be to, mes padaryti galą Nors operatorius (ne keypressed): pabaigos; Jei vartotojas paspaudžia klavišą Enter, programa laukia, kada jis vėl spaudžia ją vėl įjungti chronometrą: Readln; Readln, mes įdėti Neatsitiktinai naujo po operatoriaus skaitiklis while (true), kad, kai vartotojas paspaudžia antrą kartą Įveskite, programa bus eiti tik su juo, bus iš naujo nustatyti skaitiklį ir pradėti skaičiavimą į tai zanovo.Dalee pabaigoje Nors visai programos: pabaigos;

14

Štai visa programa: naudoja CRT; var i: Realus; s: realus; m: realus; ch: realus; pradėti SetWindowTitle ("Chronometras"); TextColor ("LightGreen"); WriteLn ("Paspauskite Enter, jei norite paleisti chronometrą"); WriteLn ("Paspauskite dar kartą, kad sustabdytumėte"); Rašyti ("Dar kartą spustelėkite dar kartą, kad paleistumėte"); SkaitytiLn; o (tiesa) prasideda i: = 0; o ne paspaudus mygtuką, pradėkite ClrScr; jei (i> 60) ir (i <3600) prasideda m: = Int (i / 60); s: = i - m * 60; Rašyti (m, "minutė (s) ir", s: 1: 2, "sekundės (a / s)") pabaiga; jei i <60 tada Rašykite ("", i: 1: 2, "sekundes (a / s)"); jei i> 3600 tada prasideda m: = int (i / 60); s: = i - m * 60; ch: = int (m / 60); m: = m - ch * 60; Rašyti (CH, tada "H (a / s)", m, "min (A / s), ir", s: 1: 2 "sekundes (A / S)"); pabaiga; i: = i + 0,01; Vėlavimas (10); pabaiga; Readln; Readln; pabaiga;

15

Tai pasirodė ne labai malonu, bet programa veikia teisingai!

2 patarimas: kaip parašyti programą pascal

Pascal yra viena populiariausių programavimo kalbų. Jis yra žinomas dėl jo santykinio lengvumo, o kai kuriose mokyklose - į privalomąjį bendrojo lavinimo mokyklą programa apie informatiką ir IRT. Tai palengvina rašymo programas, kurias sudaro kompiliatorius.

Jums reikės

• Įdiegtas paketas Turbo Pascal.

Instrukcijos

1

Rašyti programa apie Pascal Pirma, jums reikia atidaryti aplinkąprogramavimas. Norėdami tai padaryti, paleiskite "Turbo.exe" failą, kuris yra kataloge, kuriame įdiegta programa, kataloge "Bin". Toliau pasirodo mėlynas langas, kuris yra redaktorius.

2

Įgyvendinti programa pirmiausia turite nustatyti jo pavadinimą irjame naudojamas kintamųjų rinkinys. Pavyzdžiui, yra užduotys įdiegti du skaičiai. Tokiu atveju turite sukurti 3 kintamuosius - A, B ir C atitinkamai.

3

Tada turite nustatyti kintamųjų tipą. Be to, operacijas galima naudoti tik numerius, todėl patartina priskirti integruoto tipo (sveikasis skaičius).

4

Tada jums reikia atlikti skaičiavimo operacijas. Paprastai programa atrodys taip: "Programos papildymas; var A, B, C: sveikasis skaičius; beginA: = B + C; end".

5

Dabar, kai programa parašyta, jums to reikiaišsaugoti, kompiliuoti ir paleisti. Išsaugojimas atliekamas pasirinkus atitinkamą elementą meniu (F10 - Failas - Išsaugoti). Po to atidaromas dialogo langas, kuriame bus paprašyta pasirinkti failo pavadinimą ir vietą. Norėdami sukonfigūruoti programa be paleidimo būtina laikyti Alt ir F9 klavišus. Jei paraiška nėra yra klaidų, Pascal rodys pranešimą «Užpildykite Sėkmingas: Paspauskite bet kurį klavišą» .Kad paleisti programą naudodami Ctrl + F9 klavišų derinį. Jei rašytinė programa prasideda be klaidos pranešimo, ji veikia teisingai.

3 patarimas: kaip parašyti programą "Turbo Pascal"

Pascal yra populiariausias naudojamas kalbos būdasprogramavimas. Tai yra gana paprasta ir netgi įtraukta į privalomojo kompiuterių mokslo programą kai kuriose bendrojo lavinimo mokyklose. Taip pat yra ir kompiliatorius, kuris leidžia rašyti programas dar lengviau.

Instrukcijos

1

Atidarykite programavimo aplinką rašyti programa Pascal. Norėdami tai padaryti, paleiskite failą Turbo.exe. Tai yra aplanke, kuriame įdiegta programa. Po to bus atidarytas mėlynos spalvos langas. Tai yra redaktorius, kurį turite parašyti programa.

2

Siekiant realizuoti programa, sugalvokite vardą ir kintamųjų rinkinį,naudojamas joje. Pavyzdžiui, jei problema yra pridėti du skaičiai, turime sukurti tris kintamuosius, nurodančius pirmąją summandą, antrą summandą ir sumą.

3

Nenaudokite rusų raidžių vardams, ženklamsskyrybos ženklai ar specialūs simboliai (tai paprasta kalba, o viskas turėtų būti kuo paprastesnė - lotyniška). Priešingu atveju programoje bus padaryta klaida išsaugant arba netinkamai dirbdami.

4

Pagalvokite apie kintamųjų tipą. Paimkite tą patį papildymo veiksmą. Joje gali būti naudojami tik skaičiai, todėl priskirkite "Integer" tipą, t. Y. yra sveikasis skaičius.

5

Atlikite operaciją. Suderinus viską, paprasta, o norint rašyti sudėtingesnes programas reikia žinoti komandas, naudojamas Pascal. Papildymo operacija bus tokia: Programos papildymas; Var A, B, C: sveikasis skaičius: PradėtiA: = B + C: Baigti.

6

Įrašę programą, išsaugokite jąsurinkti ir paleisti. Išsaugoti pasirinkdami atitinkamą elementą meniu - F10 / Failas / Išsaugoti. Atsidaro langas, kuriame turite pasirinkti failo vardą ir kelią, kurį norite išsaugoti. Suderinti programa, laikydami "Alt + F9". Jei programoje nėra klaidų, pranešimas Kompiliuojamas sėkmingai: paspauskite bet kurį mygtuką.

7

Paleisk jį. programa paspausdami mygtukus Ctrl + F9. Jei negavote informacijos apie klaidas paleidus programą, ji veikia teisingai ir jums pavyko įveikti užduotį.