ПУОПЧОЩЕ ЬФБРЩ ТЕЫЕОЙС ЪБДБЮ У ЙУРПМШЪПЧБОЙЕН НБФЕНБФЙЮЕУЛПЗП НПДЕМЙТПЧБОЙС.
УРЙУПЛ ТБУУНБФТЙЧБЕНЩИ ЧПРТПУПЧ
пУОПЧОЩЕ ЬФБРЩ ТЕЫЕОЙС ЪБДБЮ У ЙУРПМШЪПЧБОЙЕН НБФЕНБФЙЮЕУЛПЗП НПДЕМЙТПЧБОЙС. 3
нЕФПДЙЮЕУЛЙК РТЙНЕТ ТЕЫЕОЙС ЪБДБЮЙ У ЙУРПМШЪПЧБОЙЕН НБФЕНБФЙЮЕУЛПЗП НПДЕМЙТПЧБОЙС. рТПЗТБННЙТПЧБОЙЕ МЙОЕКОЩИ БМЗПТЙФНПЧ. 6
бОБМЙЪ ФЕЛУФБ ДБООПК РТПЗТБННЩ.. 8
оЕЛПФПТЩЕ УФБОДБТФОЩЕ ЖХОЛГЙЙ (НПДХМШ System РТПЗТБННОПК УТЕДЩ Borland Pascal) 12
пРЕТБГЙЙ ОБД ДБООЩНЙ Ч СЪЩЛЕ рБУЛБМШ. 12
рТЙПТЙФЕФ БТЙЖНЕФЙЮЕУЛЙИ ПРЕТБГЙК. 13
рТПЗТБННЙТПЧБОЙЕ УИЕНЩ БМЗПТЙФНБ (Р. 3.4 ЧПРТПУ 2 МЕЛГЙЙ 1)ОБ СЪЩЛЕ Delphi (ЛПОУПМШОЩК ТЕЦЙН) 13
уПЪДБОЙЕ ЛПОУПМШОПЗП РТЙМПЦЕОЙС Ч УТЕДЕ Delphi ЧЕТУЙС 7. 14
пУПВЕООПУФЙ РПДЗПФПЧЛЙ Л ТБЪТБВПФЛЕ ЛПОУПМШОПЗП РТЙМПЦЕОЙС Delphi Ч УТЕДЕ Borland Developer Studio 2005 ЙМЙ 2006 (ЧЕТУЙС 10) 16
рТЙНЕТ РТПЗТБННЙТПЧБОЙС ОБ СЪЩЛЕ уЙ++ (ЛПОУПМШОЩК ТЕЦЙН ЙОФЕЗТЙТПЧБООПК УТЕДЩ Borland Builder (Borland Developer Studio)) 17
бОБМЙЪ ФЕЛУФБ ДБООПК РТПЗТБННЩ.. 18
уПЪДБОЙЕ ЛПОУПМШОПЗП РТЙМПЦЕОЙС Ч УТЕДЕ Borland у++ Builder ЧЕТУЙС 6љ 19
пУПВЕООПУФЙ РПДЗПФПЧЛЙ Л ТБЪТБВПФЛЕ ЛПОУПМШОПЗП РТЙМПЦЕОЙС уЙ++ Ч УТЕДЕ Borland Developer Studio 2005/6 (ЧЕТУЙС 10) 21
рТПЗТБННЙТПЧБОЙЕ УИЕНЩ БМЗПТЙФНБ (Р. 3.4 ЧПРТПУ 2 МЕЛГЙЙ 1))ОБ СЪЩЛЕ уЙ++ (ЛПОУПМШОЩК ТЕЦЙН) 22
жПТНБФЙТПЧБООЩК ЧЩЧПД Ч СЪЩЛЕ уЙ++. 23
рТПЗТБННЙТПЧБОЙЕ УИЕНЩ БМЗПТЙФНБ (Р. 3.4 ЧПРТПУ 2 МЕЛГЙЙ 1))ОБ СЪЩЛЕ уЙ++ (ЛПОУПМШОЩК ТЕЦЙН) 25
рТЙНЕТ ЙУРПМШЪПЧБОЙС РПДРТПЗТБНН РТЙ РТПЗТБННЙТПЧБОЙЙ Ч УТЕДЕ рБУЛБМШљ 25
бОБМЙЪ ДБООПЗП РТПЗТБННОПЗП ПВЕУРЕЮЕОЙС, ЧЛМАЮБАЭЕЗП ЙУРПМШЪПЧБОЙЕ РПДРТПЗТБННЩ. 27
вБЪПЧЩЕ МПЗЙЮЕУЛЙЕ УФТХЛФХТЩ.. 32
лПОУФТХЛГЙСљ еумй. 33
1 рПМОБС ЖПТНБ ЛПОУФТХЛГЙЙ еумй (еумй фп -йобюе) 33
2 лПОУФТХЛГЙС еумй - фп. 35
3 лПОУФТХЛГЙС еумй - йобюе. 38
рТЙНЕТ ЛПОУФТХЛГЙЙ еумй У ЙУРПМШЪПЧБОЙЕН УПУФБЧОПЗП ПРЕТБФПТБ. 39
фЕЛУФ РТПЗТБННЩ ОБ СЪЩЛЕ Delphi (ЛПОУПМШОЩК ТЕЦЙН) 42
чБТЙБОФЩ ЪБРЙУЙ ХУМПЧЙК (МПЗЙЮЕУЛЙИ ЧЩТБЦЕОЙК) 43
рТЙНЕТ ТЕЫЕОЙС ЪБДБЮЙ У ЙУРПМШЪПЧБОЙЕН ЛПОУФТХЛГЙЙ еумй, ЧМПЦЕООПК Ч ДТХЗХА ЛПОУФТХЛГЙА еумй, ПФМБДПЮОПК РЕЮБФЙљ Йљ УФБОДБТФОПЗП НПДХМС Printerљ 44
йУРПМШЪПЧБОЙЕ ПФМБДЮЙЛБ РТЙ ПФМБДЛЕ ХЛБЪБООПК РТПЗТБННЩ.. 45
лПОУФТХЛГЙСљ ФЙРБ чщвпт (чбтйбоф) 45
рТПЗТБННЙТПЧБОЙЕ ЧЕФЧМЕОЙС ОБ уЙ++. 48
чБТЙБОФЩ ЛПОУФТХЛГЙЙ «рпчфптеойе». 48
лПОУФТХЛГЙС РПЧФПТЕОЙЕ У РТЕДХУМПЧЙЕН (while do) («рплб») 48
лПОУФТХЛГЙС РПЧФПТЕОЙЕ У РПУФХУМПЧЙЕН (repeat until) («дп») 54
ъБРЙУШ ЛПОУФТХЛГЙЙ РПЧФПТЕОЙЕ Ч ЧЙДЕ УИЕНЩ У ЙУРПМШЪПЧБОЙЕН ВМПЛБ НПДЙЖЙЛБГЙСљ 57
лПОУФТХЛГЙС РПЧФПТЕОЙЕ У РБТБНЕФТПН (FOR) («дМС») 58
ъБДБЮБ 1 ОБ ЙУРПМШЪПЧБОЙЕ ЙФЕТБГЙПООЩИљ БМЗПТЙФНПЧ. 64
МЕЛГЙС 1
пУОПЧОЩЕ ЬФБРЩ ТЕЫЕОЙС ЪБДБЮ У ЙУРПМШЪПЧБОЙЕН НБФЕНБФЙЮЕУЛПЗП НПДЕМЙТПЧБОЙС.
чПРТПУ 1
пУОПЧОЩЕ ЬФБРЩ ТЕЫЕОЙС ЪБДБЮ У ЙУРПМШЪПЧБОЙЕН НБФЕНБФЙЮЕУЛПЗП НПДЕМЙТПЧБОЙС.
1 рТЕДНЕФОБС(Ф. Е. ПФОПУСЭБСУС Л ОЕЛПФПТПК РТЕДНЕФОПК ПВМБУФЙ ЙОЦЕОЕТОПК ЙМЙ ОБХЮОПК ДЕСФЕМШОПУФЙ)ЖПТНХМЙТПЧЛБ ЪБДБЮЙ.
2 нБФЕНБФЙЮЕУЛБС РПУФБОПЧЛБ ЪБДБЮЙ, Ф. Е. ЕЈ ЙЪМПЦЕОЙЕ ОБ СЪЩЛЕ НБФЕНБФЙЮЕУЛЙИ РПОСФЙК. пОБ ЧЛМАЮБЕФ Ч УЕВС:
љљљљљљљ Б) ПРЙУБОЙЕ ЙУИПДОЩИ ДБООЩИ;
љљљљљљљ В) ЖПТНХМЙТПЧЛХ ГЕМЙ ТЕЫЕОЙС.
3 рПДЗПФПЧЛБ ТБУЮЕФОПК УИЕНЩ (ЛПОГЕРФХБМШОПК, УПДЕТЦБФЕМШОПК НПДЕМЙ), УМХЦБЭЕК ПУОПЧПК ДМС РПУМЕДХАЭЕЗП УПЪДБОЙС НБФЕНБФЙЮЕУЛПКљ НПДЕМЙ ТЕБМШОПЗП ПВЯЕЛФБ Й РТЕДУФБЧМСАЭЕК УПВПК УПЮЕФБОЙЕ [22, У. 22] ЧЕТВБМШОПК (ПРЙУБФЕМШОПК) ЙОЖПТНБГЙЙ Й УЙНЧПМПЧ ОБЗМСДОПЗП ЗТБЖЙЮЕУЛПЗП ЙЪПВТБЦЕОЙС. ч [22] ХЛБЪБООЩЕ ФТЙ ФЕТНЙОБ ТБУУНБФТЙЧБАФУС ЛБЛ ЬЛЧЙЧБМЕОФОЩЕ. лПОГЕРГЙС [32, 33] (ПФ МБФ. conceptio РПОЙНБОЙЕ, УЙУФЕНБ) - ПРТЕДЕМЈООЩК УРПУПВ РПОЙНБОЙС, ФТБЛФПЧЛЙ ЛБЛЙИ-МЙВП СЧМЕОЙК, ПУОПЧОБС ФПЮЛБ ЪТЕОЙС, ТХЛПЧПДСЭБС ЙДЕС ДМС ЙИ ПУЧЕЭЕОЙС; ФП ЙМЙ ЙОПЕ РПОЙНБОЙЕ СЧМЕОЙС, УЙУФЕНБ ЧЪЗМСДПЧ; ЧЕДХЭЙК ЪБНЩУЕМ, ЛПОУФТХЛФЙЧОЩК РТЙОГЙР ТБЪМЙЮОЩИ ЧЙДПЧ ДЕСФЕМШОПУФЙ; ПУОПЧОБС НЩУМШ РТПЙЪЧЕДЕОЙС.
тЕЪХМШФБФЩ РЕТЧЩИ ФТЕИ РХОЛФПЧ СЧМСАФУС Ч ЪОБЮЙФЕМШОПК НЕТЕ УХВЯЕЛФЙЧОЩНЙ, Ф. Е. ЪБЧЙУСЭЙНЙ ПФ РТПЖЕУУЙПОБМШОПЗП ХТПЧОС Ч РТЕДНЕФОПК УЖЕТЕ УРЕГЙБМЙУФБ ЧЩРПМОСАЭЕЗП ДБООЩК ЬФБР Й ЕЗП ФЧПТЮЕУЛЙИ УРПУПВОПУФЕК, ЧЛМАЮБС ЙОФХЙГЙА. хЛБЪБООЩЕ ТБОЕЕ УЧПКУФЧБ НБФЕНБФЙЮЕУЛПК НПДЕМЙ Ч ВПМШЫПК УФЕРЕОЙ ЪБЧЙУСФ ПФ РТЙОСФЩИ ОБ ЬФПН ЬФБРЕ ТЕЫЕОЙК. фБЛ Ч [22, У.26] ЗПЧПТЙФУС П ФПН, ЮФП УЙМШОБС ЙДЕБМЙЪБГЙС (ХРТПЭЕОЙЕ) ПВЯЕЛФБ ОБ ДБООПН ЬФБРЕ НПЦЕФ ПВЕУГЕОЙФШ ЧУЕ РПУМЕДХАЭЙЕ ЬФБРЩ.
фБЛЦЕ ХЛБЦЕН, ЮФП ЙЪМЙЫОСС ДЕФБМЙЪБГЙС УЧПКУФЧ ПВЯЕЛФБ РТЙЧЕДЕФ ЮТЕЪНЕТОПНХ ХУМПЦОЕОЙА НПДЕМЙ, НЕФПДПЧ НПДЕМЙТПЧБОЙС, БМЗПТЙФНПЧ, РТПЗТБННОПЗП ПВЕУРЕЮЕОЙС, ЪБФТХДОЙФ ЙОФЕТРТЕФБГЙА РПМХЮЕООЩИ ТЕЪХМШФБФПЧ Й РПФТЕВХЕФ ВПМШЫЙИ ЧТЕНЕООЩИ ТЕУХТУПЧ РТЙ ТБЪТБВПФЛЕ Й ЬЛУРМХБФБГЙЙ ЙОУФТХНЕОФБТЙС РТЕДОБЪОБЮЕООПЗП ДМС ТЕЫЕОЙС РПУФБЧМЕООЩИ ЪБДБЮ.
4 рПУФТПЕОЙЕ (ПУОПЧОПК) НБФЕНБФЙЮЕУЛПК НПДЕМЙ ТЕБМШОПЗП ПВЯЕЛФБ, љљљФ. Е. ЕЗП ЖПТНБМШОПЕ ПРЙУБОЙЕ Ч НБФЕНБФЙЮЕУЛЙИ ФЕТНЙОБИ, ЮФП РПЪЧПМСЕФ УЧЕУФЙ ЕЗП ЙУУМЕДПЧБОЙЕ Л ТЕЫЕОЙА НБФЕНБФЙЮЕУЛПК ЪБДБЮЙ. ч УМХЮБЕ РПМХЮЕОЙС УМПЦОПК НБФЕНБФЙЮЕУЛПК НПДЕМЙ ГЕМЕУППВТБЪОБ ТБЪТБВПФЛБ ЕЭЕ ПДОПК ЙМЙ ОЕУЛПМШЛЙИ НБФЕНБФЙЮЕУЛЙИ НПДЕМЕК, ПФМЙЮБАЭЙИУС УФЕРЕОША ДЕФБМЙЪБГЙЙ ПРЙУБОЙС УЧПКУФЧ ПВЯЕЛФБ. цЕМБФЕМШОП, ЮФПВЩ Ч ЮЙУМЕ ЬФЙИ НПДЕМЕК ВЩМЙ ФБЛЙЕ, ЛПФПТЩЕ РПЪЧПМСАФ РПМХЮБФШ ЙЪЧЕУФОЩЕ ТЕЪХМШФБФЩ, Б ФБЛЦЕ РТПЧПДЙФШ ТХЮОЩЕ РТПЧЕТПЮОЩЕ ТБУЮЕФЩ. рТЙ РТБЧЙМШОПК ТБВПФЕ ДЧХИ НПДЕМЙТХАЭЙИ УЙУФЕН НПЦОП ПГЕОЙФШ, ЛБЛ ПФУХФУФЧЙЕ ХЮЕФБ ОЕЛПФПТЩИ УЧПКУФЧ ПВЯЕЛФБ ЙМЙ ЧОЕЫОЕК УТЕДЩ ЧМЙСЕФ ОБ ФПЮОПУФШ ТЕЪХМШФБФПЧ. ч УМХЮБЕ ПФУХФУФЧЙС ВМЙЪПУФЙ ТЕЪХМШФБФПЧ РПМХЮЕООЩИ У РПНПЭША ДЧХИ НПДЕМЕК, ПВ ПДОПК ЙЪ ЛПФПТЩИ ЙЪЧЕУФОП, ЮФП ПОБ СЧМСЕФУС БДЕЛЧБФОПК, НПЦОП УДЕМБФШ ЧЩЧПД П ОЕПВИПДЙНПУФЙ БОБМЙЪБ РТБЧЙМШОПУФЙ РПУФТПЕОЙС ДТХЗПК НПДЕМЙТХАЭЕК УЙУФЕНЩ. гЕМША БОБМЙЪБ СЧМСЕФУС ЧЩСЧМЕОЙС РТЙЮЙОЩ ЧПЪОЙЛОПЧЕОЙС УХЭЕУФЧЕООПК ТБЪОЙГЩ Ч ТЕЪХМШФБФБИ НПДЕМЙТПЧБОЙС. рЕТЧХА ЙЪ ХЛБЪБООЩИ Ч РХОЛФЕ НПДЕМЕК ОБЪПЧЕН ПУОПЧОПК (Ч [22, c. 25] ПОБ ОБЪЧБОБ ТБВПЮЕК), Б ПУФБМШОЩЕ ХРТПЭЕООЩНЙ [22]. дБМШОЕКЫЙЕ РХОЛФЩ ПФОПУСФУС ЛБЛ Л ПУОПЧОПК, ФБЛ Й ХРТПЭЕООЩН НПДЕМСН, ЪБ ЙУЛМАЮЕОЙЕН НПЦЕФ ВЩФШ ЙУРПМШЪХЕНЩИ ДМС ТХЮОЩИ ТБУЮЕФПЧ.
5 тБЪТБВПФЛБ ЙМЙ ЧЩВПТ НЕФПДБ ТЕЫЕОЙС НБФЕНБФЙЮЕУЛПК ЪБДБЮЙ, ХЮЙФЩЧБАЭЕЗП ПУПВЕООПУФЙ НПДЕМЙ.
6 уПУФБЧМЕОЙЕ БМЗПТЙФНБ, РПЪЧПМСАЭЕЗП ТЕБМЙЪПЧБФШ ЙУРПМШЪХЕНЩК НЕФПД ТЕЫЕОЙС ЪБДБЮЙ. юБУФП БМЗПТЙФНЩ ЪБРЙУЩЧБАФ Ч ЧЙДЕ УИЕН. рТЙљ РТПЧЕТЛЕљ РТБЧЙМШОПУФЙ НЕФПДБ Й БМЗПТЙФНБ ТЕЫЕОЙС ЪБДБЮЙ ЧЩРПМОСЕФУС ЙИ МПЗЙЮЕУЛЙК БОБМЙЪ У ГЕМША ОБИПЦДЕОЙС Й ЙУРТБЧМЕОЙС ПЫЙВПЛ. рТЙ ЬФПН УТБЧОЙЧБАФУС ТЕЪХМШФБФЩ, РПМХЮЕООЩЕ У ЙИ РПНПЭША, У ТЕЪХМШФБФБНЙ РПМХЮЕООЩНЙ ДТХЗЙН ПВТБЪПН, ОБРТЙНЕТ, ОЕРПУТЕДУФЧЕООЩН ТБУЮЕФПН. рПДЗПФБЧМЙЧБАФУС ФЕУФПЧЩЕ ОБВПТЩ ЙУИПДОЩИ ДБООЩИ ДМС РТПЧЕТЛЙ УМЕДХАЭЙИ ЧБТЙБОФПЧ:
љљљљљљљ Б) ЮБУФОЩИ УМХЮБЕЧ ТЕЫЕОЙС ЪБДБЮЙ;
љљљљљљљ В) ЗТБОЙЮОЩИљ ЪОБЮЕОЙКљ ЙУИПДОЩИ ДБООЩИ. ьФЙ ЪОБЮЕОЙС СЧМСАФУС РПУМЕДОЙНЙ, ДМС ЛПФПТЩИ МЙВП ТЕЫЕОЙЕ ЕЭЕ УХЭЕУФЧХЕФ, МЙВП ПВТБВПФЛБ ДБООЩИ ЧЕДЕФУС РП ПРТЕДЕМЕООПНХ БМЗПТЙФНХ;љљљ
љљљљљљљ Ч) ОЕДПРХУФЙНЩИ ЙУИПДОЩИ ДБООЩИ.
7 ъБРЙУШ БМЗПТЙФНБ ОБ СЪЩЛЕ РТПЗТБННЙТПЧБОЙС.
8 чЧПД Ч ьчн ФЕЛУФБ РТПЗТБННЩ Й ЪОБЮЕОЙК ЙУИПДОЩИ ДБООЩИ.
9 пФМБДЛБ РТПЗТБННЩ, Ф.Е. ПВОБТХЦЕОЙЕ Й ЙУРТБЧМЕОЙЕ ПЫЙВПЛ Ч ОЕК. рТЙ ЛПНРЙМСГЙЙ РТПЗТБННЩ ЛПНРШАФЕТПН, Ф.Е. РТЙ РЕТЕЧПДЕ Ч НБЫЙООЩК ЛПД РТПЗТБННЩ, ОБРЙУБООПКљ ОБ ОЕЛПФПТПН СЪЩЛЕ РТПЗТБННЙТПЧБОЙС, ПВОБТХЦЙЧБАФУС УЙОФБЛУЙЮЕУЛЙЕ ПЫЙВЛЙ. пОЙ ЪБЛМАЮБАФУС Ч ОБТХЫЕОЙЙ РТПЗТБННЙУФПН РТБЧЙМ ОБРЙУБОЙС РТПЗТБННЩ ОБ СЪЩЛЕ РТПЗТБННЙТПЧБОЙС. рТЙ ЙИ ОБМЙЮЙЙ РТПЗТБННБ ОЕ ЧЩРПМОСЕФУС, Й ьчн ЧЩДБЕФ УППВЭЕОЙЕ ПВ ПЫЙВЛБИ. оБ ЫБЗЕ ЧЩРПМОЕОЙС РТПЗТБННЩ ОБ ОЕЛПФПТПН ОБВПТЕ ЙУИПДОЩИ ДБООЩИ ЛПНРШАФЕТ НПЦЕФ ПВОБТХЦЙФШ ФПМШЛП ЮБУФШ ЙНЕАЭЙИУС МПЗЙЮЕУЛЙИ ПЫЙВПЛ, ОБРТЙНЕТ, ЕУМЙ ПЫЙВЛБ РТЙЧПДЙФ Л УЙФХБГЙЙ ДЕМЕОЙЕ ОБ ОПМШ. ч ЬФПН УМХЮБЕ РТПЙУИПДЙФ БЧБТЙКОПЕ ЪБЧЕТЫЕОЙЕ РТПЗТБННЩ У ЧЩДБЮЕК УППВЭЕОЙС ПВ ЬФПН. лБЛЙЕ ФП ПЫЙВЛЙ НПЗХФ РТЙЧЕУФЙ Л РПМХЮЕОЙА ОЕРТБЧЙМШОПЗП ТЕЪХМШФБФБ, Б ОЕЛПФПТЩЕ РТПСЧСФУС ФПМШЛП РТЙ ДТХЗЙИ ЙУИПДОЩИ ДБООЩИ. тБЪМЙЮБАФ БЧФПОПНОХА Й ЛПНРМЕЛУОХА ПФМБДЛХ. рЕТЧБС - ЬФП ПФМБДЛБ ЮБУФЙ РТПЗТБННОПЗП ПВЕУРЕЮЕОЙС (рп) У ЙНЙФБГЙЕК ТБВПФПУРПУПВОПУФЙ ПУФБМШОПК ЕЗП ЮБУФЙ. чФПТБС - ЬФП ПФМБДЛБ ЧУЕЗП рп У РПНПЭША ФЕУФЙТПЧБОЙС.
10 тЕЫЕОЙЕ ЪБДБЮЙ ОБ ьчн.
11 бОБМЙЪљ Йљ ЙОФЕТРТЕФБГЙСљ РПМХЮЕООЩИљ ТЕЪХМШФБФПЧ Й ЙИ ПЖПТНМЕОЙЕ.
юБУФП РТЙИПДЙФУС, У ХЮЕФПН РПМХЮЕООЩИ РТПНЕЦХФПЮОЩИ ТЕЪХМШФБФПЧ, ПУХЭЕУФЧМСФШ ЧПЪЧТБФ Л ВПМЕЕ ТБООЙН ЬФБРБН.
ч РТПУФЩИ УМХЮБСИ ДМС ГЕМЕК НПДЕМЙТПЧБОЙС НПЦОП ЙУРПМШЪПЧБФШ УХЭЕУФЧХАЭЙЕ ХОЙЧЕТУБМШОЩЕ РТПЗТБННЩ.
пВЭЙК ЧЩЧПД УПЧПЛХРОПУФШ ТБУЮЕФОЩИ УИЕН, НБФЕНБФЙЮЕУЛЙИ НПДЕМЕК, НЕФПДПЧ НБФЕНБФЙЮЕУЛПЗП НПДЕМЙТПЧБОЙС, УРЕГЙБМШОПЗП ЙОУФТХНЕОФБТЙС ЙИ ТЕБМЙЪХАЭЕЗП СЧМСЕФУС РТЕДНЕФПН Й ЧБЦОЕКЫЕК ЮБУФША ПФТБУМЕЧПК ОБХЛЙ Й ЕК УППФЧЕФУФЧХАЭЙИ ХЮЕВОЩИ ДЙУГЙРМЙО.
чПРТПУ 2
нЕФПДЙЮЕУЛЙК РТЙНЕТ ТЕЫЕОЙС ЪБДБЮЙ У ЙУРПМШЪПЧБОЙЕН НБФЕНБФЙЮЕУЛПЗП НПДЕМЙТПЧБОЙС. рТПЗТБННЙТПЧБОЙЕ МЙОЕКОЩИ БМЗПТЙФНПЧ.
1 жПТНХМЙТПЧЛБ ЪБДБЮЙ (ОЕ СЧМСЕФУС НБФЕНБФЙЮЕУЛПК): ПРТЕДЕМЙФШ ЧЕМЙЮЙОХ ЪОБЮЕОЙС УПРТПФЙЧМЕОЙС r ДБООПЗП ТЕЪЙУФПТБ РПУФПСООПНХ ФПЛХ. дМС РТПЧЕДЕОЙС ЙЪНЕТЕОЙК ЙУРПМШЪПЧБФШ ЙУФПЮОЙЛ ФПЛБ, ТЕПУФБФ, БНРЕТНЕФТ, ЧПМШФНЕФТ, Б ДМС ТБУЮЕФПЧ ьчн.
2 дМС РПДЗПФПЧЛЙ Л НБФЕНБФЙЮЕУЛПК РПУФБОПЧЛЕ ЪБДБЮЙ ОХЦОП ПУХЭЕУФЧЙФШ УМЕДХАЭЙЕ ДЕКУФЧЙС:
љљљљљљљ Б) ЧЩВТБФШ ЙЪНЕТЙФЕМШОЩЕ РТЙВПТЩ ОЕПВИПДЙНПЗП ЛМБУУБ ФПЮОПУФЙ Й УПВТБФШ УИЕНХ ДМС РТПЧЕДЕОЙС ЙЪНЕТЕОЙК (УН. ТЙУ.);
љљљљљљ
љ
љљљљљ В) РТЙ РПНПЭЙ ТЕПУФБФБ ХУФБОПЧЙФШ ФБЛЙЕ ЪОБЮЕОЙС ФПЛБ Й ОБРТСЦЕОЙС, ЮФПВЩљ УФТЕМЛЙљ ЙЪНЕТЙФЕМШОЩИ РТЙВПТПЧ ОБИПДЙМЙУШ Ч ЛБЛ НПЦОП ВПМЕЕ РТБЧПК ЮБУФЙљ ЫЛБМЩ (ЬФПљ РПЪЧПМСЕФљ ХНЕОШЫЙФШ РПЗТЕЫОПУФШ ЙЪНЕТЕОЙК);
љљљљљљ Ч) ЙЪНЕТЙФШ ЪОБЮЕОЙЕ ФПЛБ i, РТПИПДСЭЕЗП ЮЕТЕЪ ТЕЪЙУФПТ, Б ФБЛЦЕ РБДЕОЙЕ ОБРТСЦЕОЙС ОБ ОЕН.
љљљљљљљљ тЕЪХМШФБФЩ ЙЪНЕТЕОЙК ВХДХФ ЙУРПМШЪПЧБОЩ Ч ЛБЮЕУФЧЕ ЙУИПДОЩИ ДБООЩИ РТЙ НБФЕНБФЙЮЕУЛПК РПУФБОПЧЛЕ ЪБДБЮЙ. гЕМШ ТЕЫЕОЙС УЖПТНХМЙТПЧБОБ ТБОЕЕ.
3 ьФБРЩ ТЕЫЕОЙС ДБООПК ЪБДБЮЙ.
3.1 нБФЕНБФЙЮЕУЛБС РПУФБОПЧЛБ ЪБДБЮЙ.
рП ЙЪЧЕУФОЩН ЪОБЮЕОЙСН РПУФПСООПЗП ФПЛБ i (б) Й ОБРТСЦЕОЙС u (ч) ОБ ТЕЪЙУФПТЕ, ТБУУЮЙФБФШ У РПНПЭША ьчн ЪОБЮЕОЙЕ ЕЗП УПРТПФЙЧМЕОЙС r (пН).
3.2 ч ЛБЮЕУФЧЕ НБФЕНБФЙЮЕУЛПК НПДЕМЙ ТЕЪЙУФПТБ ВХДЕН ЙУРПМШЪПЧБФШ ЪБЛПО пНБ, УПЗМБУОП ЛПФПТПЗП r=u/i, пН.
3.3 нЕФПД ТЕЫЕОЙС НБФЕНБФЙЮЕУЛПК ЪБДБЮЙ - ТБУЮЕФ РПљ ЙЪЧЕУФОПК ЖПТНХМЕ.
3.4 уПУФБЧМЕОЙЕ УИЕНЩ БМЗПТЙФНБ
3.5 ъБРЙУШ БМЗПТЙФНБ ОБ СЪЩЛЕ РТПЗТБННЙТПЧБОЙСљљљљљљљљљљљљљљљљљљљљљљљљљ љ(Ч ТБУУНБФТЙЧБЕН УМХЮБЕ ОБ СЪЩЛЕ РТПЗТБННЙТПЧБОЙС рБУЛБМШ).
љљљљљљљљљљљљљљљљљљљљљљљљљ
љљљљљљ фЕЛУФ РТПЗТБННЩ:
{йЧБОПЧ йЧБО йЧБОПЧЙЮ бфу-151 j:\vtp\pas\lec1.pas 20.01.09}љљљ {1}
program lec1;љљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљ {2}
var u,i,r:real;љљљљљљљљљљљљљљљљљ љљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљ{3}
beginљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљ љљљљљљљљљљљљљљљљљљљљљ{4}
write('ОБРТСЦЕОЙЕ u(B)='); readln(u);љљљљљљљљљљљљљљљљљљљљ љљљљљљљљљљљљљљљљљљљљљ{5}
write('ФПЛ i(A)=');љљљљљљ љљљљљљљљљљreadln(i);љљљљљљљљљљљљљљљљљљљљљљљљљ љљљљљљљљљљљљљљљљ{6}
r:=u/i;љљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљ љљљљљљљљљљљљљљљ{7}
writeln( 'йУИПДОЩЕ ДБООЩЕ: u=', u:3:1, ',ч i=', i:3:1,',б');љљљљљљљљљљљљљ {8}
writeln('тЕЪХМШФБФЩ: r=', r:3:1, ',пН');љљљљљљљљљљљљљљљљ љљљљљљљљљљљљљљљљљљљљљљљ{9}
writeln('...');љљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљ љљљљљљљљљљљљљљљљљљљљљ{10}
writeln('рpПЗpБННБ ЪБЧЕТЫЕОБ. оБЦНЙФЕ Enter);љ љљљљљљљљљљљљљљљ{11}
readln;љљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљ {12}
end.љљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљ {13}
юБУФП ЙНЕАФ НЕУФП УМЕДХАЭЙЕ УЙОФБЛУЙЮЕУЛЙЕ ПЫЙВЛЙ: "ПЦЙДБЕФУС ;", "ОЕЙЪЧЕУФОЩК ЙДЕОФЙЖЙЛБФПТ", " ОЕУППФЧЕФУФЧЙЕ ЛПМЙЮЕУФЧБ УМПЧ begin Й end", "ОЕУППФЧЕФУФЧЙЕ ФЙРПЧ", "ЛПМЙЮЕУФЧП ПФЛТЩЧБАЭЙИУС УЛПВПЛ ОЕ ТБЧОП ЛПМЙЮЕУФЧХ ЪБЛТЩЧБАЭЙИУС", Б ФБЛЦЕ МПЗЙЮЕУЛЙЕ: "ОЕ ЙОЙГЙБМЙЪЙТПЧБОП ЪОБЮЕОЙЕ РЕТЕНЕООПК", "РТПЗТБННБ ОЕ УППФЧЕФУФЧХЕФ РТБЧЙМШОПК ВМПЛ-УИЕНЕ" Й ДТ.
чПРТПУ 3
бОБМЙЪ ФЕЛУФБ ДБООПК РТПЗТБННЩ
1 тБУУНПФТЙН ЙУРПМШЪПЧБОЙЕ УМПЧБТС (БМЖБЧЙФБ) СЪЩЛБ РТПЗТБННЙТПЧБОЙС. ч УПУФБЧ БМЖБЧЙФБ ЧИПДСФљ ЛМАЮЕЧЩЕ (УМХЦЕВОЩЕ) УМПЧБ Й УЙНЧПМЩ. ч ТБУУНБФТЙЧБЕНПК РТПЗТБННЕ ЙУРПМШЪХАФУСљ УМХЦЕВОЩЕ УМПЧБ: program, var, real, begin, end, integer. уЙНЧПМЩ РПДТБЪДЕМСАФУС ОБ ВХЛЧЩ, БТБВУЛЙЕ ГЙЖТЩ, ЪОБЛЙ БТЙЖНЕФЙЮЕУЛЙИ ПРЕТБГЙК, ЪОБЛЙ ПРЕТБГЙК УТБЧОЕОЙС, ТБЪДЕМЙФЕМЙ (ЪОБЛЙ РТЕРЙОБОЙС, УЛПВЛЙ, БРПУФТПЖЩ, :=).
2 лПННЕОФБТЙЙ РПНЕЭБАФУС Ч РТПЗТБННХ ФПМШЛПљ ДМС РТПЗТБННЙУФПЧ Й РПМШЪПЧБФЕМЕК РТПЗТБННЩ. фЕЛУФ ЛПННЕОФБТЙС ЪБЛМАЮБЕФУС Ч ЖЙЗХТОЩЕ УЛПВЛЙ Й ьчн ОЕ БОБМЙЪЙТХЕФУС. ч РТПЗТБННЕ ЪБРТЕЭБЕФУС ЙУРПМШЪПЧБФШ ЧОЕ ЛПННЕОФБТЙС ТХУУЛЙЕ ВХЛЧЩ, ЪБ ЙУЛМАЮЕОЙЕН ЧЩЧПДБ УФТПЛЙ УЙНЧПМПЧ.
3 чФПТБС УФТПЛБ СЧМСЕФУС ЪБЗПМПЧЛПН РТПЗТБННЩ. йНС РТПЗТБННЩ lec1.љ пОБ ОБИПДЙФУС Ч ЖБКМЕ j:\vtp\pas\lec1.pas.
4 ч ДБООПК РТПЗТБННЕљ ЙУРПМШЪХАФУСљ ЙНЕОБ (ЙДЕОФЙЖЙЛБФПТЩ): РЕТЕНЕООЩИ - u , i , r Й УФБОДБТФОЩИ РПДРТПЗТБНН - write,љ writeln,љ readln. уФБОДБТФОЩНЙ ОБЪЩЧБАФУС РПДРТПЗТБННЩ, ЧИПДСЭЙЕљ Чљ ЛПНРМЕЛФ РТПЗТБННОПЗП ПВЕУРЕЮЕОЙС СЪЩЛБ РТПЗТБННЙТПЧБОЙС.љ йДЕОФЙЖЙЛБФПТЩ ДПМЦОЩ ОБЮЙОБФШУС У ВХЛЧЩ, ЪБ ЛПФПТПК НПЗХФ УМЕДПЧБФШ ГЙЖТЩ.
5 ч ПВЭЕН УМХЮБЕ ЙУРПМШЪХЕНЩЕ Ч РТПЗТБННЕљ РПДРТПЗТБННЩ, ЛПОУФБОФЩ,љ ФЙРЩљ РЕТЕНЕООЩИљ Йљ РЕТЕНЕООЩЕ ДПМЦОЩ ВЩФШ ПРЙУБОЩ (ПВЯСЧМЕОЩ). ьФП ДЕМБЕФУС МЙВП ОЕРПУТЕДУФЧЕООП Ч РТПЗТБННЕ Ч УППФЧЕФУФЧХАЭЕНљ ТБЪДЕМЕљ ПРЙУБОЙК,љ МЙВПљ У РПНПЭША ХЛБЪБОЙС Ч РТЕДМПЦЕОЙЙ uses љЙНЕО НПДХМЕК ФЙРБ Unit, Ч ЛПФПТЩИљ ЬФЙ ПРЙУБОЙС ЧЩРПМОЕОЩ.љ йУЛМАЮЕОЙЕН СЧМСАФУС ПРЙУБОЙС, ЧЩРПМОЕООЩЕ Ч УФБОДБТФОПН НПДХМЕ System,љ ЛПФПТЩЕ ЧУЕЗДБ ДПУФХРОЩљ РТПЗТБННЕ. фБЛ РТПГЕДХТБНЙ, ПРЙУБООЩНЙ Ч ЬФПН НПДХМЕ, Й ЙУРПМШЪХЕНЩНЙ Ч РТПЗТБННЕ СЧМСАФУС: write, writeln, readln.
рТЙ ПРЙУБОЙЙљ РЕТЕНЕООЩИ (УН. УФТПЛХ 3) ДПМЦЕО ВЩФШ ХЛБЪБО ЙИ ФЙР. йУРПМШЪХАФУС ФБЛЙЕ УФБОДБТФОЩЕ ФЙРЩ ДБООЩИ ЛБЛ ЗЕБl (ДЕКУФЧЙФЕМШОЩК (УЙОПОЙН - ЧЕЭЕУФЧЕООЩК) ), integer (ГЕМПЮЙУМЕООЩК), char (УЙНЧПМ). у РПНПЭША ФЙРБ real, Ч ПФМЙЮЙЕ ПФ ФЙРБ integer, ПРЙУЩЧБАФУС РЕТЕНЕООЩЕ, РТЙ ЪБРЙУЙ ЪОБЮЕОЙК ЛПФПТЩИ ЙУРПМШЪХАФУС ГЙЖТЩ РПУМЕ ДЕУСФЙЮОПК ФПЮЛЙ.
6 уМЕДХЕФ ХДЕМСФШ ЧОЙНБОЙЕ ТБЪНЕЭЕОЙА ФЕЛУФБ РТПЗТБННЩ. йУРПМШЪПЧБОЙЕ РТПВЕМПЧ Й ПФУФХРПЧ РПЪЧПМСЕФ ХМХЮЫЙФШ ОБЗМСДОПУФШ РТПЗТБННЩ. лПМЙЮЕУФЧП ЙУРПМШЪХЕНЩИ УФТПЮЕЛ ДМС ЪБРЙУЙ ЛБЦДПЗП ПРЕТБФПТБ Й ЛПМЙЮЕУФЧП ПРЕТБФПТПЧ Ч ЛБЦДПК УФТПЛЕ ОЕ ПЗТБОЙЮЙЧБЕФУС Й ЧЩВЙТБЕФУС ЙЪ УППВТБЦЕОЙК ХДПВУФЧБ ЮФЕОЙС РТПЗТБННЩ ЮЕМПЧЕЛПН. пДОБЛП ОЕМШЪС ТБЪДЕМСФШ РТПВЕМБНЙ ЮБУФЙ ПДОПЗП ЙДЕОФЙЖЙЛБФПТБ ЙМЙ ТБЪНЕЭБФШ ЙИ ОБ ТБЪОЩИ УФТПЛБИ. фБН, ЗДЕ НПЦОП РП УЙОФБЛУЙУХ СЪЩЛБ РПУФБЧЙФШ ПДЙО РТПВЕМ, ФБН НПЦОП РПУФБЧЙФШ РТПЙЪЧПМШОПЕ ЛПМЙЮЕУФЧП РТПВЕМПЧ.
7 пРЕТБФПТЩ ПФДЕМСАФУС ДТХЗ ПФ ДТХЗБ УЙНЧПМПН ";".
8 дМС ЪБДБОЙС ЗТБОЙГ ЛБЦДПЗП ВМПЛБ РТПЗТБННЩ УМХЦБФ УМПЧБ begin Й end. дМС РТПУФЩИ РТПЗТБНН, Ч ПФМЙЮЙЕ ПФ УМПЦОЩИ, ПВЩЮОП ДПУФБФПЮОПљ ПДОПК ФБЛПК РБТЩ. рПУМЕДОЕЕ УМПЧП end РТПЗТБННЩ ДПМЦОП ЪБЛБОЮЙЧБФШУС ФПЮЛПК.љ рПУМЕ ОБВПТБ ЬФПК ФПЮЛЙ ОЕПВИПДЙНП ОЕ ЪБВЩФШ ОБЦБФШ ОБ ЛМБЧЙЫХ "чЧПД".
9 чЧПД Й ЧЩЧПД ЪОБЮЕОЙК РЕТЕНЕООЩИ.
рХУФШ Чљ ТБУУНБФТЙЧБЕНПКљ РТПЗТБННЕљ ЧЧПДСФУСљљ ЪОБЮЕОЙС u=20.5 i=5. фПЗДБ ОБ ЬЛТБОЕ РПМШЪПЧБФЕМС РПСЧЙФУС (РПУМЕ ЪБЧЕТЫЕОЙС РТПЗТБННЩ) УМЕДХАЭЙК ФЕЛУФ:
хЛБЦЙФЕљ ЙУИПДОЩЕљ ДБООЩЕ:
ОБРТСЦЕОЙЕљ u(B)=20.5
ФПЛ i(A)=5.0
...
рТПЗТБННБ ЪБЧЕТЫЕОБ. оБЦНЙФЕ Enter
фБЛЦЕ ВХДЕФ ЧЩЧЕДЕО УМЕДХАЭЙК ЖТБЗНЕОФ ФЕЛУФБ ОБ ЬЛТБО РПМШЪПЧБФЕМС:
йУИПДОЩЕ ДБООЩЕ: u=20.5,B i=5.0,A
тЕЪХМШФБФЩ: r=4.1,OН
лБЛ ЧЙДОП ЙЪ РТЙЧЕДЕООПЗП РТЙНЕТБ ПРЕТБФПТ ЧЩЪПЧБ УФБОДБТФОПК РТПГЕДХТЩ ЧЩЧПДБ writeln (УПЛТ. ПФ write line) ПВЕУРЕЮЙЧБЕФ ЧЩЧПД УФТПЛЙ.љљ љф. Е.љ РПУМЕ ФПЗП ЛБЛ ВХДХФ ОБРЕЮБФБОЩ ДБООЩЕ,љ ХЛБЪБООЩЕ Ч УЛПВЛБИ Ч УРЙУЛЕ РБТБНЕФТПЧ ЬФПК РПДРТПЗТБННЩ, ВХДЕФ ПУХЭЕУФЧМЕО РЕТЕИПД ЛХТУПТБ ОБљ УМЕДХАЭХАљ УФТПЛХ. фБЛЙН ПВТБЪПН, РТЙ ЧЩРПМОЕОЙЙ УМЕДХАЭЕЗП ПРЕТБФПТБ ЧЩЪПЧБ РТПГЕДХТЩ ЧЩЧПДБ, ЧЩЧПД ВХДЕФ РТПЙЪЧПДЙФШУС ХЦЕ ОБ ОПЧХА УФТПЛХ.
ч УМХЮБЕ ЙУРПМШЪПЧБОЙС РТПГЕДХТЩ write ХЛБЪБООЩК РЕТЕИПД ЛХТУПТБ ОБ ОПЧХА УФТПЛХ ОЕ РТПЙЪЧПДЙФУС. рТЙ ЧЩРПМОЕОЙЙ УМЕДХАЭЕЗП ПРЕТБФПТБ ЧЩЪПЧБ РТПГЕДХТЩ ЧЩЧПДБ,љ ЧЩЧПД ВХДЕФ ПУХЭЕУФЧМСФШУС Ч ФХ ЦЕ УФТПЛХ. бОБМПЗЙЮОБС ТБЪОЙГБ УХЭЕУФЧХЕФ НЕЦДХљ ПРЕТБФПТБНЙљ ЧЩЪПЧБ УФБОДБТФОЩИ РТПГЕДХТ ЧЧПДБ ДБООЩИ readln ("ЧЧЕДЙ УФТПЛХ") Й read.
рТЙ ЧЩЧПДЕ ДБООЩИ НПЗХФ ХЛБЪЩЧБФШУС ЖПТНБФЩ Ч ЧЙДЕ ПДОПЗП (":ЛПМЙЮЕУФЧП ЧЩЧПДЙНЩИ УЙНЧПМПЧ") ЙМЙ ДМС ДЕКУФЧЙФЕМШОЩИ РЕТЕНЕООЩИ ДЧХИ (":ПВЭЕЕ ЛПМЙЮЕУФЧП ЧЩЧПДЙНЩИ УЙНЧПМПЧ: ЛПМЙЮЕУФЧП ГЙЖТ РПУМЕ ДЕУСФЙЮОПК ФПЮЛЙ") ЮЙУЕМ. дМС ФПЗП ЮФПВЩ ПРТЕДЕМЙФШ, ЛБЛ ВХДЕФ ПУХЭЕУФЧМСФШУС ЧЩЧПД, ОЕПВИПДЙНП ЪБЖЙЛУЙТПЧБФШ РПЪЙГЙЙ, ЧЩДЕМСЕНЩЕ Ч УППФЧЕФУФЧЙЙ УП ЧФПТЩН ЮЙУМПН (Ч УМХЮБЕ ЕЗП ОБМЙЮЙС)љ УРЙУЛБљ ЖПТНБФПЧ.љ рТЙљ ОЕПВИПДЙНПУФЙљ РТБЧБС ЮБУФШљ ЮЙУМБљ Уљ ДЕУСФЙЮОПКљ ФПЮЛПК ХУЕЛБЕФУС Ч УППФЧЕФУФЧЙЙ УП ЧФПТЩН ЮЙУМПН УРЙУЛБ ЖПТНБФПЧ. ъБФЕН ЕУМЙ ПВЭЕЕ ЛПМЙЮЕУФЧП ЧЩЧПДЙНЩИ УЙНЧПМПЧ ПЛБЦЕФУС НЕОШЫЕ ХЛБЪБООПЗП У РПНПЭША ЖПТНБФБ ЧЩЧПДБ,љ ФП ОЕДПУФБАЭЕЕ ДП ХЛБЪБООПЗП ЛПМЙЮЕУФЧБ ОХЦОПљ ЪБРПМОЙФШ РТПВЕМБНЙ Ч МЕЧПК ЮБУФЙ РПТГЙЙ ЧЩЧПДБ. еУМЙ РПУМЕ ЬФПЗП ЛПМЙЮЕУФЧП УЙНЧПМПЧ, РПДМЕЦБЭЕЕ ЧЩЧПДХ, ВХДЕФ ВПМШЫЕ, ЮЕН ХЛБЪБООПЕ У РПНПЭША РЕТЧПЗП ЮЙУМБ УРЙУЛБ ЖПТНБФПЧ, ФП ЖПТНБФ ВХДЕФ ХЧЕМЙЮЕО БЧФПНБФЙЮЕУЛЙ.
10 ч ПВЭЕН УМХЮБЕ ПРЕТБФПТ РТЙУЧБЙЧБОЙС ЙНЕЕФ ЧЙД V:=A, ЗДЕ V-РЕТЕНЕООБС, A-ЧЩТБЦЕОЙЕ, :=љ - ПРЕТБГЙС РТЙУЧБЙЧБОЙС, ЛПФПТБС ЪБЛМАЮБЕФУС Ч ФПН, ЮФП ЮЙУМЕООПЕ ЪОБЮЕОЙЕ ЧЩТБЦЕОЙС A ЪБРЙУЩЧБЕФУС Ч СЮЕКЛХ РБНСФЙ, ЧЩДЕМЕООХА ДМС ИТБОЕОЙС РЕТЕНЕООПК V.
рПМШЪПЧБФЕМШ ДПМЦЕОљ УМЕДЙФШ,љ ЮФПВЩ ФЙР ЪОБЮЕОЙС, РПМХЮЕООПЗП Ч ТЕЪХМШФБФЕ ЧЩРПМОЕОЙС ЧЩТБЦЕОЙС б, ОЕ ЛПОЖМЙЛФПЧБМ У ФЙРПН РЕТЕНЕООПК V. фБЛ, ОБРТЙНЕТ, ОЕ ДПМЦЕО ЙНЕФШ НЕУФП ПРЕТБФПТ РТЙУЧБЙЧБОЙС,љ Ч ЛПФПТПН Ч МЕЧПК ЮБУФЙ ВЩМБ ВЩ РЕТЕНЕООБС ФЙРБ integer, Б Ч РТБЧПК ЮБУФЙ ТЕЪХМШФБФ ФЙРБ real. ьФП НПЦЕФ РПМХЮЙФШУС, ОБРТЙНЕТ, Ч УМХЮБЕ, ЕУМЙ ПДОБ ГЕМПЮЙУМЕООБС РЕТЕНЕООБС ДЕМЙФУС (У РПНПЭША ПРЕТБГЙЙ /) ОБ ДТХЗХА ГЕМПЮЙУМЕООХА РЕТЕНЕООХА, ЙМЙ ИПФС ВЩ ПДОБ РЕТЕНЕООБС Ч ЧЩТБЦЕОЙЙ A ЙНЕЕФ ДЕКУФЧЙФЕМШОЩК ФЙР.
чПРТПУ 4
оЕЛПФПТЩЕ УФБОДБТФОЩЕ ЖХОЛГЙЙ (НПДХМШ System РТПЗТБННОПК УТЕДЩ Borland Pascal)
C РПНПЭША ЧЩЪПЧБ РЕТЕЮЙУМЕООЩИ ОЙЦЕ БТЙЖНЕФЙЮЕУЛЙИ ЖХОЛГЙК НПЦОП ПРТЕДЕМЙФШ УМЕДХАЭЙЕ ЪОБЮЕОЙС: abs(r) - БВУПМАФОПЕ ЪОБЮЕОЙЕ r;љ arctan(r) - arctg(r);љ cos(r) - cos(r); exp(r) - ЬЛУРПОЕОФХ r;љ frac(r) - ДТПВОХА ЮБУФШ БТЗХНЕОФБ r; int(r) - ГЕМХА ЮБУФШ r; ln(r) - ln(r); pi - 3.14; sin(r) - sin(r); sqr(r) r*r; sqrt(r) - ЛПТЕОШ ЛЧБДТБФОЩК ЙЪ r.љ ъОБЮЕОЙС ЬФЙИ ЖХОЛГЙК ДЕКУФЧЙФЕМШОЩЕ.
чПЪЧЕДЕОЙЕ Ч УФЕРЕОШ n РЕТЕНЕООПК x>0 НПЦОП ПУХЭЕУФЧЙФШ, ЙУРПМШЪХС УФБОДБТФОЩЕ ЖХОЛГЙЙ, УМЕДХАЭЙН ПВТБЪПН: exp(n*ln(x)).
йУРПМШЪХАФУС ЖХОЛГЙЙ РТЕПВТБЪПЧБОЙС: chr(x),ЙНЕАЭБСљ ФЙР char Й ПРТЕДЕМСАЭБС ЪОБЮЕОЙЕ УЙНЧПМБ РП ЕЗП РПТСДЛПЧПНХ ОПНЕТХ x; ord(x), ПРТЕДЕМСАЭБС РПТСДЛПЧЩК ОПНЕТ, УППФЧЕФУФЧХАЭЙК ЪОБЮЕОЙА И РПТСДЛПЧПЗП ФЙРБ; round(r) Й trunc(r), ПЛТХЗМСАЭЙЕ ЪОБЮЕОЙЕ r ТБЪМЙЮОЩНЙ УРПУПВБНЙ: УППФЧЕФУФЧЕООП ДП ВМЙЦБКЫЕЗП ГЕМПЗП ЙМЙ ПФВТБУЩЧБОЙЕН ДТПВОПК ЮБУФЙ. рПУМЕДОЙЕ ФТЙ ЖХОЛГЙЙ ЙНЕАФ ГЕМПЮЙУМЕООЩК, Б РЕТЕНЕООБС r ЧЕЭЕУФЧЕООЩК ФЙР.
чПРТПУ 5
пРЕТБГЙЙ ОБД ДБООЩНЙ Ч СЪЩЛЕ рБУЛБМШ
пРЕТБГЙЙ ОБД ДЕКУФЧЙФЕМШОЩНЙ Й ГЕМПЮЙУМЕООЩНЙљ ДБООЩНЙ: *,/,+,-љ
љ- УППФЧЕФУФЧЕООП ХНОПЦЕОЙЕ, ДЕМЕОЙЕ, УМПЦЕОЙЕ Й ЧЩЮЙФБОЙЕ. тЕЪХМШФБФ ЙНЕЕФ ДЕКУФЧЙФЕМШОЩК ФЙР, ЕУМЙ ИПФС ВЩ ПДЙО ПРЕТБОД ЧЩТБЦЕОЙС ЙНЕЕФ ДЕКУФЧЙФЕМШОЩК ФЙР, Б ФБЛЦЕ ДМС ПРЕТБГЙЙ " /љ ". ч ПУФБМШОЩИ УМХЮБСИ ТЕЪХМШФБФ ЙНЕЕФ ГЕМПЮЙУМЕООЩК ФЙР. оБД ГЕМПЮЙУМЕООЩНЙ ДБООЩНЙ РТПЙЪЧПДСФ ФБЛЦЕ ПРЕТБГЙЙ: div - ДЕМЕОЙС ГЕМПЮЙУМЕООЩИ ПРЕТБОДПЧ У ГЕМПЮЙУМЕООЩН ТЕЪХМШФБФПН, РПМХЮБЕНЩН РХФЕН ПФВТБУЩЧБОЙС ДТПВОПК ЮБУФЙ ТЕЪХМШФБФБ; mod - ПРТЕДЕМЕОЙС ПУФБФЛБ ПФ ДЕМЕОЙС ГЕМПЮЙУМЕООЩИ ПРЕТБОДПЧ. фБЛ (7)div(3)=2 , Б (7)mod(3)=1.
чПРТПУ 6
рТЙПТЙФЕФ БТЙЖНЕФЙЮЕУЛЙИ ПРЕТБГЙК
хУФБОПЧМЕОБ УМЕДХАЭБС РПУМЕДПЧБФЕМШОПУФШ ЧЩРПМОЕОЙС БТЙЖНЕФЙЮЕУЛЙИ ПРЕТБГЙК:
љљљљ Б) ЧЩТБЦЕОЙС Ч УЛПВЛБИ ОЕЪБЧЙУЙНП ПФ РТЕДЫЕУФЧХАЭЙИ ПРЕТБФПТПЧ;
љљљљ В) БТЙЖНЕФЙЮЕУЛПЕ ПФТЙГБОЙЕ;
љљљљ Ч) ХНОПЦЕОЙЕ Й ДЕМЕОЙЕ;
љљљљ З) УМПЦЕОЙЕ Й ЧЩЮЙФБОЙЕ;
љљљљ Д) ПРЕТБГЙЙ ПДОПЗП РТЙПТЙФЕФБ УМЕЧБ ОБ РТБЧП.
МЕЛГЙС 2
рТЙНЕТЩ ТБЪТБВПФЛЙ ЛПОУПМШОЩИ РТЙМПЦЕОЙК ОБ СЪЩЛБИ РТПЗТБННЙТПЧБОЙС Delphi Й уЙ++ (юБУФШ 1).
чПРТПУ 1
рТПЗТБННЙТПЧБОЙЕ УИЕНЩ БМЗПТЙФНБ (Р. 3.4 ЧПРТПУ 2 МЕЛГЙЙ 1)ОБ СЪЩЛЕ Delphi (ЛПОУПМШОЩК ТЕЦЙН)
//йЧБОПЧ йЧБО йЧБОПЧЙЮ бфу-151 j:\vtp\delphi\lec2\lec2.dpr 20.01.09 љљ1
program lЕУ2;љљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљ //2
{$APPTYPE CONSOLE}љљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљ љљљљљљљљљљљљљљљљљљљљљљљ//2a
Uses SysUtils;љљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљ //2b
var u,i,r:real;љљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљ љљљљљљљљљљљљљљљљљљљљљљљ//3
beginљљљљљљљљљљљљљљљљ љљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљ//5
љ write('u(B)=');љљљљљљљљљљљљљљљ readln(u);љљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљ //6
љ write('i(A)=');љљљљљљљљљљљљљљљљ readln(i);љљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљ љљљљљљљљљљљљљљ//7
љ r:=u/i;љљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљ //8
љ writeln('Input data: u=', u:3:1, ',B i=', i:3:1,',A');љљљљљљљљљљљљљљљљљљљљљљљ //9
љ writeln('Result: r=', r:3:1, ',Om');љљљљљљљљљљ љљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљ//10
љ writeln('...');љљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљ //11
љ writeln('Press Enter to stop the program');љљљљљљљљљљљљљљљљљљ љљљљљљљљљљљљљљ//12
љ readln;љљљ љљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљ//13
end.љљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљ љљљљљљљљљљљљљљљљљљљљљљљљљљљ//14
чПРТПУ 2
уПЪДБОЙЕ ЛПОУПМШОПЗП РТЙМПЦЕОЙС Ч УТЕДЕ Delphi ЧЕТУЙС 7
1. еУМЙ ОБ ЛПНРШАФЕТЕ ОЕ ХУФБОПЧМЕОБ РТПЗТБННБ «йОФЕЗТЙТПЧБООБС УТЕДБ ТБЪТБВПФЮЙЛБ РТПЗТБНН Delphi», ФП ФТЕВХЕФУС ЙОУФБММСГЙПООБС РТПЗТБННБ ДМС ЕЕ ХУФБОПЧЛЙ (Ч ТБУУНБФТЙЧБЕНПН УМХЮБЕ ЧЕТУЙС Delphi 7).
2. тЕЛПНЕОДХЕФУС УПЪДБФШ РБРЛЙ ДМС УПИТБОЕОЙС Ч ОЙИ љЖБКМПЧ, ОБРТЙНЕТ, Ч ЧЩЫЕТБУУНПФТЕООПН УМХЮБЕ РБРЛХ j:\vtp\delphi\lec2\ - ДМС ТБЪНЕЭЕОЙС Ч ОЕК РТПЗТБННЩ У ЙНЕОЕН leУ2 Ч ЖБКМЕ У РПМОЩН ЙНЕОЕН j:\vtp\delphi\lec2\lec2.dpr. йОФЕЗТЙТПЧБООБС УТЕДБ Delphi РПНЕУФЙФ Ч ХЛБЪБООХА РБРЛХ ФБЛЦЕ УЕНЕКУФЧП ЧУРПНПЗБФЕМШОЩИ ЖБКМПЧ.
3. дМС ЪБРХУЛБ ОБ ЧЩРПМОЕОЙЕ ЙОФЕЗТЙТПЧБООПК УТЕДЩ Delphi љљЧЕТУЙЙ 7 (2002 З.), ДБЕФУС ЛПНБОДБ: рХУЛрТПЗТБННЩBorland Delphi 7 Delphi 7.
4. дМС ЪБЛТЩФЙС РТЕДЩДХЭЙИ РТПЕЛФПЧ ЙУРПМШЪХЕФУС ЛПНБОДБ: FileClose All.
5. дМС УПЪДБОЙС ОПЧПЗП ЙУИПДОПЗП ЖБКМБ РТПЗТБННЩ У РПНПЭША ЙОФЕЗТЙТПЧБООПК УТЕДЩ ДБЕФУС ЛПНБОДБ File(жБКМ)New(уПЪДБФШ) Other(дТХЗПЕ), ЪБФЕН Ч ДЙБМПЗПЧПН ПЛОЕ New Items(уПЪДБОЙЕ РТПЗТБННЩ), Ч ЪБЛМБДЛЕ New, ЧЩВЙТБЕФУС ЪОБЮПЛ Console Application (лПОУПМШОПЕ РТЙМПЦЕОЙЕ).
6. рП ХНПМЮБОЙА ЖБКМ У РТПЕЛФЙТХЕНПК РТПЗТБННПК РПМХЮБЕФ ЙНС Project1.dpr. чЕУШ РТПЕЛФ (УПЧПЛХРОПУФШ ЬФПЗП Й ЧУРПНПЗБФЕМШОЩИ ЖБКМПЧ) тЗПject1. хЛБЪБООПЕ ЙНС ЖБКМБ ВЕЪ ТБУЫЙТЕОЙС РПНЕЭБЕФУС Ч ЪБЗПМПЧЛЕ ПЛОБ ТЕДБЛФПТБ ЙУИПДОПЗП ЛПДБ РТПЕЛФЙТХЕНПК РТПЗТБННЩ. ч УБНПН ПЛОЕ ВХДЕФ БЧФПНБФЙЮЕУЛЙ ОБВТБОБ ЪБЗПФПЧЛБ ВХДХЭЕЗП ФЕЛУФБ РТПЗТБННЩ (РПМХЮБАЭЕК РП ХНПМЮБОЙА ФПЦЕ ЙНС тЗПject1):
program Project1;
{$APPTYPE CONSOLE}
uses
љ SysUtils;
begin
љ { TODO -oUser -cConsole Main : Insert code here }
end.
7. ч РТЙЧЕДЕООЩК ЧЩЫЕ ФЕЛУФ, ОБИПДСЭЙКУС Ч ПЛОЕ (Project1) ТЕДБЛФПТБ ЙУИПДОПЗП ЛПДБ, ЧОПУСФУС ЙЪНЕОЕОЙС РПУТЕДУФЧПН ОБВЙЧЛЙ ЙМЙ ЧУФБЧЛЙ ОЕДПУФБАЭЕЗП ФЕЛУФБ РТПЗТБННЩ.
8. ъБФЕН РТПЗТБННБ ЪБРХУЛБЕФУС Ч ЙОФЕЗТЙТПЧБООПК УТЕДЕ У РПНПЭША ЛПНБОДЩ Run/Run. рТЙ РПРЩФЛЕ ЪБРХУЛБ БЧФПНБФЙЮЕУЛЙ ЧЩРПМОСЕФУС ЛПНБОДБ Save Project As, ЛПФПТБС ЪБРТБЫЙЧБЕФ ЙНС ЖБКМБ, Ч ЛПФПТПН ВХДЕФ ИТБОЙФШУС РТПЗТБННБ, Й НЕУФП ЕЗП ИТБОЕОЙС. рПМШЪПЧБФЕМШ Ч ТБУУНБФТЙЧБЕНПН УМХЮБЕ НПЦЕФ (УН. УФТПЛХ 1 ЧЩЫЕРТЙЧЕДЕООПК РТПЗТБННЩ) ЧЩВТБФШ ДМС ИТБОЕОЙС ЖБКМБ РБРЛХ j:\vtp\delphi\lec2\, Б ЖБКМХ ДБФШ ЙНС- lec2.dpr. ф.Е. РПМОПЕ ЙНС ЖБКМБ У РТПЕЛФЙТХЕНПК РТПЗТБННПК ВХДЕФ j:\vtp\delphi\lec2\lec2.dpr.
чПРТПУ 3
пУПВЕООПУФЙ РПДЗПФПЧЛЙ Л ТБЪТБВПФЛЕ ЛПОУПМШОПЗП РТЙМПЦЕОЙС Delphi Ч УТЕДЕ Borland Developer Studio 2005 ЙМЙ 2006 (ЧЕТУЙС 10)
дМС ЪБРХУЛБ ОБ ЧЩРПМОЕОЙЕ ЙОФЕЗТЙТПЧБООПК УТЕДЩ Delphi ЧЕТУЙЙ 10 (2006 З.) ДБЕФУС ЛПНБОДБ рХУЛрТПЗТБННЩBorland Developer Studio 2006 Й РПЧФПТОП Borland Developer Studio 2006 ЙМЙ, ЮФП МХЮЫЕ, Delphi for Microsoft Win32.
дМС УПЪДБОЙС ЙУИПДОПЗП ЖБКМБ РТПЗТБННЩ У РПНПЭША ЙОФЕЗТЙТПЧБООПК УТЕДЩ ДБЕФУС ЛПНБОДБ File(жБКМ)/New(уПЪДБФШ)/Other(дТХЗПЕ) Й Ч ПЛОЕ New Items (уПЪДБОЙЕ РТПЗТБННЩ), Ч РПДПЛОЕ Items Categories ЧЩВЙТБЕФУС РБРЛБ Delphi Projects, Б Ч ОЕК - ЪОБЮПЛ Console Application (лПОУПМШОПЕ РТЙМПЦЕОЙЕ).
чПРТПУ 4
рТЙНЕТ РТПЗТБННЙТПЧБОЙС ОБ СЪЩЛЕ уЙ++ (ЛПОУПМШОЩК ТЕЦЙН ЙОФЕЗТЙТПЧБООПК УТЕДЩ Borland Builder (Borland Developer Studio))
фЕЛУФ РТПЗТБННЩ, ОБРЙУБООПК ОБ ПУОПЧЕ БЧФПНБФЙЮЕУЛЙ УПЪДБООПК ЪБЗПФПЧЛЙ, ЖПТНЙТХЕНПК ЙОФЕЗТЙТПЧБООПК УТЕДПК:
//йЧБОПЧ йЧБО йЧБОПЧЙЮ бфу-151 j:\vtp\у++\lec2_1\Unit1.cpp 20.01.09 љљљ
//---------------------------------------------------------------------------
#include <iostream.h>љ //Ч ЖБКМЕ iostream.h ДБОП ПРЙУБОЙЕ cout, cin, endl
#pragma hdrstop // ЬФБ БЧФПНБФЙЮЕУЛЙ УПЪДБООБС УФТПЛБ НПЦЕФ ВЩФШ ХДБМЕОБ
//---------------------------------------------------------------------------
pragma argsused // БОБМПЗЙЮОП УФТПЛБ НПЦЕФ ВЩФШ ХДБМЕОБ
//int main(int argc, char* argv[]) // ЬФПФ ЪБЗПМПЧПЛ ЖХОЛГЙЙ main НПЦЕФ //ВЩФШ ЪБНЕОЕО ОБ ВПМЕЕ РТПУФПК, УН. УМЕДХАЭХА УФТПЛХ
void main()
{int pause;
љљ cout<<"Hello"<<endl;
љљ cout<<"Press any key and then Press Enter to stop the program.";
љљ cin>>pause;
//return 0;//ч УМХЮБЕ ХЛБЪБООПК ЪБНЕОЩ ЪБЗПМПЧЛБ ЖХОЛГЙЙ main, ЬФБ //УФТПЛБ ХДБМСЕФУС
}
фЕЛУФ РТПЗТБННЩ РПУМЕ ХДБМЕОЙС МЙЫОЕЗП РТЙНЕФ ЧЙД:
//йЧБОПЧ йЧБО йЧБОПЧЙЮ бфу-151 j:\vtp\у++\lec2_1\Unit1.cpp 20.01.09љљљ 1
#include <iostream.h>љ //Ч ЖБКМЕ iostream.h ДБОП ПРЙУБОЙЕ cout, cin, endlљљљљљљљ љ 2
void main() љљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљ љљ3
{char ch; љљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљ љљ4
љљљ cout<<"Hello"<<endl; љљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљ љљ5
љљљ cout<<"Press any key and then Press Enter to stop the program."; љљљљљљљљљљљљљљљљљљљљљ љљ6
љљљ cin>>ch; љљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљ љљ7
}
чПРТПУ 5
бОБМЙЪ ФЕЛУФБ ДБООПК РТПЗТБННЩ
чУС РТПЗТБННБ УПУФПЙФ ЙЪ ЛПННЕОФБТЙС (УФТПЛБ 1), ДЙТЕЛФЙЧЩ include (ПВЕУРЕЮЙЧБАЭЕК БЧФПНБФЙЮЕУЛПЕ ЧЛМАЮЕОЙЕ Ч ФЕЛУФ РТПЗТБННЩ ФЕЛУФБ ХЛБЪБООПЗП ЖБКМБ) Й ЗМБЧОПК ЖХОЛГЙЙ, ЙНЕАЭЕК ЧУЕЗДБ ЙНС main.
ч ДЙТЕЛФЙЧЕ ХЛБЪБОП ЙНС ЖБКМБ iostream.h (input (ЧИПДОПК) output (ЧЩИПДОПК) stream (РПФПЛ)). ч ЖБКМЕ ПРЙУБОЩ ЙДЕОФЙЖЙЛБФПТЩ, ЛПФПТЩЕ ЙУРПМШЪХАФУС РТЙ ПТЗБОЙЪБГЙЙ ЧЧПДБ Й ЧЩЧПДБ ДБООЩИ, Ч ОБЫЕН УМХЮБЕ ЬФП - cout, cin, endl.
ъБЗПМПЧПЛ ЗМБЧОПК ЖХОЛГЙЙ - void main(). уМХЦЕВОПЕ УМПЧП void РЕТЕД ЙНЕОЕН ЖХОЛГЙЙ РПЛБЪЩЧБЕФ, ЮФП РТЙ ЧЩЪПЧЕ ЖХОЛГЙЙ ЕЕ ЙНС ОЕ ЙУРПМШЪХЕФУС ДМС РЕТЕДБЮЙ ЪОБЮЕОЙС ЙЪ ЖХОЛГЙЙ Ч ЧЩЪЩЧБАЭХА ЕЕ РТПЗТБННХ.
иПФС ФЕТНЙО РТПГЕДХТБ Ч СЪЩЛЕ уЙ ОЕ ЙУРПМШЪХЕФУС, Б Ч ЛБЮЕУФЧЕ РПДРТПЗТБНН ЙУРПМШЪХАФУС ФПМШЛП ЖХОЛГЙЙ, ОП ЕУМЙ ОБ НЕУФЕ ФЙРБ ЕЕ ЙНЕОЙ УФПЙФ УМПЧП void, ФП ПОБ ЖБЛФЙЮЕУЛЙ СЧМСЕФУС ЬЛЧЙЧБМЕОФПН РПОСФЙС РТПГЕДХТЩ Ч ДТХЗЙИ СЪЩЛБИ РТПЗТБННЙТПЧБОЙС. ч ДБООПН УМХЮБЕ ЖХОЛГЙС ОЕ ЙНЕЕФ РБТБНЕФТПЧ (ПОЙ ПФУХФУФЧХАФ Ч УЛПВЛБИ РПУМЕ ЙНЕОЙ ЖХОЛГЙЙ).
жХОЛГЙА ПРЕТБФПТОЩИ УЛПВПЛ ЧЩРПМОСАФ ЖЙЗХТОЩЕ УЛПВЛЙ. пУПВЕООПУФША СЧМСЕФУС ЧПЪНПЦОПУФШ ОБИПЦДЕОЙС ПРЙУБОЙК РЕТЕНЕООЩИ ЧОХФТЙ ЬФЙИ УЛПВПЛ. ч УФТПЛЕ 4 РЕТЕНЕООБС Уh ПРЙУЩЧБЕФУС ЛБЛ РЕТЕНЕООБС ФЙРБ УЙНЧПМ. ч УФТПЛЕ 5 РТПЙЪЧПДЙФУС ЧЩЧПД УФТПЛЙ УЙНЧПМПЧ Ч ПЛОП ЛПОУПМЙ У РПНПЭША ЛПОУФТХЛГЙЙ cout<< ЧЩЧПДБ ДБООЩИ Ч УФБОДБТФОЩК РПФПЛ ЧЩЧПДБ, ЛПФПТЩК Ч ЛПОУПМШОЩИ РТЙМПЦЕОЙС УППФЧЕФУФЧХЕФ ПЛОХ ЛПОУПМЙ. пУПВЕООПУФША СЧМСЕФУС ЪБРЙУШ УФТПЛЙ УЙНЧПМПЧ Ч ДПКОЩИ БРПУФТПЖБИ. ъБФЕН У РПНПЭША УРЕГЙБМШОПЗП ЙДЕОФЙЖЙЛБФПТБ endl (end (ЛПОЕГ) line (УФТПЛЙ)) ПУХЭЕУФЧМСЕФУС РЕТЕЧПД ЛХТУПТБ ОБ УМЕДХАЭХА УФТПЛХ. пРЕТБГЙЙ << Й >> СЧМСАФУС УППФЧЕФУФЧЕООП ПРЕТБГЙСНЙ ЧЩЧПДБ ЙМЙ ЧЧПДБ РПТГЙЙ ДБООЩИ.
лПОУФТХЛГЙС cin>> ЙУРПМШЪХЕФУС ДМС ЧЧПДБ ДБООЩИ ЙЪ УФБОДБТФОПЗП РПФПЛ ЧЩЧПДБ, ЛПФПТЩК Ч ЛПОУПМШОЩИ РТЙМПЦЕОЙСИ УППФЧЕФУФЧХЕФ ЛМБЧЙБФХТЕ. ч УФТПЛЕ 7 ЙУРПМШЪХЕФУС УФБОДБТФОЩК РТЙЕН ДМС ЪБДЕТЦЛЙ ПЛОБ ЛПОУПМЙ ОБ ЬЛТБОЕ НПОЙФПТБ ДП НПНЕОФБ ЧЧПДБ УЙНЧПМБ Ч РЕТЕНЕООХА Уh Й ОБЦБФЙС ЛМБЧЙЫЙ Enter.
йДЕОФЙЖЙЛБФПТЩ cin Й cout СЧМСАФУС ПВЯЕЛФБНЙ, ЛПФПТЩЕ ПРЙУБОЩ Ч ЖБКМЕ iostream.h. рПОСФЙЕ ПВЯЕЛФ РТЕДУФБЧМСЕФ УПВПК ДБМШОЕКЫЕЕ ТБЪЧЙФЙЕ РПОСФЙС РЕТЕНЕООПК. пВЯЕЛФ РТЕДУФБЧМСЕФ УПВПК УПЧПЛХРОПУФШ УПУФБЧМСАЭЙИ ЕЗП ДБООЩИ (РЕТЕНЕООЩИ) Й ЖХОЛГЙК ДМС ТБВПФЩ У ОЙНЙ. пРЙУЩЧБАФУС ПВЯЕЛФЩ У РПНПЭША ПУПВПЗП ЧЙДБ ОЕУФБОДБТФОЩИ ФЙРПЧ, ЛПФПТЩЕ ОБЪЩЧБАФУС ЛМБУУБНЙ. хЛБЪБООЩЕ РЕТЕНЕООЩЕ ОБЪЩЧБАФУС РПМСНЙ, Б ЖХОЛГЙЙ НЕФПДБНЙ. йДЕОФЙЖЙЛБФПТ endl СЧМСЕФУС НБОЙРХМСФПТПН.
МЕЛГЙС 3
рТЙНЕТЩ ТБЪТБВПФЛЙ ЛПОУПМШОЩИ РТЙМПЦЕОЙК ОБ СЪЩЛБИ РТПЗТБННЙТПЧБОЙС Delphi Й уЙ++ (юБУФШ 2).
чПРТПУ 1
уПЪДБОЙЕ ЛПОУПМШОПЗП РТЙМПЦЕОЙС Ч УТЕДЕ Borland у++ Builder ЧЕТУЙС 6
1. еУМЙ ОБ ЛПНРШАФЕТЕ ОЕ ХУФБОПЧМЕОБ РТПЗТБННБ «йОФЕЗТЙТПЧБООБС УТЕДБ ТБЪТБВПФЮЙЛБ РТПЗТБНН уЙ++», ФП ФТЕВХЕФУС ЙОУФБММСГЙПООБС РТПЗТБННБ ДМС ЕЕ ХУФБОПЧЛЙ (Ч ТБУУНБФТЙЧБЕНПН УМХЮБЕ ЧЕТУЙС Borland у++ Builder 6).
2. тЕЛПНЕОДХЕФУС УПЪДБФШ РБРЛЙ ДМС УПИТБОЕОЙС Ч ОЙИ љЖБКМПЧ, ОБРТЙНЕТ, Ч ЧЩЫЕТБУУНПФТЕООПН УМХЮБЕ РБРЛХ j:\vtp\У\lec2_1\ - ДМС ТБЪНЕЭЕОЙС Ч ОЕК РТПЗТБННЩ У ЙНЕОЕН leУ2_1 Ч ЖБКМЕ У РПМОЩН ЙНЕОЕН j:\vtp\c\lec2_1\Unit1.cpp. йОФЕЗТЙТПЧБООБС УТЕДБ C++ РПНЕУФЙФ Ч ХЛБЪБООХА РБРЛХ ФБЛЦЕ УЕНЕКУФЧП ЧУРПНПЗБФЕМШОЩИ ЖБКМПЧ.
3. дМС УПЪДБОЙС ОПЧПК РТПЗТБННЩ (Ч ЧЙДЕ ЛПОУПМШОПЗП РТЙМПЦЕОЙС) Ч йОФЕЗТЙТПЧБООПК УТЕДЕ РТПЗТБННЙТПЧБОЙС Borland у++ Builder ЧЕТУЙС 6 ОЕПВИПДЙНП ЧЩРПМОЙФШ УМЕДХАЭЙЕ ДЕКУФЧЙС:
рХУЛрТПЗТБННЩBorland у++ Builder 6у++ Builder 6 FileClose All FileNewOtherNew Items (оПЧЩЕ ЬМЕНЕОФЩ)New Console Wizard (нБУФЕТ ЛПОУПМЙ).
4. рТЙ УПЪДБОЙЙ ОПЧПЗП РТПЕЛФБ Ч ПЛОЕ Console Wizard ХВТБФШ ПРГЙЙ: Use VCL, Use CLX, Multi Treaded (нОПЗПРПФПЮОЩК), ПУФБЧЙЧ ПРГЙЙ: у++, Console Application (лПОУПМШОПЕ РТЙМПЦЕОЙЕ). рТЙ УПЪДБОЙЙ РТПЕЛФБ, ОБ ПУОПЧЕ УХЭЕУФЧХАЭЕЗП, УМЕДХЕФ ХУФБОПЧЙФШ ПРГЙА Specify project source, ОБЦБФШ ОБ ЛОПРЛХ ... Й ХЛБЪБФШ РБРЛХ, УПДЕТЦБЭХА УХЭЕУФЧХАЭЙК РТПЕЛФ.
5. жБКМ У РТПЕЛФЙТХЕНПК РТПЗТБННПК РП ХНПМЮБОЙА РПМХЮБЕФ ЙНС Unit1.cpp. чЕУШ РТПЕЛФ (УПЧПЛХРОПУФШ ЬФПЗП Й ЧУРПНПЗБФЕМШОЩИ ЖБКМПЧ) РП ХНПМЮБОЙА РПМХЮБЕФ ЙНС, ОБРТЙНЕТ, тЗПject1. хЛБЪБООПЕ ЙНС ЖБКМБ РПНЕЭБЕФУС Ч ЪБЗПМПЧЛЕ ПЛОБ ТЕДБЛФПТБ ЙУИПДОПЗП ЛПДБ РТПЕЛФЙТХЕНПК РТПЗТБННЩ. ч УБНПН ПЛОЕ ВХДЕФ БЧФПНБФЙЮЕУЛЙ ОБВТБОБ ЪБЗПФПЧЛБ ФЕЛУФБ ВХДХЭЕК РТПЗТБННЩ:
//---------------------------------------------------------------------------
#pragma hdrstop
//---------------------------------------------------------------------------
#pragma argsused
int main(int argc, char* argv[])
{
љљљљљљљ return 0;
}
//---------------------------------------------------------------------------
6. ч РТЙЧЕДЕООЩК ЧЩЫЕ ФЕЛУФ, ОБИПДСЭЙКУС Ч ПЛОЕ (Unit1.cpp) ТЕДБЛФПТБ ЙУИПДОПЗП ЛПДБ, ЧОПУСФУС ЙЪНЕОЕОЙС РПУТЕДУФЧПН ОБВЙЧЛЙ ЙМЙ ЧУФБЧЛЙ ОЕДПУФБАЭЕЗП ФЕЛУФБ РТПЗТБННЩ, ХДБМЕОЙС ТСДБ УФТПЛ (УН. ФЕЛУФ РТПЗТБННЩ, ТБУУНБФТЙЧБЕНЩК Ч ЧПРТПУЕ 4 ОБУФПСЭЕК МЕЛГЙЙ).
7. ъБФЕН РТПЗТБННБ ЪБРХУЛБЕФУС Ч ЙОФЕЗТЙТПЧБООПК УТЕДЕ У РПНПЭША ЛПНБОДЩ Run/Run.
8. рТЙ ОБВПТЕ ЛПНБОДЩ FileSave All (CoxpБОЙФШ ЧУЕ) ЙМЙ РПРЩФЛЕ ЧЩИПДБ ЙЪ ЙОФЕЗТЙТПЧБООПК УТЕДЩ УОБЮБМБ ЧЩРПМОСЕФУС ЛПНБОДБ Save Unit1 As., рТЙ ЬФПН РТЕДМБЗБЕФУС УПИТБОЙФШ РТПЕЛФЙТХЕНЩК ЖБКМ РПД ЙНЕОЕН РП ХНПМЮБОЙА (Unit1.cpp) Ч БЧФПНБФЙЮЕУЛЙ ЧЩВТБООПК РБРЛЕ. рТПЗТБННЙУФ НПЦЕФ ЧЩВТБФШ ДМС ИТБОЕОЙС РТПЕЛФЙТХЕНПЗП ЖБКМБ ДТХЗХА РБРЛХ, ОБРТЙНЕТ, Ч УППФЧЕФУФЧЙЕ УП УФТПЛПК 1 РТПЗТБННЩ, ТБУУНБФТЙЧБЕНПК Ч ЧПРТПУЕ 4 ОБУФПСЭЕК МЕЛГЙЙ, j:\vtp\У\lec2_1\, Б ФБЛЦЕ ДБФШ ДТХЗПЕ ЙНС ЬФПНХ ЖБКМХ, ОБРТЙНЕТ, - lec2_1.cpp.
9. ъБФЕН ЧЩРПМОСЕФУС ЛПНБОДБ Save Project As, РТЙ ЙУРПМОЕОЙЙ ЛПФПТПК РТЕДМБЗБЕФУС УПИТБОЕОЙЕ ЗМБЧОПЗП ЖБКМБ РТПЕЛФБ РПД ЙНЕОЕН РП ХНПМЮБОЙА (Project1.bpr), У ЮЕН ТЕЛПНЕОДХЕФУС УПЗМБУЙФШУС.
чПРТПУ 2
пУПВЕООПУФЙ РПДЗПФПЧЛЙ Л ТБЪТБВПФЛЕ ЛПОУПМШОПЗП РТЙМПЦЕОЙС уЙ++ Ч УТЕДЕ Borland Developer Studio 2005/6 (ЧЕТУЙС 10)
1. дМС ЪБРХУЛБ ОБ ЧЩРПМОЕОЙЕ ЙОФЕЗТЙТПЧБООПК УТЕДЩ уЙ++ љљљљљљЧЕТУЙЙ 10 (2006 З.) ДБЕФУС ЛПНБОДБ рХУЛрТПЗТБННЩBorland Developer Studio 2006 Й РПЧФПТОП Borland Developer Studio 2006 ЙМЙ, ЮФП МХЮЫЕ, уЙ++ Builder.
2. дМС УПЪДБОЙС ЙУИПДОПЗП ЖБКМБ РТПЗТБННЩ У РПНПЭША ЙОФЕЗТЙТПЧБООПК УТЕДЩ ДБЕФУС ЛПНБОДБ FileClose All FileNewOtherЙ Ч ПЛОЕ New Items, Ч РПДПЛОЕ Items Categories ЧЩВЙТБЕФУС РБРЛБ уЙ++ Builder Projects, Б Ч ОЕК - ЪОБЮПЛ Console Application.
3. рТЙ УПЪДБОЙЙ ОПЧПЗП РТПЕЛФБ Ч ПЛОЕ New Console Application ХВТБФШ ПРГЙЙ: Use VCL, Use CLX, Multi Treaded (нОПЗПРПФПЮОЩК), ПУФБЧЙЧ ПРГЙЙ: у++, Console Application. рТЙ УПЪДБОЙЙ РТПЕЛФБ, ОБ ПУОПЧЕ УХЭЕУФЧХАЭЕЗП, УМЕДХЕФ ХУФБОПЧЙФШ ПРГЙА Specify project source, ОБЦБФШ ОБ ЛОПРЛХ ... Й ХЛБЪБФШ РБРЛХ, УПДЕТЦБЭХА УХЭЕУФЧХАЭЙК РТПЕЛФ.
4. дП НПНЕОФБ УПИТБОЕОЙС, РТПЕЛФ Й ЕЗП ЖБКМЩ РПМХЮБАФ ЙНЕОБ РП ХНПМЮБОЙА. оБРТЙНЕТ, ЙНС рТПЕЛФБ - тЗПject1. жБКМБ У РТПЕЛФЙТХЕНПК РТПЗТБННПК - Unit1.cpp (ТБУЫЙТЕОЙЕ: уЙ++). зМБЧОПЗП ЖБКМБ РТПЕЛФБ - Project1.bdsproj (ТБУЫЙТЕОЙЕ: Borland Developer Studio Project). йНС РТПЕЛФЙТХЕНПЗП ЖБКМБ (Unit1.cpp) Й УПЛТБЭЕООПЕ (ВЕЪ ТБУЫЙТЕОЙС Й РХФЙ Л ЖБКМХ) ЙНС ЗМБЧОПЗП ЖБКМБ РТПЕЛФБ (Project1) ТБЪНЕЭБАФУС ОБ ЪБЛМБДЛБИ ЪБЗПМПЧЛБ ПЛОБ ТЕДБЛФПТБ. оЕПВИПДЙНП ЧЩВТБФШ ЪБЛМБДЛХ Unit1.cpp. ч ПЛОЕ ТЕДБЛФПТБ ЙУИПДОПЗП ЛПДБ РТПЕЛФЙТХЕНПК РТПЗТБННЩ ВХДЕФ БЧФПНБФЙЮЕУЛЙ ОБВТБОБ ЪБЗПФПЧЛБ УФБОДБТФОПК ЮБУФЙ ФЕЛУФБ ВХДХЭЕК РТПЗТБННЩ, Ч ЛПФПТЩК РТПЗТБННЙУФПН ЧОПУСФУС ЙЪНЕОЕОЙС.
5. ъБФЕН РТПЗТБННБ ЪБРХУЛБЕФУС Ч ЙОФЕЗТЙТПЧБООПК УТЕДЕ У РПНПЭША ЛПНБОДЩ Run/Run. рТЙ РПРЩФЛЕ ЪБРХУЛБ БЧФПНБФЙЮЕУЛЙ ОБЮЙОБЕФ ЧЩРПМОСФШУС ЛПНБОДБ Save Unit1 As. рТЙ ЬФПН РТЕДМБЗБЕФУС УПИТБОЙФШ РТПЕЛФЙТХЕНЩК ЖБКМ РПД ЙНЕОЕН РП ХНПМЮБОЙА (Unit1.cpp) Ч БЧФПНБФЙЮЕУЛЙ ЧЩВТБООПК РБРЛЕ. рТПЗТБННЙУФ НПЦЕФ ЧЩВТБФШ ДМС ИТБОЕОЙС РТПЕЛФЙТХЕНПЗП ЖБКМБ ДТХЗХА РБРЛХ, ОБРТЙНЕТ, Ч УППФЧЕФУФЧЙЕ УП УФТПЛПК 1 РТПЗТБННЩ, ТБУУНБФТЙЧБЕНПК Ч ЧПРТПУЕ 4 ОБУФПСЭЕК МЕЛГЙЙ, j:\vtp\У\lec2_1\, Б ФБЛЦЕ ДБФШ ДТХЗПЕ ЙНС ЬФПНХ ЖБКМХ, ОБРТЙНЕТ, - lec2_1.cpp. ъБФЕН ЧЩРПМОСЕФУС ЛПНБОДБ Save Project As, РТЙ ЙУРПМОЕОЙЙ ЛПФПТПК РТЕДМБЗБЕФУС УПИТБОЕОЙЕ ЗМБЧОПЗП ЖБКМБ РТПЕЛФБ РПД ЙНЕОЕН РП ХНПМЮБОЙА (Project1.bdsproj), У ЮЕН ТЕЛПНЕОДХЕФУС УПЗМБУЙФШУС.
чПРТПУ 3
рТПЗТБННЙТПЧБОЙЕ УИЕНЩ БМЗПТЙФНБ (Р. 3.4 ЧПРТПУ 2 МЕЛГЙЙ 1))ОБ СЪЩЛЕ уЙ++ (ЛПОУПМШОЩК ТЕЦЙН)
//йЧБОПЧ йЧБО йЧБОПЧЙЮ бфу-151 j:\vtp\у++\lec2_2\Unit1.cpp 20.01.09
#include <iostream.h>љ //Ч ЖБКМЕ iostream.h ДБОП ПРЙУБОЙЕ cout, cin, endl
void main()
{char ch;
љfloat u,i,r;
љcout<<"u(Volt)=";љ cin>>u;
љcout<<"i(Amper)="; cin>>i;
љr=u/i;
љcout<<"Input data:"<<" u(Volt)="<<u<<" i(Amper)="<<i<<endl;
љcout<<"Output data:"<<" r(Om)="<<r<<endl;
љcout<<"Press any key and then Press Enter to stop the program.";
љcin>>ch;
}
чПРТПУ 4
жПТНБФЙТПЧБООЩК ЧЩЧПД Ч СЪЩЛЕ уЙ++
//йЧБОПЧ йЧ. йЧ.бфу-151 j:\vtp\у++\lec2 жПТНБФЙТ. ЧЩЧПД\Unit1.cpp 20.01.09
#include <iostream.h>љ //Ч ЖБКМЕ iostream.h ДБОП ПРЙУ. cout, cin, endl, fixedљљљљ 1 #include <iomanip.h>љ //ПРЙУБОЙЕ: setw, setprecision, fixedљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљ 2
void main()љљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљ љљљљљљљљљљљљљљљљљљ љљљљљ // 3
{ char ch; љљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљ љљљљљљ// 4
љљ float r; љљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљ љљљљљљ// 5
љ cout<<"r(Om)=";љ cin>>r;//ТЕЛПН-УС. ДМС ФЕУФБ 10.98765432 Й 12345678љљ // 6
љљ //ЧЩЧПД РП ХНПМЮ.: ОЕ ВПМЕЕ 6ЪОБЮ. ГЙЖТ, НЙО. ЫЙТ. РПМС ЧЩЧПДБ 0 РПЪЙГЙК
љљ cout<<"Output data 1: r(Om)="<<r<<endl; љљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљ љљљљљљ// 7
љљ cout.precision(5);//ЪБДБЕФУС ЧЩЧПД ОЕ ВПМЕЕ 5ЪОБЮ. ГЙЖТљљљљљљљљљљљљљљљљљљљ љљљљљ // 8
љљ cout<<"Output data 2: r(Om)="<<r<<endl;љљ /љљљљљљљљљљљљљљљљљљљљљљљљљ љљљљљљљљ љљ љљљљљ љљљљљљ// 9
љљ //НЙО. РПМЕ ЧЩЧПДБ - 7УЙНЧПМПЧ, ЧЩЧПД ОЕ ВПМЕЕ 2ЪОБЮ. ГЙЖТ, ОЕДПУФБАЭЙЕљљ љљљљ//РТПВЕМЩ УМЕЧБ
љљљ cout<<"Output data 3: r(Om)="<<setw(7)<<setprecision(2)<<r<<endl;љљ //10
љљ //НЙО. РПМЕ ЧЩЧПДБ 7УЙН., ДЧЕ ЪОБЮ. ГЙЖТЩ РПУМЕ ДЕУ. ФПЮЛЙ, ОЕДПУФБАЭЙЕ //РТПВЕМЩ УМЕЧБ
љљ cout<<"Output data 4: r(Om)="<<setw(7)<<fixed<<r<< endl; ; љљљљљ љљљљљ// 11
љљ //РПМЕ ЧЩЧПДБ 0УЙН., ДЧЕ ЪОБЮ ГЙЖТЩ РПУМЕ ДЕУ. ФПЮЛЙ, ОЕФљ РТПВЕМПЧ УМЕЧБ
љљљ cout<<"Output data 5: r(Om)="<<r<<endl; //ЖПТНБФ ХЦЕ ВЕЪ РТПВЕМПЧљ // 12
љљ //ЧПУУФБОПЧМЕОЙЕ ЧЩЧПДБ РП ХНПМЮБОЙА
љљ cout.precision(6); љљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљ љљљљљ// 13
љљ cout.unsetf(ios::fixed);//ПФНЕОБ ЧЩЧПДБ У ЪБДБООЩН ЛПМ. УЙНЧПМПЧљљљљљљљљљљљљ // 14
љљ //РПУМЕ ДЕУ.ФПЮЛЙ
љљљ cout<<"Output data 6(1): r(Om)="<<r<<endl; //ЖПТНБФ ХЦЕ ВЕЪ РТПВЕМ. //15
љљ cout<<"Press any key and then Press Enter to stop the program.";љљљљљљљ љљљљљљ
љљ љcin>>ch;
}
тЕЪХМШФБФЩ ТБВПФЩ РТПЗТБННЩ (ДМС ОБЗМСДОПУФЙ РТПВЕМЩ ЪБНЕОЕОЩ ЪЧЕДПЮЛБНЙ):
r(Om)=10.987654321љљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљ
Output data 1: r(Om)=10.9877љљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљ љљ
Output data 2: r(Om)=10.988љљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљ
Output data 3: r(Om)=*****11љљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљ
Output data 4: r(Om)=**10.99љљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљ
Output data 5: r(Om)=10.99љљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљ
Output data 6(1): r(Om)=10.9877љљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљ
r(Om)=1234567890љљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљ
Output data 1: r(Om)=1.23457e+09љљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљ
Output data 2: r(Om)=1.2346e+09љљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљ
Output data 3: r(Om)=1.2e+09љљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљ
Output data 4: r(Om)=1234567890.00 љљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљ
Output data 5: r(Om)=1234567890.00љљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљ
Output data 6(1): r(Om)=1.23457e+09љљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљ
ч УФТПЛЕ 2 РТПЗТБННЩ ДМС ЧПЪНПЦОПУФЙ ТБВПФЩ У НБОЙРХМСФПТБНЙ setw Й setprecision Ч ФЕУФ РТПЗТБННЩ ЧЛМАЮБЕФУС ЖБКМ iomanip.h, Ч ЛПФПТПН ПОЙ ПРЙУЩЧБАФУС. нБОЙРХМСФПТБНЙ ОБЪЩЧБАФУС ЖХОЛГЙЙ, ЙНЕОБ ЛПФПТЩИ НПЦОП ЧЛМАЮБФШ Ч ЛПОУФТХЛГЙЙ ЧЩЧПДБ Й ЧЧПДБ ОБ ВБЪЕ ПВЯЕЛФПЧ cin Й cout, ДМС ГЕМЕК ЙЪНЕОЕОЙС ЖПТНЩ ЙМЙ УРПУПВБ ЧЩЧПДБ ДБООЩИ.
ч ОБЮБМЕ ТБВПФЩ РТПЗТБННЩ ЙУРПМШЪХАФУС РБТБНЕФТЩ ЧЩЧПДБ РП ХНПМЮБОЙА. чЩЧПДЙФУС НБЛУЙНБМШОП 6 ЪОБЮБЭЙИ ГЙЖТ (ФПЮОПУФШ (precision) ЧЩЧПДБ ТБЧОБ 6) , НЙОЙНБМШОБС ЫЙТЙОБ РПМС ЧЩЧПДБ УПУФБЧМСЕФ 0 РПЪЙГЙК. ьФЙ РБТБНЕФТЩ ВЩМЙ ЙУРПМШЪПЧБОЩ Ч УФТПЛЕ 7.
ч УФТПЛЕ 8 ЪБДБЕФУС ФПЮОПУФШ ЧЩЧПДБ ТБЧОБС РСФЙ. дМС ЬФПЗП ЧЩЪЩЧБЕФУС НЕФПД precision ПВЯЕЛФБ cout. жХОЛГЙС РПМХЮБЕФ Ч ЛБЮЕУФЧЕ ЖБЛФЙЮЕУЛПЗП РБТБНЕФТБ ЪОБЮЕОЙЕ 5. нЕФПД precision ПРЙУБО Ч ФПН ЦЕ ЖБКМЕ (iostream.h), ЛБЛ Й УБН ПВЯЕЛФ cout. ьФБ ФПЮОПУФШ ВХДЕФ ЙУРПМШЪПЧБФШУС РТЙ ЧЩЧПДЕ ДП ФЕИ РПТ РПЛБ ОЕ ЧУФТЕФЙФУС ПРЕТБФПТ, ЛПФПТЩК ЕЕ ЙЪНЕОЙФ.
ч УФТПЛЕ 10 ХУФБОБЧМЙЧБЕФУС ХЦЕ У РПНПЭША НБОЙРХМСФПТБ setprecision ФПЮОПУФШ ЧЩЧПДБ ТБЧОБС ДЧХН. нЙОЙНБМШОБС ЫЙТЙОБ РПМС ЧЩЧПДБ ХЧЕМЙЮЙЧБЕФУС ДП 7 РПЪЙГЙК. рПЬФПНХ, ЕУМЙ ЪОБЮЕОЙЕ ЪБОЙНБЕФ ЛПМЙЮЕУФЧП РПЪЙГЙК НЕОЕЕ УЕНЙ (РЕТЧЩК УМХЮБК), ФП ПУФБМШОЩЕ РПЪЙГЙЙ ЪБРПМОСАФУС УМЕЧБ РТПВЕМБНЙ. йНЕЕФУС ПУПВЕООПУФШ Ч ТБВПФЕ НБОЙРХМСФПТБ setw РП УТБЧОЕОЙА У setprecision, ЛПФПТБС ЪБЛМАЮБЕФУС Ч ФПН, ЮФП ЕЗП ДЕКУФЧЙЕ ОЕ ВХДЕФ ТБУРТПУФТБОСФШУС ОБ УМЕДХАЭЙК ПРЕТБФПТ.
рПЬФПНХ ДМС УПИТБОЕОЙС РПМС ЧЩЧПДБ (7УЙН) Ч УФТПЛЕ 11 РПЧФПТОП ЧЩЪЧБО НБОЙРХМСФПТ setw У ФЕН ЦЕ УБНЩН ЖБЛФЙЮЕУЛЙН РБТБНЕФТПН. чЩЪПЧ НБОЙРХМСФПТБ fixed ВХДЕФ ПВЕУРЕЮЙЧБФШ ДБМШОЕКЫЙК ЧЩЧПД ЪОБЮЕОЙК Ч ЧЙДЕ У ЖЙЛУЙТПЧБООПК ФПЮЛПК У ЛПМЙЮЕУФЧПН УЙНЧПМПЧ РПУМЕ ДЕУСФЙЮОПК ФПЮЛЙ ТБЧОПК ЪБДБООПК ФПЮОПУФЙ ЧЩЧПДБ. пФНЕФЙН, ЮФП ПОБ ВЩМБ ХУФБОПЧМЕОБ Ч УФТПЛЕ 9 У РПНПЭША НБОЙРХМСФПТБ setprecision ТБЧОПК ДЧХН, ЮФП РПУМЕ ЧЩЪПЧБ НБОЙРХМСФПТБ fixed ВХДЕФ ПВЕУРЕЮЙЧБФШ ЧЩЧПД РПУМЕ ДЕУСФЙОПК ФПЮЛЙ ДЧХИ ГЙЖТ (УМЕЧБ Ч ОЕЪБРПМОЕООЩИ РПЪЙГЙСИ ТБЪНЕЭБАФУС РТПВЕМЩ).
ч УФТПЛЕ 12 НБОЙРХМСФПТ setw(7) ОЕ ЧЩЪЩЧБЕФУС, РПЬФПНХ ЫЙТЙОБ РПМС ЧЩЧПДБ ПРСФШ УФБОПЧЙФУС ТБЧОПК РП ХНПМЮБОЙА, Ф.Е. ОХМА. ч ТЕЪХМШФБФЕ ЪБРПМОЕОЙС ОЕЪБОСФЩИ РПЪЙГЙК РТПВЕМБНЙ ХЦЕ ОЕ ВХДЕФ. уПИТБОЕОЙЕ ЖПТНБФБ ЧЩЧПДБ У ЖЙЛУЙТПЧБООПК ФПЮЛПК У ЪБДБООЩН ЛПМЙЮЕУФЧПН ГЙЖТ РПУМЕ ЪБРСФПК УПИТБОСЕФУС,љ ОЕУНПФТС ОБ ФП, ЮФП НБОЙРХМСФПТ fixed ОЕ ЧЩЪЩЧБЕФУС.
ч УФТПЛБИ 13 Й 14 ПУХЭЕУФЧМСЕФУС ЧПУУФБОПЧМЕОЙЕ РБТБНЕФТПЧ ЧЩЧПДБ РП ХНПМЮБОЙА. ч УФТПЛЕ 14 ЧЩЪЩЧБЕФУС НЕФПД unsetf ПВЯЕЛФБ cout. ч ЛБЮЕУФЧЕ ЖБЛФЙЮЕУЛПЗП РБТБНЕФТБ ЬФПЗП НЕФПДБ ХЛБЪЩЧБЕФУС ЖМБЗ fixed ЛМБУУБ ios, ЛПФПТЩК ПРЙУБО Ч ЖБКМЕ iostream.h . фБЛЙН ПВТБЪПН Ч 15 УФТПЛЕ ЧЩЧПД ПУХЭЕУФЧМСЕФУС У РБТБНЕФТБНЙ РП ХНПМЮБОЙА, ФБЛ ЦЕ ЛБЛ ЬФП ПУХЭЕУФЧМСМПУШ Ч УФТПЛЕ 7.
чПРТПУ 4
рТПЗТБННЙТПЧБОЙЕ УИЕНЩ БМЗПТЙФНБ (Р. 3.4 ЧПРТПУ 2 МЕЛГЙЙ 1))ОБ СЪЩЛЕ уЙ++ (ЛПОУПМШОЩК ТЕЦЙН)
чПРТПУ 5
рТЙНЕТ ЙУРПМШЪПЧБОЙС РПДРТПЗТБНН РТЙ РТПЗТБННЙТПЧБОЙЙ Ч УТЕДЕ рБУЛБМШ
тБУУНПФТЙН ТЕЫЕОЙЕ ЧЩЫЕРТЙЧЕДЕООПК ЪБДБЮЙ ОБ СЪЩЛЕ РТПЗТБННЙТПЧБОЙС рБУЛБМШ У ЙУРПМШЪПЧБОЙЕН РПДРТПЗТБННЩ, ОБЮЙОБС У РХОЛФБ 3.4.
3.4 уПУФБЧМЕОЙЕ УИЕНЩ БМЗПТЙФНБ
 |
