تسمح لك لغة البرمجة Turbo Pascal برسم أشكال مختلفة على الشاشة بيانيًا. يمكن إنشاء أي كائن رسومي باستخدام النقاط والخطوط والأقواس. يستخدم باسكال وضع رسومات نقطية بدقة شاشة 640 × 480. يتكون الرسم من ضبط إحداثيات نقطتي البداية والنهاية للكائن ليتم عرضها على الإجراءات الرسومية. يتم أيضًا تعيين لون الكائن وسمك الخطوط ونمطها كمعلمات لإجراءات الرسوم. للرسم باستخدام برنامج ، تحتاج إلى توصيل وحدة رسومات باسكال.
ضروري
بيئة برمجة Turbo Pascal
تعليمات
الخطوة 1
تفكيك كائن الرسم المحدد إلى العناصر المكونة له. حدد الخطوط والأقواس والدوائر والمستطيلات والنقاط الفردية. هذه هي الأشكال التي يمكن رسمها باستخدام إجراءات Turbo Pascal.
الخطوة 2
في بداية رمز البرنامج ، قم بتوصيل وحدة الرسومات. للقيام بذلك ، اكتب سطرًا مثل هذا: يستخدم الرسم البياني. بعد ذلك ، أنشئ متغيرات عدد صحيح لتهيئة وضع الرسومات: var gdet، gm: صحيح.
الخطوه 3
في جسم البرنامج ، بعد الكلمة الأساسية start ، قم بتهيئة المتغيرات ، مع تخصيص قيمة صفرية لأحدها ، والثانية قيمة الاكتشاف. بعد ذلك ، أشر إلى بداية وضع الرسم البياني ، أدخل سطرًا من النموذج: initgraph (gdet ، gm ، ''). امسح جهاز العرض: cleardevice.
الخطوة 4
عيّن لون الخلفية للرسم ولون خط الكائنات المراد رسمها. استخدم الإجراءين SetBkColor (أبيض) و SetColor (8) لهذا الغرض. يشار إلى اللون الذي سيتم تعيينه بين قوسين. في المجموع ، يستخدم باسكال 16 لونًا ، ويتم تحديد كل منها إما برقم أو بكلمة من جدول ألوان خاص.
الخطوة الخامسة
تخيل شاشة غراتيكول مع المحور السيني من اليسار إلى اليمين والمحور الصادي من أعلى إلى أسفل. في أصل نظام الإحداثيات هذا ، في الزاوية اليسرى العليا من الشاشة ، يوجد الإحداثي (0 ، 0). احسب إحداثيات الموضع المطلوب لأول كائن رسومي. حدد جميع إحداثيات رسم الأشكال في هذا النظام المحدد.
الخطوة 6
ارسم خطًا باستخدام خط الإجراء (x ، y ، x1 ، y1) ، حيث تمثل الإحداثيات x ، y نقطة بداية الخط ، و x1 ، y1 هي نهايته. قم بتغيير سمك الخط أو نوعه إذا لزم الأمر. للقيام بذلك ، استخدم الإجراء SetLineStyle (0 ، 0 ، NormWidth). يمكن للمعلمة الأولى من الإجراء تغيير الخط بجعله شرطة أو خطًا منقطًا - قم بتغيير هذا الرقم إلى 1 أو 2. تحدد المعلمة الثالثة سمك الخطوط. بشكل افتراضي ، يتم دائمًا تعيين المعلمة NormWidth - الخطوط الرفيعة ، للخطوط السميكة ، يتم تعيين ThickWidth. سيتم رسم نوع الخط الذي تم تغييره بعد استدعاء هذا الإجراء.
الخطوة 7
ضع نقطة على الشاشة باستخدام إجراء PutPixel (x ، y ، color) ، هنا x و y هما أيضًا إحداثيات النقطة ، واللون هو لونها. قبل رسم شكل مغلق ، يمكنك ضبط تعبئته. للقيام بذلك ، قم باستدعاء الإجراء SetFillStyle (EmptyFill، 0) ، حيث تحدد المعلمة الأولى التعبئة الصلبة للشكل ، وتحدد الثانية لون التعبئة.
الخطوة 8
يتم رسم شكل مستطيل باستخدام إجراء المستطيل (x ، y ، x2 ، y2) - تحدد الإحداثيات الزاوية اليسرى العلوية والسفلية اليمنى للشكل. لرسم دائرة ، اكتب خط الدائرة (س ، ص ، ص) ، حيث س ، ص ، ص هي إحداثيات المركز ونصف قطر الدائرة ، أيضًا بالبكسل. يعد رسم القطع الناقص أكثر صعوبة ، حيث يتم استخدام العديد من المعلمات لهذا: Ellipse (x ، y ، BegA ، EndA ، RX ، RY). هنا x ، y هو نفس مركز القطع الناقص ، وتشير BegA و EndA إلى الزاوية التي يبدأ عندها القوس البيضاوي وينتهي. تحدد المتغيرات RX و RY نصف قطر القطع الناقص على محوري x و y على التوالي.
الخطوة 9
إذا كان لديك شكل معين ، وهو أسهل رسمًا في مقاطع منفصلة ، فاستخدم إجراءات MoveTo و LineTo لهذا الغرض. أولاً ، انقل المؤشر الحالي إلى النقطة التي تريدها: MoveTo (x ، y). ثم ارسم خطًا منه إلى النقطة التالية LineTo (x1 ، y1) وارسم مرة أخرى خطًا مستقيمًا LineTo (x2 ، y2) وهكذا حتى تحصل على الشكل الأصلي.
الخطوة 10
في نهاية الرسم في كود البرنامج ، أغلق وضع الرسومات بالسطر: كلوسجراف. قم بإنهاء نص البرنامج ، كالعادة ، بنهاية الكلمة. الآن يمكن تجميع الكود وتشغيله للتنفيذ.
