لیست برنامه های نوشته شده با پاسکال

اگر بعد از اجرای برنامه با خطای Error200: Division by zero روبرو شدید (این Error در یک کادر پیغام ظاهر میشود) نشان دهنده آن است که یونیت crt برنامه پاسکال شما با مشکل مواجه شده (نصب نشده یا اجرای آن با مشکل مواجه است و یا اینکه آدرس آن شناسانده نشده است). برای رفع این مشکل ابتدا از منوی Options گزینه directories را انتخاب کنید و در قسمت Unit directories مسیر فایلهای یونیت پاسکال را وارد کنید. اغلب موارد مسیر به صورت C:\TP\UNITS است.

اگر باز هم با خطای Error200: Division by zero رو برو شدید، مشکل از برنامه پاسکال نصب شده یا حتی مشکل دز اجرای این یونیت توسط سیستم است.
توجـــــــــه: برنامه پاسکال در ویندوز Vista اجرا نمیشود.
درنهایت اگر مشکل این یونیت رفع نشد برای استفاده از برنامه های زیر خط Uses crt (بعد از قسمت Program) و دستور clrscr (بعد از Begin) را حذف کنید. (در اولین برنامه با رنگ قرمز مشخص شده)
[HR][/HR]تمامی برنامه های زیر تست شده و کاملا Compile شده هستند.
[HR][/HR]
برنامه ای که عددی را دریافت کرده و زوج یا فرد بودن آن را تشخیص دهد.

Program ZojFard; Uses crt; var a:integer;Begin Clrscr; write('Please Enter Number: '); readln(a); if (a mod 2)=0 then writeln('Adad Zoj Ast'); if (a mod 2)<>0 then writeln('Adad Fard Ast'); readln;end.​

[HR][/HR]
برنامه ای که سه عدد دریافت کرده و ماکسیموم و مینیموم آنها را حساب کند.

Program maxmin;var a,b,c,max,min:integer;Begin write('Please Enter First Number: '); readln(a); write('Please Enter Secound Number: '); readln(b); write('Please Enter Thierd Number: '); readln(c); max:=a; min:=b; if b>max then max:=b; if c>max then max:=c; if b writeln('Max= ',max); write('Min= ',min); readln;end.[HR][/HR]​

برنامه ای که عددی را دریافت کرده و مقسوم علیه های آن را چاپ کند.​

Program maghsoom; var a,i:integer;Begin write('Enter Number: '); readln(a); for i:=1 to a do begin if (a mod i)=0 then write(i,' '); end; readln;end.[HR][/HR]​

برنامه ای که حقوق خالص کارمندان را چاپ کند.(2%حقوق پایه ــ (5%حقوق پایه * تعداد فرزندان) + حقوق پایه = حقوق خالص)​

Program Hoghogh;var b:byte; a:longint; c,d,h:real;Begin write('Lotfan Hoghogh ra vared namaeed: '); readln(a); write('Tedad farzandan ra vared konid: '); readln(b); c:=(a*5)/100; d:=(a*2)/100; h:=a+(b*c)-d; writeln('Hoghogh Khales= ',h:10:2); readln;end.[HR][/HR]​

برنامه ای که (y=5x^2+4x+10) را حساب کند.​

Program Formol; { y= 5x^2-4x+10 }var y,x:integer;Begin write('Please Enter x: '); readln(x); y:=(5*x*x)-(4*x)+10; writeln('y= ',y); readln;end.[HR][/HR]​

برنامه ای که اعداد فرد دو رقمی را چاپ کند.​

Program fard; { Adad fard 2 raghami }var i:integer;Begin for i:=10 to 99 do if (i mod 2)<>0 then write(i,' '); readln;end.[HR][/HR]​

برنامه ای که تاریخ را از ورودی گرفته و بگوید چند روز از سال گذشته.​

