My Scripts

صفحة اخصصها لوضع بعض السكريبتات و الاكواد البسيطة التي اقوم بكاتبتها  من حين لآخر بمختلف اللغات من روبي و بايثون و باسكال و ﻻزاروس  فلربما تكون مفيدة للبعض ، اتمنى ان تستفيدو منها!


سكريبت بسيط مكتوب بلغة الباسكال لايجاد القاسم المشترك الاكبر لعديدن صحيحين

program code1;
uses wincrt;
var
a,b,r:integer;
begin
writeln(‘**********entré a,b pour calculer PGCD’**********’);
write(‘enter a :’);
read(a);
write(‘enter b :’);
read(b);
if a>b then
begin
repeat
r:= a mod b ;
a:= b ;
b:= r ;
until r=0;
write  (‘pgcd de a,b = ‘,a);
end
else
begin
repeat
r:= b mod a ;
b:= a ;
a:= r ;
until r=0;
write  (‘pgcd de a,b = ‘,b);
end;
end.

و يمكنك تحميله جاهزا من هنا بصيغة exe مضغوط بالوينرار يشتغل على الويندوز.
http://ge.tt/8R0mNs4?c

سكريبت بلغة الروبي يقوم بحل معادلات من الدرجة الثانية

puts ‘*********Program solution of equations of the second degree***********’
puts ‘*****************By Ahmed Youcef Sennoun “DKR1N6″*****************’
puts ‘aX²+bX+c=0’
a = print(‘entre a :’)
a = gets.to_f
b = print(‘entre b :’)
b = gets.to_f
c = print(‘entre c :’)
c = gets.to_f
delta=(b*b)-(4*a*c)
if a==0 then
x=(-c/b)
puts ‘bx+c=0’
print ‘solution “X”= ‘, x
elsif delta>0 then
print ‘delta = ‘,delta
puts
x1= (-b-(Math.sqrt(delta)))/(2*a)
print ‘solution “X1″= ‘,x1
puts
x2= (-b+(Math.sqrt(delta)))/(2*a)
print ‘solution “X2″= ‘,x2
puts
elsif delta==0 then
print ‘delta = ‘,delta
puts
x0=(-b)/(2*a)
print ‘solution “X0″= ‘,x0
elsif delta<0 then
puts ‘no solution’
end

تحميل السكريبت جاهز

http://ge.tt/8krOQs4


Advertisements
  1. لا توجد تعليقات حتى الأن.
  1. No trackbacks yet.

اترك رد

إملأ الحقول أدناه بالمعلومات المناسبة أو إضغط على إحدى الأيقونات لتسجيل الدخول:

WordPress.com Logo

أنت تعلق بإستخدام حساب WordPress.com. تسجيل خروج   / تغيير )

صورة تويتر

أنت تعلق بإستخدام حساب Twitter. تسجيل خروج   / تغيير )

Facebook photo

أنت تعلق بإستخدام حساب Facebook. تسجيل خروج   / تغيير )

Google+ photo

أنت تعلق بإستخدام حساب Google+. تسجيل خروج   / تغيير )

Connecting to %s

%d مدونون معجبون بهذه: