Упуфбчмеойе й тебмйъбгйс тбъчефчмсаэйиус бмзптйфнпч

 

чПРТПУ 1

вБЪПЧЩЕ МПЗЙЮЕУЛЙЕ УФТХЛФХТЩ

вБЪПЧЩНЙ МПЗЙЮЕУЛЙНЙ УФТХЛФХТБНЙ Ч РТПЗТБННЙТПЧБОЙЙ СЧМСАФУС УМЕДХАЭЙЕ ФТЙ:љ РПУМЕДПЧБФЕМШОПУФШ, ЧЕФЧМЕОЙЕ Й РПЧФПТЕОЙЕ.

 

ЧПРТПУ 2

пРЕТБФПТЩ СЪЩЛБ РТПЗТБННЙТПЧБОЙС Delphi (рБУЛБМШ)

1 рПОСФЙА ПРЕТБФПТБ СЪЩЛБ РТПЗТБННЙТПЧБОЙС УППФЧЕФУФЧХЕФ РПОСФЙЕ РТЕДМПЦЕОЙС Ч ЕУФЕУФЧЕООЩИ СЪЩЛБИ. лБЦДЩК ПРЕТБФПТ ЧЩРПМОСЕФ ПРТЕДЕМЕООХА БМЗПТЙФНЙЮЕУЛХА ПРЕТБГЙА. оБРТЙНЕТ, y:=x+5; - ЬФП ПРЕТБФПТ РТЙУЧБЙЧБОЙС.

2 рТПУФЩЕ ПРЕТБФПТЩ Ч ПФМЙЮЙЕљ ПФ УМПЦОЩИ ОЕ УПДЕТЦБФ ЧОХФТЙ УЕВС ДТХЗЙИ ПРЕТБФПТПЧ. л РТПУФЩН ПРЕТБФПТБН ПФОПУСФУС ПРЕТБФПТЩ РТЙУЧБЙЧБОЙС, ЧЩЪПЧБ РПДРТПЗТБННЩ, РЕТЕИПДБ Й РХУФПК ПРЕТБФПТ.

3 ч ВПМШЫЙОУФЧЕ ЛПОУФТХЛГЙК ТБУУНБФТЙЧБЕНПЗП СЪЩЛБ РТПЗТБННЙТПЧБОЙС ТБЪТЕЫБЕФУС Ч УППФЧЕФУФЧХАЭЕН НЕУФЕ ЙУРПМШЪПЧБФШ ФПМШЛП ПДЙО ПРЕТБФПТ. ч ФПЦЕ ЧТЕНС ЮБУФП Ч ЬФЙИ ЛПОУФТХЛГЙСИ ОЕПВИПДЙНП ЙУРПМШЪПЧБФШ УЕТЙА ПРЕТБФПТПЧ, Ф.Е. УПЧПЛХРОПУФШ РПУМЕДПЧБФЕМШОП ЧЩРПМОСЕНЩИ ПРЕТБФПТПЧ. ч ЬФЙИ УМХЮБСИ УЕТЙС ПРЕТБФПТПЧ ЪБЛМАЮБЕФУС Ч ПРЕТБФПТОЩЕ УЛПВЛЙbegin Й end, Й ТБУУНБФТЙЧБЕФУС ЛБЛ ПДЙО УПУФБЧОПК ПРЕТБФПТ.љ рЕТЕД УЛПВЛПК end ТБЪТЕЫБЕФУС УФБЧЙФШ ФПЮЛХ У ЪБРСФПК, ОП Ч ЬФПН ОЕФ ОЕПВИПДЙНПУФЙ.

 

 

4 ъБРЙУШ УПУФБЧОПЗП ПРЕТБФПТБ:

begin

           
   
     
 
уПУФБЧОПК ПРЕТБФПТ
 
 


end;

5 л УМПЦОЩН ПРЕТБФПТБН ПФОПУСФУС УМЕДХАЭЙЕ ПРЕТБФПТЩ: ХУМПЧОЩЕ (еумй Й чщвпт), ГЙЛМБ, РТЙУПЕДЙОЕОЙС (WITH), ЙУРПМШЪХЕНЩК РТЙ ТБВПФЕ У ЪБРЙУСНЙ.

