Programing.BlogSky.com
X
تبلیغات
رایتل


برنامه زیر با پاسکال نوشته شده و ترکیبی از چند برنامه به شرح زیر می باشد: 

 

بعد از اجرای برنامه منویی بصورت زیر قابل مشاهده است...
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}