คอมพิวเตอร์ Windows อินเทอร์เน็ต

การเติมอาร์เรย์ ปาสกาล อาร์เรย์หนึ่งมิติ การเติมอาร์เรย์หนึ่งมิติด้วยตัวเลขตามลำดับ

อาร์เรย์ในการเขียนโปรแกรมเป็นชุดขององค์ประกอบประเภทเดียวกัน (ประเภทเดียวกัน)

อาร์เรย์มีหลายประเภท - หนึ่งมิติ(เวกเตอร์) และ หลายมิติ.

องค์ประกอบในอาร์เรย์มีลักษณะเป็นชื่อและตัวเลขตามลำดับ - ดัชนี

ดัชนีคือเลขลำดับขององค์ประกอบในอาร์เรย์

ใน Pascal แต่ละองค์ประกอบจะได้รับการกำหนดหนึ่งหรือหลายดัชนีที่อธิบายตำแหน่งขององค์ประกอบในอาร์เรย์

อาร์เรย์หนึ่งมิติ

ไวยากรณ์สำหรับอาร์เรย์ใน Pascal คือ:

Var a: อาร์เรย์ของจำนวนเต็ม;
ที่ไหน:
1 - ตัวห้อย
10 - ตัวยก
A คือชื่อของตัวแปรอาร์เรย์
- ช่วงของค่า
จำนวนเต็ม - ชนิดข้อมูล
A [i] - เข้าถึงองค์ประกอบอาร์เรย์ใน Pascal

ประเภทองค์ประกอบของอาร์เรย์สามารถเป็นประเภทใดก็ได้ที่ถูกต้องในภาษา Pascal ยกเว้นไฟล์ (แม้แต่อาร์เรย์)

ตัวอย่างอาร์เรย์: A = (1, -5,230,55, -88,0,100)

เมื่ออธิบายอาร์เรย์ ต้องกำหนดตัวยกอย่างเข้มงวด

เมื่ออธิบายอาร์เรย์ หน่วยความจำจะถูกจัดสรร และคอมไพเลอร์ต้องรู้ว่าต้องจัดสรรหน่วยความจำเท่าใดสำหรับอาร์เรย์ที่อธิบายไว้

ไม่มีการจำกัดจำนวนของดัชนีในอาร์เรย์ Pascal อย่างไรก็ตาม อาร์เรย์ต้องไม่ใหญ่กว่า 65537 ไบต์

อาร์เรย์ยังสามารถประกาศได้ในส่วนการประกาศประเภท:

ชนิด มวล = อาร์เรย์ ของจริง; Var a, b, c: มวล;
องค์ประกอบอาร์เรย์มีการเข้าถึงแบบวนซ้ำ

วิธีที่สมเหตุสมผลที่สุดในการประมวลผลองค์ประกอบอาร์เรย์ใน Pascal คือโอเปอเรเตอร์ลูปที่มีพารามิเตอร์

ทำไมคุณถึงคิด? เนื่องจากเราทราบจำนวนองค์ประกอบในอาร์เรย์ที่จำกัด

อัลกอริทึมการเติมอาร์เรย์ Pascal

  1. การป้อนข้อมูลขององค์ประกอบอาร์เรย์โดยใช้คอมพิวเตอร์ดำเนินการโดยใช้โครงสร้างต่อไปนี้:

    สำหรับ i: = 1 ถึง 10 Do read (A [i]);

  2. การตั้งค่าอาร์เรย์แบบสุ่ม

    อาร์เรย์สามารถตั้งค่าแบบสุ่มโดยใช้เซ็นเซอร์ ตัวแปรสุ่ม.

    ในการเริ่มตัวสร้างตัวแปรสุ่มใน Pascal คุณต้องลงทะเบียนการออกแบบพิเศษ - สุ่ม;

    ค่าใหม่ถูกสร้างขึ้นโดยใช้ฟังก์ชัน Random (n) โดยที่ n เป็นจำนวนเต็ม ในกรณีนี้ หมายเลขใดๆ ที่มีช่วงตั้งแต่ 0 ถึง n จะถูกสร้างขึ้น

    K: = สุ่ม (100);
    หากใช้ฟังก์ชันสุ่มโดยไม่มีพารามิเตอร์ ระบบจะสร้างจำนวนจริง (พิมพ์จำนวนจริง) ในช่วง 0< X < 1

    X: = สุ่ม;

เติมอาร์เรย์แบบสุ่ม

โครงสร้างนี้ใน Pascal ใช้การสุ่มเติมอาร์เรย์

สุ่ม; สำหรับ i: = 1 ถึง 10 เริ่มต้น A [i]: = สุ่ม * 100-70; เขียน (A [i]: 6: 2); จบ;

วิธีที่ 1 (เติมจากคีย์บอร์ด Dynamicป้อนข้อมูลข้อมูล)

M: อาร์เรย์ของจำนวนเต็ม;

สำหรับฉัน: = 1 ถึง 10 เริ่มเลย

เขียน ("Enter", I, "value");

วิธีที่ 2 (โดยใช้เครื่องกำเนิดตัวเลขสุ่ม)

M: อาร์เรย์ของจำนวนเต็ม;

สำหรับฉัน: = 1 ถึง 25 เริ่มเลย

M [I]: = สุ่ม (50);

วิธีที่ 3 (การป้อนข้อมูลแบบคงที่)

M: อาร์เรย์ของจำนวนเต็ม = (31,28,31,30,31,30,31,31,30,31,30,31);

สำหรับฉัน: = 1 ถึง 9 Do

