(03-08-2019, 06:51 AM)onexite كتب :

PHP كود :

var n: string ;
begin
  write('Enter Your Name : ') ;
  readln(n) ;
  writeln('=========================') ;
  Writeln('Hello ',n) ;
  readln ;
end. 


(03-08-2019, 09:45 AM)merouane كتب : حسب ما تستعمل للبرمجة (FreePascel, TurboPascal أو دلفي)

للانتقال بين سطور وأعمدة شاشة terminal (الكونسول) تستعمل الوحدة CRT (تحتاج لإضافتها في دلفي، عكس lazarus ( freePascal ) فإنها موجودة)
عبر الإجراء GotoXY.



Lazarus (أو FreePAscal)

PHP كود :

program project1;

uses Crt;

var   n: string;
begin
  writeln('Enter Your Name : ');
  writeln('=========================');
  GotoXY(20, 1);
  readln(n);
  GotoXY(1, 3);
  Writeln('Hello ', n);
  readln;
end. 


أما دلفي استعمل الوحدة Crt32.pas تجدها في الأنترنت (أرفقت واحدة) - لاحظ أن الوحدة Crt32.pas في نفس مجلد المشروع.

PHP كود :

program Project1;

{$APPTYPE CONSOLE}
{$R *.res}

uses
  System.SysUtils, Crt32 in 'Crt32.pas';

var n: string;

begin
  try
    writeln('Enter Your Name : ');
    writeln('=========================');
    GotoXY(20, 1);
    readln(n);
    GotoXY(1, 3);
    writeln('Hello ', n);
    readln;
  except
    on E: Exception do
      writeln(E.ClassName, ': ', E.Message);
  end;
end. 


---

جرب هذا

PHP كود :

    writeln('Enter Your Name : ');
    textColor(blue);
    writeln('=========================');
    GotoXY(20, 1);
    textColor(Red);
    readln(n);
    GotoXY(1, 3);
    textColor(white);
    write('Hello ');
    textColor(LightCyan);
    write(n);
    readln; 


(03-08-2019, 08:08 PM)ELARAPY كتب : لي سؤال لو سمحت هل هذه المعلومة قديمة عندك ام انك بحثت ووجدتها ثم قمت بالرد ؟