Хичээлийн сэдэв: "Хөтөлбөр дэх мөчлөг (давталт)"

1) Шугаман, салаалсан программ зохиох мэдлэгээ давтаж, бататгах; 2) Цикл оператор ашиглан програм зохиож сурах - FOR i:=1 TO n DO Эхлэх операторууд (хөгц бие) төгсгөл ; 3) Стандарт асуудлыг шийдвэрлэхэд операторуудыг ашиглах. Хичээлийн зорилго:

Дутууг бөглөнө үү: Program Sql; Var A,B,C,D, XI, X2: ??? ; Эхлэх Writeln ("Квадрат тэгшитгэлийн коэффициентийг оруулна уу"); Readln (???); D:=B*B-4*A*C; Хэрэв D бол

Бүлгийн асуултууд: 1) Салбар болон шугаман программуудын хооронд ямар ялгаа байдаг вэ? 2) Программд сонголт хийхэд ямар операторууд ашиглагддаг вэ? 3) эхлэл.... төгсгөл - Энэ юу вэ? Хөтөлбөрт ашиглах дүрэм юу вэ?

1) Оролт/гаралтын операторууд; 2) Сонгох операторууд; 3) a:=a+3 – юу болох вэ? 4) Өгөгдлийн төрлийг жагсаах; 5) Шаардлагагүй БА, ЭСВЭЛ, ТӨГСГӨЛ, ҮГҮЙ, IF -ийг арилга; 6) ; - юу гэсэн үг вэ? 7) Хөтөлбөрийн төгсгөлийг хэрхэн зааж өгсөн бэ? 8) Арифметик үйлдлүүдийг жагсаа. 9) 120 mod 65 = гэж юу вэ? 10) Давталтын операторууд.

Үүний дагуу цэгцэл: 1. Унших 2. Төгсгөл 3. Эхлэх 4. Бүхэл тоо 5. ; 6. Хэрэв .. Дараа нь 7. := 8. Оруулах 9. Төгсгөл 10. Бүхэл тоо 11. Оноо 12. Дараагийн үйлдэл 13. Эхлэх 14. Хэрэв.. Дараа нь

Үр дүн нь үнэхээр 3-аас бага байна уу? a:= 7 b:= - 10 a:=a*(- 7) b:=159 a:=b+a

Хөтөлбөрийн 5 алдааг ол: Program krug ; VAR Pi, r, S: бодит; Pi:=3.14, WRITELN(‘vvedite radiuc r=’), READ(r); S=Pi *r*r; WRITELN(‘Ploshad kruga S= ’, S) төгсгөл

Хөтөлбөрийн тойрог; VAR Pi, r, S: бодит; эхлэх Pi:=3.14 , WRITELN(‘vvedite radiuc r=’) , READ(r); S: =Pi *r*r; WRITELN(‘Плошад круга S= ’, S) төгсгөл .

Даалгавар No1 Бүхэл тоо N өгөгдсөн бол тэгш, сондгой эсэхийг тодорхойл. 2, 4, 6, … нь тэгш, учир нь үлдэгдэлгүйгээр 2-т хуваагдана(N mod 2 =0) 1, 3, 7, ... - сондгой, учир нь 2-т хуваагдана үлдэгдэл 1(N mod 2 =1)

Алгоритм Алгоритм Число ; хувьсагч N: бүхэл тоо; Гаралтыг эхлүүлэх('vvedite chislo'); (N) оруулна уу; IF N mod 2 =0 T O Output(N,‘- chetnoe‘); IF N mod 2 =1 T O Гаралт(N,‘- nechetnoe‘); Төгсгөл.

Бодлого No2 Хоёр оронтой бүхэл тоо N (DE) өгөгдсөн бөгөөд D нь аравтын тоо, E нь нэгжийн тоо юм. Энэ тооны цифрүүдийн нийлбэр нь 10-тай тэнцүү эсэхийг тодорхойл. Жишээ: 28-д S = 2 + 8 = 10 нийлбэр байх боловч 27-д S = 2 + 7 = 9 байх болно. Бид араваар тоолно: D = N div 10 , ба нэгжүүд: E= N mod 10

Алгоритм Алгоритм Число ; хувьсагч N,E,D,S: бүхэл тоо; Гаралтыг эхлүүлэх('vvedite chislo'); (N) оруулна уу; E:=N горим 10; D:=N div 10; S:=E+D; IF S = 10 T O Output(‘summa= 10’) Үгүй бол (‘summa10‘); Төгсгөл.

Тодорхойлолт: Ижил төрлийн үйлдлүүд олон удаа давтагддаг програмууд - мөчлөгийн програмууд (давталттай).

Даалгавар: 1-ээс 100 хүртэлх 100 натурал тоо өгөгдсөн (1,2,3, ... 99,100) Тэдний нийлбэрийг тооцоод S хувьсагч руу гарга.

Алгоритмын нийлбэр; Хувьсагч i,S: бүхэл тоо; Эхлэх S:=0; For i:=1-ээс 100 хүртэл давтах Start S:= S + i body End; мөчлөг Гаралт (S) Төгсгөл.

хөтөлбөрийн хураангуй; VAR i, S: бүхэл тоо; Эхлэх S:=0; FOR i:=1 TO 100 DO begin S:=S+i body end; WRITE(S) давталт төгсгөл.

хөтөлбөрийн хураангуй; VAR i, S: бүхэл тоо; Эхлэх S:=0; FOR i:=1 TO 100 DO begin S:=S+i ; body WRITE(‘S’, i, ‘=‘, s) давталтын төгсгөл; Төгсгөл.

Циклийн бие нь олон удаа давтагдах шаардлагатай үйлдлүүд юм. Гогцооны их бие нь оператор хаалтанд хаагдсан байна start..... төгсгөл;

ALT + F9 - алдаа засах CTRL + F9 - програмыг ажиллуулах ALT + F5 - үр дүнг харах

Даалгавар: 1) Дурын N бүхэл тоог 1-ээс 10 хүртэлх тоогоор үржүүлэх хүснэгтийн баганыг гарга. Жишээ нь: N = 5, тэгвэл багана нь ийм байх болно - 1*5=5 2*5=10 3*5 =15 i * N = P , энд i нь …… .. 1…10 10*5=50 хооронд хэлбэлздэг

Гэрийн даалгавар: "Үржүүлэх хүснэгтийн баганын тухай" бодлогын програмын тайлбар.

Анхаарал тавьсанд БАЯРЛАЛАА!

Николаус Вирт Гэхдээ Паскаль бол зөвхөн заах хэл гэж бодох нь буруу байх болно. Энэ тухай Н.Вирт (1984) “Паскаль хэлийг заах хэл болгон хөгжүүлсэн гэж маргадаг байсан. Хэдийгээр энэ мэдэгдэл үнэн боловч үүнийг заахдаа ашиглах нь цорын ганц зорилго биш байв. Үнэндээ зарим практик асуудлыг шийдвэрлэхэд ашиглах боломжгүй ийм хэрэгсэл, арга техникийг сургалтын явцад ашиглах нь амжилтанд хүрнэ гэдэгт би итгэдэггүй." * *

