العودة   منتديات داماس > انظمة التشغيل والاوفيس > ورشة عمل اسطوانات تجميعات البرامج وشروحات ودروس برنامج الاوتوبلاي AutoPlay Media Studio

إضافة رد
10-07-2017, 05:58 PM
Ahmed Hatem Ahmed
عضوية الشرف
رقم العضوية: 620600
تاريخ التسجيل: Jun 2015
المشاركات: 1,411
تلقى دعوات الى: 1179 موضوع
إعجاب: 269
تلقى 1,636 إعجاب على 445 مشاركة
 
خوارزميات السؤال السادس [Lua AutoPlay Media Studio]
السؤال السادس من أسئلة الخوارزميات يتعلق بطبع الإشكال كيف يمكن طبع
هذا الشكل الموجود بالصورة خوارزميات السؤال السادس [Lua AutoPlay Media Studio]


خوارزميات السؤال السادس [Lua AutoPlay Media Studio]

بالتوفيق للجميع خوارزميات السؤال السادس [Lua AutoPlay Media Studio]




10-07-2017, 06:48 PM
سعد الدين
المسؤول الفني
رقم العضوية: 3
تاريخ التسجيل: Mar 2003
الإقامة: Türkiye
المشاركات: 46,077
تلقى دعوات الى: 6071 موضوع
إعجاب: 10,915
تلقى 15,521 إعجاب على 5,194 مشاركة
 
ماشاء عنك مشرفنا العزيز مواضيع بغاية الفائدة والمتعة

الله ينور عليك وان شاء الله يستفيدوا الاخوة الاعضاء من الموضوع والتفاعل الجيد به.

10-07-2017, 07:15 PM
ثامر أبو بلقيس
عضو مشارك
رقم العضوية: 932114
تاريخ التسجيل: Mar 2017
المشاركات: 32
تلقى دعوات الى: 0 موضوع
إعجاب: 0
تلقى 4 إعجاب على 4 مشاركة
 
k="\r\n".."===========".."\r\n"
table1=""
for =1,do
rn String.Repeat("  ",(12-(i*2))/2)
g1String.Repeat("*",(i*1))
table1=table1.."\r\n"..rn..g1.." | "..g1..rn
end
Dialog
.Message("Notice",table1..k..string.reverse (table1)); 
أو
Input.SetProperties("Input1", {Alignment=1,Multiline=true});
x,y,1,6,1
for =1,do
for 
=x,y,do
rn String.Repeat(" ",(12-(i*2)))
g1String.Repeat("*",(i*2))
Input.SetText("Input1",Input.GetText("Input1")..rn..g1..rn.."\r\n" );
end;x,y,6,1,-1;end 

10-07-2017, 07:20 PM
ثامر أبو بلقيس
عضو مشارك
رقم العضوية: 932114
تاريخ التسجيل: Mar 2017
المشاركات: 32
تلقى دعوات الى: 0 موضوع
إعجاب: 0
تلقى 4 إعجاب على 4 مشاركة
 
المشاركة الأصلية كتبت بواسطة سعد الدين 
ماشاء عنك مشرفنا العزيز مواضيع بغاية الفائدة والمتعة

الله ينور عليك وان شاء الله يستفيدوا الاخوة الاعضاء من الموضوع والتفاعل الجيد به.
نقرأ حلولكم أستاذ لتزداد الأستفادة موفق

10-07-2017, 09:34 PM
عبد الهادي بهاب
VIP
رقم العضوية: 447434
تاريخ التسجيل: Jan 2014
المشاركات: 723
تلقى دعوات الى: 28 موضوع
إعجاب: 178
تلقى 440 إعجاب على 247 مشاركة
 
ماشاء الله استاذ ثامر
للاسف


10-07-2017, 11:23 PM
Ahmed Hatem Ahmed
عضوية الشرف
رقم العضوية: 620600
تاريخ التسجيل: Jun 2015
المشاركات: 1,411
تلقى دعوات الى: 1179 موضوع
إعجاب: 269
تلقى 1,636 إعجاب على 445 مشاركة
 