1.4 ตัวอย่างการแก้ปัญหา

1. อัลกอริทึมในการค้นหาและกำหนดค่าให้กับองค์ประกอบอาร์เรย์

1. สร้างโปรแกรมสำหรับประมวลผลอาร์เรย์ n มิติที่เต็มไปด้วยจำนวนเต็มที่ป้อนจากแป้นพิมพ์ พิมพ์ดัชนีและค่าขององค์ประกอบบวกของอาร์เรย์

A: อาร์เรย์ของจำนวนเต็ม;

(การกรอกอาร์เรย์)

สำหรับฉัน: = 1 TO N เริ่มต้น

เขียน ("Enter", I, "องค์ประกอบอาร์เรย์"); ReadLn (A [I]);

(การประมวลผลองค์ประกอบอาร์เรย์)

สำหรับฉัน: = 1 TO N DO

IF A [I]> 0 แล้ว WriteLn ("องค์ประกอบบวก =", A [I], "ดัชนีของมัน =", I);

2. สร้างโปรแกรมสำหรับคำนวณและพิมพ์ค่าของฟังก์ชัน Y = sin (x-1) / 2x ค่าอาร์กิวเมนต์ที่จะระบุในอาร์เรย์ X ประกอบด้วย 6 องค์ประกอบ เขียนค่าของฟังก์ชันลงในอาร์เรย์ Y

X, Y: อาร์เรย์ของจริง;

สำหรับฉัน: = 1 ถึง 6 เริ่มเลย

เขียน ("Enter", I, "ค่าอาร์กิวเมนต์"); ReadLn (X [I]);

สำหรับฉัน: = 1 ถึง 6 เริ่มเลย

Y [I]: = SIN (X [I] -1) / (2 * X [I]);

WriteLn ("X =", X [I]: 4: 1, "Y =", Y [I]: 5: 2);

3. คุณจะได้รับอาร์เรย์ M ซึ่งประกอบด้วย 30 องค์ประกอบ องค์ประกอบอาร์เรย์เป็นจำนวนเต็มตามอำเภอใจ แสดงค่าของทุก ๆ ห้าและองค์ประกอบบวกบนหน้าจอ ส่งออกองค์ประกอบที่ระบุเป็นสตริง

M: อาร์เรย์ของจำนวนเต็ม;

ClrScr; สุ่ม;

WriteLn ("ค่าองค์ประกอบอาร์เรย์");

สำหรับฉัน: = 1 ถึง 30 เริ่มเลย

M [I]: = สุ่ม (20) -4; เขียน (M [I]: 3);

WriteLn ("ค่าของทุก ๆ ห้าและองค์ประกอบอาร์เรย์ที่เป็นบวก");

ขณะที่ฉัน<=30 DO Begin

IF M [I]> 0 แล้วเขียน (M [I]: 3);

ตัวอย่างสำหรับโซลูชันอิสระ:

    กำหนดอาร์เรย์ 1 มิติของมิติ 10 ซึ่งเต็มไปด้วยจำนวนเต็มที่ป้อนจากแป้นพิมพ์ และค่า N แทนที่องค์ประกอบเชิงลบด้วย N แสดงอาร์เรย์ที่แก้ไขแล้วบนหน้าจอในหนึ่งบรรทัด

    กำหนดอาร์เรย์มิติเดียวของมิติ N ซึ่งเต็มไปด้วยตัวเลขสุ่มในช่วง -15 ถึง 20 แสดงค่าขององค์ประกอบอาร์เรย์ ค่าสัมบูรณ์คือ> 10

    คุณจะได้รับอาร์เรย์มิติ N หนึ่งมิติซึ่งเต็มไปด้วยตัวเลขสุ่ม ยกกำลังสองทุกองค์ประกอบที่สามของอาร์เรย์หากองค์ประกอบนั้นเป็นค่าลบ แสดงอาร์เรย์ที่แก้ไข

    สร้างโปรแกรมสำหรับคำนวณและพิมพ์ค่าของฟังก์ชัน Y = (sinx + 1) cos4x ค่าอาร์กิวเมนต์ที่จะระบุในอาร์เรย์ X ประกอบด้วย 10 องค์ประกอบ เขียนค่าของฟังก์ชันลงในอาร์เรย์ Y

    จากองค์ประกอบของอาร์เรย์ A ซึ่งประกอบด้วย 25 องค์ประกอบ สร้างอาร์เรย์ D ที่มีมิติเท่ากันตามกฎ: 10 องค์ประกอบแรกพบโดยสูตร Di = Ai + i ส่วนที่เหลือ - โดยสูตร Di = Ai- ผม.

ส่วน: วิทยาศาสตร์คอมพิวเตอร์

ธีม: อาร์เรย์สองมิติ การเติมอาร์เรย์สองมิติตามกฎที่กำหนด

เป้าหมาย:เพื่อหาทักษะในการทำงานกับองค์ประกอบของอาร์เรย์สองมิติ เรียนรู้วิธีเติมอาร์เรย์สองมิติตามกฎที่กำหนด เรียนรู้วิธีอนุมานความสัมพันธ์ระหว่างหมายเลขแถวและหมายเลขคอลัมน์ การพัฒนาความคิดเชิงตรรกะของนักเรียน

กระบวนการของบทเรียน

1. อัพเดทความรู้