Паскаль програмчлалын хэл Тэр цагаас хойш Паскаль хэл нь програмчлалын зарчмуудыг заах хэл төдийгүй нэлээд төвөгтэй программ хангамж бүтээх хэрэгсэл болгон улам бүр түгээмэл болж байна. Анхны хэлбэрээрээ Паскаль нь нэлээд хязгаарлагдмал чадвартай байсан ч энэ хэлний өргөтгөсөн хувилбар болох Turbo Pascal нь хүчирхэг програмчлалын хэл юм.

Яагаад PASCAL гэж? Паскаль програмчлалын хэлийг 1642 онд анхны механик тооцоолох машин зохион бүтээсэн Францын эрдэмтэн Блез Паскалийн нэрээр нэрлэжээ. Энэ нь харилцан үйлчлэгч араа дугуйнуудын систем байсан бөгөөд тус бүр нь аравтын тооны нэг оронтой таарч, 0-ээс 9 хүртэлх тоог агуулдаг. Дугуй бүрэн эргэлт хийхэд дараагийнх нь нэг оронтой тоогоор шилждэг. Паскалийн машин нь нийлбэрийн машин байсан.

Програмчлалын хэлний талаархи үндсэн мэдээлэл Хэл бол тэмдгүүдийн систем юм. Компьютерийн хэл (машины хэл) нь хоёртын дохионы систем юм. Иймд бичсэн программыг компьютер ойлгохын тулд компьютерт ойлгомжтой хэл рүү хөрвүүлсэн байх ёстой. Энэхүү орчуулгын үйл явцыг орчуулга гэж нэрлэдэг.

Нэгдсэн орчин Turbo Pascal-7.0 Borland International нь Паскалийн массыг түгээхэд асар их үүрэг гүйцэтгэсэн. Тэрээр алдарт Turbo хөгжүүлэлтийн орчинг бүрдүүлж чадсан. Энэ нь програмчлалыг хөнгөвчлөх томоохон алхам болсон. Яагаад Турбо гэж? Англи хэлээр турбо гэдэг нь хурдатгал гэсэн утгатай. Turbo Pascal-д багтсан хөрвүүлэгч нь программчлалын хэлнээс программыг машины код руу маш хурдан хөрвүүлдэг.

Хэлний үндсэн хэрэгсэл Хэлний тэмдэг гэдэг нь зохиол зохиоход хэрэглэгддэг үндсэн шинж тэмдэг юм. Аливаа хэлний цагаан толгой нь ийм тэмдэгтүүдийн багц юм. Turbo Pascal 7.0 хэлний цагаан толгойд: бүх латин том жижиг үсэг, араб тоо (0 – 9), тэмдэг + - * / =, орно. ; : _ () ( ) болон бусад үйлчилгээний (захиалагдсан) үгс

Турбо Паскаль 7.0-д команд, функцын нэр, тайлбар нэр томъёог бичихийн тулд үйлчилгээ эсвэл нөөц гэж нэрлэгддэг хатуу тодорхойлогдсон үгсийн багц байдаг (эдгээр нь англи хэлний товчлол юм). Үйлчилгээний үгсийг оператор (READ, WRITELN гэх мэт) функцын нэр (SIN, COS гэх мэт) түлхүүр үг (VAR, BEGIN, END гэх мэт) хэлний үндсэн хэрэгсэл гэсэн гурван бүлэгт хуваадаг.

Хэмжигдэхүүний нэр нь түүний тэмдэглэгээ бөгөөд энэ нь үсгээр эхэлсэн үсэг, тоо, доогуур зурааснаас бүрдсэн үг юм. Тоонууд: бүхэл тоо, бодит: тогтмол цэг (-1.23; 654.2), хөвөгч цэг (2, 437,). Зургаан үйлдэл: + нэмэх, - хасах, / хуваах, * үржүүлэх, үлдэгдэл олох, хуваах.

Арифметик илэрхийлэл нь нэр, тоо, арифметик үйлдлийн тэмдэг, математик функцээс бүтдэг. Үйлдлийн дарааллыг зааж өгөхийн тулд зөвхөн хаалт ашиглана. Квадрат болгохын тулд sqr(x) тэмдэглэгээг ашиглана. Квадрат язгуурыг задлахын тулд sqrt(x) тэмдэглэгээг ашиглана. Модулийг abs(x) гэж тэмдэглэнэ.

Даалгаврын оператор Хувьсагчийн нэр:= арифметик илэрхийлэл. x:= 3.24 эсвэл x:= x+4. Хувьсагчийн төрөл 1. Зүүн талд байгаа хувьсагч бодит төрлийн байвал арифметик илэрхийлэл нь бүхэл тоо эсвэл бодит төрөл байж болно. 2.Зүүн талд байгаа хувьсагч бүхэл тоон төрлийн байвал арифметик илэрхийлэл нь зөвхөн бүхэл тоо болно.

Паскаль дахь програмын бүтэц 1-р хэсэг – өгөгдөл ба операторуудын тодорхойлолт. 2-р хэсэг - програмын блок. Програмын ерөнхий харагдац: Програм (програмын нэр) шошго (шошгоны жагсаалт) const (тогтмол утгуудын жагсаалт) төрөл (нарийн төвөгтэй өгөгдлийн төрлүүдийн тайлбар) var (програмын өгөгдлийн тайлбар) эхлэл (програмын блокийн эхлэл) (алгоритм) Төгсгөл. (хөтөлбөрийн төгсгөл)

Хөтөлбөрийн нэр: үсгээр эхэлсэн 8 тэмдэгтээс хэтрэхгүй. цэгээр төгсдөг. Дүрслэх хэсэг нь шошго, тогтмол, нэр, хувьсагчийн төрлүүд гэсэн 4 хэсгээс бүрдэнэ. var нэр ба хувьсагчийн төрөл: бүхэл тоо (бүхэл тоо), бодит (бодит). Жишээ нь: var i, j: бүхэл тоо; x: бодит; Төрөл бүрийн тайлбар нь цэг таслалаар төгсдөг. Програмын блок нь асуудлыг шийдвэрлэх алгоритмыг тодорхойлсон мэдэгдлүүдийг агуулдаг.

Оруулах, гаралтын операторууд: унших (нэрсийн жагсаалт) – програмыг зогсоож, хэрэглэгч гар дээр (зайгаар тусгаарлагдсан) тоо бичихийг хүлээн ENTER товчийг дарна. Жишээ нь: унших(i, j); Энэ оператор ажилласны дараа курсор сүүлийн тооны ард байрлах боловч шинэ мөрөнд шилжихгүй. Өгөгдлийг оруулсны дараа курсорыг шинэ мөрөнд шилжүүлэхийн тулд та readln (нэрсийн жагсаалт) операторыг ашиглах ёстой. бичих (гаралтын жагсаалт) - өгөгдлийг дэлгэц рүү бичнэ. Гаралтын жагсаалт - тооцооллын үр дүнгийн таслалаар тусгаарлагдсан нэрс, апостроф дахь тайлбар бичвэрүүд. Жишээ нь: бичих(x=, x); Тогтмол цэгийн дугаар дэлгэц дээр хэвлэгдэх болно. Жишээ нь: write(x=, x:6:2); дэлгэц дээр 6 оронтой тоо гарч ирэх ба үүнээс хоёр нь аравтын бутархайн ард (x =) байна. Курсорыг writeln хоосон гаралтын оператор ашиглан шинэ мөрөнд шилжүүлнэ. Хоосон оролтын оператор readln

