برنامج بالباسكال فيه مزايا الألوان

يوسف الضادي

  • Hero Member
  • *****
    • مشاركة: 5333
    • مشاهدة الملف الشخصي
    • http://www.sou9dz.com
    • البريد الالكتروني
في: حزيران 04, 2009, 09:17:40 مسائاً
السلام عليكم

لقد صنعت للتو برنامج بسيط يمكنك من خلاله فهم كيفية عمل الالوان في الباسكال

صورة التنفيذ

سورس البرنامج
program color;
uses crt;

var
i,:integer;
         
h:array [1..100]of string[20] ;

begin
writeln 
(           '------------------------------');
writeln (           '     MONTADA AL MOHANDES      ');
writeln (           '        WWW.INGDZ.COM         ');
writeln (           '------------------------------');
write (' 3adad alwan alti trido an traha :   ');
readln (n);

for 
i:=1 to n do
begin
readln
;
write ('               name ',i,'  : ');
readln (h[i] );
 
TextColor(i);
TextBackground(Black);
end;
readln;
             
end.



           
end;read(i);  end.

حمله جاهز من المرفقات




mimik

  • Hero Member
  • *****
    • مشاركة: 1607
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
رد #1 في: حزيران 04, 2009, 09:46:51 مسائاً
شكرا كنت ابحث عن الطريقة بارك الله فيك


شذى الروح

  • Hero Member
  • *****
    • مشاركة: 3501
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
رد #2 في: حزيران 05, 2009, 10:12:06 صباحاً
شكرا لك
بارك الله فيك منك نستفيد دائما


ياسمين91

  • Sr. Member
  • ****
    • مشاركة: 330
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
رد #3 في: حزيران 08, 2009, 10:14:44 صباحاً
بارك الله فيك
قداه وأنا نحوس على ce programme و heureusement لقيتو قبل les controles


salwa5

  • Sr. Member
  • ****
    • مشاركة: 400
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
رد #4 في: حزيران 08, 2009, 10:42:44 صباحاً
بارك لله فيك وجزاك لله خيرا