อาร์เรย์ ตำแหน่งขององค์ประกอบที่มีดัชนีสองตัวอธิบายไว้ เรียกว่า สองมิติ โครงสร้างของอาร์เรย์ดังกล่าวสามารถแสดงด้วยเมทริกซ์สี่เหลี่ยม แต่ละองค์ประกอบของเมทริกซ์ถูกกำหนดโดยการระบุหมายเลขของแถวและคอลัมน์ หมายเลขของแถวคือ i และหมายเลขของคอลัมน์คือ j
พิจารณาเมทริกซ์ n * m A:

11 12 13 14
21 22 23 24
31 32 33 34

เมทริกซ์ 3 แถว 4 คอลัมน์ จำนวนแถว n = 3 จำนวนคอลัมน์ m = 4 แต่ละองค์ประกอบมีหมายเลขของตัวเอง ซึ่งประกอบด้วยตัวเลขสองตัว - หมายเลขบรรทัดที่องค์ประกอบนั้นตั้งอยู่ และหมายเลขคอลัมน์ ตัวอย่างเช่น a23 เป็นรายการในแถวที่สองและคอลัมน์ที่สาม
อาร์เรย์สองมิติในภาษา Turbo Pascal สามารถอธิบายได้หลายวิธี ในการอธิบายอาร์เรย์สองมิติ จำเป็นต้องกำหนดว่าองค์ประกอบประเภทใด และกำหนดหมายเลขอย่างไร (ดัชนีประเภทใดคือดัชนี) มีหลายวิธีในการอธิบายอาร์เรย์สองมิติ

ค่าคงที่ maxN = ...; (ค่าสูงสุดสำหรับจำนวนบรรทัด)
maxM = ...; (ค่าสูงสุดสำหรับจำนวนคอลัมน์)

1 วิธี

พิมพ์ Mas = อาร์เรย์ของ<тип элементов>; (อาร์เรย์หนึ่งมิติ)
ชนิด TMas = อาร์เรย์ของ Mas; (อาร์เรย์หนึ่งมิติที่มีองค์ประกอบเป็นอาร์เรย์หนึ่งมิติ)

2 ทาง

พิมพ์ TMas = อาร์เรย์ของอาร์เรย์ของ<тип элементов>;
(อาร์เรย์หนึ่งมิติที่มีองค์ประกอบเป็นอาร์เรย์หนึ่งมิติ)

3 ทาง

พิมพ์<имя типа>= อาร์เรย์ของ<тип элементов>; (อาร์เรย์สองมิติ)

การตั้งค่าถูกกำหนดให้กับวิธีที่สามในการอธิบายอาร์เรย์สองมิติ

ตัวอย่างเช่น:

ค่าคงที่ N = 3; ม = 4;
พิมพ์ TMas = อาร์เรย์ของจำนวนเต็ม; (อาร์เรย์สองมิติของจำนวนเต็ม)

การก่อตัวของอาร์เรย์สองมิติสามารถทำได้สี่วิธี: ป้อนข้อมูลจากแป้นพิมพ์ผ่านเครื่องกำเนิด ตัวเลขสุ่มตามกฎที่กำหนดหรือใช้ไฟล์

1) การสร้างอาร์เรย์สองมิติโดยใช้อินพุตคีย์บอร์ดและอัลกอริธึมสำหรับเอาต์พุตแบบบรรทัดต่อบรรทัดขององค์ประกอบเมทริกซ์

ค่าคงที่ N = 10; M = 10;
พิมพ์ Tmas = อาร์เรย์ของจำนวนเต็ม;
วาร์ A: Tmas; ผม, เจ: จำนวนเต็ม;
เริ่ม
(การป้อนองค์ประกอบเมทริกซ์)
สำหรับฉัน: = 1 ถึง N do
สำหรับ j: = 1 ถึง M do
อ่าน);
(ผลลัพธ์ขององค์ประกอบเมทริกซ์)
สำหรับฉัน: = 1 ถึง N เริ่ม
สำหรับ j: = 1 ถึง M do
เขียน (A: 4); (พิมพ์บรรทัดแรก)
Writeln (ตัวแบ่งบรรทัด)
จบ;
จบ.

2) ส่วนของโปรแกรมสำหรับสร้างอาร์เรย์สองมิติผ่านตัวสร้างตัวเลขสุ่ม

เริ่ม
สุ่ม; (กำลังเริ่มต้นตัวสร้างตัวเลขสุ่ม)
(การป้อนองค์ประกอบเมทริกซ์)
สำหรับฉัน: = 1 ถึง N do
สำหรับ j: = 1 ถึง M do
A: = สุ่ม (45) -22;

2. การเรียนรู้เนื้อหาใหม่ การเติมอาร์เรย์ตามกฎ

ลองพิจารณาโปรแกรมหลายส่วนสำหรับการเติมอาร์เรย์สองมิติตามกฎหมายบางประการ ในการทำเช่นนี้ คุณต้องได้รับกฎการเติม

1. กรอกอาร์เรย์ A ขนาด n * m ดังนี้ เช่น

1 2 3 4 5 6 7 8
16 15 14 13 12 11 10 9
17 18 19 20 21 22 23 24
32 31 30 29 28 27 26 25
33 34 35 36 37 38 39 40
48 47 46 45 44 43 42 41

อาร์เรย์ถูกเติมตามหลักการ "งู" กฎการเติม: หากหมายเลขบรรทัดเป็นเลขคี่ ดังนั้น A = (i-1) * m + j มิฉะนั้น A = i * m-j + 1

โปรแกรม M1A;

n, m, i, j: จำนวนเต็ม;
เริ่ม
readln (n, m);
สำหรับ i: = 1 ถึง n เริ่มต้น
สำหรับ j: = 1 ถึง m ทำ
เริ่ม
ถ้าฉัน mod 2 = 1 แล้ว
A = (i-1) * m + j
อื่น
A = i * m-j + 1;
เขียน (A: 3);
จบ;
เขียน;
จบ;
อ่าน;
จบ.

ยกตัวอย่างโปรแกรมสำหรับวิธีการเติมแบบอื่นตามกฎที่กำหนด:

โปรแกรม M1B;
var A: อาร์เรย์ของจำนวนเต็ม;
n, m, i, j: จำนวนเต็ม;
c: จำนวนเต็ม;
เริ่ม
readln (n, m);
ค: = 1;
สำหรับฉัน: = 1 ถึง n do
เริ่ม
สำหรับ j: = 1 ถึง m ทำ
เริ่ม
ตอบ: = ค;
ถ้า (i mod 2 = 0) และ (j<>ม.) แล้ว
ธ.ค. (ค)
อื่น
อิงค์ (c);
เขียน (A: 3);
จบ;
c: = c + m-1;
เขียน;
จบ;
อ่าน;
จบ.

2. เติมอาร์เรย์ A ตามหลักการต่อไปนี้:

1 0 2 0 3 0 4
0 5 0 6 0 7 0
8 0 9 0 10 0 11
0 12 0 13 0 14 0

โปรแกรม M2;
var A: อาร์เรย์ของจำนวนเต็ม;
n, m, i, j: จำนวนเต็ม;
c: จำนวนเต็ม;
เริ่ม
readln (n, m);
ค: = 0;
สำหรับฉัน: = 1 ถึง n do
เริ่ม
สำหรับ j: = 1 ถึง m ทำ
เริ่ม
ถ้า (i-1 + j) mod 2 = 0 แล้ว
A: = 0
อื่น
เริ่ม
อิงค์ (c);
ตอบ: = ค;
จบ;
เขียน (A: 5);
จบ;
เขียน;
จบ;
อ่าน;
จบ.

3. เติมอาร์เรย์ A ตามหลักการต่อไปนี้:

1 12 13 24 25 36
2 11 14 23 26 35
3 10 15 22 27 34
4 9 16 21 28 33
5 8 17 20 29 32
6 7 18 19 30 31

var A: อาร์เรย์ของจำนวนเต็ม;
n, m, i, j: จำนวนเต็ม;
c: จำนวนเต็ม;
เริ่ม
readln (n, m);
ค: = 1;
สำหรับ j: = 1 ถึง m ทำ
เริ่ม
สำหรับฉัน: = 1 ถึง n do
เริ่ม
ตอบ: = ค;
ถ้า (j mod 2 = 0) และ (i<>น) แล้ว
ธ.ค. (ค)
อื่น
อิงค์ (c);
จบ;
c: = c + n-1;
จบ;
สำหรับฉัน: = 1 ถึง n do
เริ่ม
สำหรับ j: = 1 ถึง m ทำ
เขียน (A: 5);
เขียน;
จบ;
อ่าน;
จบ.

4. เติมอาร์เรย์ A ตามหลักการต่อไปนี้:

1 2 3 4 5
2 3 4 5 1
3 4 5 1 2
4 5 1 2 3
5 1 2 3 4

var i, j, m, c, d: จำนวนเต็ม;

เริ่ม
ค: = 1;
readln (ม.);
สำหรับ j: = 1 ถึง m ทำ
เริ่ม
ผม: = ค;
ง: = 1;
ทำซ้ำ
ตอบ: = ง;
อิงค์ (i);
ถ้าฉัน> ม. แล้ว
ผม: = 1;
อิงค์ (d);
จนกระทั่ง i = c;
ธ.ค. (ค);
ถ้าค<= 0 then
c: = mc;
จบ;
สำหรับฉัน: = 1 ถึง m ทำ
เริ่ม
สำหรับ j: = 1 ถึง m ทำ
เขียน (A: 2);
เขียน;
จบ;
จบ.

5. เติมอาร์เรย์ A ตามหลักการต่อไปนี้:

1 0 0 0 1
0 1 0 1 0
0 0 1 0 0
0 1 0 1 0
1 0 0 0 1

var m, i, j: จำนวนเต็ม;
A: อาร์เรย์ของจำนวนเต็ม;
เริ่ม
readln (ม.);
สำหรับฉัน: = 1 ถึง m ทำ
เริ่ม
สำหรับ j: = 1 ถึง m ทำ
เริ่ม
ถ้า (i = j) หรือ (m-i + 1 = j) แล้ว
A: = 1
อื่น
ตอบ: = 0;
เขียน (A: 2);
จบ;
เขียน;
จบ;
จบ.

3. งานสำหรับโซลูชันอิสระ

6 5 4 3 2 1
7 8 9 10 11 12
18 17 16 15 14 13
19 20 21 22 23 24
30 29 28 27 26 25
31 32 33 34 35 36

36 25 24 13 12 1
35 26 23 14 11 2
34 27 22 15 10 3
33 28 21 16 9 4
32 29 20 17 8 5
31 30 19 18 7 6

0 1 1 1 0
1 0 1 0 1
1 1 0 1 1
1 0 1 0 1
0 1 1 1 0

4) กรอกอาร์เรย์ดังนี้:

31 32 33 34 35 36
25 26 27 28 29 30
19 20 21 22 23 24
13 14 15 16 17 18
7 8 9 10 11 12
1 2 3 4 5 6

5) กรอกอาร์เรย์ดังนี้:

31 25 19 13 7 1
32 26 20 14 8 2
33 27 21 15 9 3
34 28 22 16 10 4
35 29 23 17 11 5
36 30 24 18 12 6

