السلام عليكم شباب
كيف الحال؟ أتمنى بألف خير
ننتقل الى محتوى الدرس السابع عشر
في الدرس السابق رأينا الجداول أحادية البعد
في هذا الدرس سنرى الجداول متعددة الأبعاد
كالعادة الدرس فيديو (صوت و صورة)
إظهار الرسائل ذات التسميات تعلم البرمجة. إظهار كافة الرسائل
إظهار الرسائل ذات التسميات تعلم البرمجة. إظهار كافة الرسائل
الدرس السادس عشر : الجداول
السلام عليكم شباب
كيف الحال؟ أتمنى بخير
اذا بدون اطالة ننتقل الى الدرس السادس عشر من الدورة الذي يتحدث عن الجداول
كل شيء مشروح بالدرس (صوت و صورة) لذا لا داعي أن أكتب أي شيء هنا
و أي استفسار لا تترددوا
الدرس الخامس عشر : تصحيح بعض الأفكار
أهلا بكم شباب
كيفكم أتمنى بخير
حل التطبيق السابق
كيفكم أتمنى بخير
حل التطبيق السابق
program repeat_loop;
uses wincrt;
var a, i: integer;
begin
i:=10;
repeat
begin
a:=a+i;
i:=i+1;
end;
until i>14;
write(a);
end.
الدرس الرابع عشر : أوامر التحكم ( العقدة repeat )
السلام عليكم
كيفكم شباب
أتمنى بخير
حل التطبيق السابق
program while_loop;
uses wincrt;
var a, i: integer;
begin
i:=10;
while (i <= 14) do
begin
a:=a+i;
i:=i+1;
end;
write(a);
end.
الدرس الثالث عشر : أوامر التحكم ( العقدة while )
أهلا شباب
كيفكم
انشاء الله بخير
حل التطبيق السابق
program forloop;
uses wincrt;
var a, i: integer;
begin
for i:=10 to 14 do
a:=a+i;
write(a);
end.
درس اليوم هوعن العقدة while
الدرس الثاني عشر : أوامر التحكم ( العقدة for )
أهلا بكم شباب
كيفكم
أتمنى بخير
حل التطبيق السابق
program truefalse;
uses wincrt;
var a, b: string;
begin
readln (a);
readln (b);
if ((a = 'true') and (b = 'true')) then
write ('true')
else
if (((a = 'true') and (b = 'false')) or ((a = 'false') and (b = 'true'))) then
write ('false')
else
write ('false');
end.
درس اليوم هو عودة الى أوامر التحكم و عقدة for
كل شيء مشروح بالدرس
صوت و صورة
