Döngüsel algoritma ict pascal örneği. Bilgisayar biliminde "Döngüsel yapının algoritmaları" konulu sunum
Ayrıca oku
slayt 2
Plan
Döngü kavramı Döngü bildirimi Döngü Sırasında Döngü Tekrarı Literatürü için
slayt 3
Edebiyat
Kastornov A.F., Evstratova G.A. Programlama dili Pascal: öğreticiüniversiteler için. - Cherepovets: GOU VPO ChGU, 2010. - 117 s. - Kaynakça: S.114. Programlama dili Pascal / http://pascal.guti.ru Planı üzerine elektronik ders kitabı
slayt 4
Bir döngü kavramı
Birçok sorunu çözmek için kullanılan algoritmalar, bir sonuca ulaşmak için döngüseldir; belli sıra eylemler birkaç kez gerçekleştirilir. Örneğin, bir bilgi kontrol programı bir soru verir, bir yanıtı kabul eder, yanıt için toplam puana bir işaret ekler ve ardından denek tüm soruları yanıtlayana kadar bu adımları tekrarlar. Veya, örneğin, listede istenen soyadını aramak için, listenin ilk soyadının istenen soyadla eşleşmesini, ardından ikinci, üçüncü vb. istenen soyadı bulunana veya listenin sonuna gelene kadar.
slayt 5
Birkaç kez yürütülen bir grup ifadenin bulunduğu bir algoritmaya döngüsel denir. Tekrarlanan ifadeler grubuna döngü gövdesi denir. Pascal'da döngüler, For, While ve Repeat döngü ifadeleri kullanılarak uygulanabilir. Plan
slayt 6
döngü deyimi için
For döngüsü operatörü, döngü gövdesinin birkaç kez yürütülmesi gerekiyorsa ve tekrar sayısı önceden biliniyorsa kullanılır.
Slayt 7
For döngüsü deyiminin 1. formu
For deyimini genel anlamda yazmanın 1. şekli şu şekildedir: ForCounter:=Start_value to End_value doOperator; Burada For, to, do hizmet kelimeleridir. Sayaç, döngünün kaç kez tekrarlanacağını belirten sıralı tipte (genellikle bir Tamsayı) bir değişkendir. Tekrar sayısı şu formüle göre hesaplanır: Bitiş_değeri - Başlangıç_değeri + 1. bitiş_değeri, başlangıç_değerinden büyük veya ona eşit olmalıdır.
Slayt 8
Döngü gövdesi birkaç ifadeden oluşuyorsa, For ifadesinin 1. biçimi şöyle görünür: ForCounter: = Start_value to End_value do Begin (Loop body) End;
Slayt 9
İlk yazma biçiminde For döngüsünün algoritmasını düşünün. Sayaca bir başlangıç_değeri atanır. Koşul kontrol edilir: Sayaç değeri Bitiş_değerinden büyük mü? Koşul doğruysa (Evet), döngü sona erer. Koşul yanlış (Hayır) ise, döngü gövdesi yürütülür, ardından sayaç değeri bir artırılır ve koşul tekrar kontrol edilir, yani. madde 2.
Slayt 10
For döngüsü deyiminin 2. formu
For deyimini yazmanın 2. biçimi genel olarak şöyle görünür: For Counter:=Start_valuedownto End_valuedoOperator; Nerede: For, downto, do hizmet sözcükleridir. Sayaç, döngünün kaç kez tekrarlanacağını belirten sıralı tipte (genellikle bir Tamsayı) bir değişkendir. Tekrar sayısı şu formüle göre hesaplanır: Başlangıç_değeri - Bitiş_değeri + 1. Başlangıç_değeri, Bitiş_değerinden büyük veya ona eşit olmalıdır.
slayt 11
Döngü gövdesi birkaç ifadeden oluşuyorsa, For ifadesinin 2. biçimi şöyle görünür: ForCounter:=Start_value to End_valuedo Begin //Loop body End;
slayt 12
For döngüsünün algoritmasını ikinci gösterim biçiminde düşünün: Sayaca bir İlk_değer atanır. Koşul kontrol edilir: Sayaç değeri Bitiş_Değerinden küçük mü? Koşul doğruysa (Evet), döngü sona erer. Koşul yanlış (Hayır) ise, döngü gövdesi yürütülür, ardından sayaç değeri bir azaltılır ve koşul tekrar kontrol edilir, yani. madde 2.
slayt 13
döngü deyimi için
programEx1; var i, n:integer; (i sayaç, n gerekli yıldız sayısıdır) s:string;(s oluşturulacak yıldız dizisidir) begin Writeln("Yıldız sayısını giriniz"); (yıldız sayısını ister) Readln(n); (kullanıcı n yıldız girer) s:=""; (yıldızlardan oluşan bir dizi oluşumu boş bir dizi ile başlar) (Dize For döngüsüne göre oluşturulur. Sayacın Başlangıç_değeri 1'dir, Bitiş_değeri gereken yıldız sayısı n'dir.) fori:= 1 - n do s :=s+"*"; (döngünün her adımında satıra bir yıldız yapıştırılır) Writeln(s);(satır çıktıdır) Readln; son. Plan Örneği: Program bir yıldız dizisi oluşturur. Satır başına yıldız sayısı kullanıcı tanımlıdır.
Slayt 14
döngü sırasında
While döngüsü, program geliştirme sırasında döngü gövdesinin tekrar sayısı bilinmediğinde ve yalnızca program çalışırken belirlenebildiğinde kullanılır. Genel olarak While deyimi şu şekilde yazılır: While Condition do deyimi; While, do hizmet sözcükleridir. Koşul, döngünün devamını belirleyen boole türünde bir ifadedir.
slayt 15
Döngü gövdesi birkaç ifadeden oluşuyorsa, o zaman döngü sırasında aşağıdaki gibi yazılır: While Condition do Begin // Loop body End;
slayt 16
While döngüsü işlem algoritmasını ele alalım: Koşul kontrol edilir. Koşul doğruysa, döngünün gövdesi yürütülür. Ardından koşul tekrar kontrol edilir. Koşul yanlışsa, döngü sona erer.
Slayt 17
Böylece, While, önkoşullu bir döngü veya "While" döngüsüdür (döngünün gövdesi, koşul doğruyken yürütülür). Döngünün ilk yinelemesinde koşul yanlışsa, döngü gövdesi asla yürütülmez. Koşul asla yanlış olmazsa, döngü süresiz olarak tekrar eder, yani döngü oluşacaktır.
Slayt 18
Program Ex2; varAccount: Gerçek; (hesap boyutu) Ay: Tamsayı; (hesabın açılmasından bu yana geçen ay sayısı) başla Hesap:=1000; (Hesaba 1000 ruble yatırıldı) Ay:=0; (hesap yeni açıldı) whileAccount
Slayt 19
Tekrar Döngüsü
Yineleme döngüsü, While döngüsü gibi, döngü gövdesinin birkaç kez çalıştırılması gerekiyorsa, ancak tekrar sayısı önceden bilinmiyorsa programda kullanılır. Genel olarak Repeat döngüsü şu şekilde yazılır: Repeat // Until döngüsünün gövdesi Condition; Nerede Tekrar, Kadar hizmet kelimeleridir. Koşul, döngünün sonunu belirleyen bir Boole ifadesidir.
Slayt 20
Repeat döngüsünün algoritmasını göz önünde bulundurun: Repeat ve Until ayrılmış sözcükleri arasındaki döngünün gövdesi yürütülür. Durum kontrol edilir. Koşul doğruysa, döngü sona erer. Koşul yanlışsa, döngü gövdesi yeniden yürütülür.
slayt 21
Bu nedenle, Tekrar, son koşullu bir döngü veya "Önce" bir döngüdür (döngünün gövdesi, koşul doğru olana kadar yürütülür). Bu nedenle, döngü gövdesi en az bir kez yürütülür. Koşul asla gerçekleşmezse, döngü sonsuz olur.
slayt 22
Program Ex3; varTime:integer; (bölünme zamanı) Hücreler: tamsayı;(hücre sayısı) başlar Zaman:=0;(hücre henüz bölünmeye başlamadı) Hücreler:=1;(bir hücre) Tekrar Süresi:=Zaman+3;(sonraki üç hücrede saat) Hücreler: =Hücreler*2;(hücre sayısı 2 kat arttı) Hücreler>24'e kadar; ("hücre sayısı 24'ten büyük" koşulu doğru olana kadar) Writeln(Time);(sonuç çıktısı) Readln; son. Plan Örneği: Tek hücreli bir amip, her 3 saatte bir 2 hücreye bölünür. Hücre sayısının 24'ü geçeceği saat sayısını belirleyin.
Tüm slaytları görüntüle
Önkoşullu bir döngü Tekrarların sayısı önceden bilinmiyorsa, ancak yalnızca bir koşulla belirtilmişse ve yalnızca koşul kontrol edildikten sonra gerçekleştirilmesi gereken bir eylem varsa, önkoşulda bir döngü kullanın. Koşul olarak kullanılır Boole ifadesi, döngü gövdesi basit veya bileşik bir ifadedir. Döngü gövdesinin her yürütülmesinden önce koşul kontrol edilir, sonuç "doğru" ise döngü gövdesi tekrar yürütülür, "yanlış" ise döngüden çıkar. Blok şeması üzerindePascal'da start end; Koşul Döngü gövdesi Uygulama Yok Döngü başlangıcı Döngü bitişi EVET do yaparken
Son koşullu döngü Tekrarların sayısı önceden bilinmiyorsa, ancak yalnızca bir koşulla belirtilmişse ve koşul kontrol edilmeden önce gerçekleştirilmesi gereken eylem, son koşullu bir döngü kullanılır. Koşul olarak mantıksal bir ifade kullanılır, döngü gövdesi basit veya bileşik bir ifadedir. Döngü gövdesinin her yürütülmesinden sonra koşul kontrol edilir, sonuç "yanlış" ise döngü gövdesi tekrar yürütülür, "doğru" ise döngüden çıkar. Akış ÇizelgesindePascal Tekrar Koşulu Döngü Gövdesi Evet Uygulama Yok Bitene Kadar ;
Parametreli döngü Tekrar sayısının önceden bilindiği durumlarda parametreli döngü kullanılır. Tekrar sayısını belirten değişken, döngü parametresi veya kontrol değişkeni olarak adlandırılır. Döngü gövdesinin her yürütülmesinden sonra, kontrol değişkeni artar veya azalır, döngü sınırı geçene veya sınırın altına düşene kadar yürütülür. Blok şemasında В Pascal X – kontrol değişkeni (döngü parametresi) A – başlangıç değeri X, B – son X C – değişiklik adımı X Bir adım olarak yalnızca şunları kullanabilirsiniz: “to” = 1; "downto" = -1 X:=A,B,C Döngü gövdesi Uygulama X:=A'dan B'ye Başla Bitir;
Önkoşullu bir döngü kullanan bir problem örneği 3 sayısını belirli bir kuvvete yükseltin GÖREV: Sözel algoritma: Başlangıçta 1'e eşit olan X sayısını belirli bir sayıda (N) 3 ile çarpın. H BHBH X:=1'i başlatın X:=X*3 end X Verilen dereceleri girin Başlangıç değerleri "B" derece sayacı B=B+1 3 ile çarpın Artış sayacı Ortaya çıkan değeri çıkar Program Adımı; varH,B,X: tamsayı; Yazmaya Başla(Derece?); oku(H); X:=1; B:=1; B iken
H X:=1 X:=X*3 end X Verilen kuvveti girin Başlangıç değerleri" title=" Son koşullu döngü kullanan görev örneği 3 sayısını verilen güce yükseltin GÖREV: Word algoritması: Çarp X sayısı başlangıçta 1'e eşittir (N) 3 ile verilen sayıda. start N B>=H X:=1 X:=X*3 end X Ayarlanan gücü girin Başlangıç değerleri" class="link_thumb"> 8 !} Son koşullu bir döngü kullanan bir problem örneği 3 sayısını belirli bir kuvvete yükseltin GÖREV: Sözel algoritma: Başlangıçta 1'e eşit olan X sayısını (N) 3 ile çarpın. start H B>=H X:= 1 X:=X*3 end X İstenen dereceyi girin Başlangıç değerleri "B" derece sayacı B=B+1 Sayacı 3 ile çarpın Sayacı 3 ile çarpın Çıktı çıkan değeri Programm Stepen; varH,B,X: tamsayı; Yazmaya Başla(Derece?); oku(H); X:=1; B:=0; TekrarX:=X*3; B:=B+1; B>=H'ye kadar; WriteIn(Sonuç, X); son. Hayır Evet Pascal Teorisi Akış Şeması Açıklamalar B:=0 =H X:=1 X:=X*3 uç X Ayarlanan gücü Başlangıç değerini girin"> =H X:=1 X:=X*3 uç X Ayarlanan gücü Başlangıç değerlerini girin "B" güç sayacı B=B +1 3 ile Çarp Artan sayaç Çıkış sonuç değeri Program Stepen; Var H,B,X:integer; Begin Writeln(Degree?); Readln(H); X:=1; B:=0; Tekrar X:=X* 3; B: =B+1;B>=H'ye Kadar;Writeln(Sonuç,X);End.No Evet Pascal Teorisi Akış Şeması Açıklamalar B:=0"> =H X:=1 X:=X*3 end X Enter belirtilen derece İlk değerler" title="Son koşullu bir döngü kullanan görev örneği 3 sayısını belirli bir güce yükseltin GÖREV: Kelime algoritması: X sayısını başlangıçta 1'e eşit olarak belirli bir sayıda çarpın ( N) ile 3. start N B>=H X: =1 X:=X*3 end X Ayarlanan gücü girin Başlangıç değerleri"> title="Son koşullu bir döngü kullanan bir problem örneği 3 sayısını belirli bir kuvvete yükseltin GÖREV: Sözel algoritma: Başlangıçta 1'e eşit olan X sayısını (N) 3 ile çarpın. start H B>=H X:= 1 X:=X*3 end X İstenilen gücün girilmesi Başlangıç değerleri"> !}
Parametreli bir döngü kullanan bir problem örneği 3 sayısını belirli bir güce yükseltin GÖREV: Word algoritması: Başlangıçta 1'e eşit olan X sayısını belirli bir sayıda (N) 3 ile çarpın. start N X:=1 X: =X*3 end X Belirli bir gücü girin Başlangıç değeri X=1 Parametreler 1 - N 3 ile çarpın Elde edilen değeri çıkarın Program Adımı; varH,B,X: tamsayı; Yazmaya Başla(Derece?); oku(H); X:=1; B:=1 ila H için X:=X*3'ü Başlatın; son; WriteIn(Sonuç, X); son. B:=1,H,1 Pascal Teorisi Akış Şeması Açıklamaları
Görev: Antrenmana başlayan sporcu ilk gün 10 km koştu. Her gün günlük oranı bir önceki günün oranının %10'u kadar artırdı. Sporcunun 7 günde koşacağı toplam mesafe nedir? Giriş değişkenleri: Çıkış değişkenleri: S - toplam mesafe d - gün sayısı Sd - mevcut günün mesafesi
Kontrol için Son Sorular: 1. Pascal'da hangi operatör önkoşullu bir döngüyü tanımlar 2. Bir döngüdeki parametrede adım "1" ve "-1" nasıl belirlenir 3. Döngüden bir sonkoşulla hangi dal çıkar 4. Koşul parametreli bir döngü var mı 5. Döngü gövdesi ne olabilir 6. Parametreli bir döngü kullanırken
slayt 1
Gerçekleştiren ROBOT Döngüsel algoritma
Bilişim dersi için sunum. 9. Sınıf Konu: Kontrol ve algoritmalar
slayt 2
i:=1'DEN N'YE BAŞLAMAK İÇİN action1; eylem2; SON;
FOR i:=1 TO N DO action1; eylem2;
1
slayt 3
2
(DOĞRU) BAŞLARKEN eylem1; eylem2; SON;
eylem1 yapılırken; eylem2;
slayt 4
3
17 hücre
12 hücre
slayt 5
4
Program N1; var i:integer; i için Başlayın:=1 ila 12 RobotForw yapın; RobotSol; i:=1 ila 17 için RobotForw yapın; RobotSol; i:=1 ila 12 için RobotForw yapın; RobotSol; i:=1 ila 17 için RobotForw yapın; RobotSol; son.
aşağı hareket
sağa hareket
harekete geçmek
sola hareket
Bu ve sonraki komutlar robotun köşesinde sola döner
slayt 6
5
Bir duvar koyarsanız, robot duvara çarpacak ve program duracaktır.
Slayt 7
6
Program N2; var i:integer; FreeForw RobotForw yaparken Başlayın; RobotSol; FreeForw, RobotForw yaparken; RobotSol; FreeForw, RobotForw yaparken; RobotSol; FreeForw, RobotForw yaparken; RobotSol; son.
İleri serbestken, robotu ileri doğru çalıştırın.
Slayt 8
Slayt 9
8
Program N3; var i:integer; i:=1 ila 4 için başlayın, FreeForw RobotForw yaparken; RobotSol; son; son.
Hiçbir engel kalmayana kadar dört kez ilerleyin ve sola dönün
Slayt 10
9
Hiçbir engel kalmayana kadar dört kez ilerleyin ve sola dönün
slayt 11
10
Bağımsız çalışma için görevler
Görev 1. Durumun sol duvarına keyfi bir yere bir engel yerleştirilir. Robot 1 noktasına ulaşmalı ve orijinal durumuna geri dönmelidir. Not: art arda üç döngü kullanın güle güle
1
1
slayt 12
11
Görev 2. Durumun sol duvarına keyfi bir yere bir yük yerleştirilir. Robot kargoya ulaşmalı, ambara götürmeli ve orijinal haline geri dönmelidir. Not: Güle güle seri olarak iki döngü kullanın
slayt 13
12
Görev 3. Durumun sol duvarına keyfi bir yere beş ağırlık yerleştirilir. Robot, tüm malları depoya taşımalıdır. Not: Bir parametre ile bir döngüde yuvalanmış iki seri bağlı BYE döngüsü kullanın.
Slayt 14
13
Örnek 1 Robot, koridor girişinin önündedir. Koridorun içindeki tüm hücreleri işaretlemek ve geri dönmek gerekiyor.
slayt 15
14
Program N7; RobotForw'u başlatın; FreeLeft değilken Seçime başlayın; RobotForw; son; RobotGeri; FreeLeft olmasa da RobotBack yapın; son.
Tünele girmek için ileriye doğru bir adım atmak
Solda bir duvar varken hücreyi işaretleyin ve ileri doğru bir adım atın
Tünele geri dönüyoruz
Solda bir duvar varken bir adım geri gidiyoruz
slayt 16
15
Örnek 2 Açılı olarak yerleştirilmiş iki duvar vardır. Duvarların uzunlukları isteğe bağlıdır. Robot, duvarların arasındaki köşededir (resme bakın). Robotun duvarın içindeki tüm hücreleri işaretlediği bir program yapmak gerekiyor. Robotun son konumu isteğe bağlıdır.
Slayt 17
16
Program N8; FreeRight Değilken Başlayın Başlayın Seçin; RobotForw; son; FreeBack RobotBack yaparken; RobotSol; FreeLeft değilken Seçime başlayın; RobotForw; son; son.
Sağ serbest değilken kutucuğu işaretleyin ve bir adım öne geçin.
Robotu geri getirmek
Sola çevirin
Sol boş değilken kutucuğu işaretleyin ve bir adım öne geçin.
Slayt 18
Slayt 19
18
Örnek 3 Bir duvar, ayarı iki parçaya bölerek ayarın üzerine biner. Duvarda rastgele bir yerde kafes büyüklüğünde bir geçit vardır. Robotun bu geçidi bulduğu ve ortamın başka bir yerine geçtiği bir program oluşturmak gerekir.
Slayt 20
19
Program N9; Robota BaşlaSol; FreeForw, RobotForw yaparken; RobotSağ; FreeLeft olmasa da RobotForw yapın; RobotSol; RobotForw; RobotForw; son.
Robotu duvara doğru çeviriyoruz.
Duvara çarpana kadar ilerliyoruz
Robotu duvar boyunca döndürün
Duvar bitene kadar ilerliyoruz
Robotu koridora doğru çeviriyoruz
İki adım ileri atıyoruz, durumun diğer yarısına geçiyoruz
Bireysel slaytlarda sunumun açıklaması:
1 slayt
Slayt açıklaması:
Dersin konusu: “Döngüsel yapının algoritmaları. Pascal "Disiplin" Bilişim "de programlama döngüleri
2 slayt
Slayt açıklaması:
Konuyla ilgili temel kavramlar Bu derste aşağıdaki kavramlar incelenir: döngü kavramı; döngüsel algoritma çeşitleri (önkoşullu döngü, sonkoşullu döngü, parametreli döngü); döngüsel algoritmaların blok diyagramları; dilde döngü operatörlerinin gösterimi pascal programlama; problem çözmede döngülerin uygulanması.
3 slayt
Slayt açıklaması:
Döngü kavramı Birçok sorunu çözerken, aynı eylem dizisi birkaç kez gerçekleştirilir. Örneğin, kabul edildiğinde Eğitim kurumuöğrenci sınavlara girer ve aldığı puanlar hesaplanır (S değişkeni; başlangıç değeri S:=0;). Geçtiği her sınav için N notu alır. Not "2" den büyükse, S:= S + N; aksi takdirde hesaplamaları durdurun (döngüden çıkın).
4 slayt
Slayt açıklaması:
Döngü kavramı Döngü, birden çok kez yürütülebilen bir ifadeler dizisidir. döngüsel algoritma yeni veriler üzerinde aynı eylemin tekrar tekrar yapılmasını sağlayan bir algoritma çağrılır Üç tür döngü operatörü vardır: önkoşullu döngüler; son koşullu döngüler; bir sayaç ile döngüler.
5 slayt
Slayt açıklaması:
Önkoşullu döngü. WHILE WHILE döngüsü While kelimesinden sonra yazılan koşul doğru olduğu sürece döngünün gövdesini yürütme talimatı verir Önkoşullu döngü akış şeması
6 slayt
Slayt açıklaması:
Önkoşullu döngü. WHILE WHILE döngüsü Ön koşullu bir döngü, döngü gövdesinin tekrar sayısı önceden bilinmediğinde, ancak koşulun yerine getirilmesine bağlı olduğunda kullanılır. Koşul doğruysa, döngünün gövdesi yürütülür, ardından koşul tekrar kontrol edilir ve koşul yanlış olana kadar bu böyle devam eder.
7 slayt
Slayt açıklaması:
Önkoşul döngü operatörü (WHILE tipi döngü) Bu en sık kullanılan yineleme operatörü, Pascal'da (format) genel forma sahiptir: WHILE<условие>YAPMAK<оператор>; burada WHILE, DO ayrılmış kelimelerdir (İngilizce'den: while - while, do - do);<условие>- Boole tipi ifade;<оператор>isteğe bağlı (muhtemelen bileşik) bir operatördür.
8 slayt
Slayt açıklaması:
Son koşullu döngü. TO tipinde bir döngü Son koşullu döngü deyiminin yürütme sırası 1-N deyimlerinin yürütülmesi, koşul doğru olana kadar tekrarlanır. Bu döngüde, koşul yalnızca döngü gövdesinin yürütülmesinden sonra kontrol edilir. Vücudun her zaman en az bir kez yürütüldüğü sonucu çıkar.
9 slayt
Slayt açıklaması:
Son koşullu döngü. ÖNEMLİ döngü yapın! Son koşullu bir döngü, koşulun doğru olup olmadığına bakılmaksızın en az bir kez yürütülür. Son koşullu bir döngünün şüphesiz rahatlığı, içine bileşik bir ifade kullanmadan birkaç ifadenin yazılabilmesidir. Koşul testi, döngü gövdesinden sonra bulunur. KADAR fonksiyon sözcüğü
10 slayt
Slayt açıklaması:
Son koşullu operatör döngüsü (döngü türü DO - UNTIL) Genel form Pascal'da son koşullu döngü operatörünün (biçimi) aşağıdaki gibidir: Tekrarla<Оператор 1>; <Оператор 2>; … <Оператор N>; Değin<условие>;
11 slayt
Slayt açıklaması:
Son koşullu bir döngü operatörü kullanma örneği Ekranda n=1, 2, 3, 4, 5, 6, 7, 8, 9 değişkeninin ve a=10 değişkeninin değerlerini çiftler halinde görüntülemek için, 20, 30, 40, 50, 60, 70, 80, 90 bu operatör şöyle görünecektir: n:= 0; tekrar:=n+1; a:=10*n; writeln(n:2,' ',a:3); n>=9'a kadar;
12 slayt
Slayt açıklaması:
Bir parametre ile döngü. FOR tipi döngü Parametreli bir döngü, belirtilen sayıda döngü adımını gerçekleştirmesi gerektiğinde kullanılır. Pascal'daki FOR döngüsünün çok esnek olmadığına dikkat edilmelidir (örneğin, C'deki bu tür döngülerin aksine). Çünkü Pascal'da döngü parametresi (veya sayaç) bire eşit bir miktarda değiştirilir. Bu nedenle, kesirli bir adım gerektiğinde, bir WHILE döngüsü kullanılmalıdır. İki tür FOR döngüsü vardır: sayacı (veya parametreyi) artırma ve azaltma. Parametreli bir döngünün blok diyagramı (FOR döngüsü)
13 slayt
Slayt açıklaması:
14 slayt
Slayt açıklaması:
Bir parametre ile döngü deyimi. FOR tipi döngü Döngü operatörünün for parametresiyle genel görünümü (biçim)<счетчик> := <начальное значение>ile<конечное значение>başla<Операторы>son; için<счетчик> := <начальное значение>aşağı<начальное значение>başla<Операторы>son; artan sayaç (parametre) değerleri ile azalan sayaç (parametre) değerleri ile
15 slayt
Slayt açıklaması:
Bir parametre ile döngü deyimi. FOR tipi döngü FOR döngüsü operatörü, bir program parçasının belirli bir sayıda FOR tekrar etmesi gerekiyorsa kullanılır.<переменная цикла>: = <начальное значение>O<конечное значение>YAPMAK<оператор>; Burada: FOR, TO, DO - ayrılmış kelimeler (İngilizce: for, before,execut);<счетчик (параметр) цикла>- segment üzerinde değişen INTEGER türünde bir değişken<начального значения>, her döngü adımının sonunda bir artar;<оператор>- herhangi bir (genellikle bileşik) operatör.
16 slayt
Slayt açıklaması:
Bir parametre ile döngü deyimi. FOR Döngüsü FOR ifadesi, bir döngü başlığı ve bir döngü gövdesinden oluşur. Döngü gövdesindeki bir bileşik ifade, başlangıç ve bitiş parantezleri içine alınmalıdır. ·Metre kimliği genellikle "i" dir. · Sayaç değişkeni sıralı tipte olmalıdır. Örneğin, tamsayı tipi: bayt, tamsayı. · Döngü parametresinin başlangıç ve bitiş değerleri döngü çalışırken değiştirilmemelidir. · FOR deyimi, önceden bilinen veya program yürütme sırasında belirlenen tekrar sayısı sabit olan döngüleri düzenlemek için kullanılır.
17 slayt
Slayt açıklaması:
Problem çözmede döngülerin uygulanması Yukarıda açıklanan döngülerin her biri, döngüsel bir algoritma ile Pascal'da aynı sorunları programlamak için kullanılabilir.
18 slayt
Slayt açıklaması:
Görev No. 1 PascalABC.NET programını açın (Pascal programlama dilindeki programlar için entegre bir geliştirme ortamı) Programı, sistemde adınızın bulunduğu bir klasöre kaydedin çalışma klasörü PABCWork.NET \ Adınız\Cikl_1.pas Farklı Kaydet...
19 slayt
Slayt açıklaması:
Görev No. 1 BYA döngüsünü kullanarak (önkoşullu), tüm sayıların karelerinin toplamını hesaplayan bir program yazın ve hata ayıklayın doğal sayılar 1'den 100'e kadar. BAŞLANGIÇ VERİLERİ: A: tamsayı; SONUÇ - toplam: S: Longint; Program Ex1; Var A: Tamsayı; S: Longint; ( Uzun Tamsayı) Başlangıç A:=1; Ö:=0; ( toplamı biriktirmek için S değişkeni ) iken A<=100 Do { Начало цикла – проверка условия } Begin S:=S+A*A; A:=A+1 End; Writeln(‘Вывод результата S= ’ ,S) End. Сохранить программу в папке с Вашим именем в системной рабочей папке PABCWork.NET \ Ваше_имя\Cikl_1.pas
20 slayt
Slayt açıklaması:
GÖREV 2. PascalABC.NET ortamında Pascal dilinde döngüsel yapıya sahip bir programın hatalarını ayıklayın Program abc; var x, y: tamsayı; başlangıçx:=2; x iken<= 10 do begin Y:=x*x; writeln(‘вывод х: ’, x, ‘вывод у: ’, y); x:= x+2; end; end. Применить оператор цикла с предусловием для вычисления значения функции y=x2, при значениях x 2, 4, 6, 8, 10. Сохранить программу в папке с Вашим именем в системной рабочей папке PABCWork.NET \ Ваше_имя\Cikl_2.pas