การบ้าน:

1) กรอกอาร์เรย์ดังนี้:

6 7 18 19 30 31
5 8 17 20 29 32
4 9 16 21 28 33
3 10 15 22 27 34
2 11 14 23 26 35
1 12 13 24 25 36

2) กรอกอาร์เรย์ดังนี้:

31 32 33 34 35 36
30 29 28 27 26 25
19 20 21 22 23 24
18 17 16 15 14 13
7 8 9 10 11 12
6 5 4 3 2 1

3) กรอกอาร์เรย์ดังนี้:

0 1 1 1 0
1 0 1 0 1
1 1 0 1 1
1 0 1 0 1
0 1 1 1 0

เราจะเรียนรู้แนวคิดของอาร์เรย์ วิธีจัดระเบียบอาร์เรย์ในอัลกอริทึมและโปรแกรม วิธีเติมอาร์เรย์ ประเภทและขนาดของอาร์เรย์ เราเรียนรู้ที่จะแก้ปัญหาที่ง่ายที่สุด ปัญหาในการค้นหาองค์ประกอบที่ตรงตามเงื่อนไข

จุดประสงค์ของบทเรียน: เพื่อให้แนวคิดของอาร์เรย์, วิธีการจัดระเบียบอาร์เรย์ในอัลกอริธึมและโปรแกรม, วิธีการเติมอาร์เรย์, ประเภทและขนาดของอาร์เรย์, เรียนรู้วิธีการแก้ปัญหาอย่างง่าย, งานเพื่อค้นหาองค์ประกอบที่ตรงตามเงื่อนไข, แสดงวิธีแก้ปัญหา สำหรับการจัดเรียงอาร์เรย์

ระหว่างเรียน:

1. คำอธิบายของวัสดุใหม่:

เพื่อแก้ปัญหาการสะสมและประมวลผลข้อมูลในคอมพิวเตอร์ อาร์เรย์และลำดับของข้อมูลจึงมีบทบาทสำคัญในหน่วยความจำเข้าถึงโดยสุ่มหรือสื่อบันทึกข้อมูลแบบแม่เหล็ก

อาร์เรย์คือพื้นที่ของหน่วยความจำที่สามารถรองรับการรวบรวมข้อมูลบางประเภทได้

ในการกำหนดองค์ประกอบแต่ละรายการในอาร์เรย์ คุณต้องระบุดัชนี

คำอธิบายของอาร์เรย์:

  • ประเภท (การทำซ้ำของประเภทตัวแปร, การเปรียบเทียบกับอาร์เรย์: จริง, จำนวนเต็ม%, สัญลักษณ์ $, บูลีน)
  • ขนาดอาร์เรย์ (หนึ่งมิติ - เชิงเส้น สองมิติ - สี่เหลี่ยม ฯลฯ)

เนื่องจากชุดข้อมูลถูกจัดเก็บไว้ในอาร์เรย์ การประมวลผลจึงดำเนินการโดยใช้ลูป

alg"ตารางการคูณ"
แต่แรก
จาก K = 1 ก่อน 9 วงจร
จาก L = 1 ก่อน 9 วงจร
T = K * L
วงจร
วงจร
คอน

T- อาร์เรย์สองมิติ (วนซ้ำ)
L-form strings-inner loop
K-เปลี่ยนดัชนีของแถว

alg"ผลลัพธ์ของตารางสูตรคูณ"
แต่แรก
จาก K = 1 ก่อน 9 วงจร
จาก L = 1 ก่อน 9 วงจร
บทสรุป T
วัฏจักร
เอาท์พุต (บรรทัดใหม่)
วงจร
คอน

วงในจัดระเบียบผลลัพธ์ของเส้น
ภายนอก- สร้างตาราง (คอลัมน์)

วิธีเติมอาร์เรย์

  1. จากแป้นพิมพ์
  2. การเขียนข้อมูลที่เก็บไว้ใน MHD . ใหม่
  3. สูตร
  4. เครื่องกำเนิดตัวเลขสุ่ม
  5. ข้อมูล อ่าน

ตารางค่า

อาร์เรย์หนึ่งมิติสอดคล้องกับรายการ อาร์เรย์สองมิติสอดคล้องกับตาราง ก่อนเข้าโปรแกรมต้องบอกรถให้เข้าที่ก่อน

ติ่มซำ (ขนาด-ขนาด)

ติ่มซำ (8) ติ่มซำ (8, 15)

มิติข้อมูลเริ่มต้นจากศูนย์

Dim ถูกวางไว้ที่จุดเริ่มต้นของโปรแกรม

วิธีเติมอาร์เรย์

1.จากคีย์บอร์ด

สลัวเอ (3,4)
สำหรับฉัน = 1 ถึง 3
สำหรับ j = 1 ถึง 4
อินพุต A (I, J)
ต่อไป เจ ฉัน

2.สูตร

สลัวเอ (3)
สำหรับฉัน = 1 ถึง 3
A (I) = cos (I)
ต่อไปฉัน

3.เครื่องกำเนิดตัวเลขสุ่ม

สลัวบี (7)
สำหรับฉัน = 0 ถึง 7
A (I) = int (rnd (1) * 100 + 1)
ต่อไปฉัน

4.data อ่าน

สลัว A $ (4)
สำหรับฉัน = 1 ถึง 4
อ่าน A $ (ฉัน)
? A $ (ฉัน)
ต่อไปฉัน
ข้อมูล Lena, Olya, Katya, Kolya

d / s: บันทึกย่อ

