آرشیو(قبل از مرتب سازی در تیر 91)
تبلیغات
آفرینش

تهران سازان

جملات کاربران:
برخی از محصولات فروشگاه نواندیشان بهترین مدیر، مسئول و کاربر انجمن در مردادماه
آرشیو(قبل از مرتب سازی در تیر 91)طرح توجیهی کویرنوردی یزد آرشیو(قبل از مرتب سازی در تیر 91)نقشه کد کامل تهران به صورت قطعه بندی شده آرشیو(قبل از مرتب سازی در تیر 91)مجموعه کامل آموزش Solidworks آرشیو(قبل از مرتب سازی در تیر 91) آرشیو(قبل از مرتب سازی در تیر 91)
آرشیو(قبل از مرتب سازی در تیر 91)نقشه gis منطقه 1 تهران آرشیو(قبل از مرتب سازی در تیر 91)نقشه کد نقشه gis منطقه 15 تهران آرشیو(قبل از مرتب سازی در تیر 91)نقشه gis منطقه 17 تهران
آرشیو(قبل از مرتب سازی در تیر 91)نقشه gis منطقه 2 تهران آرشیو(قبل از مرتب سازی در تیر 91)نقشه GIS کل تهران آرشیو(قبل از مرتب سازی در تیر 91)نقشه gis منطقه 6 تهران
آرشیو(قبل از مرتب سازی در تیر 91)نقشه gis منطقه 3 تهران آرشیو(قبل از مرتب سازی در تیر 91)نقشه gis منطقه 11 تهران آرشیو(قبل از مرتب سازی در تیر 91)نقشه gis منطقه 12 تهران sam arch آرتاش

جديد ترين اطلاعیه های انجمن نواندیشان و اخبار همایش ها و مطالب علمی را از این پس در کانال تلگرام نواندیشان دنبال کنيد

درخواست و دانلود مقالات علمي رايگان | فهرست آموزش های گروه انقلاب آموزشی | مسابقات تالارها | ترجمه مقالات تخصصی با قیمت دانشجویی
صفحه 15 از 77 نخستنخست ... 51112131415161718192535455565 ... آخرینآخرین
نمایش نتایج: از شماره 141 تا 150 , از مجموع 761