Turbo Pascal систем дээр ажиллах Alt + F10 – Файл цэс – Шинэ – шинэ файл үүсгэх Enter – мөр бүрийн төгсгөлд байх ёстой Ctrl + Y – мөр устгах Enter – мөр оруулах Програмыг ажиллуулахын тулд Run from сонгоно. Орчуулагч цэс – программыг Паскаль хэлнээс машины хэл рүү хөрвүүлж, синтаксийн алдааг хайдаг. 1. Хэрэв алдаа олдвол та засварлагч руу буцах болно, курсор алдааг заана. 2.Алдаа олдохгүй бол програмыг ажиллуулна

Заримдаа THEN болон ELSE гэсэн үгсийн дараа та нэг биш, хэд хэдэн мэдэгдлийг гүйцэтгэх хэрэгтэй. Дараа нь эдгээр операторууд операторын хаалтанд байна. Нээлтийн хаалт нь BEGIN, хаалтын хаалт нь END гэсэн үг юм. ELSE гэдэг үгийн өмнө цэг таслал байхгүй. BEGIN – END хос бүрийг нэг баганад бичихийг зөвлөж байна. IF нөхцөл Дараа нь мэдэгдэл 1 эхлэх; оператор 2; мэдэгдэл N төгсгөл ELSE эхлэл мэдэгдэл 1; оператор 2; оператор M төгсгөл;

E3 програм; var a,b: бүхэл тоо; бичиж эхлэх (хоёр бүхэл тоог хоосон зайгаар оруулаад дараа нь дарна уу); readln(a,b); хэрэв mod 2 = 0 бол writeln (a – тэгш) өөр writeln (a – сондгой); хэрэв b mod 2 = 0 бол writeln (b – тэгш) өөр writeln (b – сондгой); уншина уу.

3, хэрэв a>0 6, хэрэв a бол 0 6, хэрэв a бол 0 6, хэрэв a бол 0 6, хэрэв a0 6, хэрэв гарчиг="3, хэрэв a>0 бол 6, хэрэв a)

E31 програм; var a,y: бодит; бичиж эхлэх (тоо оруулаад дарна уу); readln(a); хэрэв a >0 бол y:=3 өөр y:=6; бичих(y=,y); уншина уу. 0 дараа нь y:=3 өөр y:=6; бичих(y=,y); уншина уу."> 0 then y:=3 else y:=6; write (y=,y); readln end."> 0 then y:=3 else y:=6; write (y=,y); readln end." title="E31 програм; var a,y: бодит; бичиж эхлэх (тоо оруулаад дарна уу); readln(a); хэрэв a >0 бол y:=3 өөр y:=6; бичих(y=,y); уншина уу."> title="E31 програм; var a,y: бодит; бичиж эхлэх (тоо оруулаад дарна уу); readln(a); хэрэв a >0 бол y:=3 өөр y:=6; бичих(y=,y); уншина уу."> !}

A+b, хэрэв a>b a*b, хэрэв a b a*b, хэрэв a b a*b, хэрэв a b a*b, хэрэв ab a*b, хэрэв a гарчиг="a+b, хэрэв a>b a* бол) b хэрэв a

E32 хөтөлбөр; var a,b,x: бодит; бичиж эхлэх (хоёр тоог хоосон зайгаар оруулаад дараа нь дарна уу); readln(a); хэрэв a >b бол x:=a+b өөрөөр x:=a*b; бичих(x=,x); уншина уу. b дараа нь x:=a+b өөрөөр x:=a*b; бичих(x=,x); уншина уу."> b then x:=a+b else x:=a*b; write (x=,x); readln end."> b then x:=a+b else x:=a*b; write (x=,x); readln end." title="E32 хөтөлбөр; var a,b,x: бодит; бичиж эхлэх (хоёр тоог хоосон зайгаар оруулаад дараа нь дарна уу); readln(a); хэрэв a >b бол x:=a+b өөрөөр x:=a*b; бичих(x=,x); уншина уу."> title="E32 хөтөлбөр; var a,b,x: бодит; бичиж эхлэх (хоёр тоог хоосон зайгаар оруулаад дараа нь дарна уу); readln(a); хэрэв a >b бол x:=a+b өөрөөр x:=a*b; бичих(x=,x); уншина уу."> !}

Давталтын зохион байгуулалт Програмчлалд давтагдах үйлдлийг давталт гэнэ.Нөхцөлгүй үсрэх оператор goto n, n - бүхэл тоо (4 тэмдэгтээс ихгүй), шошго. Шошго нь 3 удаа давтагдана: 1.Label хэсэгт; 2. Goto мэдэгдэлд; 3.Нөхцөлгүй шилжилт хийж байгаа операторын өмнө.

Нөхцөл ба болзолгүй үсрэх операторуудыг ашиглан гогцоонуудыг зохион байгуулах. Даалгавар. Эхний хорин тооны нийлбэрийг ол. (1+2+3….+20). a ……………20 S ………….

Евклидийн алгоритм: Бид хоёр тоо тэнцүү болтол том тоог жижиг тоогоор бууруулна. Жишээ нь: Эхний 1 алхам 2 алхам 3 алхам a= 25 b= GCD(a,b)=5

E5 програм; var a, b: бүхэл тоо; бичиж эхлэх (gcd=,a); readln; Төгсгөл. бичих (Хоёр натурал тоог хоосон зайгаар заана); readln(a,b); харин ab do if a>b дараа нь a:=a-b өөрөөр b:=b-a; b дараа нь a:=a-b өөр b:=b-a;"> b дараа нь a:=a-b өөр b:=b-a;"> b дараа нь a:=a-b өөр b:=b-a;" title="Program E5) ; var a, b: бүхэл тоо; эхлэх бичих (GCD=,a); readln; төгсгөл. бичих (Хоёр натурал тоог хоосон зайгаар оруулна); readln (a,b); хэрэв a>b байвал a: =a-b өөр b:=b-a;"> title="E5 програм; var a, b: бүхэл тоо; бичиж эхлэх (gcd=,a); readln; Төгсгөл. бичих (Хоёр натурал тоог хоосон зайгаар заана); readln(a,b); харин ab do if a>b дараа нь a:=a-b өөрөөр b:=b-a;"> !}