เราสามารถเติมองค์ประกอบของอาร์เรย์หนึ่งมิติด้วยค่าได้: โดยการป้อนค่าจากแป้นพิมพ์ สุ่ม; ตามสูตร วิธีการระบุอาร์เรย์หนึ่งมิติ ลูปใช้เพื่อป้อนและส่งออกค่าตัวเลขของอาร์เรย์ ขั้นตอนใช้พารามิเตอร์โดยการอ้างอิง อาร์เรย์ Mssiv ของประเภทที่ระบุ และตัวแปรจำนวนเต็ม n รับผิดชอบจำนวนเซลล์อาร์เรย์ที่เติม การก่อตัวของอาร์เรย์หนึ่งมิติในลักษณะสุ่ม


แบ่งปันงานของคุณบนโซเชียลมีเดีย

หากงานนี้ไม่เหมาะกับคุณที่ด้านล่างของหน้า แสดงว่ามีรายการผลงานที่คล้ายคลึงกัน คุณยังสามารถใช้ปุ่มค้นหา


การกรอก.

เราสามารถเติมองค์ประกอบของอาร์เรย์หนึ่งมิติด้วยค่า:

โดยป้อนค่าจากแป้นพิมพ์

สุ่ม;

ตามสูตร.

วิธีการกำหนดอาร์เรย์หนึ่งมิติ

ลูปใช้เพื่อป้อนและส่งออกค่าอาร์เรย์ที่เป็นตัวเลข

พิจารณาขั้นตอนที่จะสร้างอาร์เรย์หนึ่งมิติในสองวิธี

1) สุ่ม

2) โดยการป้อนรายการจากแป้นพิมพ์

สมมติว่าเรากำลังทำงานกับอาร์เรย์ของจำนวนเต็ม สมมติว่าเพียงพอสำหรับเราที่จะมีจำนวนองค์ประกอบสูงสุดเท่ากับ 50 ขั้นตอนใช้พารามิเตอร์โดยการอ้างอิง อาร์เรย์ Massiv ของประเภทที่กำหนดและตัวแปรจำนวนเต็ม NS ซึ่งรับผิดชอบจำนวนเซลล์อาร์เรย์ที่เติม นอกจากนี้เรายังต้องการตัวแปรท้องถิ่นผม ซึ่งจะทำหน้าที่เป็นพารามิเตอร์ลูปและใช้เพื่อระบุตัวเลขที่กำหนดตำแหน่งขององค์ประกอบในอาร์เรย์

1. การสร้างอาร์เรย์หนึ่งมิติแบบสุ่ม มาตั้งค่าของแต่ละองค์ประกอบด้วยผลลัพธ์ของฟังก์ชันสุ่ม Random (10) การเติมอาร์เรย์ถูกกำหนดด้วยวัฏจักรสำหรับคำสั่งในเนื้อความซึ่งมีการคำนวณตัวเลขสุ่มโดยฟังก์ชัน Random (10) หลังจากนั้นค่านี้จะถูกกำหนดให้กับตัวถัดไปผม องค์ประกอบที่ th ของอาร์เรย์

ขั้นตอน InsertMas1 (Var massiv: mas; n: integer);

ฉัน: จำนวนเต็ม;

เริ่ม

สุ่ม;

สำหรับฉัน: = 1 ถึง n do

Massiv [i]: = สุ่ม (10);

จบ;

2. การสร้างอาร์เรย์หนึ่งมิติโดยการป้อนองค์ประกอบจากแป้นพิมพ์

ขั้นตอน InsertMas2 (Var massiv: mas; n: integer);

ฉัน: จำนวนเต็ม;

เริ่ม

สำหรับฉัน: = 1 ถึง n do

เริ่ม

เขียน ("Enter", i , "- องค์ประกอบของอาร์เรย์");

readln (massiv [i]);

จบ;

จบ;

อาร์เรย์จะแสดงบนหน้าจอดังนี้:

ขั้นตอน PrintMas (massiv: mas; n: integer);

ฉัน: จำนวนเต็ม;

เริ่ม

สำหรับผม: = 1 ถึง n

เขียน (Massiv [i]: 5);

จบ.

ต้องจำไว้ว่าในทั้งสามกรณีเราไม่สามารถทำได้โดยไม่ต้องจัดวงจร

ค้นหาองค์ประกอบสูงสุด (ขั้นต่ำ) ของอาร์เรย์

สมมติว่าเรามีอาร์เรย์หนึ่งมิติ:

20,-2, 4, 10,7, 21,-12, 0, 4, 17.

ลองคิดดูว่าจะต้องดำเนินการใดหากเราจำเป็นต้องหาองค์ประกอบสูงสุด โดยธรรมชาติแล้ว การดำเนินการเปรียบเทียบ เราไม่คิดเกี่ยวกับความจริงที่ว่าเรามักจะเปรียบเทียบคู่ "วิ่งผ่าน" องค์ประกอบทั้งหมดของอาร์เรย์ด้วยสายตาของเรา เราจะสร้างอัลกอริธึมเพื่อค้นหาองค์ประกอบสูงสุด (ต่ำสุด) เพื่อเปรียบเทียบตัวเลขคู่หนึ่ง ทำซ้ำการดำเนินการเปรียบเทียบตามจำนวนครั้งที่ต้องการ

ดังนั้น เราต้องตอบคำถามสองข้อ:

1) ตัวเลขใดที่รวมอยู่ในคู่ที่ประกอบขึ้นเป็นการดำเนินการของความสัมพันธ์