6 рПД ппу (ПРЕТБФПТПН ПДЙОПЮОЩН ЙМЙ УПУФБЧОЩН) ВХДЕН РПОЙНБФШ ПРЕТБФПТ, ОБ НЕУФЕ ЛПФПТПЗП ТБЪТЕЫБЕФУС МЙВП ПДЙОПЮОЩК, МЙВП УПУФБЧОПК ПРЕТБФПТ. пДЙОПЮОЩК ПРЕТБФПТ НПЦЕФ ВЩФШ ЛБЛ РТПУФЩН, ФБЛ Й УМПЦОЩН.љ

љљљ

чПРТПУ 3

лПОУФТХЛГЙСљ еумй

йЪЧЕУФОЩ ФТЙ МПЗЙЮЕУЛЙЕ ТБЪОПЧЙДОПУФЙ ДБООПК ЛПОУФТХЛГЙЙ: РПМОБС, еумй фп Й еумй йобюе.

чПРТПУ 4

1 рПМОБС ЖПТНБ ЛПОУФТХЛГЙЙ еумй (еумй фп -йобюе)

 

лПОУФТХЛГЙС ТБВПФБЕФ УМЕДХАЭЙН ПВТБЪПН (УН. ТЙУ.): ЕУМЙ ЪБДБООПЕ ХУМПЧЙЕљ ЙУФЙООП, ФП ЧЩРПМОСЕФУС ФПМШЛП ппу1,ЙОБЮЕ, Ф.Е. ЕУМЙ ХУМПЧЙЕљљ МПЦОП, ФП ЧЩРПМОСЕФУС ФПМШЛП ппу2

 

 

1.1 ъБРЙУШ Ч ЧЙДЕ УИЕНЩ:

 
 

 


љљљ

 

       
 
ппу1  
 
ппу2  

 


1.2 љъБРЙУШ ОБ СЪЩЛЕ рБУЛБМШ:

љљљљљљљљљ if ХУМПЧЙЕљ then OOC1

љљљљљљљљљљљљљљљљљљљљљљљљљљљљ else OOC2;

 

1.3 рТЙНЕТ 1:љ оБКФЙ Х=IxI.

 

 

1.3.1 уИЕНБ БМЗПТЙФНБ ТЕЫЕОЙС РТЙНЕТБ 1:

 

 
 

 


1.3.2 ъБРЙУШ ТЕЫЕОЙС РТЙНЕТБ 1 ОБ СЪЩЛЕ РТПЗТБННЙТПЧБОЙС:

if x>0 then y:=x

elseљ y:=-x;

ЧПРТПУ 5.

2 лПОУФТХЛГЙС еумй - фп

 

пОБ ТБВПФБЕФ УМЕДХАЭЙН ПВТБЪПН (УН. УМЕДХАЭЙК ТЙУ.): ЕУМЙ ЪБДБООПЕ ХУМПЧЙЕ ЙУФЙООП, ФП ЧЩРПМОСЕФУС ппу ,ЙОБЮЕ, Ф.Е. ЕУМЙ ХУМПЧЙЕ МПЦОП, ФП ПУХЭЕУФЧМСЕФУС ЧЩИПД ЙЪ ЛПОУФТХЛГЙЙ ВЕЪ ЧЩРПМОЕОЙС ЛБЛЙИ-МЙВП ДЕКУФЧЙК.

 

2.1 ъБРЙУШ Ч ЧЙДЕ ВМПЛ-УИЕНЩ:

 

 
 

 

 


2.2 ъБРЙУШ ОБ СЪЩЛЕ РТПЗТБННЙТПЧБОЙС УФТХЛФХТЙТПЧБООПК ЖПТНЩ ЛПОУФТХЛГЙЙ еумй - фп:

љљљљљљљљљ if ХУМПЧЙЕљ then OOC