المشاركة الأصلية كتبت بواسطة ثامر أبو بلقيس 
k="\r\n".."===========".."\r\n"
table1=""
for =1,do
rn String.Repeat("  ",(12-(i*2))/2)
g1String.Repeat("*",(i*1))
table1=table1.."\r\n"..rn..g1.." | "..g1..rn
end
Dialog
.Message("Notice",table1..k..string.reverse (table1)); 
أو
Input.SetProperties("Input1", {Alignment=1,Multiline=true});
x,y,1,6,1
for =1,do
for 
=x,y,do
rn String.Repeat(" ",(12-(i*2)))
g1String.Repeat("*",(i*2))
Input.SetText("Input1",Input.GetText("Input1")..rn..g1..rn.."\r\n" );
end;x,y,6,1,-1;end 
والله إجابات مختصرة جميلة لكن للاسف ليست نفس الشكل بالصورة

10-07-2017, 11:34 PM
ثامر أبو بلقيس
عضو مشارك
رقم العضوية: 932114
تاريخ التسجيل: Mar 2017
المشاركات: 32
تلقى دعوات الى: 0 موضوع
إعجاب: 0
تلقى 4 إعجاب على 4 مشاركة
 
و بتعديل بسيط ربما يكون ما تريد
Input.SetProperties("Input1", {Alignment=1,Multiline=true});
nor "=========="
x,y,1,6,1
for =1,do
for 
=x,y,do
rn String.Repeat(" ",(12-(i*2)))
g1String.Repeat("*",(i))
Input.SetText("Input1",Input.GetText("Input1")..rn..g1.."|"..g1..rn.."\r\n" );
end;x,y,6,1,-1;
Input.SetText("Input1",Input.GetText("Input1")..nor.."\r\n" );
nor =''
end 

10-07-2017, 11:46 PM
Ahmed Hatem Ahmed
عضوية الشرف
رقم العضوية: 620600
تاريخ التسجيل: Jun 2015
المشاركات: 1,411
تلقى دعوات الى: 1179 موضوع
إعجاب: 269
تلقى 1,636 إعجاب على 445 مشاركة
 
المشاركة الأصلية كتبت بواسطة ثامر أبو بلقيس 
و بتعديل بسيط ربما يكون ما تريد
Input.SetProperties("Input1", {Alignment=1,Multiline=true});
nor "=========="
x,y,1,6,1
for =1,do
for 
=x,y,do
rn String.Repeat(" ",(12-(i*2)))
g1String.Repeat("*",(i))
Input.SetText("Input1",Input.GetText("Input1")..rn..g1.."|"..g1..rn.."\r\n" );
end;x,y,6,1,-1;
Input.SetText("Input1",Input.GetText("Input1")..nor.."\r\n" );
nor =''
end 
وهل هذا يشبة هذا !!



خلاص لاتتعب نفسك حلك الاخير هو الاقرب لذا يعتبر إجابة صحيحة

10-07-2017, 11:48 PM
david123
عضو فعال
رقم العضوية: 395578
تاريخ التسجيل: Jan 2012
الإقامة: ألاردن
المشاركات: 183
تلقى دعوات الى: 1 موضوع
إعجاب: 179
تلقى 21 إعجاب على 16 مشاركة
 
جزاك الله خيرا

10-07-2017, 11:49 PM
أسيرالشوق
الوسـام الماسـي
رقم العضوية: 46842
تاريخ التسجيل: Jul 2006
المشاركات: 17,048
تلقى دعوات الى: 861 موضوع
إعجاب: 977
تلقى 2,921 إعجاب على 2,612 مشاركة
 
بارك الله فيك وجزاك خيرا
شكراً لك على الطرح الرائع

10-07-2017, 11:51 PM
ثامر أبو بلقيس
عضو مشارك
رقم العضوية: 932114
تاريخ التسجيل: Mar 2017
المشاركات: 32
تلقى دعوات الى: 0 موضوع
إعجاب: 0
تلقى 4 إعجاب على 4 مشاركة
 