B дараа нь a:=a-b; хэрэв b>a дараа нь b:=b-a бичих (Хоёр натурал тоог хоосон зайгаар оруулна); readln (a,b);" title="Program E6; var a, b: бүхэл тоо; эхлэх бичих (HOD=,a); readln; төгсгөл. a=b хүртэл давтана; хэрэв a>b бол a :=a-b; b>a бол b:=b-a бичих (Хоёр натурал тоог хоосон зайгаар оруулна); readln (a,b);" class="link_thumb"> 40 !} E6 програм; var a, b: бүхэл тоо; бичиж эхлэх (HOD=,a); readln; Төгсгөл. a=b хүртэл давтах; хэрэв a>b бол a:=a-b; хэрэв b>a дараа нь b:=b-a бичих (Хоёр натурал тоог хоосон зайгаар оруулна); readln(a,b); b дараа нь a:=a-b; хэрэв b>a дараа нь b:=b-a бичих (Хоёр натурал тоог хоосон зайгаар оруулна); readln (a,b);"> b дараа нь a:=a-b; хэрэв b>a бол b:=b-a бичнэ үү (Хоёр натурал тоог хоосон зайгаар оруулна); readln (a,b);"> b дараа нь a: =a-b; хэрэв b>a дараа нь b:=b-a бичих (Хоёр натурал тоог хоосон зайгаар оруулна); readln (a,b);" title="Program E6; var a, b: бүхэл тоо; эхлэх бичих (HOD=,a); readln; төгсгөл. a=b хүртэл давтана; хэрэв a>b бол a :=a-b; b>a бол b:=b-a бичих (Хоёр натурал тоог хоосон зайгаар оруулна); readln (a,b);"> title="E6 програм; var a, b: бүхэл тоо; бичиж эхлэх (HOD=,a); readln; Төгсгөл. a=b хүртэл давтах; хэрэв a>b бол a:=a-b; хэрэв b>a дараа нь b:=b-a бичих (Хоёр натурал тоог хоосон зайгаар оруулна); readln(a,b);"> !}

Паскаль хэлээр програмчлах Алгоритм ба түүний шинж чанарууд

Алгоритм гэж юу вэ? 3 Мухаммед аль-Хорезми (ойролцоогоор 783–850 он) Алгоритм гэдэг нь тодорхой хугацааны дотор асуудлыг шийдвэрлэхийн тулд гүйцэтгэгч хийх ёстой үйлдлийн дарааллыг нарийн тодорхойлсон дүрслэл юм. Гүйцэтгэгч гэдэг нь алгоритмыг бүрдүүлэгч командуудыг ойлгож гүйцэтгэх чадвартай төхөөрөмж буюу амьд биет (хүн) юм. Албан ёсны гүйцэтгэгчид: тушаалын утгыг ойлгодоггүй (мөн ойлгохгүй байна) (ижил тушаалыг үргэлж ижил аргаар гүйцэтгэдэг).

Алгоритмын шинж чанарууд 4 Салангид байдал - алгоритм нь тусдаа командуудаас бүрдэх бөгөөд тус бүр нь хязгаарлагдмал хугацаанд биелдэг. Детерминизм (тодорхой байдал) - алгоритмыг ижил анхны өгөгдлөөр ажиллуулах бүрт ижил үр дүн гардаг. Ойлгомжтой байдал - алгоритм нь зөвхөн гүйцэтгэгчийн командын системийн нэг хэсэг болох командуудыг агуулдаг. Хязгаарлагдмал байдал (үр дүнтэй байдал) - өгөгдлийн зөв багцын хувьд алгоритм нь тодорхой хугацааны дараа дуусах ёстой. Зөв байдал - хүчинтэй оролтын өгөгдлийн хувьд алгоритм нь зөв үр дүнд хүргэх ёстой.

Алгоритм хэрхэн ажилладаг вэ? 5 салангид объект 1 2 3 4 алгоритм алхам 1 алхам 2 алхам 32 3 4 5 5 4 3 2 салангид объект 25 16 9 4 салангид объектыг оролт болгон хүлээн авч, үүний үр дүнд өөр дискрет объектыг бүтээдэг (эсвэл алдааны мэдэгдэл гаргадаг) объект алхам алхмаар Алхам бүр нь шинэ салангид объект үүсгэдэг

Алгоритм бичих арга замууд 6 байгалийн хэлний псевдокод “зогсоох” командыг хүлээн авах хүртэл холболт үүсгэх командыг хүлээн авах командыг гүйцэтгэх Харилцаа холбооны сессийг дуусгах nc командыг хүлээн авах командыг гүйцэтгэх kc_at команд = ‘зогсоох’ холбооны сессийг дуусгах

Алгоритм бичих арга 7 блок схемийн багц. холболт; cmd: = авах. Тушаал; гүйцэтгэх. Тушаал (cmd); cmd = "зогсоох" хүртэл; хаах. холболт; программ командыг хүлээн авах холболт үүсгэх холболтыг зогсоох “зогсоох” командыг гүйцэтгэх? Үнэхээр биш

9 Программ гэдэг нь програмчлалын хэлээр бичигдсэн алгоритм, компьютерт зориулсан командуудын багц юм.Компьютерийн гүйцэтгэх ёстой үйлдлүүдийн тайлбарыг команд гэнэ. эх сурвалж мэдээллийг хаанаас авах вэ? тэдэнтэй юу хийх ёстой вэ? 1970 он - Паскаль хэл (Н.Вирт) Оператор гэдэг нь өндөр түвшний програмчлалын хэлний команд юм.

Хамгийн энгийн програм 10 Программ (програмын нэр); эхлэх (програмын эхлэл) (програмын үндсэн хэсэг) төгсгөл. (програмын төгсгөл) хаалтанд бичсэн тайлбарууд () боловсруулагдаагүй байна Энэ програм юу хийдэг вэ? ? алгоритмын нэр

11 програмыг харуулах z 1; бичиж эхлэх('2+'); (шилжилтгүйгээр) бичих ln('2=?'); (шинэ мөрөнд) бичих ln(‘Хариулт: 4’); Төгсгөл. Протокол: 2+2=? Хариулт:

Дэлгэцийн гаралт 12 бичих(( гаралтын жагсаалт )); ( үсрэлтгүйгээр ) бичих ln (( гаралтын жагсаалт )); (шинэ мөрөнд) Гаралтын жагсаалт: 1. Арифметик илэрхийллийн утга. 2. Таслалаар тусгаарлагдсан хувьсагчдын жагсаалт. 3. Апострофоор бичсэн бичвэр. Жишээ нь: бичих(SQRT (58) / 0. 5); бичих(a, b, c); writeln(‘Тэгш’);

Өгөгдлийн гаралт 13 ( a хувьсагчийн утгын гаралт) ( a хувьсагчийн утгын гаралт ба шинэ мөрөнд шилжих) ( текстийн гаралт ба хувьсагчийн утга в) бичих(a); лог (a) бичих; writeln(‘ Сайн уу! '); writeln(‘ Хариулт: ‘ , в); writeln(a, '+', b, '=', c);

Арифметик илэрхийлэл 14 a: = (c + b * 5 * 3 - 1) / 2 * d; Тэргүүлэх (ахлах): 1) функц 2) хаалт 3) үржүүлэх, хуваах 4) нэмэх хасах 213 4 5 6 d bc a

Стандарт функцууд 15 abs (x) - модуль sqrt (x) - квадрат язгуур sqr (x) - квадрат sin (x) - радианаар өгөгдсөн өнцгийн синус cos (x) - радианаар өгөгдсөн өнцгийн косинус exp (x) - экспонент e x ln (x) - натурал логарифмын trunc (x) - бутархай хэсгийг таслах (x) - хамгийн ойрын бүхэл тоо руу дугуйлах writeln('x^8 ', exp (ln (x)*8): 0: 3);

Даалгавар 16 “А”: R=5 (R-радиус) бол V хувьсагчийн утгыг (бөмбөгний эзэлхүүн) харуулна. Төрөлөөр: V = (утга) “B”: Ж үсгийн зургийг харуулах Ж Жжжжжж HH HH ZZZZZ “C”: V хувьсагчийн утгыг харуулах (шооны эзэлхүүн), хэрэв H = 7 (H нь урт) шоо ирмэгээс). Төрлөөр: V = (утга)