3.5 ъБРЙУШ БМЗПТЙФНБ ОБ СЪЩЛЕ РТПЗТБННЙТПЧБОЙС Borland Pascal.
љљљљљљљљљљљљљљљљљљљљљљљ љљ
љљљљљљ фЕЛУФ ПУОПЧОПК РТПЗТБННЩ:
{йЧБОПЧ йЧБО йЧБОПЧЙЮ бфу-141 Б:\lab4.pas 14.09.98}љ {1}
program lab4;љљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљ {2}
uses Crt;љљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљ љљљљљљљљљљљ{3}
const ind=1; {1-ЧЩЧПД Ч ЖБКМ У ЙНЕОЕН filename;
љљљљљљљ 2- ОБ РТЙОФЕТ;љљљљљљ 3- ОБ ЬЛТБО}љљљљљљљљљљљљљљљљљљљ {4}
filename='Б:\out.pas';љљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљ {5}
var u,i,r:real;љљљљљљљљљљљљљљљљљљљљљљљљљљљљ љљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљ{6}
f:text; ch:char;љљљљљљљљљљљљљљљљљљљљљљљљљљљ љљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљ{7}
{$I Б:\outpr.pas}љљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљ љљљ{8}
beginљљљљљљљљљљљљљљљљљљљљљљљљљљљ љљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљ{9}
outpr(f,ind,filename);љљљљљљљљљљ љљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљ{10}
write('ОБРТСЦЕОЙЕ u(B)='); readln(u);љљљљљљ љљљљљљљљљљљљљљљљљљљљљљљљ{11}
write('ФПЛ i(A)=');љљљљљљ љљљљљљљљљљreadln(i);љљљљљљљљљљљљљљљљљљљљљљљљљљљљљљ {12}
r:=u/i;љљљљљљљљљљљљљљљљљљљ љљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљ{13}
writeln(f, 'йУИПДОЩЕ ДБООЩЕ: u=', u:3:1, ',ч i=', i:3:1',б')љ {14}
writeln(f, 'тЕЪХМШФБФЩ: r=', r:3:1, ',пН');љљљљљљљљљљ љљљљљљљљљљљљљљ{15}
close(f);љљљљљљљљљљљљљљљљљљљљљљљљљљ љљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљ{16}
writeln('...');љљљљљљљљљљљ љљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљ{17}
writeln('рpПЗpБННБ ЪБЧЕТЫЕОБ. оБЦНЙФЕ МАВХА ЛМБЧЙЫХ'){18}
ch:=readkey;љљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљ {19}
end.љљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљ {20}
љљљљљ фЕЛУФ РПДРТПЗТБННЩ ЧЩЪЩЧБЕНПК Ч ПУОПЧОПК РТПЗТБННЕ:
{ФЕЛУФ РТПЗТБННЩ ОБИПДЙФУС Ч ЖБКМЕ a:\outpr.pas 14.09.2000}{21}
procedure outpr(var f:text;ind:integer;filename:string);љљљљљ {22}
beginљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљ љљљљљљљ{23}
clrscr;љљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљ љљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљ{24}
љљљљљљљљљљ љљif ind=1 then assign(f,filename)љљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљ {25}
љљљљљљљљљљљљљ else if ind=2 then assign(f,'prn')љљљљљљљљљљљљљљљљљљљљљљљљљљ {26}
љљљљљљљљљљ else assigncrt(f);љљљљљљљљљљљљљ љљљљљљљљљљљљљљљљљљ{27}
rewrite(f);љљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљ {28}
writeln('хЛБЦЙФЕ ЙУИПДОЩЕ ДБООЩЕ:');љљљљљљљљљљљљљљљљљљљљљљљљљљљљ {29}
end;љљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљ {30}
љљљљљљљљљ
чПРТПУ 5
бОБМЙЪ ДБООПЗП РТПЗТБННОПЗП ПВЕУРЕЮЕОЙС, ЧЛМАЮБАЭЕЗП ЙУРПМШЪПЧБОЙЕ РПДРТПЗТБННЩ.
1 тБУУНПФТЙН ЙУРПМШЪПЧБОЙЕ УМПЧБТС (БМЖБЧЙФБ) СЪЩЛБ рБУЛБМШ. ч УПУФБЧљ БМЖБЧЙФБ ЧИПДСФљ ЛМАЮЕЧЩЕ (УМХЦЕВОЩЕ) УМПЧБ Й УЙНЧПМЩ. ч ТБУУНБФТЙЧБЕНЩИ РТПЗТБННБИ ЙУРПМШЪХАФУСљ УМХЦЕВОЩЕ УМПЧБ: program, uses, const, var, real, text, char, begin, end, integer,љ string, if,љ then,љ else. уЙНЧПМЩ РПДТБЪДЕМСАФУС ОБ ВХЛЧЩ, БТБВУЛЙЕ ГЙЖТЩ,љ ЪОБЛЙ БТЙЖНЕФЙЮЕУЛЙИ ПРЕТБГЙК,љ ЪОБЛЙ ПРЕТБГЙК УТБЧОЕОЙС,љ ТБЪДЕМЙФЕМЙ (ЪОБЛЙ РТЕРЙОБОЙС,љ УЛПВЛЙ,љ БРПУФТПЖЩ, :=).
2 лПННЕОФБТЙЙ РПНЕЭБАФУС Ч РТПЗТБННХ ФПМШЛПљ ДМС РТПЗТБННЙУФПЧ Й РПМШЪПЧБФЕМЕК РТПЗТБННЩ. фЕЛУФ ЛПННЕОФБТЙС ЪБЛМАЮБЕФУС Ч ЖЙЗХТОЩЕ УЛПВЛЙ Й ьчн ОЕ БОБМЙЪЙТХЕФУС. ч СЪЩЛЕ РТПЗТБННЙТПЧБОЙС фХТВП рБУЛБМШ ЪБРТЕЭБЕФУС ЙУРПМШЪПЧБФШ ЧОЕ ЛПННЕОФБТЙС ТХУУЛЙЕ ВХЛЧЩ, ЪБ ЙУЛМАЮЕОЙЕН ЧЩЧПДБ УФТПЛЙ УЙНЧПМПЧ.
3 чФПТБС УФТПЛБ СЧМСЕФУС ЪБЗПМПЧЛПН РТПЗТБННЩ. йНС РТПЗТБННЩ lab4.љ пОБљ ОБИПДЙФУСљ Чљ ЖБКМЕ Б:\lab4.pas .дЧБДГБФШ РЕТЧБС УФТПЛБ- ЬФП ЪБЗПМПЧПЛ РТПГЕДХТЩ. йНС ЬФПКљ ОЕУФБОДБТФОПК, Ф.Е. ОЕ ЧИПДСЭЕК Ч ЛПНРМЕЛФ РТПЗТБННОПЗП ПВЕУРЕЮЕОЙС фХТВП рБУЛБМС, РТПГЕДХТЩ - outpr. еЕ ЧЩЪПЧ ПУХЭЕУФЧМСЕФУС Ч 10 УФТПЛЕ.
4 ч ДБООПН РТПЗТБННОПНљ ПВЕУРЕЮЕОЙЙљ ЙУРПМШЪХАФУСљ ЙНЕОБ (ЙДЕОФЙЖЙЛБФПТЩ): УФБОДБТФОЩИ РПДРТПЗТБНН - write,љ writeln,љ readln,љ assign,љ assigncrt,љ close, rewrite, clrscr,љ readkey; Ч ПУОПЧОПК РТПЗТБННЕ ЛПОУФБОФ -љ ind, falename Йљ РЕТЕНЕООЩИ - u , i , r, f, ch; Б Ч РТПГЕДХТЕ outpr РЕТЕНЕООЩИ - ind, filename. уФБОДБТФОЩНЙ ОБЪЩЧБАФУС РПДРТПЗТБННЩ, ЧИПДСЭЙЕљ Чљ ЛПНРМЕЛФ РТПЗТБННОПЗП ПВЕУРЕЮЕОЙС СЪЩЛБ РТПЗТБННЙТПЧБОЙС.љ йДЕОФЙЖЙЛБФПТЩ ДПМЦОЩ ОБЮЙОБФШУС У ВХЛЧЩ, ЪБ ЛПФПТПКљ НПЗХФ УМЕДПЧБФШ ГЙЖТЩ.
5 ч ПВЭЕН УМХЮБЕ ЙУРПМШЪХЕНЩЕ Ч РТПЗТБННЕљ РПДРТПЗТБННЩ, ЛПОУФБОФЩ,љ ФЙРЩљ РЕТЕНЕООЩИљ Йљ РЕТЕНЕООЩЕ ДПМЦОЩ ВЩФШ ПРЙУБОЩ (ПВЯСЧМЕОЩ). ьФП ДЕМБЕФУС МЙВП ОЕРПУТЕДУФЧЕООПљ Чљ РТПЗТБННЕљ Ч УППФЧЕФУФЧХАЭЕНљ ТБЪДЕМЕљ ПРЙУБОЙК,љ МЙВПљ У РПНПЭША ХЛБЪБОЙС Ч РТЕДМПЦЕОЙЙ uses (УН. УФТПЛХ 3) ЙНЕО НПДХМЕК ФЙРБ Unit, Ч ЛПФПТЩИљ ЬФЙ ПРЙУБОЙС ЧЩРПМОЕОЩ.љ йУЛМАЮЕОЙЕН СЧМСАФУС ПРЙУБОЙС, ЧЩРПМОЕООЩЕ Ч УФБОДБТФОПН НПДХМЕ System,љ ЛПФПТЩЕ ЧУЕЗДБ ДПУФХРОЩљ РТПЗТБННЕ. фБЛ РТПГЕДХТБНЙ, ПРЙУБООЩНЙ Ч ЬФПН НПДХМЕ, Й ЙУРПМШЪХЕНЩНЙ Ч РТПЗТБННЕ СЧМСАФУС:љ write, writeln, readln, close, Б Ч РПМШЪПЧБФЕМШУЛПК РТПГЕДХТЕ outpr - assign Й rewrite. ч НПДХМЕ Crtљ ПРЙУБОЩљ ЙУРПМШЪХЕНЩЕљ РПДРТПЗТБННЩ - readkey ,љљ clrscr, assigncrt. рПМШЪПЧБФЕМШУЛБС РТПГЕДХТБ outpr ПРЙУБОБ Ч УФТПЛЕљ 8 У РПНПЭША ДЙТЕЛФЙЧЩ Include,љ ПВЕУРЕЮЙЧБАЭЕК ЪБНЕОХљ У РПНПЭША ьчн ЬФПК УФТПЛЙ ОБ ФЕЛУФ ЖБКМБ a:\outpr.pas.
ч УТПЛБИ 4 Й 5 ПРЙУБОЩ ЛПОУФБОФЩ:љ ГЕМПЮЙУМЕООБС - ind (ЙОДЙЛБФПТ) Й ФЙРБ УФТПЛБ УЙНЧПМПЧ - filename(ЙНС ЖБКМБ).љ рТЙ ПРЙУБОЙЙљ РЕТЕНЕООЩИљ (УН.љ УФТПЛЙ 6 Й 7) ДПМЦЕО ВЩФШ ХЛБЪБО ЙИ ФЙР. йУРПМШЪХАФУС ФБЛЙЕ УФБОДБТФОЩЕ ФЙРЩ ДБООЩИ ЛБЛ ЗЕБlљ (ДЕКУФЧЙФЕМШОЩК (УЙОПОЙН - ЧЕЭЕУФЧЕООЩК) ), integer (ГЕМПЮЙУМЕООЩК),љ string (УФТПЛБ УЙНЧПМПЧ), char (УЙНЧПМ), text ДМС ПРЙУБОЙС ЖБКМПЧЩИ РЕТЕНЕООЩИ ФЕЛУФПЧПЗП ФЙРБ) Й ДТ. у РПНПЭША ФЙРБ real, Ч ПФМЙЮЙЕ ПФ ФЙРБ integer, ПРЙУЩЧБАФУС РЕТЕНЕООЩЕ ЪОБЮЕОЙС, ЛПФПТЩИ ЙНЕАФ ГЙЖТЩ РПУМЕ ДЕУСФЙЮОПК ФПЮЛЙ.
6 уМЕДХЕФљљ ХДЕМСФШљ ЧОЙНБОЙЕљ ТБГЙПОБМШОПНХљ ТБЪНЕЭЕОЙА ФЕЛУФБ РТПЗТБННЩ.љ йУРПМШЪПЧБОЙЕ РТПВЕМПЧ Й ПФУФХРПЧљ РПЪЧПМСЕФ ХМХЮЫЙФШ ОБЗМСДОПУФШ РТПЗТБННЩ. лПМЙЮЕУФЧП ЙУРПМШЪХЕНЩИ УФТПЮЕЛ ДМС ЪБРЙУЙ ЛБЦДПЗП ПРЕТБФПТБ Й ЛПМЙЮЕУФЧП ПРЕТБФПТПЧљ Чљ ЛБЦДПК УФТПЛЕ ОЕљ ПЗТБОЙЮЙЧБЕФУСљ Й ЧЩВЙТБЕФУС ЙЪ УППВТБЦЕОЙК ХДПВУФЧБ ЮФЕОЙС РТПЗТБННЩ ЮЕМПЧЕЛПН.љ пДОБЛП ОЕМШЪС ТБЪДЕМСФШљ РТПВЕМБНЙ ЮБУФЙ ПДОПЗП ЙДЕОФЙЖЙЛБФПТБ ЙМЙ ТБЪНЕЭБФШ ЙИ ОБ ТБЪОЩИ УФТПЛБИ. фБН, ЗДЕ НПЦОП РП УЙОФБЛУЙУХ СЪЩЛБ РПУФБЧЙФШ ПДЙОљ РТПВЕМ,љ ФБН НПЦОП РПУФБЧЙФШ РТПЙЪЧПМШОПЕ ЛПМЙЮЕУФЧП РТПВЕМПЧ.
7 пРЕТБФПТЩ ПФДЕМСАФУС ДТХЗ ПФ ДТХЗБ УЙНЧПМПН ";".
8 дМС ЪБДБОЙС ЗТБОЙГ ЛБЦДПЗП ВМПЛБ РТПЗТБННЩ УМХЦБФ УМПЧБ begin Й end.љ дМС РТПУФЩИ РТПЗТБНН,љ Ч ПФМЙЮЙЕљ ПФљ УМПЦОЩИ, ПВЩЮОП ДПУФБФПЮОПљ ПДОПК ФБЛПК РБТЩ.љ рПУМЕДОЕЕ УМПЧП end РТПЗТБННЩ ДПМЦОП ЪБЛБОЮЙЧБФШУС ФПЮЛПК.љ рПУМЕ ОБВПТБ ЬФПК ФПЮЛЙ ОЕПВИПДЙНП ОЕ ЪБВЩФШ ОБЦБФШ ОБ ЛМБЧЙЫХ "чЧПД".
9 ч 10 УФТПЛЕ ЧЩЪЩЧБЕФУС РТПГЕДХТБ outpr. пОБ ЙНЕЕФ ЖБЛФЙЮЕУЛЙЕ РБТБНЕФТЩ:љ fљ - ФЕЛУФПЧБС ЖБКМПЧБС РЕТЕНЕООБС;љ ind ЮЙУМЕООПЕ ЪОБЮЕОЙЕљ ЬФПЗП ЙДЕОФЙЖЙЛБФПТБ ПРТЕДЕМСЕФ ФП,љ ЛХДБ РТПЙЪЧПДЙФУСљ ЧЩЧПД ДБООЩИ Й filename. еЗП ЪОБЮЕОЙЕ СЧМСЕФУС ЙНЕОЕН ДЙУЛПЧПЗП ЖБКМБ, Ч ЛПФПТЩК НПЦЕФ ПУХЭЕУФЧМСФШУС ЧЩЧПД ДБООЩИ.
10 чљљ ЪБЗПМПЧЛЕљљ РТПГЕДХТЩљљ outprљљ (21 УФТПЛБ)љ Ч УЛПВЛБИљ ХЛБЪЩЧБАФУСљ ЖПТНБМШОЩЕ РБТБНЕФТЩ (У ХЛБЪБОЙЕН ЙИ ФЙРПЧ): РБТБНЕФТ-РЕТЕНЕООБСљ f, РБТБНЕФТЩ-ЪОБЮЕОЙС ЬФПК РПДРТПЗТБННЩ - ind Й filename.љ ьФЙ РБТБНЕФТЩ РПМХЮБАФ УЧПЙљ ЪОБЮЕОЙСљ ПФљ УППФЧЕФУФЧХАЭЙИ ЖБЛФЙЮЕУЛЙИ РБТБНЕФТПЧ РТЙ ЧЩЪПЧЕ РПДРТПЗТБННЩ.
ч 24 УФТПЛЕ ЧЩЪЩЧБЕФУС РТПГЕДХТБ clrscr, ЛПФПТБС ПВЕУРЕЮЙЧБЕФ ПЮЙУФЛХ ЬЛТБОБ.
ч 25-27 ТБЪНЕЭБЕФУС ПРЕТБФПТ "ЕУМЙ-ФП-ЙОБЮЕ". ч ОЕН РТПЧЕТСЕФУС ХУМПЧЙЕ ind=1. еУМЙ ПОП ЧЩРПМОСЕФУС, ФП УЩЪЩЧБЕФУС РТПГЕДХТБ assign(f,filename). пОБ ХУФБОБЧМЙЧБЕФ УППФЧЕФУФЧЙЕ НЕЦДХ ЖБКМПЧПК РЕТЕНЕООПК f Й ДЙУЛПЧЩН ЖБКМПН,љ ЙНС ЛПФПТПЗП СЧМСЕФУС ЪОБЮЕОЙЕН РЕТЕНЕООПКљ filename.љ чљ ТЕЪХМШФБФЕљ ДБООЩЕ, ЧЩЧПДЙНЩЕ Ч ЖБКМПЧХА РЕТЕНЕООХА, f ВХДХФ БЧФПНБФЙЮЕУЛЙ ЧЩЧПДЙФШУС Чљ ХЛБЪБООЩК ДЙУЛПЧЩК ЖБКМ.
йОБЮЕ (Ф.Е.љ ЕУМЙ ХУМПЧЙЕ ОЕ ЧЕТОП)љ ЧЩРПМОСЕФУСљ ЧФПТПК ПРЕТБФПТ "ЕУМЙ-ФП-ЙОБЮЕ". ч ОЕН РТПЧЕТСЕФУС ХУМПЧЙЕ ind=2. еУМЙљ ХУМПЧЙЕљљ ЙУФЙООП,љ ФПљ ЧЩЪЩЧБЕФУСљљљљ РТПГЕДХТБ assign(f,'prn'). хУФБОБЧМЙЧБЕФУСљ УППФЧЕФУФЧЙЕ НЕЦДХ РЕТЕНЕООПК f Й ЧОЕЫОЙН ХУФТПКУФЧПН РП ЙНЕОЙ 'prn' (Ф.Е. РТЙОФЕТПН). рТЙ ОЕ ЧЩРПМОЕОЙЙ РПУМЕДОЕЗП ХУМПЧЙС ЧЩЪЩЧБЕФУС РТПГЕДХТБ assigncrt(f), ЛПФПТБС ХУФБОБЧМЙЧБЕФ УППФЧЕФУФЧЙЕ НЕЦДХ РЕТЕНЕООПК f Й ЬЛТБОПН ДЙУРМЕС.
ъБФЕН ЧЩЪЩЧБЕФУС РТПГЕДХТБ rewrite(f), ЛПФПТБС ПФЛТЩЧБЕФ ЖБКМ f ДМС ЪБРЙУЙ Ч ОЕЗП ДБООЩИ.
рПУМЕ ЧЩРПМОЕОЙС РПДРТПЗТБННЩ outpr ПУХЭЕУФЧМСЕФУС ЧПЪЧТБФ Чљ РТПЗТБННХ Й ЧЧПД Ч ЙОФЕТБЛФЙЧОПН (ДЙБМПЗПЧПН) ТЕЦЙНЕ ЙУИПДОЩИ ДБООЩИ.
11 чЧПД Й ЧЩЧПД ЪОБЮЕОЙК РЕТЕНЕООЩИ.
рХУФШ Чљ ТБУУНБФТЙЧБЕНПКљ РТПЗТБННЕљ ЧЧПДСФУСљљ ЪОБЮЕОЙС u=20.5 i=5. фПЗДБ ОБ ЬЛТБОЕ РПМШЪПЧБФЕМС РПСЧЙФУС (РПУМЕ ЪБЧЕТЫЕОЙС РТПЗТБННЩ) УМЕДХАЭЙК ФЕЛУФ:
хЛБЦЙФЕљ ЙУИПДОЩЕљ ДБООЩЕ:
ОБРТСЦЕОЙЕљ u(B)=20.5
ФПЛ i(A)=5.0
...
рТПЗТБННБ ЪБЧЕТЫЕОБ. оБЦНЙФЕ МАВХА ЛМБЧЙЫХ
ч ЪБЧЙУЙНПУФЙ ПФ ТБЧЕОУФЧБ ЛПОУФБОФЩ ind 1, 2 ЙМЙ 3 ФБЛЦЕ ВХДЕФ ЧЩЧЕДЕО УМЕДХАЭЙК ЖТБЗНЕОФ ФЕЛУФБ УППФЧЕФУФЧЕООП Ч ДЙУЛПЧЩК ЖБКМ output.pas, ОБ РТЙОФЕТ, ЙМЙ ЬЛТБО РПМШЪПЧБФЕМС:
йУИПДОЩЕ ДБООЩЕ: u=20.5,B i=5.0,A
тЕЪХМШФБФЩ: r=4.1,OН
лБЛ ЧЙДОП ЙЪ РТЙЧЕДЕООПЗПљ РТЙНЕТБљ ПРЕТБФПТ ЧЩЪПЧБ УФБОДБТФОПК РТПГЕДХТЩ ЧЩЧПДБ writeln (УПЛТ. ПФ write line) ПВЕУРЕЮЙЧБЕФ ЧЩЧПД УФТПЛЙ.љ ф. Е.љ РПУМЕ ФПЗП ЛБЛ ВХДХФ ОБРЕЮБФБОЩ ДБООЩЕ,љ ХЛБЪБООЩЕ Ч УЛПВЛБИ Ч УРЙУЛЕ РБТБНЕФТПЧ ЬФПК РПДРТПЗТБННЩ, ВХДЕФ ПУХЭЕУФЧМЕО РЕТЕИПД ЛХТУПТБ ОБљ УМЕДХАЭХАљ УФТПЛХ. фБЛЙН ПВТБЪПН, РТЙ ЧЩРПМОЕОЙЙ УМЕДХАЭЕЗП ПРЕТБФПТБ ЧЩЪПЧБ РТПГЕДХТЩ ЧЩЧПДБ, ЧЩЧПД ВХДЕФ РТПЙЪЧПДЙФШУС ХЦЕ ОБ ОПЧХА УФТПЛХ.
ч УМХЮБЕ ЙУРПМШЪПЧБОЙС РТПГЕДХТЩ write ХЛБЪБООЩК РЕТЕИПД ЛХТУПТБ ОБ ОПЧХА УФТПЛХ ОЕ РТПЙЪЧПДЙФУС. рТЙ ЧЩРПМОЕОЙЙ УМЕДХАЭЕЗП ПРЕТБФПТБ ЧЩЪПЧБ РТПГЕДХТЩ ЧЩЧПДБ,љ ЧЩЧПД ВХДЕФ ПУХЭЕУФЧМСФШУС Ч ФХ ЦЕ УФТПЛХ. рТПГЕДХТЩ write(f,<...>) Й write(<...>) ПВЕУРЕЮЙЧБАФљ ЧЩЧПДљ УППФЧЕФУФЧЕООПљ Чљ ЖБКМљ fљ Йљ ОБљ ЬЛТБОљ ДЙУРМЕС. еУМЙ Ч РТПГЕДХТЕ writeln ПФУХФУФЧХЕФ УРЙУПЛ ЧЩЧПДБљ "<...>",љ ФПљ ПУХЭЕУФЧМСЕФУС ФПМШЛП РЕТЕИПД ЛХТУПТБ ОБ ОПЧХА УФТПЛХ.
МЕЛГЙС 4