بسم الله الرحمن الرحيم والصلاة والسلام على أشرف المرسلين وبعد، في هذا الموضوع سنتطرق بإدن الله، إلى كيفية كتابة برنامج بلغة الباسكال لحل معادلة من الدرجة الأولى من خلال العناصر التالية:
تعريف :
2.الشكل العادي لحل المعادلة من الدرجة الأولى :
لنفرض أن لدينا ثلاثة اعداد A ، B ، X كل متساوية من الشكل AX+B=0 هي معادلة من الدرجة الأولى.حل المعادلة يعني إيجاد قيمة المتغير X عندما تكون قيمتي Aو B معلومتان ، إن حل معادلة من الدرجة الأولى من الشكل
`A.x+B=0`
عندما يكون `A ne 0` هو كالتالي :
`X=-B/A`
3.لغة البرمجة المستعملة :
هذا الكود صالح في كل نسخ لغات البرمجة التي تستعمل ObjectPascal
4.المكونات المستعملة
لكن كيف نكتب برنامج بلغة الباسكال وما هي التصريحات والعناصر اللازمة لكتابة هذا البرنامج:
هناك طرق مختلفة وعديدة حسب الحاجة وحسب موقع الكود في البرنامج وهذه واحدة من الطرق المتبعة :
أولا : يلزمنا ثلاثة عناصر TLabel وعنصرين TEdit وعنصر TButton
5.كود باسكال:
ثانيا : نكتب الكود التالي في الحدث OnClick للعنصر TButton
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
procedure Button1Click(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);var
x, A, B: real;begin
X:=0;
if TRYSTRTOFloat(EDIT1.Text, A) then
if TRYSTRTOFloat(EDIT2.Text, B) then
if َA<> 0 then
X := -B / A;
Label3.Caption := Format('X=%f', [X]);end;end.
6.تحميل البرنامج:
اصيغة الملف : لملف بصغة وينرار يحتوي على كود بلغة الباسكال .
حجم الملف : 1 ko
رابط التحميل : تحميل الملف
