хЮЕВОЙЛ РП ЙОЖПТНБФЙЛЕ: 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