موضوع: آرشیو(قبل از مرتب سازی در تیر 91)

  1. #141
    کاربر ممتاز

    تاریخ عضویت
    08-12-2009
    نوشته ها
    21,482
    مدیریت
    امتياز طلايي
    35
    سپاس
    132
    2,517 سپاس در 1,508 پست
    امتياز:44169Array


    پیش فرض

    [میهمان عزیز شما قادر به مشاهده لینک نمی باشید. جهت مشاهده لینک در تالار گفتگو ثبت نام کنید. ]

    Richard Petela - Engineering Thermodynamics of Thermal Radiation: for Solar Power Utilization
    McGraw-Hill Professional | ISBN: 0071639624 | 2010-01-12 | PDF | 416 pages | 2.51 Mb

    Complete coverage of the thermodynamics of radiation matter for solar energy utilization
    This comprehensive guide reviews the fundamentals of the thermodynamics of radiation matter--photon gas. The book introduces the exergy of radiation through the most advanced thermodynamic analysis of the solar power processes involving radiation.

    Engineering Thermodynamics of Thermal Radiation: For Solar Power Utilization provides, for the first time, an exhaustive discussion on energy and exergy analysis of radiation processes. Extensive details on the exergy of radiation are developed for evaluation of the practical uses of radiation. This volume contains quantitative calculation examples for solar heating, a solar chimney power plant, photosynthesis, and photovoltaic technology. Addressed to researchers, designers, and users of different solar installations, the book also has the potential to inspire the development of new applications of radiation exergy.

    Coverage includes:
    - Definitions and laws of substance and radiation
    - Laws of thermodynamic analysis, including energy and exergy analysis
    - Thermodynamic properties of photon gas
    - Exergy of emission and arbitrary radiation flux
    - Energy, entropy, and exergy radiation spectra of surfaces
    - Thermodynamic analysis of heat from the sun, a solar chimney power plant, photosynthesis, and the photovoltaic

    Download:
    [میهمان عزیز شما قادر به مشاهده لینک نمی باشید. جهت مشاهده لینک در تالار گفتگو ثبت نام کنید. ]
    [میهمان عزیز شما قادر به مشاهده لینک نمی باشید. جهت مشاهده لینک در تالار گفتگو ثبت نام کنید. ]
    !


  2. # ADS
    Circuit advertisement
    تاریخ عضویت
    Always
    نوشته ها
    Many
    آفرینش گستر
     

  3. #142
    کاربر ممتاز

    تاریخ عضویت
    08-12-2009
    نوشته ها
    21,482
    مدیریت
    امتياز طلايي
    35
    سپاس
    132
    2,517 سپاس در 1,508 پست
    امتياز:44169Array


    پیش فرض

    [میهمان عزیز شما قادر به مشاهده لینک نمی باشید. جهت مشاهده لینک در تالار گفتگو ثبت نام کنید. ]

    Henry Valberg, "Applied Metal Forming: Including FEM Analysis"
    Cambridge University Press | 2010 | ISBN: 0521518237 | 460 pages | PDF | 11,3 MB

    Applied Metal Forming: Using FEM Analysis describes metal forming theory and how experimental techniques can be used to study any metal forming operation with great accuracy. For each primary class of processes, such as forging, rolling, extrusion, wiredrawing, and sheet-metal forming, it explains how FEA (Finite Elements Analysis) can be applied with great precision to characterize the forming condition and in this way optimize the processes. FEA has made it possible to build very realistic FEM-models of any metal forming process, including complex three-dimensional forming operations, in which complex products are shaped by complex dies. Thus, using FEA it is now possible to visualize any metal forming process and to study strain, stresses, and other forming conditions inside the parts being manufactured as they develop throughout the process.


    Download

    [میهمان عزیز شما قادر به مشاهده لینک نمی باشید. جهت مشاهده لینک در تالار گفتگو ثبت نام کنید. ]


    [میهمان عزیز شما قادر به مشاهده لینک نمی باشید. جهت مشاهده لینک در تالار گفتگو ثبت نام کنید. ]


    [میهمان عزیز شما قادر به مشاهده لینک نمی باشید. جهت مشاهده لینک در تالار گفتگو ثبت نام کنید. ]
    !


  4. #143
    کاربر ممتاز

    تاریخ عضویت
    08-12-2009
    نوشته ها
    21,482
    مدیریت
    امتياز طلايي
    35
    سپاس
    132
    2,517 سپاس در 1,508 پست
    امتياز:44169Array


    پیش فرض

    [میهمان عزیز شما قادر به مشاهده لینک نمی باشید. جهت مشاهده لینک در تالار گفتگو ثبت نام کنید. ]

    Vladimir V. Mitin, Dmitry I. Sementsov, Nizami Z. Vagidov, "Quantum Mechanics for Nanostructures"
    Cambridge University Press | 2010 | ISBN: 0521763665 | 448 pages | PDF | 3,2 MB

    The properties of new nanoscale materials, their fabrication and applications, as well as the operational principles of nanodevices and systems, are solely determined by quantum-mechanical laws and principles. This textbook introduces engineers to quantum mechanics and the world of nanostructures, enabling them to apply the theories to numerous nanostructure problems. The textbook covers the fundamentals of quantum mechanics, including uncertainty relations, the Schrödinger equation, perturbation theory, and tunneling. These are then applied to a quantum dot, the smallest artificial atom, and compared to hydrogen, the smallest atom in nature. Nanoscale objects with higher dimensionality, such as quantum wires and quantum wells, are introduced, as well as nanoscale materials and nanodevices. Numerous examples throughout the text help students to understand the material.


    Download

    [میهمان عزیز شما قادر به مشاهده لینک نمی باشید. جهت مشاهده لینک در تالار گفتگو ثبت نام کنید. ]


    [میهمان عزیز شما قادر به مشاهده لینک نمی باشید. جهت مشاهده لینک در تالار گفتگو ثبت نام کنید. ]


    [میهمان عزیز شما قادر به مشاهده لینک نمی باشید. جهت مشاهده لینک در تالار گفتگو ثبت نام کنید. ]
    !


  5. #144
    کاربر فعال

    تاریخ عضویت
    28-08-2009
    نوشته ها
    3,957
    سایر رشته ها
    سپاس
    1
    162 سپاس در 139 پست
    امتياز:13034Array

    آموزش پاسکال

    زبان پاسكال يكي از زبانهاي برنامه سازي است كه ويژگيهاي آموزشي آن بسيار بالاست يعني زبان خوبي براي آموزش برنامه نويسي منظم و دقيق است.قابليت خوانايي و درك برنامه هاي اين زبان بالاست وميتوان برنامه هايي نوشت كه احتمال خطاهاي آنها بسيار اندك باشد علتش اين است كه يك زبان ساختار يافته (structed) است . ساختار كلي برنامه چيست؟
    1-تعريف
    2-به وسيله procedure و functionقسمتهاي تكراري را از بين ببريم
    3-بدنه
    فرم كلي پاسكال:
    اسم Program
    ; تعريف ثابت const
    ; تعريف نوع type
    ; تعريف متغيرها var
    )پارامترها ) نام procedure


    begin
    ____
    ____
    ____
    end ;
    ; ( پارامترها ) نام نوع تابع function
    begin
    ____
    ____
    ____
    end ;
    begin
    ____
    ____
    ____
    end .
    متغير : محلي است كه داراي يك اسم مي باشد و مي توان مقداري را در آن ذخيره كرد

    انواع متغيرها در پاسكال:
    Integer :انواع عددي صحيح شامل اعداد بدون نقطه مميز است
    نوع مقاديري كه مي پذيرند طول(بايت)
    byte 0 تا 255 1
    Shortint 128- تا 127 1
    integer 32768- تا 32767 2
    Word 0 تا 65535 2
    Longint 2147483648- تا 2147483647 4


    اعداد اعشاري:
    انواع عددي اعشاري شامل اعدادي با نقطه مميز است

    نوع مقاديري كه ميپذيرند ارقام با معني طول(بايت)
    single 1.5e-45 تا3.4e38 7 تا 8 4
    real 2.9e-39 تا 1.7e38 11 تا 12 6
    Double 5.0e-324تا 1.7e308 15 تا 16 8
    extended 1.9e-4951تا 1.1e493 19 تا 20 10
    انواع داده هاي اعشاري

    -Char :
    نوع داده كاراكتري كه با كلمه char مشخص مي شود ميتواند يك كاراكتر را در خود نگهداري كند بنابراين كاراكترها در يك بايت از حافظه كامپيوتر ذخيره مي شوند

    String - :
    اين نوع داده ها براي ذخيره رشته ها مثل اسامي افراد به كار مي رود و با كلمه كليدي string مشخص ي گردد
    براي هر رشته بايد طول معلوم كنيم اگر طولي تعريف نشود به طور پيش فرض 80 در نظر گرفته ميشود(مقدار طول حداكثر 255 است)
    - Boolean :
    نوع ديگري از داده ها در پاسكال وجود دارند كه داده هاي بولي خوانده مي شوند مقادير بولي داراي دو ارزش درستي يا نادرستي اند كه در پاسكال با صفر و يك نمايش داده مي شوند صفر به معني نادرستي و يك به معني درستي به كار ميرود اين نوع داده ها با كلمه Boolean تعريف ميشوند.
    دستورات ورودي در پاسكال:
    دستور Readlnبراي خواندن اطلاعات از ورودي به كار ميرود.
    فرمت آن به صورت مقابل است:
    (اسامي متغيرها)read/ln
    اسامي متغيرها بايد با كاما از يكديگر جدا شوند..
    براي چاپ اطلاعات در خروجي از دستور write/ln استفاده ميكنيم.
    فرمت آن به صورت مقابل است:
    ' يك پيام '
    ( متغير ) write/ln
    عبارت محاسباتي
    انتساب متغيرها:
    مقدار ثابت
    ( متغير )=: متغير
    عبارت محاسباتي

    مثال : برنامه اي بنويسيد كه دو عدد را از ورودي دريافت و حاصلجمع آن دو را چاپ كند .
    Program add;
    Var
    a,b:integer;
    begin
    writeln('enter 2 num');
    readln(a,b);
    c:=a+b;
    writeln('result is =',c);
    end.

    تكليف : چرا برنامه بايد ادب داشته باشد ؟
    مثال : برنامه اي بنويسيد كه حقوق پايه وتعداد فرزندان يك كارگر را از ورودي دريافت و مبلغ حقوق وي را بر اساس فرمول زير حساب كنيد.
    10*تعداد فرزندان + حقوق پايه =حقوق كل
    Program test;
    Var
    Salary:longint;
    Child:byte;
    kole:integer
    Begin
    Writeln('enter salary and number of child);
    Readln(salary,child);
    Kole := salary + child *10
    Writeln('kole is ',kole);
    END.
    اولويت عملگرها:
    / *
    - +
    شرط:
    then شرط if
    Begin
    ____
    ____
    ____
    end
    else
    begin
    ____
    ____
    ____
    end;
    نكته : دستورالعمل قبل از IF سمي كالن نمي گيرد
    عناصر شرط:
    < > <= >= = <>
    اپراتورها :
    AND OR NOT XOR
    NOT A
    1 0
    0 1

    XOR OR AND B A
    0 1 1 1 1
    1 1 0 0 1
    1 1 0 1 0
    0 0 0 0 0
    مثال : برنامه اي بنويسيد كه با دريافت دو عدد بزرگترين آنها را چاپ كند.
    Program test;
    Var
    a,b:integer;
    if a>b then
    begin
    writeln(a);
    end
    else
    writeln(b);
    end.

    مثال : برنامه اي بنويسيد كه با دريافت سه عدد به عنوان ضرايب y=ax2+bx+c معادله درجه دو را حل كند(اين برنامه را با يك If بنويسيد).
    Var
    A,b,c:integer;
    D,x1,x2:real;
    Begin
    Writeln('enter a,b,c');
    Readln(a,b,c);
    D:=b*b-4*a*c;
    If (d >=0 ) then
    Begin
    X1:=(-b+sqrt(d))/2*a);
    X1:=(-b-sqrt(d))/2*a);

    مثال : برنامه اي بنويسيد كه تعداد فرزندان وحقوق پايه و رتبه يك كارگر را از ورودي دريافت و حقوق كل وي را بر اساس فرمول زير حساب كند.
    كسريها - مزايا +بيمه = حقوق كل
    5*رتبه +1000* تعداد فرزند = مزايا
    ماليات + بيمه = كسريها

    بيشتر كمتر يا مساوي 2 تعداد فرزند
    تعداد فرزندان 1000 بيمه
    هر چيزي ديگر 20 تا 0 رتبه
    حقوق پايه حقوق پايه*100/10 ماليات
    begin
    writeln('enter salary and grade and number of child');
    readln(salary ,num,grade);
    if num<=2 then
    bimeh:=100
    else
    bimeh :=num*500;
    if (grade>=0) and (grade<=20)then
    net := 10/100*salary
    else
    if grade >20 then
    begin
    net:=20/100*salary;
    mazaya:=num*1000+grade*50;
    kasry:=bimeh+net;
    kol :=salary + mazaya-kasry;
    end;
    writeln(kol);
    end.

    تكليف : در يك تركيب شيميايي 4 عنصر شركت دارند مقدار مجاز براي تهيه ماده اي به نام asxd به اين صورت است.
    A 0 ~ 50
    S 0.5 ~ 0.83
    X 81 ~ 92 or 824 ~ 901
    D -100 ~ 100
    با دريافت مقادير a,s,x,d از ورودي به ما بگويد كه آيا مي توان اين ماده را توليد كرد يا نه ؟
    Begin
    Num:=0;
    Writeln('please enter a s x d');
    Readln(a,s,x,d);
    If (a>0) and(a<50) then
    Num:=num+1;
    If (s>0.5)and (s<0.83) then
    Num:=num+1;
    If ((x>81)and(x<92))or ((x>824)and(x<901))then
    Num:=num+1;
    If (d>-100) and (d<100) then
    Num:=num+1;
    If num=4 then
    Writeln('yes can')
    Else
    Writeln('you can not');
    End.
    تكليف : برنامه اي بنويسيد كه با دريافت سه عدد و با فرض اينكه عدد دوم وتر ميباشد به ما بگوييد كه آيا اين سه عدد تشكيل يك مثلث قايم الزاويه مي دهد يا خير؟

    CASE:
    CASE ميتواند تعداداي شرط را بگيرد و انتخاب كند.
    مقاديري كه دستور CASE ميپذيرد ORDINAL است مقاديري كهORDINAL هستند داراي تركيب نيستند و همچنين قابل شمارش هم هستند مثل INTEGER,CHARACTER,BYTE,BOOLEAN,LONGINT,…
    پسREAL,STRING ORDINAL<---- نيستند
    CASE تنها دستوري است كه BEGIN ندارد ولي END دارد
    مقدارها ميتوانند شامل يك مقدار يا چند مقدار كه از يكديگر با كاما جدا شده اند باشند و يا يگ سري شمارشي باشند مثل:
    1:------
    1,10,28:------
    1..100,150..243:---------
    'A'..'Z':---------

    Of متغير Case
    Begin : مقدار1
    -------
    -------
    End;
    Begin : مقدار2
    -------
    -------
    End;
    Begin :Else
    -------
    -------
    End;
    End.
    مثال : برنامه اي بنويسيد كه يك عدد را از ورودي دريافت ( (0<=x<3وتلفظ آنها را چاپ كند.
    BEGIN
    READLN(X);
    CASE X OF
    0:WRITELN('ZERO');
    1:WRITELN('ONE');
    2:WRITELN('TWO')
    ELSE
    WRITELN('ERROR');
    END;
    END.

    مثال : برنامه اي بنويسيد كه دو عدد را از ورودي دريافت و چنانچه عدد اول در بازه 0 تا 5 بود توان دوم عدد دوم را چاپ كند چنانچه 68 بود حاصلضرب دو عدد را چاپ كند و در غير اينصورت مقادير مجاز را چاپ كند.
    BEGIN
    WRITELN('ENTER TWO NUMBER');
    READLN(A,B);
    CASE A OF
    0..5 :WRITELN(B*B);
    68:WRITELN(A*B)
    ELSE
    WRITELN('ENTER 0..5 OR 68');
    END;
    END.
    - معادل برنامه بالا با دستور If :
    Begin
    Writeln('enter 2 number');
    Readln(a,b);
    If (a>=0)and(a<=5) then
    Writeln(b*b)
    Else
    If a=68 then
    Writeln(a*b)
    Else
    Writeln('enter 0..5 or68');
    End.
    تكليف : روشي براي تلفظ اعداد پيدا كنيد.

    حلقه تكرار :
    1- تعداد معين
    2- تعداد معين
    Do مقدار نهايي to { مقدار شروع=: متغير for
    downto
    begin
    ___
    ___
    ___
    end;
    توجه مهم : در برخي از حلقه ها دستورات داخل حلقه به متغير حلقه مرتبط مي باشند و در برخي موارد هيچگونه ارتباطي وجود ندارد.
    حلقه for براي تعداد تكرار معين به كار ميرود
    Downto : در مواردي به كار ميرود كه مقدار اوليه از مقدار نهايي بيشتر باشد

    مثال : برنامه اي بنويسيد كه توان دوم اعداد 100 تا 200 را چاپ كند.
    Begin
    For i:=100 to 200 do
    Begin
    Writeln(i*i);
    End;
    End.
    نكته : اجازه نداريد مقدار متغير حلقه را در داخل بدنه عوض كنيد .
    مثال : برنامه اي بنويسيد كه حاصلجمع اعداد 100..1 را چاپ كند.
    Begin
    Sum:=0;
    For i:=1 to 10 do
    Begin
    Sum:=sum+i
    End;
    Write(sum);
    End.


    مثال : برنامه اي بنويسيد كه حاصلجمع مضارب 5 بين 0 تا 100را به دست آورد.
    Begin
    Sum:=0;
    For I:=1 to 20 do
    Begin
    Sum:=sum+i*5;
    End;
    Writeln(sum);
    End.
    مثال : برنامه اي بنويسيد كه دو عدد را از ورودي دريافت و اعداد ما بين اين دو عدد را چاپ كند (aBegin
    Writeln('enter a,b');
    Readln(a,b);
    For I:= a to b do
    Writeln(i);
    End.

    مثال : برنامه اي بنويسيد كه با يك حلقه for اعداد بين100..1 و738..353و 950..940 را چاپ كند
    Begin
    For i:=1 to 950 do
    Begin
    If ( i>=1) and (i<=100) then
    Writeln(i);
    If (i>353) and (i<=738) then
    Writeln(i);
    If (i>=940) and (i<=950) then
    Writeln(i);
    End;
    End.
    معادل برنامه بالا با استفاده از دستور case :
    Begin
    For i:=1 to 950 do
    Case I of
    1..100,353..738,940..950: writeln(i);
    end;
    end.
    باقيمانده mod
    مثال :
    X mod y
    مثال : برنامه اي بنويسيد كه مضارب 7 بين 1 تا 100 را چاپ كند
    Begin
    For i:= 1 to 100 do
    Begin
    If I mod 7 = 0 then
    Writeln(i);
    End;
    End.
    مثال : برنامه اي بنويسيد كه تعداد مضارب 5و7 را در بازه 231~846 چاپ كند.
    Begin
    K:=0;
    C:=0;
    For i:=846 downto 231 do
    Begin
    If I mod 5 = 0 then
    C:=c+1;
    If I mod 7 = 0 then
    K:=k+1;
    End;
    Writeln('5=',c,'7=',k);
    End;
    End.
    مثال : برنامه اي بنويسيد كه حقوق پايه وتعداد فرزندان 100 كارگر را از ورودي دريافت و مبلغ حقوق آنها را بر اساس فرمول زير حساب كند0
    1000*تعداد فرزند + حقوق پايه = حقوق كل
    Begin
    For i:=1 to 100 do
    Begin
    Writeln('enter salary and number of children');
    readln(salary,num);
    kol := salary + num * 1000;
    writeln(kol);
    end;
    end.

    مثال : برنامه اي بنويسيد كه 100 عدد را از ورودي دريافت و ميانگين و حاصلجمع آنها را به ما بدهد.
    Begin
    Sum:=0;
    For i:= 1 to 100 do
    Begin
    Writeln('enter num');
    Readln(num);
    Sum:=sum+num;
    End;
    Ave:=ave/100;
    Writeln(sum,ave);
    End.


    تعداد تكرار نامعين :
    Do شرط while
    begin
    ___
    ___
    ___
    end;
    مثال : برنامه اي بنويسيد كه اعداد 100..1 را چاپ كند
    Begin
    I:=1;
    While i<=100 do
    Begin
    Write(i);
    I:=i+1;
    End;
    مثال : برنامه اي بنويسيد كه تعدادي اسم را از ورودي دريافت و به ما بگويد چند بار اسم ali تكرار شده است(آخرين اسم end است).
    Var
    S:integer;
    St:string;
    Begin
    Read(st);
    While st<> 'end' do
    Begin
    If st='ali' then
    S:=s+1;
    Read(st);
    End;write(s);
    End.
    داستایوفسکی: تغییر کردن خیلی سخته،شبیه یکی دیگه بودن آسونه،ولی یکی دیگه بودن سخته......
    لئوناردو داوینچی
    : مکانیک بهشت ریاضیات است.زیرا در اینجاست که ما به زیباییهای ریاضیات پی می بریم.
    علی دایی:
    من همیشه رو بازی میکنم و هیچوقت زیر و رو نکشیدم .......
    [میهمان عزیز شما قادر به مشاهده لینک نمی باشید. جهت مشاهده لینک در تالار گفتگو ثبت نام کنید. ]
    [میهمان عزیز شما قادر به مشاهده لینک نمی باشید. جهت مشاهده لینک در تالار گفتگو ثبت نام کنید. ]





  6. #145
    کاربر فعال

    تاریخ عضویت
    28-08-2009
    نوشته ها
    3,957
    سایر رشته ها
    سپاس
    1
    162 سپاس در 139 پست
    امتياز:13034Array

    پیش فرض

    مثال : برنامه اي بنويسيد كه تعدادي عدد كه آخرين آنها صفر است را از ورودي دريافت و حاصلجمع آنها را چاپ كند.
    Begin
    Readln(num);
    T:=1;
    While num<>0 do
    Begin
    Sum:=sum+num;
    Readln(num);
    T:=t+1;
    End;
    Writeln('s=',s,'average',s/t);
    End;
    تكليف : براي دانش آموزان يك كلاس برنامه اي بنويسيد كه نام آنها به همراه تعداد نمرات و سپس نمرات آنها را به فرم زير از ورودي دريافت كند.تعداد دانش آموزان كلاس نامعين است ولي آخرين نفر نامش end است .برنامه ميبايستي پس از دريافت هر يك از اطلاعات پيامي به شكل زير چاپ كند.

    Average: Sum: Ali Name:
    3
    18
    20
    13.5
    program test;
    var
    name:string[10];
    ave,sum,nomreh:real;
    num,i:integer;
    begin
    writeln('enter name ' );
    readln(name);
    while name <> 'end' do
    begin
    writeln('enter num:');
    readln(num);
    for i:=1 to num do
    begin
    writeln('enter nomreh: ');
    readln(nomreh);
    sum:=sum+nomreh;
    end;
    ave:=sum/num;
    writeln('name:',name,'sum:',sum,'ave:',ave);
    writeln('enter name ');
    readln(name);
    end;
    end.

    تكليف : ميخواهيم براي برنامه هاي خود يك منو تهيه كنيم اين منو شامل موارد زير است
    1) load
    2) save
    3) edit
    4) exit
    please select a number :
    program test;
    var
    num:integer;
    begin
    writeln(' 1) load');
    writeln(' 2) save');
    writeln(' 3) edit');
    writeln(' 4) exit');
    writeln(please select a number : ');
    readln(num);
    while num<>4 do
    begin
    case num of
    1:writeln('loading');
    2:writeln('saving');
    3:writeln('editing');
    end;
    end;
    end.
    مثال : برنامه اي بنويسيد كه دو عدد را از ورودي دريافت و طبق جدول زير نسبت به مقدار آن واكنش نشان دهد


    3 2 1 a
    B+...+3+2+1 1..b b..1 واكنش
    Begin
    Writeln (' enter a,b :');
    Readln(a,b);
    Case a of
    1:begin
    for i:=1 to b do
    write(i);
    end;
    2:begin
    or I;=b downto 1 do
    write(i);
    end;
    3:begin
    sum:=0;
    for i:=1 to b do
    sum:=sum+I;
    write(sum);
    end;
    end.
    داستایوفسکی: تغییر کردن خیلی سخته،شبیه یکی دیگه بودن آسونه،ولی یکی دیگه بودن سخته......
    لئوناردو داوینچی
    : مکانیک بهشت ریاضیات است.زیرا در اینجاست که ما به زیباییهای ریاضیات پی می بریم.
    علی دایی:
    من همیشه رو بازی میکنم و هیچوقت زیر و رو نکشیدم .......
    [میهمان عزیز شما قادر به مشاهده لینک نمی باشید. جهت مشاهده لینک در تالار گفتگو ثبت نام کنید. ]
    [میهمان عزیز شما قادر به مشاهده لینک نمی باشید. جهت مشاهده لینک در تالار گفتگو ثبت نام کنید. ]





  7. #146
    کاربر فعال

    تاریخ عضویت
    28-08-2009
    نوشته ها
    3,957
    سایر رشته ها
    سپاس
    1
    162 سپاس در 139 پست
    امتياز:13034Array

    پیش فرض

    آرايه ها :
    آرايه ها به عناصري اتلاق ميشود كه با يك نام تعدادي محل از حافظه را كنترل كند براي تشخيص محلها از انديس استفاده ميشود
    انواع آرايه ها :
    1- آرايه هاي يك بعدي
    2- عناصر دو بعدي
    3- آرايه هاي سه بعدي

    تعريف آرايه ها :
    var
    نوع of ]انديس پايان..انديس شروع: array [ نام آرايه
    نوع متغير آرايه : متغير آرايه
    خواندن آرايه :
    مثال : برنامه اي بنويسيد كه نمرات 100 دانش آموز را از ورودي دريافت و در يك آرايه بريزد.


    Var
    A:array[1..100] of real;
    Begin
    For i:=1 to 100 do
    Readln(a[i ]);


    مثال : برنامه اي بنويسيد كه نمرات 100 دانش آموز را از ورودي دريافت و 50 تاي اول را چاپ كند سپس تعداد نمرات 20 را مشخص كند.

    Var
    A:array[1..100] of real;
    Begin
    For I;=1 to 100 do
    Writeln('enter no(',I,')');
    Readln(a[ i]);
    For i:=1 to 50 do
    Writeln(a [ i]);
    S:=0;
    For i:=1 to 100 do
    If i:=1 to 100 do
    If a[ i]=20 then
    S:=s+1;
    Writeln(s);
    End.


    پيدا كردن max,min
    عنصر اول =min
    حلقه براي گردش در آرايه
    Min < عنصر فعلي if
    عنصر فعلي min :=
    Write(min);
    مثال : برنامه اي بنويسيد كه با دريافت نمرات 100 دانش آموز بالاترين و پايين ترين نمره را در بين اين 100 نفر پيدا كند.


    Var
    A:array[1..100] of real;
    I:integer;
    Begin
    For i:=1 to 100 do
    Readln(a[ i ] );
    Min:=a[1];
    Max:=a[1];
    For i:=2 to 100 do
    Begin
    If a[1]< min then
    Min:=a[ i];
    If a[ i]>max then
    Max := a[i ];
    End;
    Writeln('max is :',max,'min is :',min);
    End.


    مثال : برنامه اي بنويسيد كه با دريافت 100 اسم به ما بگويد تعداد تكرار اسم ali چند بار است وآيا اسم hassan بيشتر ذكر شده يا اسم reza ؟

    Var
    A:array [1..100] of string;
    Begin
    For i:=1 to 100 do
    Readln(a[ i ]);
    Ali:=0;
    Reza:=0;
    Hassan:=0;
    For i:=1 to 100 do
    Begin
    If a[ i]='ali' then
    Ali:=ali+1;
    If a[ i]='reza' then
    Reza:=reza+1;
    If a[ i]='hassan' then
    Hassan:=hassan+1;
    Endd
    Writeln(ali is :',ali);
    If reza>hassan then
    Writeln('reza')
    Else
    Writeln('hassan');
    End.


    مثال : برنامه اي بنويسيد كه با دريافت نام و نمره 100 دانش آموز تنبل ترين فرد كلاس را مشخص كند.

    Var
    Name:array[1..100] of string;
    No:array[1..100] of real;
    Begin
    For i:=1 to 100 do
    Begin
    Readln(name[ i]);
    Readln(no[ i]);
    End;
    Min:=no[1];
    Namemin:=name[1];
    For i:=2 to 100 do begin
    If no[ i]
    Begin
    Min:=no[ i];
    Namemin:=name[ i];
    Writeln(namemin);
    End.


    آرايه هاي دو بعدي:
    وقتي از آرايه دوبعدي استفاده ميكنيم بايد از دو حقه for استفاده كنيم.
    مثال : برنامه اي بنويسيد كه نمرات 4 كلاس كه هر يك 20 دانش آموز دارد را از ورودي دريافت وتنبل ترين فرد را در اين 4 كلاس مشخص كند.


    Var
    A:array[1..20,1..4] of real;
    Begin
    For i:=1 to 4 do
    Begin
    For j:=1 to 20 do
    Readln(a[j, i]);
    End;
    Min:=a[1,1];
    For i:=1 to 4 do
    For j:=1 to 20 do
    If a[j,i]< min then
    Min:=a[j,i];
    Writeln(min);
    End.


    مثال : در يك آرايه 100*20دوهزار كاراكتر نگهداري ميشود برنامه اي بنويسيد كه تعداد تكرار حرف A را با a مقايسه كند و همچنين به ما بگويد آيا كاراكتر z در اين ماتريس وجود دارد ؟

    Var
    A:array[1..20,1..100] of character;
    Bool:Boolean;
    B,b1:integer;
    Begin
    For i:=1 to 100 do
    For j:=1 to 20 do
    If a[I,j]='A' then
    B:=b+1;
    If a[I,j]='a' then
    B1:=b1+1;
    If a[I,j]='z' then
    Bool:=true;
    End;
    If b>b1 then writeln('A>a');
    If bIf b=b1 then writeln('A=a');
    If true then writeln('''z''exist');
    End.


    تكليف : ميخواهيم نام و نمره تعدادي دانش آموز يك كلاس را از ورودي دريافت كنيم و مشخص كنيم كه تنبل ترين و زرنگ ترين فرد كلاس كيست.چند نفر نمره زير 10 گرفتند؟نام كساني كه نمره آنها در بازه 17 تا 15 مي باشد ب همراه نمره آنها چاپ شود آخرين نفر نامش end است حداكثر تعداد دانش آموزان 100 نفر است.

    Var

    a:array [1..100] of string ;
    b:array[1..100] of real;
    begin
    i:=1;
    read(a[ i]);
    while a[ i]<>'end' do begin
    readln(b[ i]);
    i:=i+1;
    readln(a[ i]);
    end;
    j:=i-1;
    min:=a[1];
    max:=a[1];
    for i:= 2 to j do
    begin
    if b[ i] >max then
    begin
    max:=b[ i];
    name:a[ i];
    end;
    end
    writeln(name);
    count:=0;
    for i:=1 to j do
    if b[i ]<=10 then
    count:=count+1;
    writeln(count);
    for i:=1 to j do
    if (b[ i]<17) and (b[ i]>15) then
    write(b[ i],a[ i]);
    end.


    تكليف : برنامه اي بنويسيد كه حاصل اين عبارت را حساب كند.

    i/i!=1/1!+2/2!+3/3!+4/4!+5/5!
    N!= 1*2*3*4*…*n
    Begin
    Sum:=0;
    For n:=1 to 5 do
    Begin
    For m:=1 to n do
    F:=f*m;
    Sum:=sum+n/f;
    End;
    Writeln(sum);
    End.


    تكليف : برنامه اي بنويسيد كه نمرات 80 دانش آموز را كه در چهار كلاس دسته بنده شده اند را از ورودي دريافت كند سپس به سوالات زير جواب دهد.
    1- معدل هر يك از كلاسها
    2- نمره تنبل ترين و زرنگترين شخص در هر كلاس به طور جداگانه


    Var
    A:array [1..4,1..20] of real;
    Begin
    For i:=1 to 4 do
    For j:=1 to 20 do
    Begin
    Writeln('please enter nomreh');
    Readln(a[I,j]);
    End;
    For i:=1 to 4 do
    Begin
    Sum:=0 ;
    For j:=1 to 20 do
    Begin
    Sum:=a[I,j]+sum;
    End;
    Writeln(sum/20,'average of this class');
    End;
    For i:=1 to 4 do
    Begin
    Max :=a[1,1];
    Min:=a[1,1];
    For j:=2 to 20 do
    Begin
    If a[I,j]>max then
    Max :=a[I,j];
    End;
    Writeln(I,min,max);
    End;
    End.
    داستایوفسکی: تغییر کردن خیلی سخته،شبیه یکی دیگه بودن آسونه،ولی یکی دیگه بودن سخته......
    لئوناردو داوینچی
    : مکانیک بهشت ریاضیات است.زیرا در اینجاست که ما به زیباییهای ریاضیات پی می بریم.
    علی دایی:
    من همیشه رو بازی میکنم و هیچوقت زیر و رو نکشیدم .......
    [میهمان عزیز شما قادر به مشاهده لینک نمی باشید. جهت مشاهده لینک در تالار گفتگو ثبت نام کنید. ]
    [میهمان عزیز شما قادر به مشاهده لینک نمی باشید. جهت مشاهده لینک در تالار گفتگو ثبت نام کنید. ]





  8. #147
    کاربر فعال

    تاریخ عضویت
    28-08-2009
    نوشته ها
    3,957
    سایر رشته ها
    سپاس
    1
    162 سپاس در 139 پست
    امتياز:13034Array

    پیش فرض

    - String : String آرايه اي از كاراكترهاست .اغلب لازم است كاراكترهايي در رشته موجود درج شوندو يا كاراكترهايي به جاي بخشي از رشته نوشته شوند , زيررشته اي در رشته جستجو گردد و يا دو رشته با هم الحاق شوند.
    رشته تهي : طول رشته ثابت نيست و با داداه هايي كه در آن ذخيره شده است مشخص مي گردد.كاراكترهايي كه در رشته قرار مي گيرد از حداكثر طولي كه براي آن تعيين ميشود بيشتر نخواهد بود. اگر name رشته كاراكتري باشد دستور زير name را به رشته تهي تبديل ميكند:
    Name:='';
    تبديل رشته به اعداد :
    در پاسكال زير برنامه هايي وجود دارند كه به آساني ميتوانند رشته ها را پردازش كنند. زيربرنامه val رشته عددي را گرفته به مقدار عددي تبديل ميكند.
    رشته عددي رشته اي است كه حاوي كاراترهاي '0' تا '9' و نقطه مميز باشد مثل '12.5' و'13.5' زيربرنامه val به صورت زير به كار ميرود.
    Val (st,number,error)
    St رشته اي است كه بايد به عدد تبديل شود و number متغيري است كه رشته تبديل شده به عدد در آن قرار ميگيرد. چنانچه در رشته st كاراكتر نا معتبري (كاراكترهاي غير از( '0' تا '9' و'.' ) , محل وجود آن كاراكتر در پارامتر error قرار ميگيرد. اگر error برابر با صفر باشد معنايش اينست كه كاراكتر نا معتبري وجود ندارد. اگر number از نوع صحيح باشد st به مقدار صحيح و اگر number از نوع اعشاري باشد st به مقدار اعشاري تبديل ميشود .
    مثال زير را در نظر بگيريد:


    Var st :string;
    Num,e:integer;
    St:='352';
    Val (st,num,e);


    مقدار 352 در متغير num ومقدار صفر در متغير e قرار ميگيرد اكنون دستورات زير را در نظر بگيريد :

    St:='35#'2;
    Val (st,num,e);


    با اجراي دستور val به دليل وجود كاراكتر' # ' كه كاراكتر نامعتبري در اعداد است عدد 2 در متغير e قرار ميگيرد و معنايش اينست كه كاراكتر شماره 2 ( شماره گذاري از صفر شروع ميشود) نامعتبر است و عمل تبديل صورت نميگيرد و مقدار num تعريف نشده است.
    تبديل عدد به رشته :
    براي تبديل مقدار عددي به رشته عددي از زيربرنامهstr استفادهميشود و به صورت زير به كار ميرود:
    Str (number : format,numstring)
    با اين دستور مقداري كه در number قرار دارد به رشته اي به طول format تبديل ميشود و در رشته numstring قرار ميگيرد . دستورات زير را در نظر بگيريد:


    Var x:integer;
    St:string;
    X=352;
    Str(x:5,st);


    با اجراي اين دستور مقدار 352 به رشته '352' تبديل شده در st قرار ميگيرد

    دستورات زير را در نظر بگيريد:


    Var y1,y2:real;
    St1,st2 : string;
    Y1:=352.768
    Y2:=476.395
    Str(y1:7:2,st1);
    Str(y21,st2);


    با اجراي دستور str اول مقدار 352.768 به رشته '352.768' تبديل ميشود و در st1 قرار ميگيرد و با اجراي دستورstr دوم مقدار 476.395 به رشته '476.395'تبديل ميشود و در st2 قرار ميگيرد.
    جدا كردن زيررشته اي از رشته:
    زيررشته بخشي از رشته است و براي جدا كردن زيررشته از رشته از تابع copy استفاده ميشودتابع copy به صورت زير به كار ميرود.


    Copy (source,index,size)
    S:='I am learning pascal ';
    S1:=copy(s,15,6);


    دستور copy باعث ميگردد تا با شروع از محل 15 تعداد 6 كاراكتر از رشته s استخراج شود و در s1 قرار گيرد. بنابراين محتويات رشته s1 برابر است با 'pascal'.
    الحاق رشته ها :
    منظور از الحاق رشته ها اتصال رشته ها به يكديگر است به عنوان مثال اگرs1:='ab' و s2:='cde' الحاق دو رشته (s1,s2) به صورت 'abcde' خواهد بود براي الحاق رشته ها از تابع concat استفاده ميشود:
    (اسامي رشته ها)concat
    دستورات زير را در نظر بگيريد:


    S1:='pascal';
    S2:='is a ;
    S3:='language';
    S4:=concat(s1,s2,s3);


    با اجراي اين دستور s3 به انتهاي s2 متصل ميشود و رشته نتيجه به انتهاي s1 متصل ميگردد و در نتيجه رشته s4 عبارت است از'pascal is a language': . اگر طول رشته حاصل بيش از 255 باشد بقيه كاراكترها حذف ميشوند.
    جستجوي رشته اي در رشته ديگر:
    براي اين كار از تابع pos استفاده ميشود كاربرذ اين تابع به صورت زير است:
    Pos(s1,s2)
    S1 رشته اي است كه بايد در s2 وجود داشته باشد محل اولين وقوع آن برگردانده ميشود و گر نه مقدار صفر برگردانده ميشود دستورات زير را در نظر بگيريد:


    S1:='learning'
    S2:='I am learning pascal';
    S3:='english'
    X:=pos(s1,s2)
    y:=pos(s3,s2)


    چون رشته s1 در s2 وجود دارد دستور pos اول مقدار 6 را در x قرار ميدهد و معنايش اين است كه رشته 'learning' در محل 6 رشته s2 وجود ندارد مقدار صفر در y قرار ميگيرد.
    محاسبه طول رشته :
    براي محاسبه طول رشته از تابع length به صورت زير استفاده ميشود:
    (رشته)length
    دستورات زير را در نظر بگيريد:


    S1:='xymn'
    X:=length(s1)


    چون طول رشته s1 برابر 4 است مقدار x برابر 4 خواهد بود.
    حذف و درج زيررشته:
    زير رشته اي را ميتوان از رشته اي حذف كرد و يا زيررشته اي را ميتوان در رشته اي درج كرد براي حذف زير رشته از زيربرنامه ها به صورت زير به كار ميروند:


    Delete(source,index,size)
    Insert(pattern,destination,index)


    در زيربرنامه delete زيررشته اي به طول size با شروع از محل index از رشته source حذف ميشود و در زيربرنامه insert زيررشته pattern با شروع از محل index در رشته destination درج ميشوددستورات زير را در نظر بگيريد:

    S1:=pas***cal
    Delete(s1,4,3)
    S2:='paal';
    S3:='sc';
    Insert(s3,s2,);


    دستور delete باعث ميشود تا با شروع از محل 4 رشته s1 حذف شده و رشته s1 به pascalتبديل شود دستور insert موجب ميشود تا رشته s3 در s2 درج شود و در نتيجه رشته s2 به 'pascal' تبديل شود.
    مثال : برنامه اي بنويسيد كه يك اسم را از ورودي دريافت و آنرا بر عكس چاپ كند


    Readln(name);
    For i:=length(name) downto 1 do
    Write (name[ i])


    مثال : برنامه اي بنويسيد كه كه يك نام را از ورودي دريافت و به ما بگويد كه آيا اين نام با حرف a شروع ميشود يا خير؟

    Readln(name);
    If name[1]='a' then
    Writeln('ok')
    Else
    Writeln('not ok');


    مثال : برنامه اي بنويسيد كه يك نام را از ورودي دريافت و حروف آنرا يك در ميان چاپ كند.

    Readln(name);
    For i:=1 to length(name) do
    If I mod 2 = 0 then
    Writeln(name[ i]);
    روش ديگر:''
    For i:=1 to int(length(name)/2) do
    Writeln(name[ i*2]);


    مثال : برنامه اي بنويسيد كه يك رشته را از ورودي دريافت و متقارن بودن آنرا چك كند.
    1 2 3 4 5 5 4 3 2 1


    var
    N:string;
    Begin
    Readln(n);
    For i:=1 to int(length(n)/2) do
    Begin
    If n[i ] <> n[length(n) -i+1] then
    K:=0;
    End;
    If k=1 then
    Writeln ('ok')
    Else
    Writeln('no');
    End.


    مثال : برنامه اي بنويسيد كه تعداد حروف a موجود در يك رشته ورودي را بشمارد.

    Var st:string;
    Begin
    Readln(st);
    C:=0;
    For i:=1 to length(st) do
    If st[ i]='a' then ?if st[ i] in ['a','A'] then
    C:=c+1;
    Writeln(c)


    مثال : برنامه اي بنويسيد كه تعداد اسامي alireza موجود در رشته را بشمارد.

    Begin
    Readln(st);
    C:=0;
    While pos('alireza',st) <> 0 do
    Begin
    C:=c+1;
    J:=pos('alireza',st);
    Delete(st,pos('ali',st),3);
    End;
    Write ( c );
    End.


    مثال : برنامه اي بنويسيد كه دو رشته را از ورودي دريافت و بعد از كاراكترمساوي كه در رشته اول وجود دارد رشته دوم را چاپ كند.

    Readln(st,st1);
    J:=pos('=',st);
    Writeln(copy ((st,1 j) , st1, copy (st,j+1,100));


    تكليف : برنامه اي بنويسيد كه با دريافت سه حرف و قرار دادن آنها در يك آرايه سه تايي كليه تركيبات ممكن را كه سه حرف تركيباتشان به هم نخورد چاپ كند.
    W a x
    A x w
    W a x
    مثال : برنامه اي بنويسيد كه يك رشته را از ورودي دريافت و كليه كلمات موجود در آن را بشمارد.


    Readln(st);
    S:=0;
    St:=st+' '
    While pos(' ',st) <> 0 do
    Begin
    S;=s+1;
    Delete(st,1,pos(' ',st));
    While st[1]=' 'do
    Delet (st,1,1);
    End;
    End.


    تكليف : برنامه اي بنويسيد كه 100 رسته را از ورودي دريافت و در يك آرايه به طول 100 از نوع string بريزيد و به سؤالات زير جواب دهد.
    1- تعداد كل كلمات
    1- تعداد كل حروف
    2- تعداد حروف صدا دار

    ذخيره اطلاعات :
    Log file : فايلي است كه تمام تغييرات مربوط به يك محيط را ثبت ميكند
    فايلها :
    1- متني text
    2- ركوردي typed
    3-بدون نوع
    4-untyped

    معرفي فايلهاي متني :
    Var

    Text : نام فايل
    نسبت دادن فايل :
    ; ('نام خارجي ,'نام فايل ) assign
    مثال :


    Assign(f,'c:\a1.dat.ddd');


    باز كردن جهت خواندن
    ;( نام فايل)reset
    باز كردن جهت نوشتن
    ; ( نام فايل)rewrite
    ) ___,نام فايل)readln
    ) ___,نام فايل)writeln
    ) نام فايل)close
    تا close انجام نشود data ذخيره نميشود .
    نكته بسيار مهم : در هر يك از مسائلي كه در مورد فايلها مطرح ميشود مي بايستي به نحوي از يكي از تكنيكهاي نگهداري اطلاعات در حافظه اصلي استفاده نمود اين تكنيكها ممكن است استفاده از متغيرها و آرايه ها و ماتريسها و ودرختهاو...استفاده نمود ولي تنها با دو عمل خواندن و نوشتن به روي فايل كار انجام ميشود
    Update : ميخوانيم ولي دوباره ميريزيم سر جاش
    Append : بهش يك چيزي اضافه ميكنيم
    نكته : عمل rewrite باعث ميگردد چنانچه فايل وجود نداشته باشد ايجاد و چنانچه وجود دارد اطلاعاتش به طور كامل پاك شود.
    مثال : برنامه اي بنويسيد كه100 اسم را از ورودي دريافت و آنها را در يك فايل به نام a1.dat))بنويسد.


    Var
    F:text;a:string;
    Begin
    Assign(f,'a1.dat');
    Rewrite(f);
    For i:=1 to 100 do
    Readln(a);
    Writeln(f,a);
    End;
    Close(f);
    End.


    مثال : برنامه اي بنويسيد كه فايل a1.dat را خوانده و به ما بگويد چند بار اسم ali تكرار شده است؟

    Var
    A:text;
    B:string;
    Begin
    Assign(a,'a1.dat');
    Reset(a);
    Sum:=0;
    For i:=1 to 00 do
    Begin
    Readln(a,b);
    If b='ali' then
    Sum:=sum+1;
    End;
    Close(a,b);
    End;


    مثال : برنامه اي بنويسيد كه تعدادي اسم را كه آخرين آنها end است از ورودي دريافت و در يك فايل به نام aa.dat بريزد آنگاه فايل را بسته و قسمتهاي زير را به طور جداگانه انجام دهد.
    1- تعداد حسنها بيستر است يا علي ها
    2- چند اسم وجود دارد كه با حرف z شروع ميشود.


    Var
    f:text;
    Name:string;
    Begin
    Assign(f,'aa.dat');
    Rewrite(f);
    Readln(name);
    While name<> 'end' do
    Begin
    Writeln(f,name);
    Readln(name);
    End;
    Close(f);
    H:=1;
    A:=1;
    Z:=1;
    Reset(f);
    While not eof (f) do
    Begin
    Readln(f,name);
    If name='ali' then
    A:=a+1;
    If name ='hassan' then
    H:=h+1;
    End;
    Close(a);
    If h>a then writeln('h>a');
    If h If h=a then writeln('h=a');
    End;
    Close(f);
    Reset(f);
    While not eof (f) do
    Begin
    Readln(f,name);
    If name[ i]='z' then
    Z;=z+1;
    End;
    Close(f);
    Writeln('sum of z is :'z);
    End.


    تكليف : برنامه اي بنويسيد كه تعدادي نام را از ورودي دريافت و در يك فايل بريزد سپس فايل تشكيل شده را باز كرده و از روي اين فايل دو فايل ديگر تشكيل دهيد كه در يكي از آنها اسامي كه بين a تا z قرار گرفته اند ريخته و در فايل دوم كليه اسامي كه از v تا z هستند را بريزد.

    Program test;
    Var
    Name : string;
    F,f1,f2:text;
    Begin
    Assign(f,'a.dat');
    Rewrite(f);
    Writeln('enter a name ');
    Readln(name);
    While length(name)>0 do
    Begin
    Writeln(f,name);
    Writeln('enter a name');
    Readln(name);
    End;
    Close(f);
    Reset(f);
    Assign(f1,'a1.dat');
    Assign(f2,'a2.dat');
    Rewrite(f1);
    Rewrite(f2);
    While not eof (f) do
    begin
    Readln(f,name);
    Case name[1] of
    'a'..'u':writeln(f1,name);
    'v'..'z':writeln(f2,name);
    end;
    end;
    close(f2);
    close(f1);
    close(f);
    end.


    تكليف : برنامه اي بنويسيد كه نام دو فايل را از ورودي دريافت و از اطلاعات داخل اين دو فايل فايل سومي تشكيل دهد كه حاصل تركيب دو فايل قبل باشد.

    var
    h,f,g:text;
    a:string;
    begin

    writeln('enter first filename') ;
    readln(a);
    assign(h,a);
    writeln('enter second filename') ;
    readln(a);
    assign(f,a);
    reset(h);
    reset(f);
    assign(g,'out.dat');
    rewrite(g);
    while not eof(h) do
    begin
    readln(h,a);
    writeln(g,a);
    end;
    while not eof(f) do
    begin
    readln(f,a);
    writeln(g,a);
    end;
    close(f);
    close(h);
    close(g);
    End.
    داستایوفسکی: تغییر کردن خیلی سخته،شبیه یکی دیگه بودن آسونه،ولی یکی دیگه بودن سخته......
    لئوناردو داوینچی
    : مکانیک بهشت ریاضیات است.زیرا در اینجاست که ما به زیباییهای ریاضیات پی می بریم.
    علی دایی:
    من همیشه رو بازی میکنم و هیچوقت زیر و رو نکشیدم .......
    [میهمان عزیز شما قادر به مشاهده لینک نمی باشید. جهت مشاهده لینک در تالار گفتگو ثبت نام کنید. ]
    [میهمان عزیز شما قادر به مشاهده لینک نمی باشید. جهت مشاهده لینک در تالار گفتگو ثبت نام کنید. ]





  9. #148
    کاربر ممتاز

    تاریخ عضویت
    08-12-2009
    نوشته ها
    21,482
    مدیریت
    امتياز طلايي
    35
    سپاس
    132
    2,517 سپاس در 1,508 پست
    امتياز:44169Array


    پیش فرض

    سلام دوستان
    اینم یه فایل در مورد اندازه گیرهای (ترانسمیتر) ولتاژ که کاربرد وسیعی در صنعت برق دارن
    موفق باشید

    [میهمان عزیز شما قادر به مشاهده لینک نمی باشید. جهت مشاهده لینک در تالار گفتگو ثبت نام کنید. ]
    !


  10. #149
    کاربر ممتاز

    تاریخ عضویت
    08-12-2009
    نوشته ها
    21,482
    مدیریت
    امتياز طلايي
    35
    سپاس
    132
    2,517 سپاس در 1,508 پست
    امتياز:44169Array


    پیش فرض

    سلام دوستان
    مرجع ژنراتور ها قسمت اول

    [میهمان عزیز شما قادر به مشاهده لینک نمی باشید. جهت مشاهده لینک در تالار گفتگو ثبت نام کنید. ]
    !


  11. #150
    کاربر ممتاز

    تاریخ عضویت
    08-12-2009
    نوشته ها
    21,482
    مدیریت
    امتياز طلايي
    35
    سپاس
    132
    2,517 سپاس در 1,508 پست
    امتياز:44169Array


    پیش فرض

    مرجع ژنراتورها قسمت دوم

    [میهمان عزیز شما قادر به مشاهده لینک نمی باشید. جهت مشاهده لینک در تالار گفتگو ثبت نام کنید. ]
    !


اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

کلمات کلیدی این موضوع

Aging, Alternative Energy For Dummies, ASM Handbook, ASTM, condition monitoring, engineering, Engineering Handbook, formulas, Fundamentals of HVAC Systems, handbooks, heat transfer, Home Power Magazine, kks, KKS زیمنس المان, mechanical, Popular Mechanics, Popular Mechanics Magazine, Safety Relief Valve, Schaum's Outline of Engineering, Standard Handbook for Mechanical Engineers, structural, The CRC Handbook of Mechanical Engineering, Transformer Power Engineering, فيلم تعميرات نيروگاه وپالايشگاه, فيلم داغ استوانه اي موازي, فیلم ماشین تراش, فیلم های قالب تزریق پلاستیک injection molding, فیلم کارون 3, فیلمهای اموزشی جوشکاری به روش tig, فرمولهای مهم ومورد نیاز برای مهندسان, فرمولهای مکانیک, كتاب, مقاله فارسی, مقاله مهندسی, مقاومت مصالح هیبلر وبیرجانسون, منحنی پمپ, مهندسي تعميرات ونگهداري نيروگاه, مهندسی, مهندسی مکانیک, موقعيت يابي, موتور, مکانیک, مکانیک وتاسیسات, مکانیک ، نسبیت و الکترودینامیک جلد 1و2, متلب, مجلات مکانیک, مدیریت کیفیت, مرجع مهندسی, مرجع مهندسی مکانیک, مرجع ژنراتورها, معادلات دیفرانسیل, معرفی ۲۰ منبع رایگان برای دانلود کتاب, نفوذ, نقش پمپ درشبکه های انتقال, نقطه Base load, چیلرها, نیروگاه ابی, نگهداري وتعميرات درپالايشگاه وپتروشيمي, نگهداری, نانوفناوری, ناپذیر, نت بهره ور, نحوه نگهداری سیفتی ریلیف ولو, نرم افزار تحلیل, نصب, نصب ژنراتور وتجهیزات نیروگاه, نصب روتور واستاتور ژنراتور نیروگاه ابی, همه حل المسایل کتابهای مکانیک, هندبوک, هندبوک مهندسان, هندبوک مکانیک, هندبوک استاندارد مکانیک, هندبوک جامع شیرهای سیفتی ریلیف, هولمن, هرکتابی لازمتونه بگید پیداش کنیم!, ویرایش جدید کتابها وحل المسایل مکانیک, واحد تعميرونگهداري يا نت, ژنراتور, ژنراتور نیروگاه ابی, ژورنالهای مهندسی مکانیک, کنکور, کتاب و سایت های مهندسی مکانیک, کتاب وجزوه مکانیک, کتاب تنظیم خانواده, کتابهای, کتابهای مکانیک سیالات, کتابهای ساخت تولید وجامدات, کتابی درزمینه محاسبات پمپ توربین و..., گواهینامه کیفیت, گزارش کارآموزی, پمپ, پمپ لجن کش, پمپ چندطبقه, پمپ های نیروگاهی, پمپ های صنعتی, پمپ وپمپاژ, پمپ وانتقال, پمپ وابرسانی, پمپ جابجایی مثبت, پمپ جابجاییی مثبت, پمپ رفت وبرگشتی, پمپ سانتریفیوژ, پمپ صنعتی, پمپهای نیروگاهی, پیری توربین گاز, پالایشگاه وپتروشیمی ونیروگاه, پروژه, پروژه فلش شبیه سازی نیروگاه بخاری نکا, پروژه ها و پایان نامه, پروانه پمپ, پراب دو حسگري, آنالیز داده های نگهداری و تعمیرات, آشنايی با استانداردهای سري 9000, المان محدود, اموزش, اموزش ماشینکاری به روش اولتراسونیک, اموزش متلب, اموزش جعبه ابزارهای نرم افزار متلب, انواع پمپ, انالیز وتعمیرات پیشگیرانه, انالیز به روش المان محدود, انتقال هدایت حرارتی 1 بعدی, انتقال حرارت, انتقال حرارت هولمن, انتقال حرارت اینکروپرا, انجام تعميرات دوره اي درنيروگاهها, اورهال نيروگاه وتعميرات دوره اي, ایمنی درصنعت, ایمپلر, اینکروپرا, ایزو9000, ایستگاههای پمپاژ, ارتعاشات رائو وحل المسایل ارتعاشات رائو, ارشد, ارشد مکانیک, ازمون کارشناسی ارشد مهندسی مکانیک سال 89, اسلایدی اموزشی برای مبحث انتقال حرارت, استاندارد مکانیک, استاندارد کیفیت ایزو9001, استاندارد کدینگ, استاندارد ایزو, استانداردهای ASTM, استانداردهای مکانیک, اشنایی با مراحل ساخت نیروگاه, اشنایی با پمپ ها, اشنایی با انرژی باد وچرخه تولید برق از ان, اشنایی با استانداردها, اشنایی با سیستم کدینگ KKS, اشنایی با سیستمهای کدینگ, اشنایی با ساخت نیروگاه ابی, اشنایی با سدکارون 3, اشنایی با شیرهای صنعتی, اصول, اصول انالیز, بهره برداری وتعمیرات, بکارگيري همجوشي داده ها, با توجه به, بازديد واورهال درنيروگاه وپالايشگاه, بررسي بازه عملکردي, تنظیم جمعیت, تنظیم خانواده, تنظیم خانواده وجمعیت, تولید با قالب بادی, تانک فشار گير Surge Tank, تاثير متيل استر روغن پسماند, تاریخچه ماشین های تراش, تاسیسات وساختمان, تعميرونگهداري بهره ور وفراگير وپيشگيرانه, تعميرواورهال نيروگاه, تعميرات مکانيکي درنيروگاهها, تعميرات نيروگاههاي ايران, تعميرات ژنراتور وترانسقورماتور, تعميرات پستها وخطوط انتقال نيرو, تعميرات الکتريکي درنيروگاهها, تعميرات الکتريکي درواحدهاي صنعتي, تعميرات بويلرهاي نيروگاهي, تعميرات درپالايشگاه پتروشيمي ونيروگاه, تعمیرونگهداری پمپها, تعمیرات پمپ, تعمیرات پیشگیرانه وتعمیرات پیشگویانه, جامعترین مرجع هندبوک مهندسی, جداول و روابط تاسیسات مکانیکی, جداول ترمو دینامیک کتاب ترمو دینامیک ون وایلن, جزوه, جزوه مقاومت مصالح ۱, جزوه مکانیک سیالات ۱, جزوه مبانی برق ۱, جزوه معادلات دیفرانسیل, جزوه انتقال حرارت ۱, جزوه ارتعاشات, جزوه ارتعاشات (دانشگاه فردوسی مشهد), جزوه استاتیک, جزوه تنظیم خانواده, جزوه ترمو دینامیک ۱, جزوه ترمودینامیک وانتقال حرارت, جزوه دینامیک, جزوه دینامیک ماشین, جزوه دینامیک گاز های دکتر سعدالدین, جزوه درس ریاضی مهندسی, جزوه درس طراحی هواپیما 1 و 2 دکتر محمدعلی وزیری, جزوه ریاضی مهندسی دکتر طلعتی, جزوه ریاضی ۲, جزوه ریاضی۲ دانشگاه صنعتی شریف, جزوات, جزوات آموزشی شرکت ره آوران فنون پتروشیمی, جزوات اموزشی فنی مهندسی, جزوات درسی مهندسی مکانیک, حل المسایل, حل المسایل انتقال حرارت هولمن, حل المسایل استاتیک, حل المسایل ترمودینامیک وان وایلن وسینجل وموران, حل المسائل کنترل اتوماتیک اوگاتا, حل المسائل ارتعاشات تامسون, حرارت مرکزی, خلاصه کتاب هوش مصنوعی, خودرو چهارچرخ خودگردان, دکترباقرزاده, دانلود, دانلود 118 کتاب فنی مهندسی دریک مجموعه, دانلود فيلم هاي مهندسي, دانلود فيلم اموزشي تعميرات درنيروگاهها, دانلود فيلمهاي تعميرات نيروگاه, دانلود فیلم نیروگاه, دانلود فیلم نیروگاه وسد کارون, دانلود فیلم های مهندسی, دانلود فیلم پمپ, دانلود فیلم اموزشی پمپ, دانلود فیلم ساخت ونصب ژنراتور نیروگاه کارون, دانلود فیلم ساخت سد کارون 3, دانلود فیلم ساخت سددز, دانلود فیلمهای اموزشی پمپ ها, دانلود فیلمهای صنعتی, دانلود فایلهای مهندسی, دانلود فایلهای اموزشی مکانیک, دانلود مقاله مکانیک, دانلود مقاله ای درزمینه ترموگرافی, دانلود مقالات مهندسی مکانیک مجله مکانیک مدرس, دانلود مجلات مکانیک, دانلود مجموعه مهندسی مکانیک, دانلود هندبوک, دانلود هندبوک مهندسی, دانلود هندبوک خوردگی وحفاظت کاتدیک لوله ها, دانلود هندبوکهای مهندسی, دانلود کارنامه ارشد, دانلود کتاب, دانلود کتاب مبانی نگهداری وتعمیرات (نت), دانلود کتاب های مهندسی, دانلود کتاب پزشکی, دانلود کتاب تنظیم خانواده, دانلود کتاب تنظیم خانواده دکترباقرزاده, دانلود کتابهای فنی مهندسی, دانلود کتابهای مهندسی, دانلود کتابهای مهندسی مکانیک, دانلود کتابهای مکانیک, دانلود کتابهای مکانیک به صورت بروز, دانلود کتابهای سری شومز, دانلود کتابهای شومز, دانلود کتابهای شیمز, دانلود گزارش کار, دانلود انتقال حرارت هولمن, دانلود اسلاید اموزشی, دانلود اسلاید اموزشی خوردگی, دانلود اسلایدی کم حجم, دانلود استانداردمهندسی, دانلود استانداردهای مهندسی, دانلود تمام کتابهای مکانیک, دانلود تنظیم خانواده, دانلود تنظیم خانواده دکترباقرزاده, دانلود جزوه, دانلود جزوه مهندسی مکانیک, دانلود جزوه درسی استاتیک, دانلود جزوات درسی مهندسی مکانیک, دانلود حل المسایل مهندسی, دانلود دفترچه سوال, دانلود دفترچه سوالات, دانلود رایگان, دانلود رایگان جزوه, دانلود ساخت نیروگاههای ابی, دانلود سری کامل استانداردهای ASTM تا سال 2006, دانلودفیلمهای اموزشی جوشکاری به روش tig, دانلودکتابهای مکانیک, دانلودرایگان هندبوکهایب مهندسی, دانلودرایگان کتابهای فنی مهندسی, در جريان هاي معکوس, درزمینه معرفی و, ذرات, رفرنس مکانیک, روشهای پیشگیری, روشهای انالیز المان محدود, روغنکاری, ریلیف ولو واصول تعمیرات, ریلیف ولوها, سنکرونایزینگ درسیستم های مکانیکی, سوالات آزمون کارشناسی ارشد دانشگاه سراسری, سیفتی ریلیف ولو The Safety Relief Valve, سیل بندی...ارینگ..پکینگ کوپلینگ, سیستم های تک ورودی, سیستم های تک خروجی, سیستم کدبندی KKS, سیستمهای استاندارد, سیستمهای تهویه مطبوع, سیستمهای تک ورودی وخروجی درمتلب, سانتریفیوژ, ساختمان پمپ, سدکارون, شومز, شیمز, شرکت تعميرات نيروگاهي ايران, ضرورت تنظیم مجدد, عملکرد موتور تراکتور, عملکرد پمپ ها

نمایش برچسب‌ها

Bookmarks

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •