منتديات التقني عالم التجارة
SPTechs منتديات
 اسم المستخدم حفظ بيانات الدخول 
كلمة المرور
  منتديات SPTechs   > لغات برمجة
 thread

اريد التحقق من شيء

 

  الإثنين 18 يونيو 2018 م الموافق ‏04/‏شوال/‏1439 هـ الساعة 11:51

 


الرد على الموضوع عدد القراءات : 1290   

معلومات :   البلد : سورية
  عدد المشاركات : 3
profssorbashar


[ الأحد 16 يوليو 2006 ]
 
 
 

اريد التحقق من شيء



ارجو منكم التحقق من البرنامج التالي و هو لرسم شجرة على t-pascal7


واصلاح الاخطاء لي



File Edit Search Run Compile Debug Tools Options Window Help
╔═[■]══════════════════════════════ TREE.PAS ════════════════════════════1═[↕]═╗
║PROGRAM DRAW TREE;
║USES gu;
║PROCEDURE TREE(NG:INTEGER;L,T:REAL);
║VAR O,N,A,PX,PY:REAL;
║PROCEDURE HANI(OX,OY:REAL;NR:INTEGER;L,M:REAL);
║VAR PX1,PX2,PY1,PY2:REAL;
║BEGIN
║IF ((NR<>O)AND(L>O))THEN
║BEGIN
║║PX1:=OX; PY1:=OY;
║PX2:=OX+L*COS(M);
║PY2:=OY+L*SIN(M);
║NR:=NR;║guLINE(PX1,PY1,PX1,PY2);
║HANI(PX2,PY2,NR,1-1*0.45,M+T);
║HANI(PX2,PY2,NR,1-1*0.15,M);
║HANI(PX2,PY2,NR,1-1*0.45,M-T);
║END;
║END;
║BEGIN


║A:=PI/N;
║PX:=0.5; PY:=0; ▒
║HANI(PX,PY,NG,L,A) ▒
║END; ▒
║BMAZGRAPH; ▒
║TREE(8,0.2,PI/8); ▒
║READLN; ▒
║CLOSEGRAPH;


END.



#1  

معلومات :  البلد : سورية
  عدد المشاركات : 301
albashawi

 
[ الأحد 16 يوليو 2006 ]
 
 
 

غير واضح

ارفقه بملف نصي او مضغزط لدراسته



#2  

معلومات :  البلد : سورية
  عدد المشاركات : 3
profssorbashar

 
[ الخميس 10 أغسطس 2006 ]
 
 
 

PROGRAM DRAW TREE; 
USES gu;
PROCEDURE TREE(NG:INTEGER;L,T:REAL);
VAR O,N,A,PX,PY:REAL;
PROCEDURE HANI(OX,OY:REAL;NR:INTEGER;L,M:REAL);
VAR PX1,PX2,PY1,PY2:REAL; 
BEGIN
IF ((NR<>O)AND(L>O))THEN
BEGIN
PX1:=OX; PY1:=OY;
PX2:=OX+L*COS(M);
PY2:=OY+L*SIN(M);
NR:=NR;║guLINE(PX1,PY1,PX1,PY2);
HANI(PX2,PY2,NR,1-1*0.45,M+T); 
HANI(PX2,PY2,NR,1-1*0.15,M); 
HANI(PX2,PY2,NR,1-1*0.45,M-T); 
END;
END;

BEGIN 

A:=PI/N;                                                                     
PX:=0.5; PY:=0;                                                             

HANI(PX,PY,NG,L,A)                                                           

END;                                                                        

BMAZGRAPH;                                                                   

TREE(8,0.2,PI/8);                                                            

READLN;                                                                      

CLOSEGRAPH;

بعتقد هيك صار اوضح  



#3  

معلومات :  البلد : إختــر دولة
  عدد المشاركات : 1
gassir000

 
[ الإثنين 11 يناير 2010 ]
 
 
 
اريد التحقق من هذا البرنامج بلغة سي بلس بلس
أحدهما لحساب التفاضل العددي
و الآخر التكامل العددي
#include
#include

{
float f(x)
return(2*x);
intmain()
{
float sum =0;
a=0,b=1,h steps=100;
float h=(b-a)/2 ;
for (int i =0,i<=h, i)
{
sum=sum f(a ih);
}
float =h*sum;
cout<<"i="< getch();
return o;
}




#include
#include
{
float f,(float x);
return (x*x);
{
intmain ( )
{
float h;
cout<<"input h" and xo ;
cin>>h>>xo;
float df = f(xo h) - f(xo)/h;
cout<<"df="< gftch ( );
retourn o;
}
وشكرا


اضافة رد على الموضوع




  منتديات SPTechs : مشاركات شبيهة .  لموضوع : اريد التحقق من شيء

   .   الى محبي برنامج شاهد منزلك Google Earth اخيرا الشرح بالصور
   .   شاهد اي مكان من على سطح الكرة الارضية وانت جالس في بيتك
   .   احدث ترددات القنوات الفضائية
   .   صور مضحكة اتمنى ان تنال اعجابكم
   .   قصة جميلة جدا باللغة الانجليزية مع الترجمة لها
   .   الان أسرار حرامي سيارات سان اندرياس كامله
   .   بنت عمرها 15 سنه بس صايعه..قصه
   .   لارسال رسائل للموبايل مجاناً
   .   معاني اسماء البنات حسب علم النفس..
   .   ثيمات للكمبيوتر.. روعه جداا


  | اريد ان احمل برنامج الياهو  |  


اسم المستخدم                        كلمة المرور

حفظ معلومات الاشتراك

# اريد التحقق من شيء

register
 مستخدم جديد