2) จำเป็นต้องทำการเปรียบเทียบซ้ำกี่ครั้ง มาแนะนำตัวแปรเพิ่มเติมชื่อ max จะเป็นหนึ่งในตัวเลข ตัวเลขที่สองคือองค์ประกอบถัดไปของอาร์เรย์ เพื่อดำเนินการเปรียบเทียบครั้งแรก จำเป็นต้องกำหนดค่าเริ่มต้นให้กับตัวแปร max มีสองตัวเลือกที่นี่:

1) กำหนดองค์ประกอบแรกของอาร์เรย์ให้กับตัวแปรสูงสุด

2) กำหนดตัวเลขที่น้อยกว่าองค์ประกอบทั้งหมดของอาร์เรย์อย่างเห็นได้ชัด

อาร์เรย์ประกอบด้วยข้อมูลเกี่ยวกับจำนวนนักเรียนในแต่ละกลุ่มของปี 1 กำหนดกลุ่มที่มีจำนวนนักเรียนสูงสุด สมมติว่าหมายเลขกลุ่มสอดคล้องกับหมายเลขลำดับของตัวเลขในอาร์เรย์ (เราพิจารณาว่ากลุ่มดังกล่าวเป็นเพียงกลุ่มเดียว)

กล่าวอีกนัยหนึ่ง เราต้องหาองค์ประกอบสูงสุดและจำนวนของมัน

โปรแกรม max_num;

ชนิด mas = อาร์เรย์ [1 .. 10] ของไบต์;

var a: mas;

num, i: ไบต์;

สูงสุด: ไบต์;

เริ่ม

(เติมบล็อค)

สำหรับฉัน: = l ถึง 7 do

readln (a [i]);

(ค้นหาค่าสูงสุดและจำนวน)

สูงสุด: == 0;

(ป้อนตัวเลขที่น้อยที่สุดสำหรับอาร์เรย์นี้)

สำหรับฉัน: = l ถึง n do

ถ้า a [i]> max ก็เริ่มต้น

num: = ผม;

สูงสุด: = a [i]

จบ;

writeln ("จำนวนนักเรียนสูงสุด =", สูงสุด);

writeln ("หมายเลขกลุ่ม =", num);

จบ.

3) ค้นหาองค์ประกอบขั้นต่ำระหว่างองค์ประกอบคู่ของอาร์เรย์

คำอธิบาย: เราไม่สามารถกำหนดองค์ประกอบแรกของอาร์เรย์ให้กับตัวแปร min ตั้งแต่ มันอาจจะแปลก ดังนั้นเราต้องเลือกตัวเลขจำนวนมากสำหรับข้อมูลประเภทนี้

ถ้าเราประกาศ องค์ประกอบของอาร์เรย์จำนวนเต็ม แล้วดังนั้น หมายเลขจะเป็น +32767

โปรแกรม min_even;

a: อาร์เรย์ของจำนวนเต็ม;

ผม: จำนวนเต็ม;

ขั้นต่ำ: จำนวนเต็ม;

เริ่ม

สำหรับฉัน: = l ถึง 10 ทำ beein

writeln ("ป้อนองค์ประกอบอาร์เรย์ถัดไป");

readln (a [i]);

จบ;

ขั้นต่ำ: = 32767;

สำหรับฉัน: = l ถึง 10 do