љљљљљљљљљ else;

 

2.3 ъБРЙУШ ОБ СЪЩЛЕ РТПЗТБННЙТПЧБОЙС ОЕУФТХЛФХТЙТПЧБООПК ЖПТНЩ ЛПОУФТХЛГЙЙ еумй - фп:

љљљљљљљљљ if ХУМПЧЙЕљ then OOC;

 

2.4 рТЙНЕТ 2: ЧЩРПМОЙФШ x:=IxI У ЙУРПМШЪПЧБОЙЕН ЛПОУФТХЛГЙЙ еумй - фп.љљ

 

2.4.1 вМПЛ-УИЕНБ ТЕЫЕОЙС РТЙНЕТБ 2 У ЙУРПМШЪПЧБОЙЕН ЛПОУФТХЛГЙЙ еумй - фп:

 
 

 

 


2.4.2 ъБРЙУШ ТЕЫЕОЙС РТЙНЕТБ 2 ОБ СЪЩЛЕ РТПЗТБННЙТПЧБОЙС У ЙУРПМШЪПЧБОЙЕН УФТХЛФХТЙТХЕНПК ЖПТНЩ ЛПОУФТХЛГЙЙ еумй - фп:

if x<0 then x:=-x

else;

2.4.3 ъБРЙУШ ТЕЫЕОЙС РТЙНЕТБ 2 ОБ СЪЩЛЕ РТПЗТБННЙТПЧБОЙС У ЙУРПМШЪПЧБОЙЕН ОЕУФТХЛФХТЙТПЧБООПК ЖПТНЩ ЛПОУФТХЛГЙЙ еумй -фп:

if x<0 then x:=-x;

 

 

чПРТПУ 6

3 лПОУФТХЛГЙС еумй - йобюе

пОБ ТБВПФБЕФ УМЕДХАЭЙН ПВТБЪПН (УН. УМЕДХАЭЙК ТЙУ.): ЕУМЙ ЪБДБООПЕ ХУМПЧЙЕљ ЙУФЙООП, ФП ПУХЭЕУФЧМСЕФУС ЧЩИПД ЙЪ ЛПОУФТХЛГЙЙ ВЕЪ ЧЩРПМОЕОЙС ЛБЛЙИ-МЙВП ДЕКУФЧЙК,ЙОБЮЕ, Ф.Е. ЕУМЙ ХУМПЧЙЕљљ МПЦОП, ФП ЧЩРПМОСЕФУС ппу.

3.1 ъБРЙУШ Ч ЧЙДЕ УИЕНЩ:

 
 

 

 


3.2 ъБРЙУШ ОБ СЪЩЛЕ РТПЗТБННЙТПЧБОЙС ЛПОУФТХЛГЙЙ еумй - йобюе:

љљљљљљљљљ if ХУМПЧЙЕљ then

љљљљљљљљљ else OOC;

 

3.3 рТЙНЕТ 3: ЧЩРПМОЙФШ x:=IxIљ У ЙУРПМШЪПЧБОЙЕН ЛПОУФТХЛГЙЙ еумй - йобюе.љ

 

3.3.1 уИЕНБ БМЗПТЙФНБ ТЕЫЕОЙС РТЙНЕТБ 3 У ЙУРПМШЪПЧБОЙЕН ЛПОУФТХЛГЙЙ еумй - йобюе:

 
 

 

 


3.3.2 ъБРЙУШ ТЕЫЕОЙС РТЙНЕТБ 3 ОБ СЪЩЛЕ рБУЛБМШ У ЙУРПМШЪПЧБОЙЕН ЛПОУФТХЛГЙЙ еумй - йобюе:

if x<0 then

else x:=-x;