وش من تعب قضية علامات
Input.SetProperties("Input1", {Multiline=true,Alignment=1});
nor "============"
k1="/"
k3="\\"
x,y,1,6,1
for =1,do
for 
=x,y,do
rn String.Repeat(" ",(12-(i*2)))
g1String.Repeat("*",(i))
Input.SetText("Input1",Input.GetText("Input1")..rn..k1..g1.."|"..g1..k3..rn.."\r\n" );
end;x,y,6,1,-1;
Input.SetText("Input1",Input.GetText("Input1")..nor.."\r\n" );
k1='\\'
k3="/"
nor =''
end 

10-07-2017, 11:57 PM
Ahmed Hatem Ahmed
عضوية الشرف
رقم العضوية: 620600
تاريخ التسجيل: Jun 2015
المشاركات: 1,411
تلقى دعوات الى: 1179 موضوع
إعجاب: 269
تلقى 1,636 إعجاب على 445 مشاركة
 
المشاركة الأصلية كتبت بواسطة ثامر أبو بلقيس 
وش من تعب قضية علامات
Input.SetProperties("Input1", {Multiline=true,Alignment=1});
nor "============"
k1="/"
k3="\\"
x,y,1,6,1
for =1,do
for 
=x,y,do
rn String.Repeat(" ",(12-(i*2)))
g1String.Repeat("*",(i))
Input.SetText("Input1",Input.GetText("Input1")..rn..k1..g1.."|"..g1..k3..rn.."\r\n" );
end;x,y,6,1,-1;
Input.SetText("Input1",Input.GetText("Input1")..nor.."\r\n" );
k1='\\'
k3="/"
nor =''
end 
مافي شيء يتقال غير انك انسان رائع
سيتم اضافة الحلول الآن (لا تنظر الي حلي )

11-07-2017, 12:03 AM
ثامر أبو بلقيس
عضو مشارك
رقم العضوية: 932114
تاريخ التسجيل: Mar 2017
المشاركات: 32
تلقى دعوات الى: 0 موضوع
إعجاب: 0
تلقى 4 إعجاب على 4 مشاركة
 
مشكـــور جدا

فقط وددنا مشاركات كثيرة لبقية الأعضاء حتى تتلاقح الأفكار و نستفيد من بعض أكثر

مع تمديد المهلة ليشارك أكبر عدد ممكن بهكذا مهلة تأخذ مسار التحديات البرمجية
و لا أضن أنها الغاية من وراء مثل هاته المواضيع الجميلة

موفقين

11-07-2017, 12:13 AM
Ahmed Hatem Ahmed
عضوية الشرف
رقم العضوية: 620600
تاريخ التسجيل: Jun 2015
المشاركات: 1,411
تلقى دعوات الى: 1179 موضوع
إعجاب: 269
تلقى 1,636 إعجاب على 445 مشاركة
 
المشاركة الأصلية كتبت بواسطة ثامر أبو بلقيس 
مشكـــور جدا

فقط وددنا مشاركات كثيرة لبقية الأعضاء حتى تتلاقح الأفكار و نستفيد من بعض أكثر

مع تمديد المهلة ليشارك أكبر عدد ممكن بهكذا مهلة تأخذ مسار التحديات البرمجية
و لا أضن أنها الغاية من وراء مثل هاته المواضيع الجميلة

موفقين
جميل سيتم إطالة المدة لكن لا اعتقد ان احدا يدخل التحدي

11-07-2017, 04:13 PM
عبد الهادي بهاب
VIP
رقم العضوية: 447434
تاريخ التسجيل: Jan 2014
المشاركات: 723
تلقى دعوات الى: 28 موضوع
إعجاب: 178
تلقى 440 إعجاب على 247 مشاركة
 
المشاركة الأصلية كتبت بواسطة Ahmed Hatem Ahmed 
جميل سيتم إطالة المدة لكن لا اعتقد ان احدا يدخل التحدي
هل هذا يفي يالغرض ؟



الملف المفتوح :


https://www.damasgate.com/vb/attachm...1&d=1499778793


خوارزميات - السؤال السادس [Lua - AutoPlay Media Studio]



Powered by vBulletin® Version
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
The owner and operator of the site is not responsible for the availability of, or any content provided.
Topics that are written in the site reflect the opinion of the author.
جميع ما يُطرح من مواضيع ومشاركات تعبر عن رأي كاتبها ولا تعبر عن رأي مالك الموقع أو الإدارة بأي حال من الأحوال.