Forum > Arabic

شاركـ ببرنامج

<< < (3/5) > >>

pascal111:
للمبتدئين ،برنامج يستخدم دالة القيم العشوائيّة random.


--- Code: Pascal  [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} ---program project1; {$mode objfpc}{$H+} uses   {$IFDEF UNIX}{$IFDEF UseCThreads}  cthreads,  {$ENDIF}{$ENDIF}  Classes, Dialogs, sysutils, forms, LCLType, interfaces  { you can add units after this }; type   coin = (Head=1, Tail);  var   c:coin;  i:integer;  s:string; begin   randomize;   i:=random(2)+1;  c:=coin(i);  str(c,s);   showmessage(s);  end.  

pascal111:
برنامج لجمع رقمين بطريقة فلسفيّة تُطبّق تناول الأخطاء.


--- Code: Pascal  [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} ---program project1; {$mode objfpc}{$H+} uses   {$IFDEF UNIX}{$IFDEF UseCThreads}  cthreads,  {$ENDIF}{$ENDIF}  Classes, Dialogs, sysutils, forms, LCLType, interfaces  { you can add units after this };   var   s:string;  x, y:real;  ok_value:(indeedOk, notOk); begin   repeat     s:=inputbox('X value', 'Enter x value:','');     ok_value:=indeedOk;     try        finally          try            x:=strtofloat(s);          except           on exception do           begin           showmessage('You entred invalid numeric value!');           ok_value:=notOk;           end;        end;      end;   until ok_value=indeedOk;   repeat     s:=inputbox('Y value', 'Enter y value:','');     ok_value:=indeedOk;     try        finally          try            y:=strtofloat(s);          except           on exception do           begin           showmessage('You entred invalid numeric value!');           ok_value:=notOk;           end;        end;      end;   until ok_value=indeedOk;   showmessage('x + y = '+ floattostr(x+y)); end.  

pascal111:
تعديل للكود السابق بحذف ما لا يلزم من تعليمات.


--- Code: Pascal  [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} ---program project1; {$mode objfpc}{$H+} uses   {$IFDEF UNIX}{$IFDEF UseCThreads}  cthreads,  {$ENDIF}{$ENDIF}  Classes, Dialogs, sysutils, forms, LCLType, interfaces  { you can add units after this };   var   s:string;  x, y:real;  ok_value:(indeedOk, notOk); begin   repeat     s:=inputbox('X value', 'Enter x value:','');     ok_value:=indeedOk;         try            x:=strtofloat(s);          except           on exception do           begin           showmessage('You entred invalid numeric value!');           ok_value:=notOk;           end;        end;    until ok_value=indeedOk;   repeat     s:=inputbox('Y value', 'Enter y value:','');     ok_value:=indeedOk;          try            y:=strtofloat(s);          except           on exception do           begin           showmessage('You entred invalid numeric value!');           ok_value:=notOk;           end;        end;    until ok_value=indeedOk;   showmessage('x + y = '+ floattostr(x+y)); end.  

pascal111:
تعديل الكود السابق بحسب مجهود الزميل @avk ويبدو أنّ هذه النسخة الأفضل من البرنامج.


--- Code: Pascal  [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} ---    program project1;    {$mode objfpc}{$H+}    uses      {$IFDEF UNIX}{$IFDEF UseCThreads}      cthreads,      {$ENDIF}{$ENDIF}      Classes, Dialogs, sysutils, forms, LCLType, interfaces      { you can add units after this };    var      s: string;      x, y: real;    begin      repeat         s := InputBox('X value', 'Enter X value:','');         try           x := StrToFloat(s);           break;         except           ShowMessage('You entered an invalid numeric value!');         end;      until False;      repeat         s := InputBox('Y value', 'Enter Y value:','');         try           y := StrToFloat(s);           break;         except           ShowMessage('You entered an invalid numeric value!');         end;      until False;      ShowMessage('x + y = ' + FloatToStr(x + y));    end.      

Zaher:
لا يخطر على بالي شي حاليا
لكن كانت لدي هنالك فكرة نقل كود للغة BASIC من السي للباسكال، مهتمه تنفيذ مشاريع لغة بيسك بسيطة
الصراحة اني وجدته بسيط جدا و جميل فأحببت انت اتركه لاحدهم لكي يتعلم منه
قم بالمحاولة بتحويله
https://gist.github.com/pmachapman/661f0fff9814231fde48

Navigation

[0] Message Index

[#] Next page

[*] Previous page