ъБНЕЮБОЙЕ!!!љ ч ЧЕФЧШ then, ФБЛЦЕ ЛБЛ Й else, ОЕМШЪС РПНЕУФЙФШ ОЕУЛПМШЛП ПРЕТБФПТПЧ. ч ЛБЦДПК ЧЕФЧЙ НПЦЕФ ОБИПДЙФШУС МЙВП ПДЙОПЮОЩК ПРЕТБФПТ, МЙВП УПУФБЧОПК. оЕ ГЕМЕУППВТБЪОП ВТБФШ Ч ПРЕТБФПТОЩЕ УЛПВЛЙ ПДЙОПЮОЩЕ ПРЕТБФПТЩ (РТПУФПК, ХУМПЧОЩК, ГЙЛМБ, ЧЩЪПЧБ РПДРТПЗТБННЩ Й ЧЩЪПЧБ РПДРТПЗТБННЩ), ИПФС ЬФП Й ОЕ СЧМСЕФУС ПЫЙВЛПК. уПУФБЧОПК ПРЕТБФПТ ПВСЪБФЕМШОП ЧЛМАЮБЕФ Ч УЕВС ПРЕТБФПТОЩЕ УЛПВЛЙ.

 

чПРТПУ 7

рТЙНЕТ ЛПОУФТХЛГЙЙ еумй У ЙУРПМШЪПЧБОЙЕН УПУФБЧОПЗП ПРЕТБФПТБ

фТЕВХЕФУС УПУФБЧЙФШ БМЗПТЙФН Й РТПЗТБННХ ОБИПЦДЕОЙС ЛПТОЕК ЛЧБДТБФОПЗП ХТБЧОЕОЙС ax2+bx+c=0 У РТПЙЪЧПМШОЩНЙ ЛПЬЖЖЙГЙЕОФБНЙ a, b, c (a¹0), ДМС ЖЙЛУБГЙЙ ТЕЪХМШФБФПЧ ТБУЮЕФПЧ УДЕМБФШ ЛПРЙА РПМШЪПЧБФЕМШУЛПЗП ЬЛТБОБ.

1 уИЕНБ БМЗПТЙФНБ ТЕЫЕОЙС ЪБДБЮЙ:

 

 

 

 

ОЕФ  
ДБ
ДБ

 

x1:=(-b+–d)/(2a)

 

x2:=(-b-–d)/(2a)

 

 

љљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљљ

 

 

2 фЕЛУФ РТПЗТБННЩ ОБ СЪЩЛЕ рБУЛБМШ:

 

program nk;

var

љљ љљљa,b,c,d,x1,x2:real;

begin

write('чЧЕДЙФЕ ЪОБЮЕОЙС РЕТЕНЕООЩИ a,b,c: ');љљљљљљљ readln(a,b,c);

љљ writeln('йУИПДОЩЕ ДБООЩЕ: a=',a:4:2,' b=', b:4:2,'c=':5,c:4:2);

љљ write('тЕЪХМШФБФ: ');

љљ d:=sqr(b)-4*a*c;

љљ if d<0

љљљљ then writeln('ДЕКУФЧЙФЕМШОЩИ ЛПТОЕК ОЕФ')

љљљљ else begin

љљљљљ љљљљљљљљљљљx1:=(-b+sqrt(d))/(2*a);

љљљљљљ љљљљљљљљљљx2:=(-b-sqrt(d))/(2*a);

љљљљљљ љљљљљљљљљwriteln('x1=',x1:4:2,'x2=':5,x2:4:2)

љљљљљљ љљљљљend;

љљ readln;

end.

3 дМС ФПЗП ЮФПВЩ УДЕМБФШ ЛПРЙА РПМШЪПЧБФЕМШУЛПЗП ЬЛТБОБ У ТЕЪХМШФБФБНЙ ЧЩРПМОЕОЙС РТПЗТБННЩ ОХЦОП ПДОПЧТЕНЕООП ОБЦБФШ ЛМБЧЙЫЙ Shift Й PrtSc .

 

чПРТПУ 7

фЕЛУФ РТПЗТБННЩ ОБ СЪЩЛЕ Delphi (ЛПОУПМШОЩК ТЕЦЙН)

 

program Project2;

{$APPTYPE CONSOLE}

uses

љљљљљ љљSysUtils;

љ var

