Contoh pascal algoritma ICT siklik. Presentasi ilmu komputer dengan topik "Algoritma untuk struktur siklik

Contoh pascal algoritma ICT siklik. Presentasi ilmu komputer tentang topik tersebut — Contoh pascal algoritma ICT siklik. Presentasi ilmu komputer dengan topik "Algoritma untuk struktur siklik

08.01.2022

Rencana

Konsep perulangan Pernyataan perulangan Untuk Perulangan While Perulangan Sastra

Geser 3

Literatur

Kastornov A.F., Evstratova G.A. Bahasa pemrograman Pascal: panduan pelatihan untuk universitas. - Cherepovets: Lembaga Pendidikan Negeri Pendidikan Profesi Tinggi ChSU, 2010. - 117 hal. - Daftar Pustaka : Hal.114. Buku teks elektronik tentang bahasa pemrograman Pascal /http://pascal.guti.ru Plan

Geser 4

Konsep siklus

Algoritma untuk memecahkan banyak masalah bersifat siklus, untuk mencapai hasil urutan tertentu tindakan dilakukan beberapa kali. Misalnya, program pengendalian pengetahuan menampilkan pertanyaan, menerima jawabannya, menambahkan nilai jawaban pada skor total, kemudian mengulangi tindakan ini hingga subjek menjawab semua pertanyaan. Atau, misalnya, untuk mencari nama keluarga yang diinginkan dalam daftar, Anda harus memeriksa nama keluarga pertama dalam daftar untuk melihat apakah cocok dengan nama yang dicari, lalu nama keluarga kedua, ketiga, dan seterusnya. sampai nama keluarga yang diinginkan ditemukan atau akhir daftar tercapai.

Geser 5

Algoritma yang berisi sekelompok pernyataan yang dieksekusi beberapa kali disebut algoritma siklik. Kelompok pernyataan yang berulang disebut badan perulangan. Dalam Pascal, perulangan dapat diimplementasikan menggunakan pernyataan perulangan For, While, dan Repeat. Rencana

Geser 6

Untuk operator loop

Operator perulangan For digunakan ketika badan perulangan harus dieksekusi beberapa kali, dan jumlah pengulangan diketahui sebelumnya.

Geser 7

Bentuk penulisan pertama dari operator loop For

Bentuk penulisan operator For yang ke-1 secara umum adalah sebagai berikut: ForCounter:=Start_valuetoFinal_valuedoOperator; Dimana For, to, do merupakan kata fungsi. Counter adalah variabel ordinal (biasanya Integer) yang menentukan berapa kali perulangan akan diulang. Jumlah pengulangan dihitung menggunakan rumus: Nilai_akhir – Nilai_awal+1. End_Value harus lebih besar atau sama dengan Start_Value.

Geser 8

Jika badan perulangan terdiri dari beberapa operator, maka bentuk penulisan operator For yang ke-1 adalah sebagai berikut: ForCounter:=Start_valuetoFinal_valuedo Begin (Loop body) End;

Geser 9

Mari kita lihat algoritma perulangan For pada bentuk penulisan pertama. Penghitung diberi nilai Initial_. Kondisi dicentang: Apakah nilai penghitung lebih besar dari nilai_akhir? Jika kondisinya benar (Ya), perulangan berakhir. Jika kondisinya salah (Tidak), maka badan perulangan dijalankan, kemudian nilai penghitungnya ditambah satu dan kondisinya diperiksa kembali, yaitu. ayat 2.

Geser 10

Bentuk penulisan ke-2 operator perulangan For

Bentuk penulisan operator For yang ke-2 secara umum adalah sebagai berikut: For Counter:=Start_valuedowntoFinal_valuedoOperator; Dimana: For, downto, do merupakan kata fungsi. Counter adalah variabel ordinal (biasanya Integer) yang menentukan berapa kali perulangan akan diulang. Jumlah pengulangan dihitung menggunakan rumus: Nilai_Awal – Nilai_Akhir+1. Start_Value harus lebih besar atau sama dengan End_Value.

Geser 11

