http://powerpoint.pnu.ac.ir/camputer.htm

نگفتم همون برنامه ها رو میده  حیف شد  ایشاالله قبول بشیم همه فعلا

امروز از پیام نور (کردستان--مرکز سنندج) به من تلفن زدن که برای دریافت کارت فردا مراجعه کنم در ضمن برای تکمیل پروندم خواستن که به باجه های پستی مراجعه کنم و فرم درخواست تاییدیه تحصیلی رو پر و به آدرس زیر ارسال کنم

تهران--جاده لشگرک مقابل ازگل(با تلفظ اوزگول مثه او اردک) سازمان مرکزی پیام نور ساختمان علامه مدیریت دانشستان اداره آموزش

در ضمن استاد تنها امروز در کلاس مبانی:

۱- خیلی تاکید داشتن که تمرینها رو حل کنیم  شمه پلیسله من می گه حتما سوال از هموناس یا خیلی مشابه می باشد

۲-تاکید روی فصل فایلها داشتن که ۴ نمره داره این فصل با توجه به صحبتهای ایشان و باز شمه .... من  ص۳۲۸ کتاب در مورد توابع فایلها است  (چون انگلیسی تایپ نمی شه)موارد ۲تا۷  و۱۰و۱۲و۱۸و۱۹ و در کل حتما سوال میاید

۳-استاد گفتن فایلی در سایت می گذارند که در مورد مبحث فایلها و خیلی مهم است

۴-فصل پیچیدگی الگوریتم سوال نمی اید برا امتحان گفت ۱ دور بخونین

۱ سوال :کدام دستور زیر فقط با فایل متنی فایل مورد استفاده است؟

۱)Append (ص۳۲۸ کتاب تابعها)این گزینه درست است

۲)Read(خواندن)

۳)Seek(انتقال وحرکت.....)

۴)Rewrite(برا نوشتن و....)

خوب خسته نباشید

program moadleharf;
 uses wincrt;
  var n:integer;
    
       begin
        writeln('please enter a num 2 raghami:');
         readln(n);
          if((n>64) and (n<91)) or ((n>96) and (n<123))  then
            writeln(char(n))
             else
              writeln('error');
       end.

program adadehaval;
  uses wincrt;
   var a,b,i,j,m,n,sum:integer;
       l:byte;
       label k;
      begin
          writeln('please enter some number:');
          readln(a);
             writeln('please enter some number:');
          readln(b);
          if (a>b) then
           begin
             m:=a;
             n:=b;
           end;
          if (a            begin
             m:=b;
             n:=a;
          end;   
          sum:=0;
          while (a>0) do
                begin
                   if(a>m) then m:=a;
                   if(a                   writeln('please enter num:');
                   readln(a);
                end;                       
                   for i:=n to m do
                       begin
                         l:=0;
                         for j:=2 to i div 2 do
                             begin
                              if(i mod j=0) or (i=2) then
                                 begin
                                   l:=1;
                                                              
                                 end;
                              end;                                               
                      if (l=0) then sum:=sum+1;
                

                  end;
                  writeln('sum=',sum);                    
           
         end.