љљљљљљљ a,b,c,d,x1,x2:real;

begin

write('Read a,b,c: ');љљљљљљљ readln(a,b,c);

љљ writeln('Input data: a=',a:4:2,' b=', b:4:2,'c=':5,c:4:2);

љљ write('Risult: ');

љљ d:=sqr(b)-4*a*c;

љљ if d<0

љљљљљљ then writeln('Real root is not')

љљљљљљ else begin

љљљљљљљљљљљљљљљљљљљљљљљ x1:=(-b+sqrt(d))/(2*a);

љљљљљљљљљљљљљљљљљљљљљљљ x2:=(-b-sqrt(d))/(2*a);

љљљљљљљљљљљљљљљљљљљљљљ writeln('x1=',x1:4:2,'x2=':5,x2:4:2)

љљљ љљљљљљљљљљљend;

љљ readln;

end.

 

чПРТПУ 8

чБТЙБОФЩ ЪБРЙУЙ ХУМПЧЙК (МПЗЙЮЕУЛЙИ ЧЩТБЦЕОЙК)

ч ЛПОУФТХЛГЙЙ еумй ЪБРЙУЩЧБЕФУС ЧЩТБЦЕОЙЕ, ЛПФПТПЕ НПЦЕФ РТЙОЙНБФШ ЪОБЮЕОЙЕ ЙМЙ ЙУФЙОБ ЙМЙ МПЦШ. ьФЙ ЧЩТБЦЕОЙС НПЗХФ ВЩФШ ЙМЙ РТПУФЩНЙ ЙМЙ УПУФБЧОЩНЙ. рТПУФПЕ ЧЩТБЦЕОЙЕ Ч ПВЭЕН УМХЮБЕ ЙНЕЕФ ЧЙД:љ

БМЗЕВТБЙЮ. ЧЩТБЦЕО.1 ЪОБЛ ПРЕТБГ. УТБЧОЕОЙС БМЗЕВТБЙЮ. ЧЩТБЦЕО.2

рТЙНЕТЩ РТПУФЩИ ХУМПЧЙК: 1) y>=x+1; 2) D<0. йУРПМШЪХАФУС УМЕДХАЭЙЕ ЪОБЛЙ ПРЕТБГЙЙ УТБЧОЕОЙС: 1) =; 2) <>; 3) <; 4) >; 5)>=; 6)<=.

уПУФБЧОЩЕ ХУМПЧЙС ПВТБЪХАФУС ЙЪ РТПУФЩИ УПЕДЙОЕОЙЕН ЙИ УМХЦЕВОЩНЙ УМПЧБНЙ СЪЩЛБ рБУЛБМШ ПВПЪОБЮБАЭЙИ УППФЧЕФУФЧЕООП ЙНЕОБ МПЗЙЮЕУЛЙИ ПРЕТБГЙК й, ймй, ое: AND, OR, NOT.

рХУФШ б, B ОЕЛПФПТЩЕ МПЗЙЮЕУЛЙЕ ЧЩТБЦЕОЙС. фПЗДБ НПЦОП ЪБРЙУБФШ:

1) (A) AND (B) (ЮЙФБЕФУС: б Й ч)- ЬФП ХУМПЧЙЕ ЙУФЙООП ФПМШЛП Ч ФПН УМХЮБЕ, ЕУМЙ ЙУФЙООЩ ПДОПЧТЕНЕООП ПВБ ХУМПЧЙС Й ХУМПЧЙЕ б Й ХУМПЧЙЕ ч. фБЛЙН ПВТБЪПН ХЛБЪБООПЕ ХУМПЧЙЕ МПЦОП Ч УМХЮБЕ, ЕУМЙ МПЦОП ИПФС ВЩ ПДОП ХУМПЧЙЕ ЙМЙ б ЙМЙљ ч. хУМПЧЙЕ 0£x<5 ОБ СЪЩЛЕ РТПЗТБННЙТПЧБОЙС - (x>=0)AND(X<5).

