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