РТПЗТБННБ РТБЛФЙЮЕУЛЙИ ЪБОСФЙК РП ЛХТУХ: «йОЖПТНБФЙЛБ» ( Pascal ) ззж

хЮЕВОЙЛ РП ЙОЖПТНБФЙЛЕ: http://dssp. karelia. ru/web/tutorials. shtml

ъБОСФЙЕ N1

чЧЕДЕОЙЕ Ч СЪЩЛ РТПЗТБННЙТПЧБОЙС Pascal

1. ъБРХУЛ Pascal (УДЕМБФШ РПЙУЛ ЖБКМБ: turbo. exe ) ЙМЙ Free Pascal ЙЪ рХУЛ/рТПЗТБННЩ. УПЪДБОЙЕ ПЛОБ У ОПЧПК РТПЗТБННПК: F10. Б ЪБФЕН File\NEW .

2. уФТХЛФХТБ СЪЩЛБ Pascal — РП РТЙНЕТХ ОЙЦЕ.

3. пУОПЧОЩЕ ФЙРЩ РЕТЕНЕООЩИ Ч Pascal :Integer (ГЕМЩК), Real (ДТПВОЩК, У РМБЧБАЭЕК ФПЮЛПК), Boolean ( True (йУФЙОБ), False (мПЦШ) ), String (УФТПЛПЧЩК — ОБВПТ УЙНЧПМПЧ). пРЙУБОЙЕ ЛПОУФБОФ, ОПЧЩИ ФЙРПЧ, РЕТЕНЕООЩИ — РП РТЙНЕТХ, ОЙЦЕ. пВЯСЧМЕОЙЕ НБУУЙЧБ: Var Ar:Array[3..86] of Real;

4. лБЛ ОБЮЙОБЕФУС Й ЪБЛБОЮЙЧБЕФУС РТПЗТБННБ: Begin. End.

5. рТЙУЧБЙЧБОЙЕ: X:=40. ЧЧПД У ЛМБЧЙБФХТЩ: readln(x). ЧЩЧПД ОБ ЬЛТБО: write(x) .

6. оЕУЛПМШЛП ПРЕТБФПТПЧ РПНЕЭБАФУС ЧОХФТШ УМЕДХАЭЕК ЛПОУФТХЛГЙЙ: Begin. End (МПЗЙЮЕУЛЙЕ УЛПВЛЙ Ч Pascal ). ПРЕТБФПТЩ ПФДЕМСАФУС » ; «.

7. лБЛ Й ЪБЮЕН РПДЛМАЮБАФУС НПДХМЙ. юБУФП ЙУРПМШЪХЕНЩЕ НПДХМЙ Crt Й Graph .

ClrScr — ПЮЙУФЛБ ЬЛТБОБ <НПДХМШ CRT >.

8. хУМПЧЙС Ч Pascal. If ХУМПЧЙЕ Then. Else.

ХУМПЧЙС НПЦОП ПВЯЕДЙОСФШ У РПНПЭША МПЗЙЮЕУЛЙИ ЛПОУФТХЛГЙК — OR («ймй») ЙМЙ AND («й»).

рТЙНЕТ: If (a>b) AND (x>10) Then WriteLn(‘a>b Й x>10’);

9. гЙЛМ FOR :

For. To. For. DownTo (ЪБТЕЪЕТЧЙТПЧБООЩЕ УМПЧБ)

пРЕТБФПТ For ЧЩЪЩЧБЕФ ПРЕТБФПТ, ОБИПДСЭЙКУС РПУМЕ УМПЧБ Do. РП ПДОПНХ ТБЪХ ДМС ЛБЦДПЗП ЪОБЮЕОЙС Ч ДЙБРБЪПОЕ ПФ ОБЮБМШОПЗП ДП ЛПОЕЮОПЗП ЪОБЮЕОЙК.

For РЕТЕНЕООБС:=ОБЮБМШОПЕ To (ЙМЙ DownTo ДМС ХНЕОШЫЕОЙС) ЛПОЕЮОПЕ Do ПРЕТБФПТ

http://zed. karelia. ru/go. to/for. students/coding. rules/rules