2) (A) OR (B) (ЮЙФБЕФУС: б ЙМЙ ч)- ЬФП ХУМПЧЙЕ ЙУФЙООП Ч ФПН УМХЮБЕ, ЕУМЙ ЙУФЙООП ИПФСљ ВЩљ ПДОП ХУМПЧЙЕ ЙМЙ ХУМПЧЙЕ б ЙМЙ ХУМПЧЙЕ ч. фБЛЙН ПВТБЪПН ХЛБЪБООПЕ ХУМПЧЙЕ МПЦОП Ч УМХЮБЕ, ЕУМЙ МПЦОП Й ХУМПЧЙЕ Й б Йљ ч. хУМПЧЙЕ (y>5)OR(x>3) ЙУФЙООП Ч УМХЮБЕ, ЕУМЙ ЙУФЙООП ХУМПЧЙЕ (y>5) ЙМЙ ЙУФЙООП ХУМПЧЙЕ (x>3) ЙМЙ ПВБ ХУМПЧЙС.

3) NOT(A) (ЮЙФБЕФУС: ОЕ б) -ЬФП ХУМПЧЙЕ ЙУФЙООП Ч ФПН УМХЮБЕ, ЕУМЙ ХУМПЧЙЕ б МПЦОП. ьФП ХУМПЧЙЕ МПЦОП, ЕУМЙ ХУМПЧЙЕ б ЙУФЙООП.

хУМПЧЙЕ NOT(x>3) ЙУФЙООП Ч ФПН УМХЮБЕ, ЕУМЙ ХУМПЧЙЕ x>3 МПЦОП, Ф.Е. ЕУМЙ x£3.

 

чПРТПУ 9

 

рТЙНЕТ ТЕЫЕОЙС ЪБДБЮЙ У ЙУРПМШЪПЧБОЙЕН ЛПОУФТХЛГЙЙ еумй, ЧМПЦЕООПК Ч ДТХЗХА ЛПОУФТХЛГЙА еумй, ПФМБДПЮОПК РЕЮБФЙљ Йљ УФБОДБТФОПЗП НПДХМС Printer

рХУФШ ФТЕВХЕФУС УПУФБЧЙФШ РТПЗТБННХ, РПЪЧПМСАЭХА РП ЪБДБООПНХ ЪОБЮЕОЙА БТЗХНЕОФБ И ОБКФЙ ЪОБЮЕОЙЕ Х ЖХОЛГЙЙ

уПУФБЧЙН РТПЗТБННХ ОБ СЪЩЛЕ рБУЛБМШ.

{...}

program funct;

Uses Printer;

var

љљ x,y:real;

begin

љљ write('чЧЕДЙФЕ ЪОБЮЕОЙС РЕТЕНЕООПК x: '); readln(x);

љљ writeln(lst,'йУИПДОЩЕ ДБООЩЕ: x=', x:4:2);

љљ write('пФМБДПЮОБС РЕЮБФШ: ');

љљ if x<0

љљљљ then begin

љљљљ writeln('A');

љљљљљљљљљ љљљљљy:=-x

љend

љљљљљ else if (x>=0) and (x<5)

љљљљљљљљљљљљљљљ then begin

љљљљљљљљљљљљљљљљљљљљљљљљљљљ writeln('B');

љљљљљљљљљљљљљљљљљљљљљљљљљљљ y:=sqr(x)

љљљљљљљљљљљљљљљљљљљљљљљ end

љљљ {НПЦОП ВЩМП ЧНЕУФП ХУМПЧЙС (x>=0)and(x<5) ЪБРЙУБФШ x<5)}

љљљљљљљљљљљљљљљљ else begin

љљљљљљљљљљљљљљљљ љљљљљљљљљљљwriteln('C');

љљљљљљљљљљљљљљљљљљљљљљљљљљљ y:=x

љљљљљљљљљљљљљљљљљљљљљљљљ end;

љљ writeln(lst,'тЕЪХМШФБФ: ',y:4:2);

љљ readln;

end.

