برنامه زیر با پاسکال نوشته شده و ترکیبی از چند برنامه به شرح زیر می باشد:
بعد از اجرای برنامه منویی بصورت زیر قابل مشاهده است...
1-مشخص نمودن این که عدد ورودی اول است یا نه؛
2-مشخص نمودن این که عدد ورودی کامل است یا نه؛
3-مشخص نمودن اعداد اول بین 1 تا 1000؛
4-مشخص نمودن اعداد کامل بین 1 تا 1000؛
5-مشخص نمودن اعداد اول بین دو عدد؛
6-مشخص نمودن اعداد کامل بین دو عدد؛
7-خروج
برای مشاهده سورس برنامه به ادامه مطلب مراجعه فرمایید.
برنامه زیر با پاسکال نوشته شده و ترکیبی از چند برنامه به شرح زیر می باشد:
بعد از اجرای برنامه منویی بصورت زیر قابل مشاهده است...
1-مشخص نمودن این که عدد ورودی اول است یا نه؛
2-مشخص نمودن این که عدد ورودی کامل است یا نه؛
3-مشخص نمودن اعداد اول بین 1 تا 1000؛
4-مشخص نمودن اعداد کامل بین 1 تا 1000؛
5-مشخص نمودن اعداد اول بین دو عدد؛
6-مشخص نمودن اعداد کامل بین دو عدد؛
7-خروج
{ /******************************************************************
* This Program Writed By: *
* "HASSAN AbasAbadi" *
* *
* Feild: *
* ' Computer Engineering (Software) ' *
* *
* Ston: *
* ' 8 5 1 2 0 9 1 9 7 6 ' *
* *
* Program For: *
* 'Pascal ( The First Term 86-87) ' *
* *
* Guide Master: *
* 'Mr.Noroozian' *
**************************************************************/}
Program Simorgh;
Uses
Crt;
Var
a,b,i,j:Integer;
choice,num1,num2,sum,temp:Integer;
fg:Boolean;
BEGIN{Main}
Repeat
Sum:=0;
Textbackground(4);
Clrscr;
Begin
Textcolor(Green);
Gotoxy(20,10);
Write('º1:Insert a Number Prime°');
Gotoxy(20,11);
Write('º2:Insert a kamel Number°');
Textcolor(10);
Gotoxy(20,13);
Write('º3:The Prime''s Number Between" 1_10000 "²');
Gotoxy(20,14);
Write('º4:The kamel''s Namber Between" 1_10000 "²');
textcolor(2);
Gotoxy(20,16);
Write('º5:The Prime''s Number Between" a_b "°');
Gotoxy(20,17);
Write('º6:The kamel''s Number Between" a_b "°');
Textcolor(1);
Gotoxy(30,18);
Write('º7:Exit');
Textcolor(6);
Gotoxy(15,20);
Write('Insert Your Choice And Press Enter To Start:','');
Read(choice);
Begin
Readln;
End;
Case Choice of
1:{analize of primed one number}
Begin
gotoxy(20,10);
clreol;
textcolor(0+blink);
write('............WORKING...............');
Textcolor(9);
Gotoxy(20,22);
Write('Please Enter a Prime Number','®¯:');
Readln(num1);
i:=2; fg:=True;
While i<=(num1 Div 2) Do
Begin
If ((num1 Mod i)=0) Then
fg:=false;
i:=i+1;
End;
If (fg=true) Then
Begin
Textcolor(11);
Gotoxy(20,24);
Write('ok',' °',num1,'°',' Is Prime');
End
Else
Begin
Textcolor(14);
Gotoxy(24,24);
Write('This Number Not PrimeÃÄÄÄÄÄÄ® ¯ÄÄÄÄÄÄÄ´');
Textcolor(226);
Gotoxy(53,24);
Write('TRY AGAIN');
End;
End;
2:{analize of complet one number}
Begin
gotoxy(20,11);
clreol;
textcolor(0+blink);
write('............WORKING...............');
Textcolor(5);
Gotoxy(26,21);
Write('Please Enter A TAM Number:');
Readln(num2);
For i:=1 To ((num2)-1) Do
Begin
If(num2 Mod i)=0 Then
Sum:=sum+i;
End;
If (num2=sum) Then
Begin
Textcolor(11);
Gotoxy(20,23);
Write('™k°',num2,'°',' Is Complte');
End
Else
Begin
Textcolor(14);
Gotoxy(25,23);
Write('This Number Not TAMÃÄÄÄ° °ÄÄÄ´');
Textcolor(115);
Gotoxy(50,23);
Write('Try Again');
End;
End;
3:{number's prime 1_10000}
Begin
gotoxy(20,13);
clreol;
textcolor(0+blink);
write('............WORKING...............');
Gotoxy(24,21);
Textcolor(3);
Write('Prime Numbers Between "1_10000" Are:' );
sum:=0;
For j:=1 To 10000 Do
Begin
sum:=0;
For i:=1 To j Do
If (j Mod i)=0 Then
sum:=sum+i;
If sum=j+1 Then
Write(j:5);
End;
End;
4:{Numbers Complte 1_10000}
Begin
gotoxy(20,14);
clreol;
textcolor(0+blink);
write(' ........WORKING.................');
Textcolor(3);
Gotoxy(26,21);
Writeln('TAM numbers are:');
sum:=0;
For j:=1 To 10000 Do
Begin
sum:=0;
For i:=1 To (j-1) Do
If (j Mod i)=0 Then
sum:=sum+i;
If sum=j then
Write(j:6);
End;
End;
5:{Numbers Prime a_b}
Begin
gotoxy(20,16);
clreol;
textcolor(0+blink);
write('........WORKING...................');
sum:=0;
Textcolor(5);
Gotoxy(25,22);
Write('Please Enter Two Numbers:');
Read(a,b);
For j:=a To b Do
Begin
sum:=0;
For i:=1 To j Do
If(j Mod i)=0 Then
sum:=sum+i;
If (sum=j+1) Then
Write(j:5);
End;
Readln;
End;
6:{Numbers Complte a_b}
Begin
gotoxy(20,17);
clreol;
textcolor(0+blink);
write('............WORKING...................');
sum:=0;
Textcolor(5);
Gotoxy(25,22);
Write('Please Entre Two Numbers:');
Read(a,b);
For j:=a To b Do
Begin
sum:=0;
For i:=1 To (j-1) Do
If (j Mod i)=0 Then
sum:=sum+i;
If (sum=j) Then
Write(j:5);
End;
Readln;
End;
7:{exit}
Begin
End;
End;
End;
Readln;
Until Choice=7
END.{end my program}
تقریبا از تمامی قسمت های وب شما من دیدن کردم و بی نهایت از فعالیت فوق العاده ستودنی شما تشکر می کنم و تبریک خودمو خدمت شما عرض می کنم من دانشجوی ترم اول مهندسی کامپیوتر نرم افزار هستم و امیدوارم روزی به درجه ی افتخار همکاری با شما دوستان هم رشته ی خود برسم و برای شما دوستان ساعی از خدای متعال سلامتی و موفقیت آرزومندم .
از این که نظر دادید متشکرم.
امیدوارم بتونم با کمک شما و دیگر دوستان ای وب رو بیشتر ارتقاء بدم.
و بتونم به دانشجویان و دوستان غزیزم کمک ناچیزی کرده باشم.
با آرزو موفقیت برای شما و همه دانشجویان
حسن عباس آبادی