Тоо нэмэх 17 Бодлого. Гараас хоёр тоог оруулаад тэдгээрийн нийлбэрийг ол. Протокол: 25 30 25+30=55 гэсэн хоёр бүхэл тоо оруулбал компьютер хэрэглэгч компьютер өөрөө тооцоолно! 1. Санах ойд тоо хэрхэн оруулах вэ? 2. Оруулсан дугаарыг хаана хадгалах вэ? 3. Хэрхэн тооцоолох вэ? 4. Үр дүнг хэрхэн харуулах вэ? ?

Хэмжээ: псевдокод 18 програм qq; эхлэх (хоёр тоо оруулах) (тэдгээрийн нийлбэрийг тооцоолох) (нийлбэрийг дэлгэцэн дээр харуулах) төгсгөл. Псевдокод: Паскаль элемент бүхий орос хэл дээрх алгоритм. Компьютер псевдокод ажиллуулж чадахгүй байна! !

Хувьсагч 19 Хувьсагч гэдэг нь нэр, төрөл, утгатай утгыг хэлнэ. Програм ажиллаж байх үед хувьсагчийн утгыг өөрчилж болно. Утгын нэр Энэ нь тохирох уу? ? Бусад өгөгдлийн төрөл А хувьсагч нь тодорхой төрлийн өгөгдлийг хадгалдаг!!

Хувьсагчийн нэр 20 ТА латин үсэг (A-Z) ашиглаж БОЛНО. Доод зураас _ том жижиг үсгээр ялгах БИШ Нэр нь тоогоор эхэлж болохгүй Аль нэр зөв бэ? AXby R&B 4 дугуйт Вася “Пес. Barbos” TU 154 _ABBA A+

Хувьсагчийн зарлал 21 Хувьсагчийн төрөл: бүхэл тоо (бүхэл тоо) бодит (бодит) болон бусад... Хувьсагчийн зарлал: var a, b, c: integer; санах ойд зай хуваарилах хувьсагч – хувьсагчийн төрөл – хувьсагчийн нэрсийн бүхэл тоон жагсаалт

Санамсаргүй алдаа гарахаас урьдчилан сэргийлэхийн тулд хувьсах төрөл 22 зөвшөөрөгдөх утгын зөвшөөрөгдөх үйлдлүүдийн санах ойн хэмжээ өгөгдөл хадгалах формат

Хувьсагч 23-д утга оруулах (a); 1. Програм нь хэрэглэгч утгыг оруулахыг хүлээж Enter дарна. 2. Оруулсан утгыг a хувьсагч руу бичнэ. ! оролтын оператор

Хувьсагчийн утгыг 24 зайгаар тусгаарлаж оруулах: 25 30 Enter-ээр дамжуулан: 25 30 унших (a, b); Хоёр хувьсагчийн утгыг оруулах (зай эсвэл Enter-ээр тусгаарлагдсан). a 25 б

25 var a, b хувьсагчийн утгыг өөрчлөх: бүхэл тоо; . . . a: = 5 ; b: = a + 2 ; a: = (a + 2)*(b – 3); b: = b + 1 ; а? 5 5 б? 5+27 a 5 7*428 b 7 7+

Гаралтын өгөгдөл 26 (а хувьсагчийн утгыг гарга) (а хувьсагчийн утгыг гаргаад шинэ мөрөнд орно) (гаралтын текст болон в хувьсагчийн утга) бичих(a); лог (a) бичих; writeln(‘ Сайн уу! '); writeln(‘ Хариулт: ‘ , в); writeln(a, '+', b, '=', c);

Тоо нэмэх: энгийн шийдэл 27 програм Sum ; var a, b, c: бүхэл тоо; уншиж эхлэх (a, b); c: = a + b; writeln(c); Төгсгөл. Юу болсон бэ? ?

Тоо нэмэх: бүрэн шийдэл 28 програм Sum ; var a, b, c: бүхэл тоо; begin writeln(‘Хоёр бүхэл тоо оруулна уу’); унших (a, b); c: = a + b; writeln(a, '+', b, '=', c); Төгсгөл. Протокол: Компьютерийн хэрэглэгч 25 30 25+30=55 бүхэл тоо оруулна

Дахин гаралтын операторын тухай 29 a: = 123 ; бичих(a: 5); Формат гаралт: Илэрхийллийн үнэлгээ: writeln (a, ‘+’ , b, ‘=’ , a+b); a+b 123 5 тэмдэгт

Арифметик илэрхийлэл 30 a: = (c + b * 5 * 3 - 1) / 2 * d; Тэргүүлэх (ахлах): 1) хаалт 2) үржүүлэх, хуваах 3) нэмэх хасах 213 4 5 6 d bc a

Стандарт функц 31 abs (x) - модуль sqrt (x) - квадрат үндэс sin (x) - радианаар өгөгдсөн өнцгийн синус cos (x) - радианаар өгөгдсөн өнцгийн косинус exp (x) - экспонент e x ln (x) ) - натурал логарифмын trunc (x) - бутархай хэсгийг таслах дугуй (x) - хамгийн ойрын бүхэл тоо руу дугуйлах

Програмчлал Паскаль хэл дээр

1970 онд програмчлалын ертөнцөд дор хаяж хоёр гайхалтай үйл явдал болсон - UNIX үйлдлийн систем болон Цюрих дэх Швейцарийн Холбооны технологийн хүрээлэнгийн профессор Никлаус Виртийн бүтээсэн програмчлалын шинэ хэл. Вирт үүнийг 17-р зууны Францын агуу математикч, гүн ухаантан Блез Паскалийн нэрэмжит болгон нэрлэжээ.

Никлаус Вирт

Блэйз Паскаль

Паскаль хэл зөвхөн програмчлалын анхан шатны сургалтанд тохиромжтой

Учир нь энэ нь программыг хэрхэн зөв бичихийг заадаг төдийгүй хэрхэн зөв бичихийг зааж өгдөг

програмчлалын асуудлыг шийдвэрлэх аргуудыг боловсруулах

• -аас латин цагаан толгойн том жижиг үсгүүд А-аас З хүртэл, мөн доогуур зураас (_) мөн үсэг гэж тооцогдоно.
• Том ба жижиг үсгүүдийг сольж болно (ижил утгатай);
• Араб тоонууд 0 1 2 3 4 5 6 7 8 9 ;
• тусгай ганц тэмдэгтүүд: + – * / = . , : ; ^ $ # @ ;
• хосолсон тусгай тэмдэг: () { } ;
• нийлмэл шинж тэмдэг: = .. (* *) (..) .

Програмын бүтэц

Паскал программ нь дараахь зүйлсээс бүрдэнэ.

// Гарчиг (заавал биш хэсэг)

• Тэмдгийн тодорхойлолт;
• Тогтмолуудын тодорхойлолт;
• Төрлийн тодорхойлолт;
• Хувьсагчийн тодорхойлолт;
• Процедур ба чиг үүргийн тодорхойлолт.

• Эхлэх { хөтөлбөрийн эхлэл }

• { хөтөлбөрийн бие }

• Төгсгөл. { хөтөлбөрийн төгсгөл }

Програмын бүтэц

Програмпрограмын нэр; ( хөтөлбөрийн гарчиг }