рТЙ ПФМБДЛЕ ДБООПК РТПЗТБННЩ ТЕЛПНЕОДХЕФУС ЙУРПМШЪПЧБФШ РСФШ ФЕУФПЧЩИ ЪОБЮЕОЙК: ФТЙ ОБИПДСЭЙЕУС ЧОХФТЙ ХЛБЪБООЩИ ДЙБРБЪПОПЧ Й ДЧБ ЗТБОЙЮОЩИ ЪОБЮЕОЙС. оБРТЙНЕТ, УМЕДХАЭЙЕ ЪОБЮЕОЙС ЙУИПДОПК РЕТЕНЕООПК И: -4, 0, 3, 5, 6.

чПРТПУ 10

йУРПМШЪПЧБОЙЕ ПФМБДЮЙЛБ РТЙ ПФМБДЛЕ ХЛБЪБООПК РТПЗТБННЩ

 

юФПВЩ ЙЪВЕЦБФШ ОЕПВИПДЙНПУФЙ ЧЛМАЮЕОЙС Ч ФЕЛУФ РТПЗТБННЩ ДПРПМОЙФЕМШОПК ПФМБДПЮОПК РЕЮБФЙ НПЦОП ЙУРПМШЪПЧБФШ ЧУФТПЕООЩК ПФМБДЮЙЛ УЙУФЕНЩ РТПЗТБННЙТПЧБОЙС. дМС ЬФПЗП ЧЩРПМОЙН УМЕДХАЭЙЕ ДЕКУФЧЙС:

Б) тБЪНЕУФЙН Ч ПЛОЕ РТПУНПФТБ (Watch) ЙНЕОБ РЕТЕНЕООЩИ, ЙЪНЕОЕОЙЕ ЪОБЮЕОЙК ЛПФПТЩИ Ч РТПГЕУУЕ РПЫБЗПЧПЗП ЧЩРПМОЕОЙС РТПЗТБННЩ НЩ ВХДЕН РТПУНБФТЙЧБФШ. дМС ЬФПЗП ТБУРПМПЦЙН Ч ПЛОЕ ТЕДБЛФПТБ РПД РЕТЕНЕООПК И ЛХТУПТ Й ТЕБМЙЪХЕН ЛПНБОДХ Debug/Add Watchљљљљљљљљљљљљљљ (Control+F7).

В) вХДЕН ЧЩРПМОСФШ РПЫБЗПЧПЕ ЧЩРПМОЕОЙЕ РТПЗТБННЩ ОБЦБФЙЕН ОБ ЛМБЧЙЫХ F7 ЙМЙ F8.

 

чПРТПУ 11

лПОУФТХЛГЙСљ ФЙРБ чщвпт (чбтйбоф)

 

1 рТЙНЕТ РТПЗТБННЙТПЧБОЙС ОБ СЪЩЛЕ рБУЛБМШ У ЙУРПМШЪПЧБОЙЕН ЛПОУФТХЛГЙЙљ чщвпт .

{...}

program casep;

const c=10;

var n1,n2:integer;

beginљљ

љљ write('чЧЕДЙФЕ n1,n2:');љ readln(n1,n2);

љљ writeln('йУИПДОЩЕ ДБООЩЕ: n1=',n1,'љ n2=',n2,'љ c=',c);

љљ writeln('n1+n2=',n1+n2);

љљ write('тЕЪХМШФБФ: ');

љљ case n1+n2 of

љљљљ 2:љљљљљљљљљљ љљљљљљљљљљ writeln('n1+n2=2');

љљљљ 1,3:љљљљљљ љљљљљљљљљљљ writeln('n1+n2=1 OR 3');

љљљљ 4..9:љљљљљ љљљљљљљљљљљ writeln('4<=n1+n2<=9');

љљљљ c:љљљљљљљљљљ љљљљљљљљљљ writeln('n1+n2=',c);

љљљљ -5..0,11..15:љљљ writeln('-5<=n1+n2<=0 OR 11<=n1+n2<=15')

љљљљ else writeln('n1+n2<-5 OR 15<n1+n2')

љљ end{case};

