منتدى الإعلام الآلي يشمل دروس، تمارين وحلول

إضافة رد
قديم 28-02-2013, 11:14 AM
  #1
djwy
 
La spécialité: Informatique
جامعة أحمد دراية أدرار
تاريخ التسجيل: 22-10-2011
المشاركات: 47
djwy
04 مساعدة في برنامج بلغة الفورترون


السلام عليكم ورحمة الله تعالى وبركاته ,,,,أما بعد


فلقد طلب منا كتابة برنامج بلغة الفورترون يقوم بجمع عددين كبيرين يصل طولهما إلى 50 رقم بمعنى
111111111111111111111111111111 1111111111.....+11111111111... ...
مع العلم أني لأول مرة أكتب برنامج بلغة الفورترون (برامج بسيطة جدا ..مبتدأ)
وللبرنامج فكرت بأن أدخل الأعداد الطويلة على شكل نصي بمعنى Character(LEN=50) :: a
ومن ثم يضع المستخدم رقمه في a=11111111111111 ....a
بعدها أحول هذا الرقم بواسطة جدول code ASCII b
وهكذا أفعل مع الآخر فم أجمع بواسطة Boucle DO
وها هي المحاولة في البرنامج .........في المحاولة LEN =2 لكن البرنامج لم يعمل كما ينبغي ولقلة أو لإنعدام خبرتي في الفورترون لم أفهم جيدا المشكلة


PROGRAM TP
character(LEN=2)::Nombre1
character(LEN=2)::Nombre2
character(LEN=3)::Nombre3
integer n1, n2, res1, res2

C
read(*,*) nombre1
read(*,*) nombre2
res2 = 0

do i = 2, 1, -1
n1 = ichar(Nombre1(i:i)) -48
n2 = ichar(Nombre2(i:i))-48

res1 = n1 + n2 + res2
res2 = res1/10

(res1 = mod(res1,10
(nombre3(i:i) = char(res1 + 48
enddo

(nombre3(1:1) = char(res2 + 48
print*, "voila"
write(*,*) nombre3


END PROGRAM TP


djwy غير متواجد حالياً  
رد مع اقتباس
قديم 28-02-2013, 06:50 PM
  #2
djwy
 
La spécialité: Informatique
جامعة أحمد دراية أدرار
تاريخ التسجيل: 22-10-2011
المشاركات: 47
djwy
افتراضي رد: مساعدة في برنامج بلغة الفورترون

ألا يوجد بعض الخبراء في الفورترون
djwy غير متواجد حالياً  
رد مع اقتباس
إضافة رد

الكلمات الدلالية (Tags)
مساعدة, الفورترون, بلغة, برنامج

أدوات الموضوع
انواع عرض الموضوع

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة

الانتقال السريع

المواضيع المتشابهه
الموضوع كاتب الموضوع المنتدى مشاركات آخر مشاركة
ابتسامة بلغة الضاد ابن الحاج جلول فتحي الضحك و الترفيه 1 23-06-2012 08:38 PM
السمراء بلغة أخرى azizsalem12 أقلام المنتدى وحصرّياته 1 23-04-2011 01:40 PM
طلب مساعدة حول الملفات النصية بلغة السي خويلد قسم الإستفسارات و الطّلبات 0 02-03-2010 10:26 PM
كتب عن البرمجة بلغة ديلفي sara82002dz لغة الدالفي delphi 2 27-03-2009 01:33 PM
برنامج بلادي الجزائر بالصور ... بلغة دلفي achraf.mouni لغة الدالفي delphi 6 12-01-2009 06:27 PM


الساعة الآن 03:06 AM.