การใช้งาน Array ในภาษา Delphi Object Pascal แบบง่าย ๆ ด้วยตัวอย่าง CODE พร้อมอธิบาย
Array หรือ อาร์เรย์ในภาษา Delphi Object Pascal คือ โครงสร้างข้อมูลที่สำคัญและพื้นฐานสำหรับการเก็บสะสมข้อมูลชนิดเดียวกันภายในตัวแปรเดียว ทำให้สามารถจัดการข้อมูลเหล่านั้นได้โดยใช้ดัชนี (Index) ซึ่งเป็นตัวเลขเพื่ออ้างอิงตำแหน่งในอาร์เรย์ ด้วยคุณสมบัติที่เป็นหลักการทั่วไปของโปรแกรมมิ่ง การเรียนรู้เรื่องอาร์เรย์จึงเป็นกุญแจสำคัญที่จะเปิดประตูสู่โลกแห่งการแก้ปัญหาโดยใช้คอมพิวเตอร์ได้อย่างมีประสิทธิภาพ
program DelphiArrayExample;
uses SysUtils;
var
numbers: array[1..5] of Integer;
i: Integer;
begin
// ใส่ข้อมูลลงในอาร์เรย์
numbers[1] := 10;
numbers[2] := 20;
numbers[3] := 30;
numbers[4] := 40;
numbers[5] := 50;
// อ่านข้อมูลจากอาร์เรย์และพิมพ์ออกมา
for i := 1 to 5 do
WriteLn('Element at index ', i, ': ', numbers[i]);
end.
คำอธิบาย: โปรแกรมนี้จะสร้างอาร์เรย์ที่เรียกว่า `numbers` สามารถเก็บเลขจำนวนเต็มได้ 5 ตัว ตั้งแต่ index 1 จนถึง 5 จากนั้นจะวนลูปเพื่อกำหนดค่าและพิมพ์ข้อความที่แสดงค่าในอาร์เรย์ออกมา
program DelphiArrayInitExample;
uses SysUtils;
var
daysOfWeek: array[1..7] of String = (
'Sunday', 'Monday', 'Tuesday', 'Wednesday', 'Thursday', 'Friday', 'Saturday');
i: Integer;
begin
// พิมพ์ชื่อวันในสัปดาห์ออกมา
for i := 1 to 7 do
WriteLn('Day ', i, ': ', daysOfWeek[i]);
end.
คำอธิบาย: โปรแกรมนี้จะเริ่มต้นอาร์เรย์ `daysOfWeek` ที่มีสตริงของชื่อวันในสัปดาห์ โดยใช้วงเล็บและคอมม่าเพื่อแยกข้อความที่เป็นสมาชิกของอาร์เรย์ จากนั้นพิมพ์ออกมาในรูปแบบวันที่ตามด้วยชื่อวัน
program DelphiArrayFunctionExample;
uses SysUtils;
var
squares: array[1..10] of Integer;
i: Integer;
function CalculateSquare(number: Integer): Integer;
begin
Result := number * number;
end;
begin
// คำนวณกำลังสองและเก็บในอาร์เรย์
for i := 1 to 10 do
squares[i] := CalculateSquare(i);
// พิมพ์ค่ากำลังสอง
for i := 1 to 10 do
WriteLn(i, ' squared is ', squares[i]);
end.
คำอธิบาย: ที่นี่เราใช้ฟังก์ชันชื่อ `CalculateSquare` เพื่อคำนวณค่ากำลังสองของตัวเลข 1 ถึง 10 ฟังก์ชันนี้จะถูกเรียกใช้ในลูปเพื่อการกำหนดค่าให้กับอาร์เรย์ `squares`.
หมายเหตุ: ข้อมูลในบทความนี้อาจจะผิด โปรดตรวจสอบความถูกต้องของบทความอีกครั้งหนึ่ง บทความนี้ไม่สามารถนำไปใช้อ้างอิงใด ๆ ได้ ทาง EPT ไม่ขอยืนยันความถูกต้อง และไม่ขอรับผิดชอบต่อความเสียหายใดที่เกิดจากบทความชุดนี้ทั้งทางทรัพย์สิน ร่างกาย หรือจิตใจของผู้อ่านและผู้เกี่ยวข้อง
Tag ที่น่าสนใจ: array delphi object_pascal programming index data_structure loop initialization function example code use_case real_world efficient_programming
หากมีข้อผิดพลาด/ต้องการพูดคุยเพิ่มเติมเกี่ยวกับบทความนี้ กรุณาแจ้งที่ http://m.me/Expert.Programming.Tutor
085-350-7540 (DTAC)
084-88-00-255 (AIS)
026-111-618
หรือทาง EMAIL: NTPRINTF@GMAIL.COM
Copyright (c) 2013 expert-programming-tutor.com. All rights reserved. | 085-350-7540 | 084-88-00-255 | ntprintf@gmail.com