جوجه مهندسان كامپيوتر(نياز به كمك بزرگان دارند...پاسكال)

ــــــلام
عرض شود حقير فقير سراپا تقصير نيازمنده به يك فقره ! سورس ويروس ميباشم !
هر ويروس با هر خرابكاري اي بود ! مهم نيس
فقط سورس با اطلاعات كافي ارسال شود ! متشكرم
منتظرم



.

نقل قول:

---

نوشته شده توسط zeynal

ــــــلام
عرض شود حقير فقير سراپا تقصير نيازمنده به يك فقره ! سورس ويروس ميباشم !
هر ويروس با هر خرابكاري اي بود ! مهم نيس
فقط سورس با اطلاعات كافي ارسال شود ! متشكرم
منتظرم



.

---

با سلام
آقا زينل اينجا فقط برنامه هاي اسلامي و كمكي نوشته مي شود
شما آدرس را شتباه اومدي
ولي اگه خواستي بهت آدرس مي دم

این یه روش دیگه برای حذف صفرهای عدد ورودی بدون استفاده از آرایه کاراکتری:

کد:

---

program myprog;
var
 num,x,length,n,temp,sum:integer;
function pow(m:integer):integer;
var
 i,res:integer;
begin
 res:=1;
 for i:=1 to m do
  res:=res *10;
 pow:=res;
end;

begin
 write('Enter number:');
 readln(num);
 x:=num;
 length:=0;
 while(num<>0)do
 begin
  num := num div 10;
  length:=length+1;
 end;

 sum:=0;
 n:=Length;
 while(x<>0)do
 begin
  temp:=x mod 10;
  x  :=x div 10;
  if(temp<>0)then
  begin
    sum:=sum+(temp*pow(length-n));
    n:=n-1;
  end;
 end;
 writeln('<*> Result is : ',sum);
 readln;
end.

---

Admiral از شما بسيار ممنون و سپاسگذارم ....
اميدوارم باز هم شاهد لطف شما باشم

دوست عزيز zeynal همان طور كه titan خان عرض نمودند اين تاپيك براي كمك است ولي ما كه نمي گذاريم كسي دست خالي بره.... اگه بازم خواستي به صورت خصوصي بهت مي دم ... ;)

و در اخر ealiya جون اولا عمرا انشات به گرد پام برسه .. :puke:
دويما به روي چشم يه فكري واسه برنامه مدتم مي كنيم (... من و بقيه بچه ها اگه عشقمون كشيد.. ;) :blink: )

سلام خدمت همه ......
ealiya جون برنامه ي مدي كه خواسته بودي واست گذاشتم اما زحمت درست كردنش با خودت (...اگه قد داد (عقلتو ميگم) ... اگه هم نداد خودم درستشو مي ذارم (... البته بعدا....)
البته اقا ealiya من نمي دونستم مدي كه مي خواستي مد آماري بوده يا نه ولي اين يه مد معمولي (...البته آماريش رو بلد نبودم ;) ...)

مد

کد:

---

CONST
    MAXARY=10;
VAR
  ARYX:ARRAY [1..MAXARY] OF INTEGER;
  I,J,TEMP ,MOD1,MOD2,CountMod1,CountMod2,CountMod3:INTEGER;
   
 
begin
    WRITELN('>> Enter ',MAXARY,' number <<');
    WRITELN;
    FOR I:=1 TO MAXARY DO
        READLN(ARYX[I]);

                      (*------------- SORT -----------*)
    FOR I:=1 TO MAXARY-1 DO
        FOR J:=I+1 TO MAXARY DO
            IF ARYX[I]>ARYX[J] THEN BEGIN
                TEMP:=ARYX[i];
                ARYX[i]:=ARYX[j];
                ARYX[j]:=TEMP;
            END;
                 
                        (*------------- SHOW -----------*)
        WRITELN;
    WRITELN;WRITE(' The sort array is :');
    FOR I:=1 TO MAXARY DO WRITE(' ' ,ARYX[I]); 
                        (*------------- MOD -----------*)
   
 TEMP:=ARYX[1];
    FOR I:=1 TO MAXARY DO Begin
        J:=0;
        WHILE (ARYX[I]=TEMP) AND (I<>MAXARY) DO BEGIN
                        I:=I+1;
                        J:=J+1;
        END; { WHILE }
        IF J>COUNTMOD1 THEN BEGIN
                    COUNTMOD1:=J;
                    MOD1:=TEMP;
        END;
        TEMP:=ARYX[I];
    END;              { FOR }
   
   
        WRITELN(' MOD = ',MOD1,',  The number of apear : ',COUNTMOD1) ;
   
  Readln;
end

---

قربونتون صدرا

سلام به همگي...
يه برنامه ماشين حساب دارم كه در اجراش مشكل دارم مي خواستم واسم حلش كنيد
دستتون درد نكنه

کد:

---

uses crt;
var x,y:integer;
ch:char;
begin
clrscr;
write('please enter number: ');
readln(x);
write('please enter operator (*,/,+,-) : ');
ch:=readkey;
writeln(ch);
write('please enter second number: ');
readln(y);
case ch of
'*':writeln(x*y);
'/':writeln(x/y);
'+':writeln(x+y);
'-':writeln(x-y);
end;
readkey;
end.

---

سلام ....
اقا صدرا ....
اولا سلام
دويما خيلي خودتو بزرگ گرفتي حالا من يه چيزي گفتم جوگير نشو ... كي گفته كه انشاء تو تميز ه..( خودم گفته بودم ;) )
تا يكي ازت تعريف مي كنه هوش از سرت مي پره... :biggrin: :laughing: :tongue: ;)
سيوما خيلي ممنون كه عشقتون كشيد...
چارما شما بر چه اساسي به من گفتين آقا ؟ (... يعني من پسرم ...)
پنجما برنامه رو كه مي ذاري درستشو بذار ديگه ...( ... لطفا .... خواهشا... جون مادرت :happy: )

خدايي يه سوال...
چي جوريه هنوزممممم دارند با پاسكال كار مي كنند
بابا ديگه قديمي شد..
تموم شد
تركيد پاسكال
مرد
ولش كنيد بد بخت رو

نقل قول:

---

خدايي يه سوال...
چي جوريه هنوزممممم دارند با پاسكال كار مي كنند
بابا ديگه قديمي شد..
تموم شد
تركيد پاسكال
مرد
ولش كنيد بد بخت رو

---

پاسکال یک زبان آکادمیکه و برای آموزش دانشجویان کامپیوتر در اغلب دانشگاه های ایران استفاده میشه.

درسته الان عصر زبانهای ویژوال و به خصوص دات نته، ولی برای کارهای آموزشی و یادگیری پیاده سازی الگوریتم هنوز پاسکال یکی از بهترین انتخاب هاست !

نقل قول:

---

سلام به همگي...
يه برنامه ماشين حساب دارم كه در اجراش مشكل دارم مي خواستم واسم حلش كنيد
دستتون درد نكنه

---

برنامه شما تقریباً درسته. فقط نام برنامه رو نزاشتین( مثلاً Program ProgName;)

مشکل شما دقیقاً چیه ؟!

فکر کنم موقع اجرا با خطای Division By zero مواجه میشین، درسته؟!

اگه اینطوره با CRT مشکل دارین و باید فایل فیکس کننده این رو از اینترنت دانلود و نصب کنید.