Хэрэглээ …; (модулийн холболтын хэсэг)

Шошго … ; { шошгоны тайлбар хэсэг }

Const … ; { байнгын тайлбар хэсэг }

Туре … ; { төрөл тодорхойлох хэсэг }

Var … ; { хувьсагчийн тайлбар хэсэг }

Чиг үүрэг … ; Процедур … ; { чиг үүрэг, журмыг тодорхойлсон хэсэг }

... { операторуудын хэсэг }

Хөтөлбөр юунаас бүрдэх вэ?

Тогтмол – нэртэй тогтмол хэмжигдэхүүн.

Хувьсагч – нэртэй өөрчлөгдөж буй хэмжигдэхүүн (санах ойн эс).

Процедур – зарим үйлдлийг дүрсэлсэн туслах алгоритм (тойрог зурах).

Чиг үүрэг - тооцоолол хийх туслах алгоритм (квадрат язгуурыг тооцоолох, нүгэл) .

Тогтмолууд

i2 = 45; { бүхэл тоо }

pi = 3.14; { бодит тоо }

q = " Вася "; { тэмдэгт мөр }

L = Үнэн; { логик утга }

бүхэл ба бутархай хэсгүүдийг цэгээр тусгаарлана

Та орос үсгийг ашиглаж болно!

хоёр утгыг авч болно:

• Үнэн (үнэн, "тийм") Худал (худал, "үгүй")
• Үнэн (үнэн, "тийм")
• Худал (худал, "үгүй")

Хувьсагч

Хувьсах төрлүүд:

• бүхэл тоо ( бүхэлд нь ) бодит ( жинхэнэ ) тэмдэгт ( нэг дүр ) мөр ( тэмдэгт мөр ) логик ( логик }
• бүхэл тоо ( бүхэлд нь }
• жинхэнэ ( жинхэнэ }
• тэмдэгт( нэг дүр }
• мөр ( тэмдэгт мөр }
• логик( логик }

Хувьсагчдыг зарлах ( санах ойн хуваарилалт ) :

хувьсагч- хувьсагч

төрөл - бүхэл тоо

var a, b, c: бүхэл тоо ;

хувьсагчийн нэрсийн жагсаалт

Жишээ програм

бичих(' Энэ бол миний анхны хөтөлбөр ! ’);

Програмыг ажиллуулаад үр дүнг харна уу.

Дүгнэлтийн оператор

бичих(' текст ’); - дэлгэц дээр текст болон хувьсагчийг харуулах оператор (одоо байгаа мөрөнд курсорыг үлдээдэг);

Бичсэн(' текст ’); - дэлгэц дээр текст болон хувьсагчдыг харуулах оператор (курсорыг шинэ мөрөнд шилжүүлнэ);

Дасгал хийх

• Дэлгэц дээр дараах текстийг харуул.

Сайн уу!

Би SSH №3-ын шилдэг програмист!

Текстийг хоёр өөр мөрөнд харуулахыг анхаарна уу.

Математик хэллэгийг тооцоол ABC Паскаль

• дахь үйл ажиллагааны тэргүүлэх чиглэл ABC Паскаль математикийн нэгэн адил.
• Та зүгээр л хэлээр математикийн илэрхийллийг хэрхэн зөв бичиж сурах хэрэгтэй Паскаль

Арифметик үйлдлүүд

Үйл ажиллагаа

Нэр

Нэмэлт

Хасах

Үржүүлэх

Хэсэг (зөвхөн бодит төрөл)

А див Б

Бүхэл тооны хэсгийн тооцоо (бүрэн бус хэсэг)

Үлдсэн хэсгийг тооцоолж байна

Тооцоолох:

10 div 3 18 мод 4

Жишээ

Математикбичлэг

Хэл дээр бичлэг хийх Паскаль

37(25+87,5)-17(4,6+1,9)

37*(25+87.5)-17*(4.6+1.9)

(a +2* b-3*c)/(5*a+4)

(а+б)/(а-б)+а*б/3.14

Аравтын тоо Паскаль цэгээр тэмдэглэсэн

Стандарт шинж чанарууд

Паскалийн функц

Математик тэмдэглэгээ

Нэр

X тооны үнэмлэхүй утга (модуль)

Тооны квадрат

Үзэсгэлэнд оролцогч

Квадрат язгуурыг тооцоолох

Тооны бутархай хэсгийг тооцоолно

Хамгийн ойрын бүхэл тоо хүртэл дугуйрна

Бутархай хэсгийг таслав

Тодорхойлох үр дүн:

Frac(16.68); Дугуй (16.68); Trunc(16.68);

Стандарт шинж чанарууд

Паскалийн функц

Математик тэмдэглэгээ

Нэр

Синусын тооцоо

Косинусын тооцоо

Тооны бүхэл хэсэг

Натурал логарифмыг тооцоолох

Тоог хүч болгон өсгөх

0-ээс X хүртэлх зайд санамсаргүй тоог буцаана

Тоо π

зэрэгтэй Паскаль радиан руу хөрвүүлэх шаардлагатай

Хэл дээр бичлэг хийх Паскаль

Математик тэмдэглэгээ

PL операторууд Паскаль ABC

:= илэрхийлэл; Арифметик илэрхийлэлд тогтмол тоо хувьсагчийн нэр арифметик үйлдлүүдийн тэмдэг орно: тогтмол тоо хувьсагчийн нэр арифметик үйлдлүүдийн тэмдэг: + - * / div mod + - * / div mod функц нь хашилтыг дуудна () функц нь хашилтыг дуудна () хуваах бүхэл тоо үржүүлэх, хуваагдлын өргөний үлдэгдэл" "640"

Даалгаврын оператор

хувьсагчийн нэр := илэрхийлэл ;

Арифметик илэрхийлэл багтаж болно

• хувьсагчийн тогтмолуудын нэр арифметик үйлдлийн шинж тэмдэг:
• тогтмолууд
• хувьсагчийн нэрс
• Арифметик үйлдлийн шинж тэмдэг:

+ - * / div горим

• + - * / div горим

• функц нь хашилтыг дууддаг ()
• функцийн дуудлага
• дугуй хаалт ()

бүрэн хуваагдал

үржүүлэх

хэлтсийн үлдсэн хэсэг

Аль операторууд буруу байна вэ?

програм qq;

var a, b: бүхэл тоо;

x, y: бодит;

10 := x;

y:= 7 , 8;

b:= 2.5;

x:= 2*(a + y);

a:= b + x;

хувьсагчийн нэр нь тэмдгийн зүүн талд байх ёстой :=

бүхэл ба бутархай хэсгүүдийг тусгаарлана цэг

Та бүхэл тоон хувьсагчид бодит утга бичиж болохгүй

Оруулах оператор

унших(a); { хувьсагчийн утгыг оруулах а)

унших (a, b); { хувьсах утгыг оруулах а Тэгээд б)

Хоёр тоог хэрхэн оруулах вэ?

зайгаар тусгаарлагдсан:

дамжуулан Оруулна уу :

Дүгнэлтийн оператор

бичих); { гаралтын хувьсах утга а)

бичих ln (a); { гаралтын хувьсах утга а Тэгээд шинэ мөрөнд шилжих }

writeln(" Сайн уу? "); { текст гаралт }

writeln(" Хариулт: ", в); { гаралтын текст болон хувьсах утга в)

writeln(a, "+", b, "=", c);

Хоёр тоог нэмж байна

Даалгавар.Хоёр бүхэл тоо оруулаад тэдгээрийн нийлбэрийг харуул.

Хамгийн энгийн шийдэл:

програм qq;

var a, b, c: бүхэл тоо;

унших (a, b);

c:= a + b;

writeln(c);

Бүрэн шийдэл

програм qq;

var a, b, c: бүхэл тоо;

writeln(" Хоёр бүхэл тоо оруулна уу ");

унших (a, b);

c:= a + b;

writeln(a, "+", b, "=", c);

компьютер

Протокол :

Хоёр бүхэл тоо оруулна уу

25+30=55

хэрэглэгч

ТООЦОХ:

12 div 4 =

1 9 div 5 =

12 горим 3 =

1 36 горим 10 =

Паскаль дээр

Математикийн хэлээр

х тооны модуль

Х-ийн квадрат

Trunc(x)

д X

Дугуй(x)

Бутархай хэсгийн тооцоо

x-ийн квадрат язгуур

Хамгийн ойрын бүхэл тоо хүртэл дугуйрна

Санамсаргүй(x)

Бутархай хэсгийг таслав

Синус x

Exp/y*ln(x))

0-ээс x хүртэлх санамсаргүй тоог буцаана

Косинус х

[ X ]



X цагт

Ln x

Гэрийн даалгавар

1. Өгөгдсөн радиус дээрх тойргийн тойрог ба талбайг тооцоол

2. Тэгш өнцөгт гурвалжны периметрийг хөлөөс нь тооцоол

нөхцөлт оператор ( бүрэн хэлбэр )

салаалах бүрэн хэлбэр

нөхцөл

Үйлдэл 1

Үйлдэл 2

дүгнэлт

дараа нь эхлэх (нөхцөл үнэн бол яах вэ) end else begin (хэрэв нөхцөл худал бол яах вэ) төгсгөл; Онцлогууд: Эхлэх ба төгсгөлийн өмнө цэг таслал тавихгүй. Хэрэв блок дотор нэг өгүүлбэр байгаа бол цэг таслалыг өмнө нь тавихгүй, та эхлэл, төгсгөл гэсэн үгийг хасаж болно" width="640"

Нөхцөлт оператор (урт хэлбэр)

хэрэв нөхцөл тэгээд Эхлэх

{ }

өөрөөр эхэлнэ

{ нөхцөл худал бол яах вэ }

Онцлог:

• өмнө өөр ҮГҮЙХэрэв блок дотор нэг өгүүлбэр байвал цэгтэй таслал тавь, та үгийг хасаж болно Эхлэх Тэгээд Төгсгөл
• өмнө өөр ҮГҮЙцэг таслал нэмсэн
• Хэрэв блок дотор нэг мэдэгдэл байгаа бол та үгсийг устгаж болно Эхлэх Тэгээд Төгсгөл

Нөхцөлт оператор (үгүй бүрэн хэлбэр )

бүрэн бус салаалсан хэлбэр

нөхцөл

Үйлдэл

дүгнэлт

дараа нь эхлэх (нөхцөл үнэн бол юу хийх вэ) төгсгөл; Онцлогууд: Хэрэв блок дотор нэг өгүүлбэр байгаа бол та эхлэл, төгсгөл гэсэн үгсийг хасаж болно; хэрэв блок дотор нэг мэдэгдэл байгаа бол эхлэх ба төгсгөл гэсэн үгсийг хасаж болно" width="640"

Нөхцөлт оператор (бүрэн бус маягт)

хэрэв нөхцөл тэгээд Эхлэх

{ нөхцөл үнэн бол яах вэ }

Онцлог:

• Хэрэв блок дотор нэг мэдэгдэл байгаа бол та үгсийг устгаж болно Эхлэх Тэгээд Төгсгөл
• Хэрэв блок дотор нэг мэдэгдэл байгаа бол та үгсийг устгаж болно Эхлэх Тэгээд Төгсгөл

Гэрийн даалгавар

• Хоёр дахь тооноос их бол эхний тоог тав дахин багасгах програм бич.

2. Хувьсагчийн утга байх програм бич -тай томъёогоор тооцоолно: a+b , Хэрэв А хачин Тэгээд а*б , Хэрэв А бүр .

b дараа нь c:= a + b өөрөөр c:= b – a;" өргөн="640"

Гэрийн даалгавар

1. Асуудлыг шийдэх програм бич:

A). x-ийн утга мэдэгдэж байна. Хэрэв y-г тооцоол