Jika badan perulangan terdiri dari beberapa operator, maka bentuk penulisan operator For yang ke-2 adalah sebagai berikut: ForCounter:=Start_valuedowntoFinal_valuedo Begin //Loop body End;

Geser 12

Mari kita pertimbangkan algoritma perulangan For dalam bentuk notasi kedua: Penghitung diberi nilai Initial_. Kondisi dicentang: Apakah nilai penghitungnya lebih kecil dari nilai_Akhir? Jika kondisinya benar (Ya), perulangan berakhir. Jika kondisi salah (Tidak), maka badan perulangan dijalankan, kemudian nilai penghitung dikurangi satu dan kondisi diperiksa kembali, yaitu. ayat 2.

Geser 13

Untuk operator loop

programEx1; var i, n: bilangan bulat; (i – counter, n – jumlah bintang yang diperlukan) s:string;(s – string bintang yang dihasilkan) mulai Writeln("Masukkan jumlah bintang"); (menanyakan jumlah bintang) Readln(n); (pengguna memasukkan jumlah bintang n) s:=""; (pembentukan string tanda bintang dimulai dengan string kosong) (String dibentuk menggunakan loop For. Nilai_awal penghitung adalah 1, Nilai_akhir adalah jumlah bintang yang diperlukan n.) fori:= 1 hingga n do s :=s+"*"; (pada setiap langkah perulangan, satu tanda bintang ditempelkan pada garis) Writeln(s); (sebuah garis dicetak) Readln; akhir. Contoh Rencana: Program ini menghasilkan serangkaian bintang. Jumlah bintang dalam satu baris ditentukan oleh pengguna.

Geser 14

Sementara Lingkaran

Perulangan While digunakan ketika jumlah pengulangan badan perulangan selama pengembangan program tidak diketahui dan hanya dapat ditentukan saat program sedang berjalan. Secara umum pernyataan While ditulis sebagai berikut: While Condition doOperator; Dimana While, do merupakan kata fungsi. Kondisi adalah ekspresi logika yang menentukan kelanjutan perulangan.

Geser 15

Jika badan perulangan terdiri dari beberapa pernyataan, maka perulangan While dituliskan sebagai berikut: WhileCondition do Begin //Loop body End;

Geser 16

Mari kita lihat algoritma untuk perulangan While: Kondisi dicentang. Jika kondisinya benar, maka badan perulangan akan dieksekusi. Setelah itu kondisinya diperiksa kembali. Jika kondisinya salah, maka perulangan berakhir.

Geser 17

Jadi, While adalah perulangan dengan prasyarat atau perulangan “While” (badan perulangan dijalankan selama kondisinya benar). Jika pada lintasan pertama perulangan kondisinya salah, maka isi perulangan tidak akan dieksekusi satu kali pun. Jika kondisi tidak pernah menjadi salah, maka perulangan akan berulang tanpa batas, yaitu. perulangan akan terjadi.

Geser 18

ProgramEx2; varAkun: Nyata; (ukuran akun) Bulan: Integer; (jumlah bulan yang telah berlalu sejak rekening dibuka) mulai Rekening:=1000; (1000 rubel disetorkan ke akun) Bulan:=0; (akun baru saja dibuka) whileAccount

Geser 19

Ulangi siklus

Perulangan Ulangi, seperti perulangan While, digunakan dalam suatu program jika perlu mengeksekusi badan perulangan beberapa kali, tetapi jumlah pengulangan tidak diketahui sebelumnya. Secara umum, perulangan Ulangi ditulis sebagai berikut: Ulangi //Badan perulangan Hingga Kondisi; Dimana Ulangi, Sampai merupakan kata fungsi. Kondisi adalah ekspresi Boolean yang menentukan akhir dari perulangan.

Geser 20

Mari kita pertimbangkan algoritme perulangan Ulangi: Badan perulangan yang terletak di antara kata-kata yang dicadangkan Ulangi dan Sampai dieksekusi. Kondisinya sudah diperiksa. Jika kondisinya benar, perulangan berakhir. Jika kondisinya salah, badan perulangan akan dieksekusi lagi.

Geser 21