љљ readln

end.

 

2 тЕБМЙЪБГЙС ЛПОУФТХЛГЙЙ чЩВПТ ОБ СЪЩЛЕ РТПЗТБНЙТПЧБОЙС.

 

Case ЧЩТБЦЕОЙЕљ of

љљ УПЧПЛХРОПУФШ ЛПОУФБОФ1љ : ппу1;

љљ УПЧПЛХРОПУФШ ЛПОУФБОФ2љљ : ппу2;

љљ УПЧПЛХРОПУФШ ЛПОУФБОФ : ппу;

љљљ else ПРЕТБФПТ РТПУФПК ЙМЙ УЕТЙС ПРЕТБФПТПЧ

end; {Case}

3 лПННЕОФБТЙК Л ЖТБЗНЕОФХ РТПЗТБННЩ ТЕБМЙЪХАЭЕНХ ЛПОУФТХЛГЙА чЩВПТ:

Б) ЧЩРПМОСЕФУС ФПМШЛП ФПФ ПРЕТБФПТ ПДЙОПЮОЩК ЙМЙ УПУФБЧОПК (ппу), ЛПОУФБОФБ ЛПФПТПЗП ТБЧОБ ЪОБЮЕОЙА ЧЩТБЦЕОЙС;

В) Ч УМХЮБЕ, ЕУМЙ Ч ХЛБЪБООЩЕ УПЧПЛХРОПУФЙ ЛПОУФБОФ ОЕ ЧИПДЙФ ОЙ ПДОБ ЛПОУФБОФБ ТБЧОБС ЪОБЮЕОЙА ЧЩТБЦЕОЙС, ФП ЧЩРПМОСЕФУСљ else ЮБУФШ.

ч УМХЮБЕ, ЕУМЙ Ч else џОЕ ЧИПДЙФ ОЕ ПДЙО ПРЕТБФПТ, ФП else ЮБУФШ НПЦЕФ ВЩФШ ПРХЭЕОБ, ФПЮОП ФБЛЦЕ ЛБЛ Й Ч ОЕУФТХЛФХТЙТХЕНПК ЖПТНЕ ПРЕТБФПТБ еумй - фп.

Ч) ФЙР ЧЩТБЦЕОЙС Й ЛПОУФБОФ ДПМЦЕО УПЧРБДБФШ, Й ОЕ ДПМЦЕО ВЩФШ ФЙРБ real Й string, ПО НПЦЕФ ВЩФШ, ОБРТЙНЕТ ФЙРБ integer;

З) УПЧПЛХРОПУФШ ЛПОУФБОФ НПЦЕФ ЪБДБЧБФШУС Ч ЧЙДЕ ПДОПЗП ЙМЙ ОЕУЛПМШЛЙИ ДЙБРБЪПОПЧ.

ä) â else ЮБУФЙ ОЕ ФТЕВХЕФУС ЙУРПМШЪПЧБФШ ПРЕТБФПТОЩЕ УЛПВЛЙ, ДБЦЕ Ч УМХЮБЕ ОЕПВИПДЙНПУФЙ ТБЪНЕЭЕОЙС Ч ОЕК УЕТЙЙ ПРЕТБФПТПЧ (ЖХОЛГЙЙ ПРЕТБФПТОЩИ УЛПВПЛ ЧЩРПМОСАФ УМПЧБ else Й end).

 

4 уИЕНБ ЛПОУФТХЛГЙЙ ЧЩВПТ.

ЧИПД
               
 
   
 
   
 
   
 
 
   
пРЕТБФПТ ПДЙОПЮОЩК ЙМЙ УЕТЙС ПРЕТБФПТПЧ
ппу3
ппу2
ппу1
ппу3


ДБ  


ОЕФ  

ДБ  


ОЕФ  

ДБ  


ОЕФ  

ЧЩИПД


чПРТПУ 12

рТПЗТБННЙТПЧБОЙЕ ЧЕФЧМЕОЙС ОБ уЙ++

 

 

МЕЛГЙС 5