ถ้า (a [i]

ถ้า min = 32767 แล้ว writeln ("ไม่มีองค์ประกอบแม้แต่ในอาร์เรย์") อย่างอื่นจะเขียน ("องค์ประกอบขั้นต่ำในองค์ประกอบคู่ของอาร์เรย์ =", min)

จบ.

โปรดทราบ: คุณต้องตรวจสอบว่าค่าของตัวแปร min มีการเปลี่ยนแปลงเพราะ แม้แต่องค์ประกอบก็อาจไม่เคยมี

งานที่คล้ายกันอื่น ๆ ที่คุณอาจสนใจ Wshm>

8729. คำจำกัดความและวิธีการกำหนดเครื่องจักรขั้นสุดท้าย ปัญหาการสังเคราะห์ เครื่องจักรเบื้องต้น 189.1 KB
ความหมายและวิธีการระบุเครื่องสถานะจำกัด คำจำกัดความและวิธีการกำหนดเครื่องจักรขั้นสุดท้าย คำจำกัดความของเครื่องจักรของรัฐ วิธีการระบุเครื่องสถานะ
3552. การบ้านวิชาเคมีเป็นรายบุคคล การบ้านวิชาเคมี 475.47 KB
แนวปฏิบัติรวมถึงการบ้านเป็นรายบุคคล หัวข้อต่อไปนี้: ประเภทของสารประกอบอนินทรีย์ เทียบเท่าเคมี โครงสร้างอะตอม พันธะเคมี อุณหพลศาสตร์เคมี จลนพลศาสตร์เคมี ความเข้มข้นของสารละลาย ปฏิกิริยาไอออนิกและไฮโดรไลซิสของเกลือ ปฏิกิริยารีดอกซ์ กระบวนการไฟฟ้าเคมี คุณสมบัติของโลหะ
12127. แร่ธาตุเชิงกลยุทธ์ (PGM, Ni, Co, Cr, Cu) ของเทือกเขาพื้นฐาน Paleoproterozoic ชั้นของโล่ Fennoscandian ทางตะวันออกเฉียงเหนือ 17.77 KB
คำอธิบายสั้นการพัฒนา. ข้อดีของการพัฒนาเมื่อเปรียบเทียบกับแอนะล็อก แง่มุมที่สำคัญของการพัฒนาคือความสามารถในการลดผลกระทบด้านลบของเทคโนโลยีต่อสิ่งแวดล้อมโดยลดการใช้อุปกรณ์ขุดและขุดเจาะขนาดใหญ่อย่างมากในขั้นตอนการลาดตระเวนและการสำรวจ พื้นที่ใช้งานเชิงพาณิชย์ของการพัฒนา
9554. คณิตศาสตร์ คู่มือระเบียบวิธีและงาน 268.34 KB
สาขาวิชา "คณิตศาสตร์" ได้รับการออกแบบมาเพื่อใช้ข้อกำหนดของรัฐสำหรับเนื้อหาขั้นต่ำและระดับการฝึกอบรมของผู้สำเร็จการศึกษาอาชีวศึกษาระดับมัธยมศึกษา
18129. งานสร้างสรรค์เป็นวิธีการพัฒนาจินตนาการ 91.06 KB
การศึกษาข้างต้นสะท้อนให้เห็นถึงความหลากหลายของแนวคิดทางวิทยาศาสตร์และแนวทางปฏิบัติในการจัดกิจกรรมสร้างสรรค์ของนักเรียนในกระบวนการศึกษา อย่างไรก็ตาม แง่มุมของการจัดหางานสร้างสรรค์อย่างมีจุดมุ่งหมายให้กับเด็กนักเรียนที่อายุน้อยกว่าในกระบวนการเรียนรู้เพื่อพัฒนาจินตนาการนั้นยังไม่มี ได้รับการศึกษาเพียงพอ ขึ้นอยู่กับความขัดแย้งที่ระบุในการวิเคราะห์วรรณกรรมจิตวิทยาและการสอนปรัชญาตลอดจนผลจากการศึกษาประสบการณ์การทำงาน โรงเรียนประถมปัญหาของการวิจัยได้ถูกกำหนดขึ้นซึ่งประกอบด้วยในทฤษฎี ...
19517. การพัฒนาข้อกำหนดทางเทคนิคสำหรับระบบอัตโนมัติของร้าน Bukva 155.63 KB
ขายสินค้าได้ตามความต้องการของลูกค้า กล่าวคือ การให้คำปรึกษาของผู้เชี่ยวชาญ ดังนั้นจึงจำเป็นที่ร้านค้าจะได้รับข้อมูลเกี่ยวกับสถานะของตลาดและให้ข้อมูลกับตลาดเกี่ยวกับสินค้าและบริการที่มีอยู่ ปฏิสัมพันธ์กับสื่อประกอบด้วยการให้ข้อมูลเกี่ยวกับตัวเองแก่ร้านค้าสำหรับสินค้าและบริการ - ต่อมาโฆษณาสำหรับร้านทำแล็ปท็อปจะเกิดขึ้นจากข้อมูลนี้ซึ่งตลาดสินค้าและบริการรับรู้ การขยายประเภทสินค้า ข้อดีของร้านค้า: ประสบการณ์ที่ยอดเยี่ยม ...
3548. การบ้านวิชาเคมีและแนวทางปฏิบัติ 229.61 KB
การบ้านเหล่านี้ออกแบบมาสำหรับงานที่เป็นระบบของนักศึกษาสาขาวิชาเคมีโดยเฉพาะตามหลักสูตร การมอบหมายงานให้สำเร็จจะช่วยพัฒนาทักษะของนักเรียนในการทำงานอิสระ
19091. การวิเคราะห์คำอธิบายทางเทคนิคและข้อกำหนดทางเทคนิคขั้นพื้นฐานสำหรับโครงสร้างที่พัฒนาขึ้น 911.42 KB
ห้องเซิร์ฟเวอร์ (ห้องเซิร์ฟเวอร์หรือห้องเซิร์ฟเวอร์) - ห้องเทคโนโลยีเฉพาะพร้อมเงื่อนไขที่สร้างขึ้นและบำรุงรักษาเป็นพิเศษสำหรับการจัดวางและการทำงานของเซิร์ฟเวอร์และอุปกรณ์โทรคมนาคม อุณหภูมิที่อนุญาตในห้องเซิร์ฟเวอร์ต้องเป็น
1763. การใช้งานในรูปแบบของคลาสโดยใช้คอนเทนเนอร์ของ Standard Template Library (STL) ของภาษา C ++ เพื่อเก็บข้อมูล 190.6 KB
ไวยากรณ์ของ C ++ นั้นสืบทอดมาจากภาษา C หนึ่งในหลักการออกแบบคือการรักษาความเข้ากันได้กับ C อย่างไรก็ตาม C ++ ไม่ได้เป็นแค่ชุดของ C อย่างเคร่งครัด หลายโปรแกรมที่แปลได้สำเร็จพอๆ กันเป็นคอมไพเลอร์ C ...
10124. การพัฒนาข้อกำหนดทางเทคนิคสำหรับการให้บริการโฆษณา, บริการทำความสะอาด, ความปลอดภัย, พนักงาน 31.88 KB
การพัฒนาข้อกำหนดทางเทคนิคสำหรับบริการโฆษณา: ข้อบังคับทางกฎหมายของบริการโฆษณา การพัฒนาข้อกำหนดทางเทคนิคสำหรับบริการทำความสะอาด: แนวคิดพื้นฐานและประเภทของบริการ การพัฒนาข้อกำหนดทางเทคนิคสำหรับบริการรักษาความปลอดภัย: ข้อบังคับทางกฎหมาย การพัฒนาข้อกำหนดทางเทคนิคสำหรับบริการจัดหาพนักงาน: แนวคิดพื้นฐาน