Jadi, Repet adalah perulangan dengan postkondisi atau perulangan “Sebelum” (badan perulangan dieksekusi hingga kondisinya benar). Oleh karena itu, badan perulangan dieksekusi setidaknya sekali. Jika kondisi tidak pernah menjadi benar, maka perulangan akan menjadi tak terbatas.

Geser 22

ProgramEx3; var Waktu:integer; (waktu pembagian) Sel: bilangan bulat;(jumlah sel) Waktu mulai:=0;(sel belum memulai pembelahan) Sel:=1;(satu sel) Waktu Pengulangan:=Waktu+3;(dalam tiga jam berikutnya ) Sel: =Sel*2;(jumlah sel bertambah 2 kali lipat) Hingga Sel>24; (sampai kondisi “jumlah sel lebih dari 24” benar) Writeln(Waktu); (keluarkan hasilnya) Readln; akhir. Contoh Rencana: Amuba bersel tunggal membelah menjadi 2 sel setiap 3 jam. Tentukan berapa jam kemudian jumlah sel akan melebihi 24.

Lihat semua slide

Perulangan dengan prasyarat Jika jumlah pengulangan tidak diketahui sebelumnya, tetapi hanya ditentukan oleh suatu kondisi, dan tindakan yang harus dilakukan hanya setelah memeriksa kondisi, gunakan perulangan dengan prasyarat. Kondisi sudah terpakai ekspresi logis, badan perulangan adalah pernyataan sederhana atau gabungan. Sebelum setiap eksekusi badan perulangan, kondisi diperiksa, jika hasilnya “benar”, maka badan perulangan dijalankan kembali, jika “salah”, maka perulangan keluar. Pada diagram blok Dalam Pascal dimulai dari akhir; Kondisi Badan perulangan Tidak Ada Latihan Awal perulangan Akhir perulangan YA Sementara lakukan

Perulangan dengan postkondisi Jika jumlah pengulangan tidak diketahui sebelumnya, tetapi hanya ditentukan oleh suatu kondisi, dan tindakan yang harus dilakukan sebelum memeriksa kondisi, gunakan perulangan dengan postcondition. Ekspresi logis digunakan sebagai kondisi, badan perulangan adalah operator sederhana atau gabungan. Setiap kali badan perulangan dieksekusi, kondisinya diperiksa, jika hasilnya “false”, maka badan perulangan dijalankan kembali, jika “benar”, maka perulangan keluar. Pada diagram blok Dalam Pascal Ulangi Kondisi Loop Body Ya Tidak Latihan Sampai ;

Perulangan dengan parameter Jika jumlah pengulangan diketahui sebelumnya, perulangan dengan parameter digunakan. Variabel yang menentukan jumlah pengulangan disebut parameter loop atau variabel kontrol. Setelah setiap eksekusi badan perulangan, variabel kontrol dinaikkan atau diturunkan, perulangan dijalankan hingga melebihi atau menjadi kurang dari batas. Dalam diagram blok di Pascal, X adalah variabel kontrol (parameter siklus) A adalah nilai awal X, B adalah nilai akhir X C adalah langkah perubahan X. Sebagai langkah Anda hanya dapat menggunakan: “to” = 1; “downto” = -1 X:=A,B,C Latihan Badan Perulangan Untuk X:=A ke B lakukan Mulai Akhir;

Contoh soal menggunakan loop dengan prasyarat Menaikkan angka 3 ke pangkat tertentu TUGAS: Algoritma verbal: Kalikan angka X yang awalnya sama dengan 1 beberapa kali (H) dengan 3. mulai H BHBH X:=1 X:=X*3 akhir X Masukkan derajat yang diberikan Nilai awal “B” penghitung derajat B=B+1 Kalikan dengan 3 Menambah penghitung Menghasilkan nilai yang dihasilkan Program Stepen; Var H,B,X: bilangan bulat; Mulai Writeln(Gelar?); Baca(H); X:=1; B:=1; Sementara B