Program Date1; { Tedad roz haye gozashteh az sal }var d,m,s:integer;Begin write('Please Enter Date: '); readln(d); write('Please Enter Month: '); readln(m); if (m<=6) then s:m-1)*31)+d; if (m>6) then s:m-1)*30)+d+6; write('Date that past of year is: ',s); readln;end.[HR][/HR]​

برنامه ای که تاریخ را از ورودی گرفته و بگوید امروز چند شنبه است. (فقط سال 88)​

Program Date1; { Emroz Chand Shanbeh Ast? }var d,m,s:integer;Begin write('Please Enter Date: '); readln(d); write('Please Enter Month: '); readln(m); if (m<=6) then s:m-1)*31)+d; if (m>6) then s:m-1)*30)+d+6; case (s mod 7) of 1: writeln('Shanbeh'); 2: writeln('1 Shanbeh'); 3: writeln('2 Shanbeh'); 4: writeln('3 Shanbeh'); 5: writeln('4 Shanbeh'); 6: writeln('5 Shanbeh'); 0: writeln('Jomeh'); end; readln;end.[HR][/HR]​

برنامه ای که عددی را برحسب سانتی متر از ورودی گرفته و به کیلومتر، متر، سانتی متر، میلی متر و اینچ تبدیل کند.​

Program convert; { input=mm & output=inch & km,m,cm,mm }var a,m,mm,km,cm:longint; inc:real;Begin write('Please Enter your distance(mm): '); readln(a); inc:a/10)/2.54); km:=a div 1000000; m:a mod 1000000) div 1000); cm:(a mod 1000000) mod 1000) div 10); mm:(a mod 1000000) mod 1000) mod 10); writeln(a,'mm = ',inc:10:3,' Inch'); writeln(a,'mm = ',km,' Kilometr & ',m,' Metr & ',cm,' Cantimetr ',mm,' Milimetr '); readln;end.[HR][/HR]​

برنامه ای که عددی را بر حسب ثانیه از ورودی گرفته و به روز، ساعت، دقیقه، ثانیه، تبدیل کند.​

Program convert2; { input=secound & output=day,houer,miniute,secound }var a,d,h,m,s:longint;Begin write('Please Enter Time(Secound): '); readln(a); d:=a div 86400; h:a mod 86400) div 3600); m:(a mod 86400) mod 3600) div 60); s:(a mod 86400) mod 3600) mod 60); writeln(a,' Secound:'); writeln(d,' Day'); writeln(h,' Houer'); writeln(m,' Miniute'); writeln(s,' Secound'); readln;end.[HR][/HR]​

برنامه ای که اعداد سه رقمی که بر 3 و 7 بخش پذیر باشند را چاپ کند.​

Program bakhshpaziri; { adad 3 raghami ke bar 3 va 7 bakhsh pazir bashand }var i:integer;Begin for i:=100 to 999 do if ((i mod 3)=0) and ((i mod 7)=0) then write(i,' '); readln;end.[HR][/HR]​

برنامه ای که دو عدد را دریافت کرده و اعداد بین آنها که بر 3 و 7 بخش پذیر باشند را چاپ کند.​

Program bakhshpaziri2; var a,b,i:integer;Begin write('Enter First Number: '); readln(a); write('Enter Secound Number: '); readln(b); for i:=a to b do if ((i mod 3)=0) and ((i mod 7)=0) then write(i,' '); readln;end.[HR][/HR]​

برنامه ای که عددی را دریافت کرده و بگوید اول است یا نه.​