б). Цэгийн координатыг өгсөн болно. Энэ цэг нь 3-р координатын квадратад байгаа эсэхийг олж мэдэх үү?

2. Хувьсагчийн утгыг тодорхойл в Дараах програмын фрагментийг ажиллуулсны дараа:

а:= 6 ;

б:= 15 ;

a:= b – a*2;

хэрэв a b бол

c:= a + b

өөрөөр c:= b – a;

Цикл - Энэ бол ижил дараалсан үйлдлүүдийг давтан гүйцэтгэх явдал юм.

• -тэй дугуйлах алдартайалхамуудын тоо ( параметр бүхий гогцоо ) -тэй дугуйлах үл мэдэгдэхалхамуудын тоо ( нөхцөл бүхий гогцоо )
• -тэй дугуйлах алдартайалхамуудын тоо ( параметр бүхий гогцоо )
• -тэй дугуйлах үл мэдэгдэхалхамуудын тоо ( нөхцөл бүхий гогцоо )

:= эхлэлийн утгаас төгсгөлийн утга эхлэх (давталтын бие) төгсгөл; Хувьсагчийг 1-ээр багасгах (алхам -1): хувьсагчийн хувьд:= анхны утгаас эцсийн утга хүртэл эхлэх (давталтын бие) төгсгөл;" width="640"

Хувьсагчийг 1-ээр нэмэгдүүлнэ (1-р алхам):

төлөө хувьсагч := анхны утга руу

эцсийн үнэ цэнэ хийх Эхлэх

{ гогцоо бие }

Хувьсагчийг 1-ээр бууруулах (1-р алхам) :

төлөө хувьсагч := анхны утга доош

эцсийн үнэ цэнэ хийх Эхлэх

{ гогцоо бие }

Онцлог:

• бүхэл тоо ) руу ) эсвэл -1 ( доош ) Эхлэх Тэгээд Төгсгөл Та бичих шаардлагагүй: руу ) хэзээ ч гүйцэтгэгддэггүй (
• давталтын хувьсагч нь зөвхөн бүхэл тоо байж болно ( бүхэл тоо )
• давталтын хувьсагчийн өөрчлөлтийн алхам нь үргэлж 1 ( руу ) эсвэл -1 ( доош )
• хэрэв давталтын үндсэн хэсэгт зөвхөн нэг мэдэгдэл байгаа бол үгс Эхлэх Тэгээд Төгсгөл Та бичих шаардлагагүй:
• хэрэв эцсийн утга нь анхны утгаас бага байвал давталт ( руу ) хэзээ ч гүйцэтгэгддэггүй ( давталтын эхэнд байгаа нөхцөлийг шалгах, урьдчилсан нөхцөл бүхий давталт)

би:= 1 8 хүртэл хийх

бичсэн( " Сайн уу " );

• Давталтын бие дэх давталтын хувьсагчийг өөрчлөхийг зөвшөөрөхгүй
• гогцооны эхлэл ба төгсгөлийн утгыг өөрчлөх үед алхамуудын тоо өөрчлөгдөхгүй.

би:= 1 n эхэл

бичсэн( " Сайн уу " );

n:= n + 1;

гогцоо байхгүй

эхлэх (гогцооны бие) төгсгөл; Онцлогууд: нарийн төвөгтэй нөхцлүүдийг ашиглаж болно: хэрэв давталтын үндсэн хэсэгт зөвхөн нэг оператор байгаа бол эхлэх, төгсгөл гэсэн үгсийг бичих шаардлагагүй: та нарийн төвөгтэй нөхцлүүдийг ашиглаж болно: хэрэв давталтын үндсэн хэсэгт зөвхөн нэг оператор байгаа бол, эхлэл, төгсгөл гэсэн үгсийг бичих шаардлагагүй: while (a d o begin ( биеийн давталт) төгсгөл; while a d o a:= a + 1;" width="640"

байхад нөхцөл хийх Эхлэх

{ гогцоо бие }

Онцлог:

• та нарийн төвөгтэй нөхцлийг ашиглаж болно: хэрэв давталтын биед зөвхөн нэг оператор байгаа бол үгс ЭхлэхТэгээд ТөгсгөлТа бичих шаардлагагүй:
• Та нарийн төвөгтэй нөхцлийг ашиглаж болно:
• хэрэв давталтын үндсэн хэсэгт зөвхөн нэг мэдэгдэл байгаа бол үгс ЭхлэхТэгээд ТөгсгөлТа бичих шаардлагагүй:

байхад (а г о эхлэх

{ гогцоо бие }

байхад а г о

a:= a + 1;

b d o a:= a – b; a:= 4; b:= 6; байхад a d o d:= a + b;" өргөн="640"

• давталт орох бүрт нөхцөлийг дахин тооцоолно
• хэрэв давталтын үүдэнд байгаа нөхцөл худал бол гогцоо хэзээ ч биелдэггүй
• хэрэв нөхцөл хэзээ ч худал болохгүй бол програм давтагдана

a:= 4; b:= 6;

байхад a b г о

a:= a – b;

a:= 4; b:= 6;

байхад а г о

d:= a + b;

"өргөн = 640" нөхцөл хүртэл

Дараах нөхцөл бүхий давталт нь давталтын төгсгөлд нөхцөл байдлын туршилт хийдэг гогцоо юм.

гогцоо бие

хүртэл нөхцөл

ДААЛГАВАР

1-ээс 100 хүртэлх бүх натурал тоонуудын квадратуудын нийлбэрийг ол. Гурван төрлийн гогцоог ашиглан энэ асуудлыг шийдье.

"Баяртай" .

Програм qq;

var a, s: бүхэл тоо;

s:=s+a*a;

бичих;

100; бичих; төгсгөл." өргөн "640"

"Өмнө нь"

Програм qq;

var a, s: бүхэл тоо;

s:=s+a*a;

100 хүртэл ;

бичих;

"параметртэй"

Програм qq;

var a, s: бүхэл тоо;

a:=1-ээс 100 хүртэл хийх

s:=s+a*a;

бичих;

Даалгавар.

1-ээс 8 хүртэлх бүхэл тоонуудын квадрат ба шоо дөрвөлжин дүрсийг харуул.

Онцлог:

Үүнтэй ижил үйлдлийг 8 удаа хийдэг.

"мөчлөг" блок

би 1 := би * би;

би 2 := би 1 * би;

гогцоо бие

би, би 1 , би 2

Програм

програм qq;

var i, i1, i2: бүхэл тоо;

i:=1-ээс 8 хүртэл эхэлнэ

i1:= i*i;

i2:= i1*i;

writeln(i, i1, i2);

анхны утга

хувьсагч

эцсийн үнэ цэнэ

Буурах хувьсагчтай давталт

Даалгавар. 8-аас 1 хүртэлх бүхэл тоонуудын квадрат ба шоо (урвуу дарааллаар) харуулах.

Онцлог: давталтын хувьсагч буурах ёстой.

Шийдэл:

i:=8 1-ийн хувьд эхэлнэ

i1:= i*i;

i2:= i1*i;

writeln(i, i1, i2);

доош руу

Массив - энэ нь нийтлэг нэртэй, санах ойд ойрхон байрладаг ижил төрлийн элементүүдийн бүлэг юм.

Онцлог:

• бүх элементүүд ижил төрлийн байна массив бүхэлдээ ижил нэртэй байна
• бүх элементүүд ижил төрлийн байна
• массив бүхэлдээ ижил нэртэй байна
• бүх элементүүд санах ойд ойрхон байрладаг

Жишээ нь:

• ангийн сурагчдын жагсаалт байшин дахь орон сууц хотын сургуулиуд
• ангийн сурагчдын жагсаалт
• байшин дахь орон сууц
• хотын сургуулиуд
• жилийн агаарын температурын мэдээлэл

NUMBERмассив элемент

(ИНДЕКС)

массив

УТГАмассив элемент

ДУГААР (ИНДЕКС)массивын элементүүд: 2

УТГАмассивын элементүүд: 10

Массив зарлах

Яагаад зарлах гэж?

• тодорхойлох Нэрмассивыг тодорхойлно төрөлмассивыг тодорхойлно элементүүдийн тооонцлох санах ойд байрлуулах
• тодорхойлох Нэрмассив
• тодорхойлох төрөлмассив
• тодорхойлох элементүүдийн тоо
• онцлох санах ойд байрлуулах

Бүхэл тоон массив:

Тогтмолоор хэмжээ:

элементүүд

төгсгөлийн индекс

эхлэлийн индекс

var A : массив[ 1 .. 5 ] бүхэл тоо ;

var A: бүхэл тооны массив ;

const N=5;

Юу болсон бэ?

var a: бүхэл тооны массив;

A := 4.5;

var a: бүхэл тооны массив ["z".."a"];

A["B"] := 15;

["a".."z"]

var a: бүхэл тооны массив;

A := "X";

Зарлал:

Гарын оролт:

Элементийн үйлдлүүд:

Дэлгэц дээрх гаралт:

const N = 5;

var a: бүхэл тооны массив;

би: бүхэл тоо;

а =

а =

а =

а =

а =

i:=1-ээс N хүртэл эхэлнэ

бичих("a[", i, "]=");

унших(a[i]);

Яагаад бичих ?

for i:=1 to N do a[i]:=a[i]*2;

writeln(" Массив A:");

i:=1-ээс N хийх бичих(a[i]:4);

Массив Х:

1 0 24 68 112 26

Даалгавар:

1. Оруулна уу в 5 элементийн гарын массив, массивын бүх элементийн арифметик дундажийг ол.

Жишээ:

Таван тоо оруулна уу:

4 15 3 10 14

арифметик дундаж 9.200

ШИЙДЭЛ:

Програм qq;

var N: бүхэл тооны массив;

i:=1-ээс 5 хүртэл эхэлнэ

write("N[",i,"]");

i:=1-ээс 5 хүртэл эхэлнэ

write("дундаж", k:6:2);