H X:=1 X:=X*3 end X Masukkan pangkat tertentu Nilai awal" title="Contoh tugas menggunakan perulangan dengan kondisi akhir Menaikkan angka 3 ke pangkat tertentu TUGAS: Algoritma verbal: Kalikan bilangan X awalnya sama dengan 1 berapa kali (H) untuk 3. mulai N B>=H X:=1 X:=X*3 akhir X Masukkan derajat tertentu Nilai awal" class="link_thumb"> 8 !} Contoh soal menggunakan perulangan dengan kondisi akhir Menaikkan angka 3 ke pangkat tertentu TUGAS: Algoritma verbal: Kalikan angka X yang awalnya sama dengan 1 beberapa kali (H) dengan 3. mulai H B>=H X:=1 X:=X*3 akhir X Memasukkan derajat tertentu Nilai awal “B” penghitung derajat B=B+1 Mengalikan dengan 3 Menambah penghitung Menghasilkan nilai yang dihasilkan Program Stepen; Var H,B,X: bilangan bulat; Mulai Writeln(Gelar?); Baca(H); X:=1; B:=0; Ulangi X:=X*3; B:=B+1; Sampai B>=H; Writeln(Hasil,X); Akhir. Tidak Ya Diagram Blok Teori Pascal Penjelasan B:=0 =H X:=1 X:=X*3 end X Memasukkan derajat tertentu Nilai awal"> =H X:=1 X:=X*3 end X Memasukkan derajat tertentu Nilai awal "B" penghitung derajat B=B +1 Mengalikan dengan 3 Menambah penghitung Output nilai yang dihasilkan Program H,B,X:integer; Sampai B>=H; Writeln (Hasil,X); "> =H X:=1 X*3 end X Masukkan derajat yang ditentukan Nilai awal" title=" Contoh soal menggunakan loop dengan postcondition Menaikkan angka 3 ke pangkat tertentu TUGAS: Algoritma verbal: Kalikan bilangan X, awalnya sama dengan 1, dikalikan (H) sebanyak 3. awal N B>=H X: =1 X:=X*3 akhir X Memasukkan derajat yang ditentukan Nilai awal"> title="Contoh soal menggunakan perulangan dengan kondisi akhir Menaikkan bilangan 3 ke pangkat tertentu TUGAS: Algoritma verbal: Kalikan bilangan X yang awalnya sama dengan 1 beberapa kali (H) dengan 3. mulai H B>=H X:=1 X:=X*3 end X Memasukkan nilai awal derajat tertentu"> !}

Contoh tugas menggunakan loop dengan parameter Menaikkan angka 3 ke pangkat tertentu TUGAS: Algoritma verbal: Kalikan angka X, awalnya sama dengan 1, beberapa kali (H) tertentu dengan 3. mulai H X:=1 X:=X*3 end X Masukkan pangkat tertentu Nilai awal X=1 Parameter dari 1 hingga N Perkalian dengan 3 Output dari nilai yang dihasilkan Program Stepen; Var H,B,X: bilangan bulat; Mulai Writeln(Gelar?); Baca(H); X:=1; Untuk B:=1 sampai H lakukan Begin X:=X*3; Akhir; Writeln(Hasil,X); Akhir. B:=1,H,1 Penjelasan Diagram Blok Teori Pascal

Tugas: Setelah memulai latihan, atlet berlari sejauh 10 km pada hari pertama. Setiap hari ia meningkatkan norma harian sebesar 10% dari norma hari sebelumnya. Berapa jarak total yang ditempuh atlet tersebut dalam waktu 7 hari? Variabel masukan: Variabel keluaran: S – total jalur d – jumlah hari Sd – jarak pada hari ini

Pertanyaan Akhir untuk kontrol: 1. Operator manakah dalam Pascal yang mendefinisikan perulangan dengan prasyarat 2. Bagaimana menentukan langkah “1” dan “-1” dalam parameter dalam perulangan 3. Cabang manakah yang diikuti oleh perulangan dengan pascakondisi? 4. Apakah ada loop dengan parameter kondisi 5. Apa yang bisa menjadi badan loop 6. Kapan loop dengan parameter digunakan

Geser 1

Algoritma Performer ROBOT Cyclic
Presentasi untuk pelajaran ilmu komputer. Topik Kelas 9: Kontrol dan algoritma