program Aval; {adadi ra daryaft karde va begoyad aval ast ya na}var a,n,flag:longint;begin write('Please Enter a number: '); readln(a); flag:=0; n:=2; while (n<=""> begin if (a mod n)=0 then flag:=1; n:=n+1; end; if (flag=0) then writeln('Adad Aval Ast'); if (flag=1) then writeln('Adad Aval Nist'); readln;end.[HR][/HR]​

برنامه ای که عددی را دریافت کرده و اعداد اول کوچکتر از آن را چاپ کند.​

Program Aval2; { Adad aval kochektar az x }var n,a,i,flag,x:longint;Begin write('Enter a number: '); readln(x); flag:=0; n:=2; for i:=1 to x do begin while(n<=""> begin if (i mod n)=0 then flag:=1; n:=n+1; end; if flag=0 then write(i,' '); flag:=0; n:=2; end; writeln; writeln('-----------------------------'); readln;end.[HR][/HR]​

برنامه ای که اعداد اول کوچکتر از 100 را چاپ کند.​

Program Aval3; {Adad aval kochektar az 100}var n,a,i,flag:integer;Begin flag:=0; n:=2; for i:=1 to 100 do begin while(n<=""> begin if (i mod n)=0 then flag:=1; n:=n+1; end; if flag=0 then write(i,' '); flag:=0; n:=2; end; readln;end.[HR][/HR]​

برنامه ای که n عدد را از کاربر گرفته (تا هنگامی که 0 وارد نشده)، اعداد زوج را در آرایه a و اعداد فرد را در آرایه b بریزد.​

Program ArayeZojFard; uses crt;var a: array [1..100] of integer; b: array [1..100] of integer; n,i,j:integer;Begin clrscr; write('Enter Number(inter 0 for quit): '); readln(n); i:=1; j:=1; if (n mod 2)=0 then begin a:=n; i:=i+1; end; if (n mod 2)<>0 then begin b[j]:=n; j:=j+1; end; while (n<>0) do begin write('Enter Number(inter 0 for quit): '); readln(n); if (n mod 2)=0 then begin a:=n; i:=i+1; end; if (n mod 2)<>0 then begin b[j]:=n; j:=j+1; end; end; write('Adad Zoj='); for i:=1 to i-2 do write(a,' '); writeln; write('Adad fard='); for i:=1 to j-1 do write(b,' '); readln;end.[HR][/HR]​

برنامه ای که آرایه ای n تایی از کاربر گرفته و (عدد اول آرایه + عدد آخر آرایه و عدد دوم + عدد یکی مانده به آخر و ...)​

Program Araye1; uses crt;var a: array [1..100] of integer; b: array [1..100] of integer; c,n,m,i: integer;Begin clrscr; write('Enter of digit: '); readln(n); m:=n; for i:=1 to n do begin write('Please Enter Number',i,': '); readln(a); end; c:=1; for i:=1 to m do begin b:=a[c]+a[m]; c:=c+1; m:=m-1; end; for i:=1 to n do begin write(b,' '); end; readln;end.[HR][/HR]​

برنامه ای که دو عدد و یکی از کاراکترهای (+ ، / ، * ، - ، % ) را از کاربر گرفته و حاصل عملگر را روی دو عدد چاپ کند.​

Program amal; { +,/,*,-,% character az vrodi khandeh moshavad } uses crt;var a,b:integer; ch:char;Begin clrscr; write('Enter first number: '); readln(a); write('Enter Secound Numbr:'); readln(b); write('Enter Operator(+,/,*,-,%): '); readln(ch); writeln; if (ch='+') then writeln(a,'+',b,'= ',a+b); if (ch='-') then writeln(a,'-',b,'= ',a-b); if (ch='*') then writeln(a,'*',b,'= ',a*b); if (ch='%') then writeln(a,' mod ',b,'= ',(a mod b)); if (ch='/') then writeln(a,'/',b,'= ',(a/b):5:2); readln;end.​

[HR][/HR]برنامه ای که ده عدد را از ورودی گرفته، در آرایه بریزد و برعکس آنرا چاپ کند.

program p1;
uses crt;
var
i:integer;
a:array [1..10] of integer;
Begin
clrscr;
for i:=1 to 10 do
begin
write('a[',i,']:');
readln(a);
end;
for i:=10 downto 1 do
begin
write(a,' ');
end;
readln;
end.​

[HR][/HR]

برنامه مرتب سازی انتخابی​

program p2;
uses crt;
var
i,j,n,min,temp:integer;
a:array [1..100] of integer;
Begin
clrscr;
write('Enter Number of array:');
readln(n);
for i:=1 to n do
begin
write('Enter a[',i,']:');
readln(a);
end;
for i:=1 to n do
begin
min:=i;
for j:=i+1 to n do
begin
if (a[j] begin
min:=j;
end;
end;
temp:=a;
a:=a[min];
a[min]:=temp;
end;
for i:=1 to n do
begin
write (a,' ');
end;
readln;
end.​

[HR][/HR]

برنامه مرتب سازی حبابی ​

program p3;
uses crt;
var
i,j,n,temp:integer;
a:array [1..100] of integer;
Begin
clrscr;
write('Enter Number of array:');
readln(n);
for i:=1 to n do
begin
write('Enter a[',i,']:');
readln(a);
end;
for i:=1 to n do
begin
for j:=i+1 to n do
begin
if (a[j] begin
temp:=a;
a:=a[j];
a[j]:=temp;
end;
end;
end;
for i:=1 to n do
write (a,' ');
readln;
end.​

[HR][/HR]

برنامه جدول ضرب ۱۰*۱۰ ​

program p4;
uses crt;
var
i,j:integer;
Begin
clrscr;
for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
write(i*j:3);
end;
writeln;
end;
readln;
End. ​

[HR][/HR]برنامه ای که ستاره های روبرو را تولید کند

*
**
***
****
*****program p5_1;
uses crt;
var
i,j,n:integer;
Begin
clrscr;
write('Please Enter n:');
readln(n);
for i:=1 to n do
begin
for j:=1 to i do
begin
write('*');
end;
writeln;
end;
readln;
End. ​

[HR][/HR]

برنامه ای که ستاره های روبرو را تولید کند​

*
***
*****
*******
*********program p5_2;
uses crt;
var
i,j,n:integer;
Begin
clrscr;
write('Please Enter n:');
readln(n);
for i:=1 to n do
begin
for j:=1 to (2*i)-1 do
begin
write('*');
end;
writeln;
end;
readln;
End. ​

[HR][/HR]

برنامه ای که ستاره های روبرو را تولید کند​

*
***
*****
*******
********* program p5_3;
uses crt;
var
i,j,k,n:integer;
Begin
clrscr;
write('Please Enter n:');
readln(n);
for i:=1 to n do
begin
for j:=1 to n-i do
begin
write(' ');
end;
for k:=1 to (2*i)-1 do
begin
write('*');
end;
writeln;
end;
readln;
End. ​

[HR][/HR]

برنامه ای که ستاره های روبرو را تولید کند​

*********
*******
*****
***
*program p5_4;
uses crt;
var
i,j,k,z,n:integer;
Begin
clrscr;
write('Please Enter n:');
readln(n);
for i:=1 to n do
begin
for j:=1 to i do
begin
write(' ');
end;
for k:=i to n do
begin
write('*');
end;
for z:=i to n-1 do
begin
write('*');
end;
writeln;
end;
readln;
End. ​

[HR][/HR]برنامه ای که مثلث روبرو را تولید کند

1
12
123
1234
12345program p5_5;
uses crt;
var
i,j,n:integer;
Begin
clrscr;
write('Please Enter n:');
readln(n);
for i:=1 to n do
begin
for j:=1 to i do
begin
write(j);
end;
writeln;
end;
readln;
End. ​

[HR][/HR]برنامه ای که مثلث روبرو را تولید کند

1
21
321
4321
54321program p5_6;
uses crt;
var
i,j,n:integer;
Begin
clrscr;
write('Please Enter n:');
readln(n);
for i:=1 to n do
begin
for j:=i downto 1 do
begin
write(j);
end;
writeln;
end;
readln;
End.​

[HR][/HR]برنامه ای که مثلث روبرو را تولید کند

1
121
12321
1234321
123454321 program p5_7;
uses crt;
var
i,j,k,z,n:integer;
Begin
clrscr;
write('Please Enter n:');
readln(n);
for i:=1 to n do
begin
for j:=1 to n-i do
begin
write(' ');
end;
for k:=1 to i do
begin
write(k);
end;
for z:=i-1 downto 1 do
begin
write(z);
end;
writeln;
end;
readln;
End.​

[HR][/HR]

برنامه ای که مثلث روبرو را تولید کند​

1
212
32123
4321234
543212345program p5_8;
uses crt;
var
i,j,k,z,n:integer;
Begin
clrscr;
write('Please Enter n:');
readln(n);
for i:=1 to n do
begin
for j:=1 to n-i do
begin
write(' ');
end;
for k:=i downto 1 do
begin
write(k);
end;
for z:=2 to i do
begin
write(z);
end;
writeln;
end;
readln;
End.​

[HR][/HR]برنامه ای که دو عدد را از ورودی گرفته به وسیله تابع حاصلضرب دو عدد را چاپ کند.

program p6;
uses crt;
var
a,b,c:integer;
Procedure zarb(x,y:integer; var z:integer);
begin
z:=x*y;
end;
Begin
clrscr;
write('Please Enter a:'); readln(a);
write('Please Enter b:'); readln(b);
zarb(a,b,c);
writeln(a,'*',b,'= ',c);
readln;
End.​

[HR][/HR]

برنامه ای که عددی را دریافت کرده و فاکتوریل آنرا چاپ کند​

program p7;
uses crt;
var
a,i,fact:integer;
Begin
clrscr;
write('Please Enter Number:'); readln(a);
fact:=1;
for i:=1 to a do
begin
fact:=fact*i;
end;
writeln(a,'!= ',fact);
readln;
End.​

[HR][/HR]

برنامه ای که عددی را دریافت کرده و فاکتوریل آنرا به وسیله تابع حساب کرده و چاپ کند​

program p8;
uses crt;
var
a,b:integer;
Procedure fact(x:integer; var f:integer );
var
i:integer;
begin
f:=1;
for i:=1 to x do
begin
f:=f*i;
end;
end;
Begin
clrscr;
write('Please enter Number:');
readln(a);
fact(a,b);
writeln(a,'!= ',b);
readln;
End. ​

[HR][/HR]برنامه عدد اول به وسیله تابع

program p9;
uses crt;
var
a,flag:integer;
Procedure Aval(x:integer; var flag:integer);
var
i:integer;
begin
for i:=2 to (x-1) do
begin
if (x mod 2=0) then flag:=1;
end;
end;
Begin
clrscr;
write('Please Enter Number:');
readln(a);
Aval(a,flag);
if (flag=0) then writeln('Adad Aval Ast');
if (flag=1) then writeln('Adad aval Nist');
readln;
End. ​

[HR][/HR] برنامه ای که کاراکتر اسکی ۱ تا ۲۵۵ را چاپ کند.

program p10;
uses crt;
var
i:integer;
Begin
clrscr;
for i:=1 to 255 do
begin
write(chr(i):2);
end;
readln;
End.​

[HR][/HR]

برنامه ای که عددی را از کاربر گرفته و جای آنرا در آرایه پیداکند​

program p11;
uses crt;
var
n,i,find:integer;
a:array [1..100] of integer;
Begin
clrscr;
write('Enter Number of Digit:');
readln(n);
for i:=1 to n do
begin
write('Enter a[',i,']:');
readln(a);
end;
write('Find:'); readln(find);
for i:=1 to n do
begin
if (a[i]=find) then find:=i;
end;
writeln('Possition of array is=',find);
readln;
End.[/i]
​