Slayd 13

Keling, birinchi dasturimizni yozamiz: Dasturimizga nom beraylik, u lotin harflarida yozilishi kerak va raqam bilan boshlanmasligi kerak. Har bir bayonot - bilan tugaydi; Write - bu ko'rish oynasiga chiqarish buyrug'i.

Slayd 14

Vazifa 1.

Keling, salomlashamiz: "Xayrli kun". Programpriml (dasturning ixtiyoriy elementi Bu dasturning nomi prim1 (esda tutingki, dastur nomida boʻsh joy boʻlmasligi kerak, u harf bilan boshlanishi kerak, faqat lotin harflari, raqamlar va baʼzi belgilardan iborat boʻlishi kerak, nuqta va vergul qoʻyish mumkin emas); ) Ta'riflovchi qism yo'q va darhol TurboPascal 7.0 da start xizmat so'zi bilan boshlanadigan operatorlar bo'limi mavjud, undan keyin til operatori keladi)begin (Matnni chiqarish) writeln("Xayrli kun"); TurboPascal 7.0 da dasturning oxiri uchun oxirgi operator kerak.)end.

Slayd 15

priml dasturi; begin writeln("Xayrli kun");end.

Slayd 16

2-topshiriq. N o'zgaruvchining qiymatini klaviaturadan kiritish

programInp; Crt dan foydalanadi; var N: integer; beginClrScr; write("Raqamni klaviaturadan kiriting:"); readln(N); (Bu yerda dastur pauza qiladi va klaviaturadan kiritishni kutadi. Klaviaturaga raqam kiriting, masalan, 153 va Enter tugmasini bosing) writeln("Siz raqam kiritdingiz ", N); readln ( Bu bo'sh kiritish bayonoti. Bu yerda dastur yana to'xtab, Enter tugmasi bosilishini kutadi. Bu vaqt ichida sizda chiqishni ekranda ko'rish uchun vaqtingiz bo'ladi.) tugaydi.

Slayd 17

programInp; usesCrt; var N: integer; beginClrScr; write("Raqamni klaviaturadan kiriting:"); readln(N); writeln("Siz raqam kiritdingiz ", N); o'qing.

Slayd 18

Minoradan tushganda tana tezligini hisoblash