Geser 2

UNTUK i:=1 KE N LAKUKAN MULAI tindakan1;
tindakan2;
1

AKHIR;

2
UNTUK i:=1 KE N LAKUKAN tindakan1;
tindakan2;

Geser 3

3
SAAT (KONDISI BENAR) MULAI tindakan1;
tindakan2; AKHIR;

SAAT (KONDISI BENAR) LAKUKAN tindakan1; tindakan2;

4
Geser 4
17 sel
12 sel
Geser 5
Program N1; var i: bilangan bulat; Mulai Untuk i:=1 hingga 12 lakukan RobotForw;
RobotKiri;

Untuk i:=1 hingga 17 lakukan RobotForw;

5
RobotKiri;

Untuk i:=1 hingga 12 lakukan RobotForw;

6
RobotKiri;
Untuk i:=1 hingga 17 lakukan RobotForw;

RobotKiri; akhir.

Kami bergerak ke bawah

8
Pindah ke kanan
Bergerak ke atas

Bergerak ke kiri

9
Perintah ini dan selanjutnya mengarahkan robot ke kiri di pojok

Geser 6

10
Jika Anda memasang tembok, robot akan menabraknya dan program akan berhenti
Tugas 1. Sebuah rintangan ditempatkan di dinding kiri setting di tempat yang acak. Robot harus mencapai titik 1 dan kembali ke keadaan semula. Catatan: gunakan tiga loop yang terhubung seri BYE
1
1

Geser 12

11
Tugas 2. Sebuah beban ditempatkan di dinding kiri panggung di tempat yang sewenang-wenang. Robot harus mencapai muatan, mengambilnya, mengangkutnya ke gudang dan kembali ke keadaan semula. Catatan: gunakan dua loop yang terhubung seri BYE

Geser 13

12
Tugas 3. Lima beban ditempatkan di dinding kiri setting di tempat yang acak. Robot harus mengangkut semua barang ke gudang. Catatan: gunakan dua loop WHILE yang terhubung secara berurutan dan bersarang dalam satu loop dengan parameter.

Geser 14

13
Contoh 1 Robot terletak di depan pintu masuk koridor. Penting untuk menandai semua sel di dalam koridor dan kembali

Geser 15

14
Program N7; Mulai RobotForw; Meskipun bukan FreeLeft, mulailah Pilih;
RobotForw;
akhir; RobotKembali; Meskipun bukan FreeLeft, lakukan RobotBack; akhir.
Mengambil langkah maju untuk memasuki terowongan
Selagi ada tembok di sebelah kiri, tandai selnya dan maju selangkah

Kami kembali ke terowongan

15
Meskipun ada tembok di sebelah kiri, kami mundur selangkah

Geser 16

16
Contoh 2 Ada dua dinding yang ditempatkan miring. Panjang dindingnya berubah-ubah. Robot terletak di pojok antara dinding (lihat gambar). Penting untuk membuat program di mana robot menandai semua sel di bagian dalam dinding. Posisi akhir robot berubah-ubah.
Geser 17
Program N8; Mulai Meskipun tidak Bebas Kanan mulai Pilih;
RobotForw;
akhir; Sementara FreeBack melakukan RobotBack; RobotKiri; Meskipun bukan FreeLeft, mulailah Pilih;

RobotForw;

akhir; akhir.

18
Meskipun tidak ada ruang di sebelah kanan, tandai kotak tersebut dan maju selangkah.

Membawa robot itu kembali

19
Belok kiri
Meskipun tidak ada ruang di sebelah kiri, tandai kotak tersebut dan maju selangkah.
Geser 18
Geser 19
Contoh 3 Perabotan dihalangi oleh dinding, membagi perabotan menjadi dua bagian. Ada lorong seukuran sangkar di dinding di lokasi acak. Penting untuk membuat program di mana robot menemukan bagian ini dan berpindah ke bagian lain dari lingkungan.
Geser 20
Program N9; Mulai RobotKiri;

Sedangkan FreeForw melakukan RobotForw;

Robot Kanan;