پروژه هاي درخواستي دوستان به زبان برنامه نويسي پاسكال

محاسبه دترمینان ماتریس 3 در 3

ماتريس ترانحاده 5*5

برنامه تبديل مبنای ده به ايکس یا ده به ۲و۳و۴و۵و۶و۷و۸و۹

ادامه نوشته

مثال ها و پروژه هاي درخواستي زبان پاسكال

 

 

 

مثال ها و پروژه هاي درخواستي زبان پاسكال

در ادامه مطلب....

منتظر نظرات سازنده شما دوستان عزيز

ادامه نوشته

برنامه مشتركين تلفن درس برنامه سازي پاسكال سوال پايان ترم مهر ماه 87

برنامه اي كه اطلاعات مشتركين تلفن را دريافت كند

شامل:

•  شماره تلفن number
• اسم مشتركname
• آدرسaddress
• هزينهcost

۱.اطلاعات را بر اساس شماره تلفن مرتب كند ( روال sort)

۲. توسط تابعي اطلاعات مشتريان پرمصرف را در خروجي چاپ كند.

program recordtel;
uses wincrt;
 const n=3 ;
type
  TELCustomer= record
       number:longint;
       name: string[10];
       address:string[50];
       cost:longint;
       end;

  tel_arr= array[1..n] of telcustomer;

  var
     TC:tel_arr;
    i:integer;

   procedure sort(var s:tel_arr) ;
    var
       i,j:integer;
       temp:telcustomer;
   begin
   for i:= 1 to n do
   for j:=1 to n-i do
      if s[j].number > s[j+1].number then
        begin
         temp:=s[j];
         s[j]:= s[j+1];
         s[j+1]:= temp;
        end;

   end;

  function  pormasraf( s:tel_arr):integer ;
   
    var
       max:longint;
       i,index: integer;
    begin
    index:=1;
    max:=s[1].cost;
    for i:=2 to n do
       if s[i].cost >max then
         begin
           max:= s[i].cost;
           index:=i;
           end;

     pormasraf:=index;
   end;
     
  begin  {main }
  writeln(' please read :') ;
   for i:=1 to n do
   begin
      write(i,' number :') ;  readln(tc[i].number);
      write('name :');   readln( tc[i].name);
    
      write('cost : '); readln(tc[i].cost);
       write('address:'); readln(tc[i].address);
   end;

   writeln('   number    name    address        cost');
   for i:=1 to n do
   writeln(i:3,tc[i].number:7, tc[i].name:10,
            tc[i].address:20,tc[i].cost:7);

     sort(tc);

      writeln('   number    name    address        cost');
   for i:=1 to n do
   writeln(i:3,tc[i].number:7, tc[i].name:10,
            tc[i].address:20,tc[i].cost:7);

      i:= pormasraf(tc);
       writeln;
       writeln('   number    name    address        cost');
 
   writeln(i:3,tc[i].number:7, tc[i].name:10,
            tc[i].address:20,tc[i].cost:7);

  end.

 

دوستان عزيز نظر يادتون نره

ابزار برنامه نوسي پاسکال نحت ويندوز Turbo Pascal For Window

ابزار برنامه نوسي پاسکال نحت ويندوز Turbo Pascal For Window

Turbo Pascal یکی از محیط های برنامه نویسی زبان پاسکال است که در محیط داس اجرا می شود و خیلی از برنامه نویسان به خصوص کسانی که در دانشگاه هستند و در رشته رایانه هستند با برنامه Turbo Pascal سر و کار دارند . نقطه ضعف برنامه این است که فقط در محیط داس اجرا می شود و بسیاری از برنامه نویسان دوست دارند در محیط ویندوز با این نرم افزار کار کنند. با آمدن رایانه های جدید و مادربورد های جدید که حتی ویندوز ۹۸ را دیگر ساپورت نمی کنند یا نبود سیستم عامل داس باید چه کرد.

نوعی Turbo Pascal تحت ویندوز وجود دارد اما کار Turbo Pascal را  اندكي به خوبی انجام دهد. كه ما براي شما نسخه از آن را آماده كرديم.

نرم افزار Turbo Pascal كه در بالا بطوركامل معرفي شده براي شما عزيزان گرامي آماده  و در سايت  قرار داده شده و شما بر اساس سليقه ي خودتون آنرا دانلود و از آن استفاده مفيد به عمل آورريد.ضمنا براي هر لينك دانلود دو  لينك اصلي و لينك كمكي قرار داده شده است كه در صورت خرابي هر كدام از ديگري استفاده كنيد. و همچنان بنده دوستان عزيز منتظره ارايه نظرات و پيشنهادات و انتقادات گرانقدر شما در مورد سايت و محتوياتش هستم،هميشه سلامت و موفق باشيد!.  فايل ZIP

لينك دانلود مستقيم با حجم 5750كيلو بايت(لينك اصلي)          (لينك كمكي دانلود)    

پسورد فايل:   ‌www.borna66.ir 

پاسخ تمرینات مبانی کامپیوتر و برنامه نویسی

دوستان عزيز سلام

امروز بنا به درخواست يك دوست عزيزي اونم از تهران براتون حل تمرينات كتاب مباني كامپيوتر و برنامه نويسي يا هعمون پاسكال دانشگاه پيام نور رو مي گذارم كه اميدوارم مفيد واقع بشه .

دانلود كنيد و اميوارم كه همه دانشجويان گروه مهندسي فناوري اطلاعات اين ترم اين درس رو با نمره بلا پاس كنند.

پاسخ تمرینات مبانی کامپیوتر و برنامه نویسی

فصلها	دانلود فصول
فصل ۷
فصل ۸
فصل ۹
فصل ۱۰
فصل ۱۱
فصل ۱۲
فصل ۱۳
فصل ۱۴

رشته ها

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

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

با اجراي دستور str اول مقدار 352.768 به رشته '352.768' تبديل ميشود و در st1 قرار ميگيرد و با اجراي دستورstr دوم مقدار 476.395 به رشته '476.395'تبديل ميشود و در st2 قرار ميگيرد.

ادامه نوشته

پاسكال

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

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.

ادامه نوشته

پاسكال

مثال : برنامه اي بنويسيد كه دو عدد را از ورودي دريافت و چنانچه عدد اول در بازه 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.

ادامه نوشته

Pascal

Pascal

زبان پاسكال یكی از زبانهای برنامه سازی است كه ویژگیهای آموزشی آن بسیار بالاست یعنی زبان خوبی برای آموزش برنامه نویسی منظم و دقیق است.قابلیت خوانایی و درك برنامه های این زبان بالاست ومیتوان برنامه هایی نوشت كه احتمال خطاهای آنها بسیار اندك باشد علتش این است كه یك زبان ساختار یافته (structed) است .

ادامه نوشته