Piza dasturi; const (Bu konstantalar bo'limi. Var kesimidan oldin keladi) G=9,8; (Kontaktning turi raqamning shakliga qarab avtomatik tarzda aniqlanadi. In Ushbu holatda kasr borligi sababli real ) var V,H tipidagi: real; begin write("Minora balandligini kiriting:"); readln(H); V:=Sqrt(2*G*H); writeln("Falling speed", V:6:3): (Matn va raqam bir-biriga yopishib qolmasligi uchun apostrof ichidagi matndan keyin boʻsh joy qoʻyiladi) readln end.

Slayd 19

ProgramPiza; constcrt; G=9,8; var V,H,N:real; boshlash clrscr; write("Minora balandligini kiriting:"); readln(H); V:=Sqrt(2*G*H); writeln("Falling tezligi",V:6:3): readlnend. crt, clrscr; - ekranni tozalash

Slayd 20

Slayd 21

Paskal ABC tizimi

Paskal ABC tizimi Paskal tilida dasturlashni o'rgatish uchun mo'ljallangan va maktab o'quvchilari va kichik talabalar uchun mo'ljallangan. Mualliflarning fikriga ko'ra, dastlabki dasturlash mashg'ulotlari ancha sodda va do'stona muhitda o'tishi kerak, shu bilan birga, bu muhitlar dasturlash tili imkoniyatlari bo'yicha standartlarga yaqin bo'lishi va standart tartiblarning etarlicha boy va zamonaviy kutubxonalariga ega bo'lishi kerak. Paskal tili ko'plab rus o'qituvchilari tomonidan boshlang'ich o'rganish uchun eng yaxshi tillardan biri sifatida tan olingan. Biroq, MS DOS-ga yo'naltirilgan BorlandPascal muhiti eskirgan, boy imkoniyatlarga ega BorlandDelphi muhiti esa yangi boshlanuvchi dasturchi uchun qiyin. Shunday qilib, Borland Delphida voqea dasturini yozish orqali o'rganishni boshlashga urinish talaba uchun juda ko'p qiyinchiliklarni keltirib chiqaradi va bir qator noto'g'ri shakllangan ko'nikmalarga olib keladi. Paskal ABC tizimi DelphiPaskal tiliga asoslangan boʻlib, eng oddiy dasturlardan modulli, obyektga yoʻnaltirilgan, hodisalarga asoslangan va komponentli dasturlashga bosqichma-bosqich oʻtish uchun moʻljallangan. Paskal ABC tilidagi ba'zi til konstruktsiyalari asosiysi bilan bir qatorda soddalashtirilgan foydalanishga imkon beradi, bu esa ularni o'rganishning dastlabki bosqichlarida qo'llash imkonini beradi. Masalan, modullarda interfeys bo'limi va amalga oshirish bo'limi bo'lmasligi mumkin. Bunday holda, modullar deyarli asosiy dastur bilan bir xil tarzda tuzilgan, bu esa ularni "Protseduralar va funktsiyalar" mavzusi bilan parallel ravishda o'rganishni boshlash imkonini beradi. Usul tanasi to'g'ridan-to'g'ri sinflar ichida aniqlanishi mumkin (Java va C# uslubi), bu sizga yozuvlar, protseduralar va funktsiyalarni o'rgangandan so'ng deyarli darhol sinflarni yaratishga imkon beradi. Paskal ABC dasturlash tizimining bir qator modullari o'quv maqsadlari uchun maxsus yaratilgan: GraphABC rastr grafik moduli ob'ektlarsiz ishlaydi, garchi uning imkoniyatlari BorlandDelphining grafik imkoniyatlariga amalda to'g'ri keladi. U hodisasiz dasturlarda mavjud va osongina miltillovchi animatsiyalarni yaratishga imkon beradi. Voqealar moduli ob'ektlardan foydalanmasdan (hodisalar oddiy protsessual o'zgaruvchilardir) oddiy hodisalar dasturlarini yaratishga imkon beradi. Taymerlar va tovushlar modullari taymerlar va tovushlarni yaratishga imkon beradi, ular ham protsessual uslubda amalga oshiriladi. Ushbu modullardan hatto konsol dasturlarida ham foydalanish mumkin. Konteynerlar sinflari moduli sinflar sifatida amalga oshiriladigan asosiy ma'lumotlar tuzilmalari (dinamik massivlar, steklar, navbatlar, to'plamlar) bilan ishlashga imkon beradi. ABCObjects vektor grafik moduli ob'ektga yo'naltirilgan dasturlash asoslarini tez o'rganish uchun mo'ljallangan, shuningdek, juda murakkab o'yin va o'quv dasturlarini yaratishga imkon beradi. VCL Visual Components moduli Delphi uslubidagi asosiy shaklga ega bo'lgan voqealarga asoslangan ilovalarni yaratishga imkon beradi. VCL sinflari shunga o'xshash Delphi sinflariga nisbatan biroz soddalashtirilgan. Shakl muharriri va obyekt inspektori mavjud. Dastur kodidan foydalangan holda shaklni tiklash texnologiyasi asosiy shakl (!) bilan dastur uchun faqat bitta fayldan foydalanish imkonini beradi. Paskalning ABC tili terilgan ko'rsatkich arifmetikasini (C-uslubi), shuningdek, murakkab sonlar bilan ishlashning murakkab turini taqdim etadi. Paskal ABC kompilyatori front-end kompilyator hisoblanadi. Bu shuni anglatadiki, u bajariladigan kodni .exe fayli sifatida yaratmaydi, balki kompilyatsiya natijasida xotirada dastur daraxtini yaratadi, keyin esa o'rnatilgan tarjimon yordamida bajariladi. Natijada, dastur tezligi BorlandPaskal muhitida tuzilgan bir xil dastur tezligidan taxminan 20 marta, BorlandDelphi muhitida tuzilgan dasturdan esa 50 marta sekinroq. Paskal ABC tizimida talaba tasodifiy boshlang'ich ma'lumotlar bilan muammoni shakllantirishni, kiritish-chiqarish operatsiyalarini nazorat qilishni, yechimning to'g'riligini tekshirishni, shuningdek, hisobni yuritishni ta'minlaydigan tekshiriladigan vazifalarni bajarishi mumkin. muammoni hal qilish. Sinovdan o'tgan topshiriqlar turli darajadagi murakkablikdagi 1000 ta dasturlash topshiriqlarini (eng oddiy masalalardan tortib, fayllar, ko'rsatgichlar va rekursiyalar bilan bog'liq masalalargacha) o'z ichiga olgan "ProgrammingTaskbook" elektron dasturlash masalalari kitobi ko'rinishida, shuningdek Robot va robot ijrochilari shaklida amalga oshiriladi. Kichik va o'rta sinf o'quvchilariga dasturlash asoslarini tezda o'rgatish uchun mo'ljallangan. Pascal ABC & ProgrammingTaskbookMiniEdition ning erkin tarqatilgan versiyasi elektron muammoli kitobning mini-versiyasini (200 ta topshiriq) va Robot va Draftsman ijrochilari uchun ajratilgan vazifalar to'plamini o'z ichiga oladi. Pascal ABC & ProgrammingTaskbookCompleteEdition to'liq vazifalar to'plamini o'z ichiga oladi.

Taqdimotni oldindan ko'rishdan foydalanish uchun o'zingiz uchun hisob yarating ( hisob) Google va tizimga kiring: https://accounts.google.com

Slayd sarlavhalari:

ABC Pascal dasturlash tili 9-sinf

Dasturlash tili Bu kompyuter tushunadigan rasmiy belgilar tizimi (buyruqlar to'plami). Tilning alifbosi - bu tilda ishlatiladigan belgilar to'plami.

20-asrning 70-yillari boshlarida Shveytsariya olimi Niklaus Virt dasturlash tilini yaratdi va unga XVII asrning mashhur frantsuz matematigi, birinchi hisoblash mashinasi ixtirochisi Blez Paskal sharafiga Paskal nomini berdi. Paskal tilidan foydalanib, siz turli xil maqsadlar uchun dasturlar ishlab chiqishingiz mumkin. Ushbu tilning sintaksisi hatto dasturlash asoslarini endigina o'rganishni boshlayotganlar uchun ham intuitivdir.

Paskal tili dasturlashni dastlabki o'rganish uchun qulaydir, chunki u dasturni to'g'ri yozishni o'rgatadi, balki dasturlash masalalarini hal qilish usullarini to'g'ri ishlab chiqishni ham o'rgatadi.

Tilning alifbosi lotin alifbosining A dan z gacha boʻlgan bosh va kichik harflari hamda pastki chiziq (_) boʻlib, u ham harf hisoblanadi. Katta va kichik harflar bir-birini almashtiradi (teng ma'noda); Arab raqamlari 0 1 2 3 4 5 6 7 8 9; maxsus yagona belgilar: + – * / = . , : ; ^$#@; maxsus juftlashtirilgan belgilar: () ( ); birikma belgilari: = .. (* *) (..) .

Dastur tuzilishi Paskal tilidagi dastur quyidagilardan iborat: // Sarlavha (ixtiyoriy qism) // Tavsif bloki // Dastur tanasi

Tavsif bloki Teglar tavsifi; Konstantalar ta'rifi; Turlarning ta'rifi; O'zgaruvchilar tavsifi; Protseduralar va funktsiyalar tavsifi.

Dastur tanasi Begin………… (dastur tanasi, buyruqlar ro'yxati) Tugash.

Dastur tuzilishi Dastur nomi Dastur; (dastur nomi) Foydalanadi...; (modul ulanish qismi) Yorliq... ; (yorliq tavsifi bo'limi) Const...; (doimiy tavsif bo'limi) Turi...; (turni aniqlash bo'limi) Var...; (o‘zgaruvchini tavsiflash bo‘limi) Funksiya...; Jarayon...; (funksiyalar va protseduralar tavsifi bo'limi) BEGIN... (operatorlar bo'limi) END.

Tushuntirishlar Tushuntirishlarda siz ruscha harflardan foydalanishingiz mumkin (jingalak qavs ichida bo'lishi mumkin) // ikkita chiziqdan keyin yozilishi mumkin

Chiqish bayonoti Write(‘matn’); - ekranda matn va o'zgaruvchilarni ko'rsatish operatori (kursorni yoniq qoldiradi joriy chiziq); Writeln (“matn”); - ekranda matn va o'zgaruvchilarni ko'rsatish operatori (kursorni yangi qatorga o'tkazadi);

Kompilyatsiya (F9) Dasturdagi xatolarni bartaraf etish.

Misol dasturi Begin write(‘ Bu mening birinchi dasturim! '); Oxiri. Dasturni kompilyatsiya qiling va ishga tushiring va natijani ko'ring.

Dasturning bajarilishi natijasi Dasturning bajarilishini to'xtatish

Vazifa 001 Ekranda quyidagi matnni ko'rsating: Hammaga salom! Men 3-sonli SSH da eng yaxshi dasturchiman! E'tibor bering, matn ikki xil satrda ko'rsatiladi.

Arifmetik amallar Agar dasturda yozsangiz: Writeln(‘3+8’); Keyin dastur bajarilgandan so'ng, bajarilish ekranida 3+8 xabari paydo bo'ladi, agar siz yozsangiz: Writeln(3+8); // apostrofsiz Keyin dastur bajarilgandan so'ng ijro ekranida 11 yozuvi paydo bo'ladi, ya'ni. Paskal hisobni o'zi bajaradi: 185(14+16) ifodasini hisoblab ko'ring.

Dasturlash Paskalda

1970 yilda dasturlash olamida kamida ikkita ajoyib voqea yuz berdi: operatsion tizim UNIX va Tsyurixdagi Shveytsariya Federal Texnologiya Instituti professori Niklaus Virt tomonidan yaratilgan yangi dasturlash tili. Wirth uni 17-asrning buyuk frantsuz matematigi va faylasufi Blez Paskal sharafiga nomladi.

Niklaus Wirth

Blez Paskal

Paskal tili nafaqat boshlang'ich dasturlash mashg'ulotlari uchun qulay

chunki u dasturni to'g'ri yozishni o'rgatadi, balki to'g'ri yozishni ham o'rgatadi

dasturlash masalalarini yechish usullarini ishlab chiqish

• dan lotin alifbosining katta va kichik harflari A dan z gacha, shuningdek pastki chiziq (_), bu ham harf sifatida hisoblanadi.
• Katta va kichik harflar bir-birini almashtiradi (teng ma'noda);
• Arab raqamlari 0 1 2 3 4 5 6 7 8 9 ;
• maxsus yagona belgilar: + – * / = . , : ; ^ $ # @ ;
• maxsus juftlik belgilari: () { } ;
• birikma belgilari: = .. (* *) (..) .

Dastur tuzilishi

Paskal dasturi quyidagilardan iborat:

// Sarlavha (ixtiyoriy qism)

• Belgilarning tavsifi;
• Konstantalar ta'rifi;
• Turlarning ta'rifi;
• O'zgaruvchilar tavsifi;
• Jarayonlar va funktsiyalarning tavsifi.

• boshlanishi { dasturning boshlanishi }

• { dastur tanasi }

• oxiri. { dasturning oxiri }

Dastur tuzilishi

Dastur dastur nomi; ( dastur sarlavhasi }

Foydalanadi …; (modul ulanish bo'limi)

Yorliq … ; { teg tavsifi bo'limi }

Const … ; { doimiy tavsif bo'limi }

Ture … ; { turini aniqlash bo'limi }

Var … ; { o'zgaruvchilarni tavsiflash bo'limi }

Funktsiya … ; Jarayon … ; { funktsiyalar va protseduralarni tavsiflovchi bo'lim }

... { operatorlar bo'limi }

Dastur nimadan iborat?

Doimiy – nomiga ega bo‘lgan doimiy miqdor.

O'zgaruvchan – nomga ega bo‘lgan o‘zgaruvchan miqdor (xotira katakchasi).

Jarayon – ba’zi harakatlarni tavsiflovchi yordamchi algoritm (aylana chizish).

Funktsiya - hisob-kitoblarni bajarish uchun yordamchi algoritm (kvadrat ildizni hisoblash, gunoh) .

Konstantalar

i2 = 45; { butun son }

pi = 3,14; { haqiqiy raqam }

q = " Vasya "; { belgilar qatori }

L = rost; { mantiqiy qiymat }

butun va kasr qismlar nuqta bilan ajratiladi

Siz rus harflaridan foydalanishingiz mumkin!

ikkita ma'noni anglatishi mumkin:

• To'g'ri (to'g'ri, "ha") Noto'g'ri (noto'g'ri, "yo'q")
• To'g'ri (haqiqat, "ha")
• Noto'g'ri (noto'g'ri, "yo'q")

O'zgaruvchilar

O'zgaruvchan turlari:

• butun son ( butun ) haqiqiy ( haqiqiy ) belgi ( bitta belgi ) qator ( belgilar qatori ) mantiqiy ( mantiqiy }
• butun son ( butun }
• haqiqiy ( haqiqiy }
• belgi( bitta belgi }
• tor ( belgilar qatori }
• mantiqiy ( mantiqiy }

O'zgaruvchilarni e'lon qilish ( xotirani ajratish ) :

o'zgaruvchan- o'zgaruvchan

turi - butun sonlar

var a, b, c: butun son ;

o'zgaruvchilar nomlari ro'yxati

Misol dasturi

yozish (' Bu mening birinchi dasturim ! ’);

Dasturni ishga tushiring va natijani ko'ring.

Xulosa chiqarish operatori

yozing (' matn ’); - ekranda matn va o'zgaruvchilarni ko'rsatish operatori (kursorni joriy satrda qoldiradi);

Yozilgan(' matn ’); - ekranda matn va o'zgaruvchilarni ko'rsatish operatori (kursorni yangi qatorga o'tkazadi);

Mashq qilish

• Ekranda quyidagi matnni ko'rsating:

Hammaga salom!

Men 3-sonli SSH da eng yaxshi dasturchiman!

E'tibor bering, matn ikki xil satrda ko'rsatiladi.

Matematik ifodalarni hisoblang ABC Paskal

• Operatsiyalarning ustuvorligi ABC Paskal xuddi matematikada bo'lgani kabi.
• Siz faqat tilda matematik ifodalarni to'g'ri yozishni o'rganishingiz kerak Paskal

Arifmetik amallar

Operatsiya

Ism

Qo'shish

Ayirish

Ko'paytirish

Bo'lim (faqat haqiqiy turdagi)

A div B

Butun qismni hisoblash (to'liq bo'lmagan qism)

Qolganini hisoblash

Hisoblash:

10 div 3 18 mod 4

Misollar

Matematik rekord

Tilda yozib olish Paskal

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)

(a+b)/(a-b)+a*b/3.14

O'nlik nuqta Paskal nuqta bilan belgilanadi

Standart xususiyatlar

Paskal funktsiyasi

Matematik belgilar

Ism

X sonining mutlaq qiymati (modul)

Raqamni kvadratga solish

Ko'rgazma ishtirokchisi

Kvadrat ildizni hisoblash

Sonning kasr qismini hisoblaydi

Eng yaqin butun songa yaxlitlash

Kasr qismini kesib tashlaydi

Aniqlash natija:

Frac (16,68); Tur (16,68); Trunc (16,68);

Standart xususiyatlar

Paskal funktsiyasi

Matematik belgilar

Ism

Sinusni hisoblash

Kosinuslarni hisoblash

Raqamning butun qismi

Natural logarifmni hisoblash

Raqamni kuchga ko'tarish

0 dan X gacha bo'lgan oraliqdagi tasodifiy sonni qaytaradi

Raqam π

Darajalar Paskal radianga aylantirish kerak

Tilda yozib olish Paskal

Matematik belgilar

PL operatorlari Paskal ABC

Tayinlash operatori

o'zgaruvchan nomi := ifoda ;

Arifmetik ifoda o'z ichiga olishi mumkin

• konstantalar o'zgaruvchilar nomlari arifmetik amallarning belgilari:
• konstantalar
• o'zgaruvchilar nomlari
• arifmetik amallarning belgilari:

+ - * / div mod

• + - * / div mod

• funktsiya qavslarni chaqiradi ()
• funksiya chaqiruvlari
• qavslar ()

to'liq bo'linish

ko'paytirish

bo'linishning qolgan qismi

Qaysi operatorlar noto'g'ri?

qq dasturi;

var a, b: integer;

x, y: haqiqiy;

10 := x;

y:= 7 , 8;

b:= 2,5;

x:= 2*(a + y);

a:= b + x;

o'zgaruvchining nomi belgining chap tomonida bo'lishi kerak :=

butun va kasr qismlari ajratiladi nuqta

Butun o'zgaruvchiga haqiqiy qiymat yoza olmaysiz

Kirish operatori

o'qish (a); { o'zgaruvchan qiymatni kiritish a)

o'qish (a, b); { o'zgaruvchan qiymatlarni kiritish a Va b)

Ikki raqamni qanday kiritish kerak?

bo'shliq bilan ajratilgan:

orqali Kirish :

Xulosa chiqarish operatori

yozing (a); { chiqish o'zgaruvchan qiymati a)

yozish ln (a); { chiqish o'zgaruvchan qiymati a Va yangi qatorga o'ting }

writeln(" Salom! "); { matn chiqishi }

writeln(" Javob: ", c); { chiqish matni va o'zgaruvchan qiymat c)

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

Ikki raqamni qo'shish

Vazifa. Ikkita butun sonni kiriting va ularning yig'indisini ko'rsating.

Eng oddiy yechim:

qq dasturi;

var a, b, c: integer;

o'qish (a, b);

c:= a + b;

writeln(c);

To'liq yechim

qq dasturi;

var a, b, c: integer;

writeln(" Ikkita butun son kiriting ");

o'qish (a, b);

c:= a + b;

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

kompyuter

Protokol :

Ikkita butun son kiriting

25+30=55

foydalanuvchi

HISOB QILING:

12 div 4 =

1 9 div 5 =

12 mod 3 =

1 36 mod 10 =

Paskalda

Matematika tilida

X sonining moduli

X kvadrati

Trunc(x)

e X

Tur(x)

Kasr qismini hisoblash

x ning kvadrat ildizi

Eng yaqin butun songa yaxlitlash

Tasodifiy(x)

Kasr qismini kesib tashlaydi

Sinus x

Exp/y*ln(x))

0 dan x gacha bo'lgan tasodifiy sonni qaytaradi

Kosinus x

[ X ]



X da

Ln x

Uy vazifasi

1. Berilgan radiusda aylananing aylanasi va maydonini hisoblang

2. To‘g‘ri burchakli uchburchakning perimetrini uning oyoqlaridan hisoblang

Shartli operator ( to'liq shakl )

shoxlanishning to'liq shakli

holat

Harakat 1

Harakat 2

xulosa

Shartli operator (uzun shakl)

agar holat keyin boshlanishi

{ }

boshqa boshlanadi

{ shart noto'g'ri bo'lsa nima qilish kerak }

Xususiyatlari:

• oldin boshqa EMAS blokda bitta gap bo'lsa, nuqta-vergul qo'ying, siz so'zlarni olib tashlashingiz mumkin boshlanishi Va oxiri
• oldin boshqa EMAS nuqtali vergul qo'shiladi
• blokda bitta bayonot mavjud bo'lsa, siz so'zlarni olib tashlashingiz mumkin boshlanishi Va oxiri

Shartli operator (yo'q to'liq shakl )

to'liq bo'lmagan shoxlanish shakli

holat

Harakat

xulosa

Shartli operator (to'liq bo'lmagan shakl)

agar holat keyin boshlanishi

{ agar shart to'g'ri bo'lsa nima qilish kerak }

Xususiyatlari:

• blokda bitta bayonot mavjud bo'lsa, siz so'zlarni olib tashlashingiz mumkin boshlanishi Va oxiri
• blokda bitta bayonot mavjud bo'lsa, siz so'zlarni olib tashlashingiz mumkin boshlanishi Va oxiri

Uy vazifasi

• Birinchi raqam ikkinchidan katta bo'lsa, uni besh marta kamaytiruvchi dastur tuzing.

2. O'zgaruvchining qiymati bo'lgan dastur yozing Bilan formula bo'yicha hisoblanadi: a+b , Agar A g'alati Va a*b , Agar A hatto .

Uy vazifasi

1. Muammoni yechish dasturini yozing:

A). X ning qiymati ma'lum. Agar y ni hisoblang

b). Nuqtaning koordinatalari berilgan. Bu nuqta 3-koordinatali kvadrantda joylashganligini aniqlang?

2. O‘zgaruvchining qiymatini aniqlang c quyidagi dastur fragmentini bajargandan so'ng:

a:= 6 ;

b:= 15 ;

a:= b – a*2;

agar a b keyin

c:= a + b

aks holda c:= b – a;

Velosiped - Bu bir xil harakatlar ketma-ketligini takroran bajarishdir.

• bilan aylanish mashhur qadamlar soni ( parametr bilan tsikl ) bilan aylanish noma'lum qadamlar soni ( shart bilan halqa )
• bilan aylanish mashhur qadamlar soni ( parametr bilan tsikl )
• bilan aylanish noma'lum qadamlar soni ( shart bilan halqa )

O'zgaruvchini 1 ga oshiring (1-qadam):

uchun o'zgaruvchan := boshlang'ich qiymati uchun

yakuniy qiymat qil boshlanishi

{ halqa tanasi }

O'zgaruvchini 1 ga kamaytirish (qadam -1) :

uchun o'zgaruvchan := boshlang'ich qiymati pastga

yakuniy qiymat qil boshlanishi

{ halqa tanasi }

Xususiyatlari:

• butun son ) uchun ) yoki -1 ( pastga ) boshlanishi Va oxiri yozishingiz shart emas: uchun ) hech qachon bajarilmaydi (
• sikl o'zgaruvchisi faqat butun son bo'lishi mumkin ( butun son )
• tsikl o'zgaruvchisini o'zgartirish bosqichi har doim 1 ( uchun ) yoki -1 ( pastga )
• tsiklning tanasida faqat bitta gap bo'lsa, so'zlar boshlanishi Va oxiri yozishingiz shart emas:
• agar yakuniy qiymat boshlang'ich qiymatdan kichik bo'lsa, tsikl ( uchun ) hech qachon bajarilmaydi ( halqa boshida shartni tekshirish, oldingi shart bilan halqa)

men uchun:= 1 8 gacha qil

yozish( " Salom " );

• Loop o'zgaruvchisini sikl tanasida o'zgartirishga ruxsat berilmaydi
• sikl ichidagi boshlang'ich va tugatish qiymatlarini o'zgartirganda, qadamlar soni o'zgarmaydi:

men uchun:= 1 nga boshlang

yozish( " Salom " );

n:= n + 1;

aylanma yo'q

esa holat qil boshlanishi

{ halqa tanasi }

Xususiyatlari:

• murakkab shartlardan foydalanishingiz mumkin: agar tsikl tanasida faqat bitta operator bo'lsa, so'zlar boshlanishi Va oxiri yozishingiz shart emas:
• Siz murakkab shartlardan foydalanishingiz mumkin:
• tsiklning tanasida faqat bitta gap bo'lsa, so'zlar boshlanishi Va oxiri yozishingiz shart emas:

esa (a d o boshlash

{ halqa tanasi }

esa a d o

a:= a + 1;

• har safar tsikl kiritilganda shart qayta hisoblab chiqiladi
• agar tsiklga kirishdagi shart noto'g'ri bo'lsa, tsikl hech qachon bajarilmaydi
• agar shart hech qachon noto'g'ri bo'lmasa, dastur tsikli ishlaydi

a:= 4; b:= 6;

esa a b d o

a:= a – b;

a:= 4; b:= 6;

esa a d o

d:= a + b;

Postshart bilan tsikl sikl oxirida shart testi bajariladigan sikldir.

halqa tanasi

qadar holat

VAZIFA

Hammasining kvadratlari yig‘indisini toping natural sonlar 1 dan 100 gacha. Keling, bu muammoni uch turdagi halqalardan foydalanib hal qilaylik.

"Xayr" .

Dastur qq;

var a, s: integer;

s:=s+a*a;

yozish(lar);

"Kimga"

Dastur qq;

var a, s: integer;

s:=s+a*a;

100 ga qadar ;

yozish(lar);

"Parametr bilan"

Dastur qq;

var a, s: integer;

a uchun:=1 dan 100 gacha

s:=s+a*a;

yozish(lar);

Vazifa.

1 dan 8 gacha bo'lgan butun sonlarning kvadratlari va kublarini ko'rsatish.

Xususiyat:

Xuddi shu harakatlar 8 marta amalga oshiriladi.

"tsikl" bloki

i 1 := i * i;

i 2 := i 1 * i;

halqa tanasi

men, i 1 , i 2

Dastur

qq dasturi;

var i, i1, i2: integer;

uchun i:=1 dan 8 gacha boshlanadi

i1:= i*i;

i2:= i1*i;

writeln(i, i1, i2);

boshlang'ich qiymati

o'zgaruvchan

yakuniy qiymat

Kamayuvchi o'zgaruvchi bilan sikl

Vazifa. 8 dan 1 gacha butun sonlarning kvadratlari va kublarini ko'rsatish (teskari tartibda).

Xususiyat: loop o'zgaruvchisi kamayishi kerak.

Yechim:

i uchun:=8 1 boshlanadi

i1:= i*i;

i2:= i1*i;

writeln(i, i1, i2);

pastga uchun

Massiv - bu umumiy nomga ega bo'lgan va xotirada yaqin joylashgan bir xil turdagi elementlar guruhi.

Xususiyatlari:

• barcha elementlar bir xil turdagi butun massiv bir xil nomga ega
• barcha elementlar bir xil turdagi
• butun massiv bir xil nomga ega
• barcha elementlar xotirada yaqin joylashgan

Misollar:

• sinfdagi o'quvchilar ro'yxati uydagi kvartiralar shahardagi maktablar
• sinfdagi o'quvchilar ro'yxati
• uydagi kvartiralar
• shahardagi maktablar
• yillik havo harorati ma'lumotlari

NUMBER massiv elementi

(INDEX)

massiv

MA'NOSI massiv elementi

NUMBER (INDEX) massiv elementlari: 2

MA'NOSI massiv elementlari: 10

Massivlarni e'lon qilish

Nega e'lon qilish kerak?

• aniqlash Ism massivni aniqlang turi massivni aniqlang elementlar soni ta'kidlash xotiraga joylang
• aniqlash Ism massiv
• aniqlash turi massiv
• aniqlash elementlar soni
• ta'kidlash xotiraga joylang

Butun sonlar massivi:

Doimiy orqali o'lcham:

elementlar

yakunlovchi indeks

boshlang'ich indeksi

var A : massiv [ 1 .. 5 ] butun son ;

var A: butun sonlar massivi ;

const N=5;

Nima bo'ldi?

var a: butun sonlar massivi;

A := 4,5;

var a: butun sonli massiv ["z".."a"];

A["B"] := 15;

["a".."z"]

var a: butun sonlar massivi;

A := "X";

E'lon:

Klaviaturadan kiritish:

Elementlar bo'yicha operatsiyalar:

Ekran chiqishi:

const N = 5;

var a: butun sonlar massivi;

men: butun son;

a =

a =

a =

a =

a =

uchun i:=1 dan N gacha boshlanadi

write("a[", i, "]=");

o'qish(a[i]);

Nima uchun yozish ?

i:=1 uchun N uchun a[i]:=a[i]*2 qiling;

writeln(" Massiv A:");

i:=1 uchun N do yozish(a[i]:4);

Massiv A:

1 0 24 68 112 26

Vazifa:

1. Kirish c 5 ta elementdan iborat klaviatura massivi, massivning barcha elementlarining o‘rtacha arifmetik qiymatini toping.

Misol:

Beshta raqamni kiriting:

4 15 3 10 14

arifmetik o'rtacha 9,200

YECHIM:

Dastur qq;

var N: butun sonlar massivi;

i uchun:=1 dan 5 gacha boshlanadi

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

i uchun:=1 dan 5 gacha boshlanadi

write("o'rtacha", k:6:2);