پروژه

برنامه نویسی

ساعت آن لاین

لینک سایت http://www.efestival.ir/clock/ 

کد ساعت

 

http://efestival.ir/clock/efestival6.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="150" height="150">

+ نوشته شده در  جمعه 13 اردیبهشت1387ساعت 6:44 بعد از ظهر  توسط پوریا  | 

300 کتاب الکترونیکی انگلیسی

You Can Find 300 Ebooks and CDs about Computer Sience in Here , Enjoy it

http://safariexamples.informit.com/

0130084565 Mobile Location Services: The Definitive Guide
0130091154 The Linux Development Platform
0130094021 C++: A Dialog: Programming with the C++ Standard Library
0130122475 Informix Handbook
0130211192 XML Processing with Python (with CD-ROM)
0130220280 Practical Programming in Tcl and Tk (3rd Edition )
0130260363 Core Python Programming
0130281875 Real World Linux Security: Intrusion Prevention, Detection and Recovery
0130320722 Just Java 2 (5th Edition )
0130324108 Learning to Program in C++ (CD-ROM)
0130354732 Embedded Software Development with eCos
0130385603 Practical Programming in Tcl and Tk (4th Edition )
0130404462 XSLT and XPATH: A Guide to XML Transformations
0130412066 TrellixWeb Web Site Creation Kit
0130449113 Verilog HDL (2nd Edition )
0130463612 DB2 Universal Database V8 for Linux, UNIX, and Windows Database Administration Certification Guide (5th Edition )
0130463868 BEA WebLogic Server Administration Kit
0130463884 Advanced DBA Certification Guide and Reference for DB2 UDB v8 for Linux, Unix and Windows
0130463914 DB2 Universal Database v8 Application Development Certification Guide, Second Edition
0130464163 Halting the Hacker: A Practical Guide to Computer Security (With CD-ROM)
0130464562 Real World Linux Security (2nd Edition )
0130470651 Analog Electronics with LabVIEW (With CD-ROM)
0130474150 Image Processing with LabVIEW and IMAQ Vision
0130476765 J2EE and JAX: Developing Web Applications and Web Services
0130600814 HP-UX 11i System Administration Handbook and Toolkit
0130618861 LabVIEW for Electric Circuits, Machines, Drives, and Laboratories
0130621544 JumpStart Technology: Effective Use in the Solaris Operating Environment (With CD-ROM)
0130623385 Web Services: A Java Developer's Guide Using e-Speak (With CD-ROM)
0130650765 DB2 Universal Database for OS/390 Version 7.1 Certification Guide
0130654140 Planning Smarter: Creating Blueprint Quality Software Specifications with CDROM
013066538X UNIX Shells by Example (3rd Edition )
0130674494 Integrated Project Management
0130796662 Graphic Java 2, Volume 1: AWT (3rd Edition )
0130796670 Graphic Java 2, Volume 2: Swing (3rd Edition )
0130832928 Core Swing: Advanced Programming
0130844667 Advanced Java Networking (2nd Edition )
0130869856 Windows Graphics Programming: Win32 GDI and DirectDraw (With CD-ROM)


0130882488 Core JSP
0130894680 Core Java 2, Volume 1: Fundamentals (5th Edition )
0130907634 SOAP: Cross Platform Web Services Development Using XML
0130911119 J2EE Applications and BEA WebLogic Server
0130927384 Core Java 2, Volume II: Advanced Features (5th Edition )
0131002872 Thinking in Java (3rd Edition )
0131003135 Applications Interface Programming Using Multiple Languages: A Windows Programmer's Guide
0131007718 DB2 Universal Database for OS/390 v7.1 Application Certification Guide
0131007726 DB2 SQL Procedural Language for Linux, Unix and Windows
0131018833 HP-UX 11i Systems Administration Handbook and Toolkit, Second Edition
0131401580 DB2 Version 8: The Official Guide
0131401629 JavaScript by Example
0131407457 OpenOffice.Org 1.0 Resource Kit
0131493868 PANIC! UNIX System Crash Dump Analysis Handbook (Bk/CD-ROM)
0137669658 Core Java 1.1 Volume II Advanced Features
0201309726 Programming for the Java™ Virtual Machine
0201485397 Java Design Patterns: A Tutorial
0201485583 The Java Tutorial Continued: The Rest of the JDK
0201615762 The Guru's Guide to Transact-SQL
0201657589 LDAP Programming with Java™
0201675234 The Korn Shell: Linux and Unix Shell Programming Manual (3rd Edition )
0201699567 Real-Time Design Patterns: Robust Scalable Architecture for Real-Time Systems
0201700468 The Guru's Guide to SQL Server Stored Procedures, XML, and HTML (With CD-ROM)
0201700476 The Guru's Guide to SQL Server Architecture and Internals
0201702622 Director 8 and Lingo Authorized (3rd Edition )
0201702657 Visual Basic Design Patterns VB 6.0 and VB.NET (With CD-ROm)
0201702843 Adobe® Acrobat® 4.0 Classroom in a Book (2nd Edition )
0201703092 The Practical SQL Handbook: Using SQL Variants (4th Edition )
0201703661 SAP BW: A Step by Step Guide for BW 2.0
0201703939 The Java™ Tutorial: A Short Course on the Basics (3rd Edition )
0201704218 JavaServer Pages
0201709201 Director 8 Demystified
0201710153 Adobe® Illustrator® 9.0 Classroom in a Book
0201710161 Adobe Photoshop 6.0 Classroom in a Book
020171017X Adobe® GoLive® 5.0 Classroom in a Book
0201710188 Adobe Premiere 6.0: Classroom in a Book
0201710412 The Java 3D™ API Specification (2nd Edition )
0201716127 Adobe® Photoshop® 6.0 Studio Techniques
0201719568 Hack I.T.: Security Through Penetration Testing
0201719622 Building Parsers With Java
020172796X Photoshop 6 ImageReady 3 Hands-On Training (With CD-ROM)
0201728281 A Programmer's Guide to Java Certification: A Comprehesive Primer, Second Edition
0201729318 Macromedia Flash 5: Training from the Source
0201729377 Adobe® Acrobat® 5.0 Classroom in a Book


0201729563 Building Scalable and High-Performance Java Web Applications Using J2EE Technology
020172989X Adobe® Photoshop® 6.0 and Illustrator® 9.0 Advanced Classroom in a Book
0201731355 Macromedia Dreamweaver 4: Training from the Source
0201731363 Maxon Cinema 4D 7
0201734028 Create Dynamic Web Pages Using PHP and MySQL
0201741318 Adobe After Effects 5.0: Classroom in a Book
0201741334 Dreamweaver 4 Hands-On Training
0201741644 Macromedia Director 8.5 Shockwave Studio for 3D: Training from the Source
0201750430 After Effects 5 for Macintosh and Windows: Visual QuickPro Guide
0201750775 Guerrilla Oracle: The Succinct Windows Perspective
0201752832 Mcft SQL Server 2000: A Guide to Enhancements and New Features
0201752840 Database Design for Mere Mortals: A Hands-On Guide to Relational Database Design, Second Edition
0201752948 Oracle SQL and PL/SQL Handbook: A Guide for Data Administrators, Developers, and Business Analysts
020175469X After Effects 5.0/5.5 Hands-On Training
0201756242 Adobe Illustrator 10 Classroom in a Book
0201756250 Adobe PageMaker 7.0 Classroom in a Book
0201758210 Process Quality Assurance for UML-Based Projects
0201758466 Macromedia Flash MX Advanced for Windows and Macintosh Visual QuickPro Guide
0201768119 The Java Web Services Tutorial
0201770040 XML and Java: Developing Web Applications, Second Edition
0201770210 Macromedia Flash MX Game Design Demystified
0201770229 Macromedia Flash MX ActionScripting: Advanced Training from the Source
0201774259 Real World XML Web Services: For VB and VB .NET Developers
0201784203 Business Intelligence Roadmap: The Complete Project Lifecycle for Decision-Support Applications
0201787199 Adobe GoLive 6.0 Classroom in a Book (With CD-ROM)
0201787202 Adobe InDesign 2.0 Classroom in a Book
0201791684 The J2EE Tutorial
0201794829 Macromedia Flash MX: Training from the Source
0201795361 Macromedia MX eLearning: Advanced Training from the Source
0201799286 Macromedia Fireworks MX: Training from the Source
0201799294 Macromedia Dreamweaver MX: Training from the Source
0201799405 Code Reading: The Open Source Perspective
0201844532 C# Design Patterns: A Tutorial
0321108949 Applied C++: Techniques for Building Better Software
0321108957 Honeypots: Tracking Hackers
0321112555 Real Web Project Management: Case Studies and Best Practices from the Trenches
0321112768 Photoshop 7/ImageReady for the Web Hands-On Training
0321115627 Adobe Photoshop 7.0 Classroom in a Book
032111583X Final Cut Pro 3 for Macintosh (Visual QuickPro Guide)
0321123808 Java Data Objects
0321125169 ColdFusion MX Web Application Construction Kit, Fifth Edition
0321133455 Troubleshooting Mcft Technologies: The Administrator's Repair Manual
0321150791 JavaServer Pages, Second Edition
0321154991 XForms: XML Powered Web Forms


0321158857 Adobe Premiere 6.5 Classroom in a Book
0321159985 Moving to Linux: Kiss the Blue Screen of Death Goodbye!
0321166809 Macromedia Dreamweaver MX Dynamic Applications: Advanced Training from the Source
0321168828 .NET-A Complete Development Cycle
0321180992 Mac OS X Hands-On Training
0672309998 Alison Balter's Mastering Access 97 Development, Premier Edition , Second Edition (2nd Edition )
0672312417 Visual C++ 6 Unleashed
0672315068 F. Scott Barker's Mcft Access 2000 Power Programming
0672315149 XML Unleashed
0672315335 Sams Teach Yourself Visual Basic 6 in 24 Hours
0672316250 Sams Teach Yourself RoboHELP 2000 for HTML Help in 24 Hours (Teach Yourself -- Hours)
0672317427 Mcft Windows 2000 Professional Unleashed (Unleashed)
0672317842 PHP and MySQL Web Development
0672317958 Building Java Enterprise Systems with J2EE
067231813X Professional Development with Visio 2000 (Other Sams)
0672318873 Com+ Unleashed (Unleashed)
0672318989 Sams Teach Yourself E-Commerce Programming with ASP in 21 Days (Teach Yourself -- 21 Days)
0672319012 Sams Teach Yourself Dreamweaver UltraDev 4 in 21 Days
067231973X Scot Hillier's COM+ Programming with Visual Basic
0672319853 Red Hat Linux 7 Unleashed
0672319977 Mcft SQL Server 2000 Unleashed
0672320541 Applied XML Solutions (Sams Professional Publishing)
0672320606 Kylix Developers Guide (With CD-ROM)
0672320754 Sams Teach Yourself to Create Web Pages in 24 Hours (3rd Edition )
0672321157 Delphi 6 Developer's Guide (With CD-ROM)
0672321335 Zope Web Application Construction Kit
0672321777 Building Dynamic WAP Applications with MobileDev
0672322064 FreeBSD Unleashed (With CD-ROM)
0672322110 Enhydra XMLC Java Presentation Development
0672322242 Sams Teach Yourself C++ in 24 Hours, Complete Starter Kit (3rd Edition )
067232332X Peer-to-Peer Programming on Groove®
0672323478 JBoss Administration and Development
0672323699 Tricks of the Windows Game Programming Gurus (2nd Edition )
0672323842 Sams Teach Yourself J2EE in 21 Days (With CD-ROM)
0672324172 BEA WebLogic Workshop Kick Start
0672324245 Sams Teach Yourself FreeBSD in 24 Hours
067232427X Borland JBuilder Developer's Guide
0672324334 Sams Teach Yourself BEA WebLogic Server 7.0 in 21 Days
0672324598 Maximum Security, Fourth Edition
067232461X Sams Teach Yourself Game Programming in 24 Hours
0672324679 Mcft SQL Server 2000 Unleashed (2nd Edition )
0672324725 Struts Kick Start
0672324806 Borland C++Builder 6 Developer's Guide
0672324873 BEA WebLogic Server 8.1 Unleashed


0672324881 Maximum Wireless Security
067232489X Sams Teach Yourself PHP, MySQL and Apache in 24 Hours
067232525X PHP and MySQL Web Development, Second Edition
067232542X ASP.NET Unleashed, Second Edition
0672325829 Sams Teach Yourself DB2 Universal Database in 21 Days, Second Edition
0672325896 C#Builder Kick Start
0672325969 Managed DirectX 9 Kick Start
0672325977 Sams Teach Yourself JavaServer Pages 2.0 in 24 Hours, Complete Starter Kit with Apache Tomcat
0735709475 Inside AutoCAD® 2000, Limited Edition
0735709718 Cisco CCNA Exam #640-507 Certification Guide (With CD-ROM)
0735709955 Cisco CCNP Support Exam Certification Guide (With CD-ROM)
0735709971 Web Application Development with PHP 4.0 (with CD-ROM)
073571052X C++ XML
0735710619 Windows 2000 Power Toolkit
0735710929 MCSE Training Guide (70-227): Installing, Configuring, and Administering Mcft Internet Security and Acceleration (ISA) Server 2000
0735710945 Inside 3ds max 4
0735711054 Inside Flash (With CD-ROM)
0735711291 MCAD/MCSD/MCSE Training Guide (70-229): SQL Server 2000 Database Design and Implementation
0735711348 Inside LightWave 7 (With CD-ROM)
0735711488 Inside AutoCAD 2002
073571150X Building Accessible Websites (With CD-ROM)
0735711577 MCSE Training Guide (70-244): Supporting and Maintaining a Windows NT Server 4 Network
073571181X Inside Dreamweaver MX
073571195X Java for the Web with Servlets, JSP, and EJB: A Developer's Guide to J2EE Solutions
0735712352 Cocoon: Building XML Applications
0735712530 Inside Maya 5
0735712832 The Flash MX Project
0735713278 Maya 4.5 Fundamentals
0789713993 "Special Edition Using Mcft Excel 97, Best Seller Edition " (2nd Edition )
0789715538 Using Mcft Windows 95 With Internet Explorer 4.0 (Special Edition Using...)
0789716062 Special Edition Using Mcft Access 2000
0789718146 Special Edition Using Lotus Notes and Domino R5
0789719045 Special Edition Using Mcft PowerPoint 2000
0789722534 Using Mcft Project 2000 (Special Edition )
0789722674 Special Edition Using HTML 4 (6th Edition )
0789724448 Special Edition Using Macromedia Flash 5 (with CD-ROM)
0789724472 Mcft SQL Server 2000 Database Development From Scratch
078972510X Special Edition Using Mcft Access 2002
0789725428 Upgrading and Repairing PCs (13th Edition )
0789725576 Upgrading and Repairing Networks (3rd Edition )
0789725673 Special Edition Using Enterprise JavaBeans (EJB) 2.0
0789726270 Special Edition Using Mcft® Windows XP, Home Edition
0789726289 Special Edition Using Windows XP Professional
078972667X Special Edition Using Macromedia Director 8.5 (With CD-ROM)

0789726769 C++ by Example
0789727277 Special Edition Using Adobe GoLive 6
0789727609 Special Edition Using Adobe Photoshop 7
0789727625 Special Edition Using Macromedia Flash MX
0789727633 Special Edition Using Mcft Commerce Server 2002
0789727730 MCSE Training Guide (70 270): Windows XP Professional (With CD-ROM)
0789727900 Platinum Edition Using Mcft Windows XP
0789728001 Upgrading and Repairing Laptop Computers
078972801X CISSP Training Guide
0789728192 MCAD/MCSD Training Guide (70-306): Developing and Implementing Windows-Based Applications with Visual Basic.NET and Visual Studio.NET
0789728206 MCAD/MCSD Training Guide (70-310): Developing XML Web Services and Server Components with Visual Basic .NET and the .NET Framework
0789728214 Sun Certification Training Guide (310-080): Java 2 Enterprise Edition (J2EE) Web Component Developer
0789728249 MCAD/MCSD Training Guide (70-320): Developing XML Web Services and Server Components with Visual C# .NET and the .NET Framework
0789728303 Network+ Training Guide
0789728362 Security+ Training Guide
0789728613 Java 2 Programmer Exam Cram (310-035)
0789728621 Java 2 Enterprise Edition (J2EE) Web Component Developer Exam Cram 2 (Exam Cram 310-080)
078972863X MCSE Windows 2000 Network Infrastructure Exam Cram 2 (Exam Cram 70-216)
0789728648 MCSE Windows 2000 Active Directory Services Design Exam Cram 2 (Exam Cram 70-219)
0789728656 Network+ Exam Cram 2 (Exam Cram N10-002)
0789728664 MCSA Managing a Windows 2000 Network Environment Exam Cram 2 (Exam Cram 70-218)
0789728672 A+ Exam Cram 2 (Exam Cram 220-221, Exam Cram 220-222)
0789728680 Solaris 8 System Administrator Exam Cram 2 (Exam CX-310-011 and CX-310-012)
0789728699 Solaris 9 System Administrator Exam Cram 2 (Exam Cram 310-014, Exam Cram 310-015)
0789728702 Solaris 9 Network Administration Exam Cram 2 (Exam Cram CX-310-044)
0789728710 MCSE Windows 2000 Active Directory Services Infrastructure Exam Cram 2 (Exam 70-217)
0789728729 MCSE Windows 2000 Professional Exam Cram 2 (Exam Cram 70-210)
0789728737 MCSE Windows 2000 Server Exam Cram 2 (Exam Cram 70-215)
0789728745 MCSE Windows XP Professional Exam Cram 2 (Exam Cram 70-270)
0789728788 MCSE/MCSA Training Guide (70-216): Windows 2000 Network Infrastructure, Second Edition
0789728818 MCSE/MCSA Training Guide, Second Edition (70-215): Windows 2000 Server
0789728826 Special Edition Using Mcft CRM
0789728974 MCAD Developing XML Web Services and Server Components with Visual C# .NET and the .NET Framework Exam Cram 2 (Exam Cram 70-320)
0789728982 MCAD Developing and Implementing Web Applications with Mcft Visual Basic .NET and Mcft Visual Studio .NET Exam Cram 2 (Exam Cram 70-305)
0789728990 MCAD Developing and Implementing Windows-based Applications with Mcft Visual Basic .NET and Mcft Visual Studio .NET Exam Cram 2 (Exam Cram 70-306)
0789729008 MCAD Developing XML Web Services and Server Components with Visual Basic .NET and the .NET Framework Exam Cram 2 (Exam Cram 70-310)
0789729016 MCAD Developing and Implementing Web Applications with Mcft Visual C# .NET and Mcft Visual Studio .NET Exam Cram 2 (Exam Cram 70-315)
0789729105 Security+ Exam Cram 2 (Exam Cram SYO-101)
0789729466 MCSA/MCSE Managing and Maintaining a Windows Server 2003 Environment Exam Cram 2 (Exam Cram 70-290)
0789729482 MCSA/MCSE 70-291 Training Guide: Implementing, Managing, and Maintaining a Windows Server 2003 Network Infrastructure


0789729504 MCSE Planning, Implementing, and Maintaining a Mcft Windows Server 2003 Active Directory Infrastructure Exam Cram 2 (Exam Cram 70-294)
0789729512 MCSA/MCSE Implementing and Administering Security in a Windows 2000 Network Exam Cram 2 (Exam Cram 70-214)
0789729520 Special Edition Using Mcft Office Access 2003
0789729539 Special Edition Using Mcft Office Excel 2003
0789729547 Special Edition Using Office Mcft FrontPage 2003
0789729555 Special Edition Using Mcft Office 2003
0789729563 Special Edition Using Mcft Office Outlook 2003
078972958X Special Edition Using Mcft Word 11
0789729725 Easy CDs & DVDs
0789729741 Upgrading and Repairing PCs, 15th Edition
0789729792 Novell's CNE Update to NetWare 6 Study Guide
0789729911 CCNP BCMSN Exam Cram 2 (642-811), Second Edition
078972992X Java 2 Developer Exam Cram 2 (Exam Cram CX-310-252A and CX-310-027)
0789729970 MCDBA, MCSE, MCSD, MCAD Training Guide (70-229): SQL Server 2000 Database Design and Implementation
0789730111 MCSA/MCSE Managing and Maintaining a Windows Server 2003 Environment Exam Cram 2 (Exam Cram 70-292)
078973012X MCSE Planning and Maintaining a Windows Server 2003 Network Infrastructure Exam Cram 2 (Exam Cram 70-293)
0789730170 Cisco BSCI Exam Cram 2 (Exam Cram 642-801)
0789730200 CCNP BCRAN Exam Cram 2
0789730219 CCNP CIT Exam Cram 2 (642-831)
0789730235 CCSP CSPFA Exam Cram 2 (Exam Cram 642-521)
0789730243 CCSP CSI Exam Cram 2 (9E0-131)
0789730251 CCSP SECUR Exam Cram 2 (642-501)
078973026X CCSP CSVPN Exam Cram 2 (Exam Cram 642-511)
0789730367 Easy Mcft Windows XP Home Edition , Second Edition
0789730375 PMP Exam Cram 2
156830370X Adobe® PageMaker® 6.5 Classroom in a Book
1568304676 Adobe Premiere 5.0 Classroom in a Book
157870085X Solaris 2.6 Administrator Certification Training Guide, Part 1
1578702496 Solaris 7 Administrator Certification Training Guide: Part I and Part II
1578702615 Solaris 8 Network Administrator Training Guide (With CD-ROM)
1587050609 Developing Cisco IP Phone Services: A Cisco AVVID Solution
1587130173 High Availability Network Fundamentals (With CD-ROM)
1587200333 Cisco CID Exam Certification Guide
1587200538 CCIE Routing and Switching Exam Certification Guide
1587200554 Cisco CCNA Exam #640-607 Certification Guide (3rd Edition )
1587200767 CCDA Exam Certification Guide (CCDA Self-Study, 640-861), Second Edition
1587200775 CCNP BCMSN Exam Certification Guide (CCNP Self-Study, 642-811), Second Edition
1587200783 CCNP BSCI Exam Certification Guide (CCNP Self-Study), Second Edition
158720083X CCNA ICND Exam Certification Guide (CCNA Self-Study, 640-811, 640-801), Fourth Edition
0735711291 MCAD/MCSD/MCSE Training Guide (70-229): SQL Server 2000 Database Design and Implementation
0735711534 Fireworks MX Fundamentals

+ نوشته شده در  سه شنبه 9 بهمن1386ساعت 0:54 قبل از ظهر  توسط پوریا  | 

دیکشنری آن لاین

+ نوشته شده در  پنجشنبه 4 بهمن1386ساعت 0:4 قبل از ظهر  توسط پوریا  | 

برنامه ی محاسبه ماکسیمم در پاسکال

Program Maximum;

      uses crt; {Call CRT Unit }

      label 1;

      var n,n1,i,m,j,x,y,max : longint; {Define Variable }

begin { Start Program}

  clrscr; {For Clear Screen}

  j := 1;

  textcolor(9); {For Change Text color , 9 is Equal Dark Blue }

  Write(' : چه تعداد عدد را میخواهید محاسبه کنید Maximum');

  gotoxy(10,1);

  read(n);

  writeln('');

  textcolor(green);

  write(' Number 1 : ');

  read(n1);

  max := n1;

  for i := 2 to n do

   begin

      textcolor(3);

      writeln('');

      textcolor(green);

      write(' Number ',i,' : ');

      readln(m);

1:    if m > max then max := m;

      j := j+1;

      if j < n then

      goto 1;

  end;

  textcolor(yellow);

  writeln('');

  write(' (MAX) ماکسیمم : ', max,' ');

  readln;

end. {End of Program}

+ نوشته شده در  شنبه 5 آبان1386ساعت 3:16 بعد از ظهر  توسط پوریا  | 

مقدار سینوس را بر حسب رادیان چاپ می کند؟

program sin;
uses crt;
var i,e,n,y,sign:integer;
    sum,x,pow,fact:real;
   begin
   sign:=1;
   clrscr;
   write('enter radin:');
   readln(x);
   write('how many sentence do you want to calculate:');
   readln(y);
   sum:=x;n:=3;
  while n<=(2*y-1) do begin
      fact:=1; i:=1;
      pow:=1;
     while i<=n do begin
         fact:=fact*i;
         pow:=pow*x;
         i:=i+1;
     end;
      sign:=sign*(-1);
      sum:=sum+sign*pow/fact;
      n:=n+2;
  end;
   writeln;
   writeln('sin(',x:2:3,')= ',sum:2:3);
   readln;
end.

 

 

 


 

+ نوشته شده در  شنبه 5 آبان1386ساعت 2:12 بعد از ظهر  توسط پوریا  | 

مقدار سینوس را بر حسب رادیان چاپ می کند؟

program sin;
uses crt;
var i,e,n,y,sign:integer;
    sum,x,pow,fact:real;
   begin
   sign:=1;
   clrscr;
   write('enter radin:');
   readln(x);
   write('how many sentence do you want to calculate:');
   readln(y);
   sum:=x;n:=3;
  while n<=(2*y-1) do begin
      fact:=1; i:=1;
      pow:=1;
     while i<=n do begin
         fact:=fact*i;
         pow:=pow*x;
         i:=i+1;
     end;
      sign:=sign*(-1);
      sum:=sum+sign*pow/fact;
      n:=n+2;
  end;
   writeln;
   writeln('sin(',x:2:3,')= ',sum:2:3);
   readln;
end.

 

 

 


 

+ نوشته شده در  شنبه 5 آبان1386ساعت 2:11 بعد از ظهر  توسط پوریا  | 

مقدار سینوس را برحسب رادیان محاسبه می کند.

program grade;
uses crt;
var
   g,u,m,us:integer;
   name:string;
   a:real;
begin
   clrscr;
   m:=0;
   us:=0;
   write('enter your name:');
   readln(name);
   write('enter your g:');
   readln(g);
   write('enter your u:');
   readln(u);
   while g<>-1 do begin
      m:=m+g*u;
      us:=us+u;
      write('enter your g:');
      readln(g);
      write('enter your u:');
      readln(u);
   end;{while}
   a:=m/us;
   writeln(name,' your average is ',a:2:3);
   readln;
end.

 

+ نوشته شده در  شنبه 5 آبان1386ساعت 2:10 بعد از ظهر  توسط پوریا  | 

دنباله فیبونانچی

uses crt;
var a,b,c,d,n,i:integer;
begin
   clrscr;
   write('enter 2 numbers of fibonanchi series:');
   readln(a,b);
   write('how many sentence do you want to sum:');
   readln(n);
   for i:=0 to n do begin
      c:=a+b;
      d:=c+b;
      textcolor(i);
      writeln(c:5);
      writeln(d:5);
      a:=c;
      b:=d;
   end;
   readln;
end.

 

+ نوشته شده در  شنبه 5 آبان1386ساعت 2:9 بعد از ظهر  توسط پوریا  | 

آیا عددی اول است یا نه؟

program avval;
var b,i,n,z:integer;
begin
   b:=0;
   i:=1;
   write('enter number:');
   readln(n);
   while i<=n do begin
      z:=n mod i;
      if z=0 then b:=b+1;
      i:=i+1;
   end;{while}
   if b=2 then writeln(n,'is avval')
    else writeln(n,'is not avval');
   readln;
end.

+ نوشته شده در  شنبه 5 آبان1386ساعت 2:7 بعد از ظهر  توسط پوریا  | 

Remote Shutdown

 سلام

 

در اين پست با آموزش يكي از برنامه هايي در ويندوز كه خيلي از افراد از وجود آن بي خبرند در خدمت شما هستم.

اميدوارم كه از اين مطلب در جهت آزار رساندن به ديگران استفاده نكنيد.

 

 

برنامه  Remote Shutdown  يكي از برنامه هايي است كه به صورتي تقريبا مخفي در ويندوز ايكس پي موجود است . اين برنامه اين امكان را در اختيار شما قرار مي دهد كه با داشتن نام كامپيوتر(ها) در شبكه بتوانيد آن كامپيوتر را پس از گذشت زماني كه شما تعين مي كنيد و با پيغام دلخواهي كه شما به كاربر آن كامپيوتر (ها) نمايش مي دهيد ,  Log Off  , Restart Shutdown  كنيد . (البته در حالت Log Off شما نيمتوانيد زمان و پيامي مشخص كنيد چون عمل Log Off به صورت سريع اعمال مي شود ).

 

البته من اين برنامه را فقط روي شبكه هاي داخلي امتحان كرده ام و در شبكه اينترنت از آن استفاده اي نكرده ام.

 

 براي اجراي اين برنامه ابتدا وارد منوي Start  شده و گزينه Run   را برگزينيد .

در كادر محاوره اي باز شده در جلوي Open  عبارت    Shutdown -i   را وارد كرده و بر روي دكمه Ok  كليك كنيد :

 

 

 

 

اگر ويندوز ايكس پي را بطور كامل و صحيح نصب كرده باشيد و در يك user  با امكانات مدير سيستم ( Administrator ) قرار داشته باشيد برنامه اجرا شده و كادر محاوره اي Remote Shutdown Dialog   به صورت زير باز مي شود :

 

 

                       

 

 

حالا آموزش قسمت هاي مختلف برنامه طبق شماره هايي كه در تصوير مشاهده مي كنيد را باهم دنبال مي كنيم :

 

در ليستي كه در  قسمت شماره 1  برنامه وجود دارد  نام كامپيوتر (ها) يي كه شما انتخاب نموده ايد نمايش داده مي شود .

 

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

 

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

 

با استفاده از دكمه شماره 4 شما قادريد كه به  جستجوي كامپيوتر ها در شبكه پرداخته و نام آنها را بدست آوريد.

 

در قسمت شماره 5  بايد نوع كاري را كه مي خواهيد با كامپيوتر انتخاب شده انجام دهيد انتخاب نماييد.( توجه كنيد كه در حالت Log Off شما نيمتوانيد زمان و پيامي

مشخص كنيد. )

 

در قسمت شماره 6  يك   Check Box  قرار دارد كه اگر تيك آن را بگذاريد مي توانيد يك فاصله زماني را براي انجام عمل انتخاب شده در قسمت 5 مشخص كنيد .

 

اگر تيك قسمت شماره 6 را گذاشته باشيد قسمت شماره 7 كه يك كادر ورودي متن است فعال مي گردد و مي توانيد در آن يك فاصله زماني به ثانيه بنويسيد تا عمل انتخاب شده در قسمت شماره پنج رخ دهد.

 

در قسمت شماره 8 شما قادريد كه متن پيامي را كه مي خواهيد به كاربر كامپيوتر (ها)يي كه انتخاب كرده ايد نمايش داده شود را تايپ كنيد.

 

در پايان بر روي دكمه Ok  كليك نماييد . اگر تنظيمات را درست انجام داده باشيد  و شبكه شما برقرار باشد و همچنين كامپيوتر مورد نظر شما در حال كار كردن باشد عملي را كه انتخاب كرده ايد با نمايش كادري در كامپيوتر كاربر مورد نظر اعمال مي شود  توجه كنيد كه براي اينكه جلوي هر گونه عكس العملي را از كاربر بگيريد زمان را خيلي كم يا حتي صفر بگيريد .

 

اميدوارم از اين آموزش استفاده كافي برده باشيد.

 

شما ميتوانيد در قسمت نظرات مطالبي را كه مايليد در مورد ويژوال بيسيك و ويندوز در وبلاگ نوشته شود بيان كنيد تا بتوانيم مطالب مورد نظر شما را فراهم نماييم.

 

                                             موفق باشيد .

+ نوشته شده در  سه شنبه 1 آبان1386ساعت 5:57 بعد از ظهر  توسط پوریا  | 

معرفی فایل متنی

Var

Text : نام فايل

نسبت دادن فايل :

; (’نام خارجي ,’نام فايل ) assign

مثال :

Assign(f,’c:\a۱.dat.ddd’);

باز كردن جهت خواندن

;( نام فايل)reset

باز كردن جهت نوشتن

; ( نام فايل)rewrite
) ___,نام فايل)readln
) ___,نام فايل)writeln
) نام فايل)close

تا close انجام نشود data ذخيره نميشود .
نكته بسيار مهم : در هر يك از مسائلي كه در مورد فايلها مطرح ميشود مي بايستي به نحوي از يكي از تكنيكهاي نگهداري اطلاعات در حافظه اصلي استفاده نمود اين تكنيكها ممكن است استفاده از متغيرها و آرايه ها و ماتريسها و ودرختهاو…استفاده نمود ولي تنها با دو عمل خواندن و نوشتن به روي فايل كار انجام ميشود
Update : ميخوانيم ولي دوباره ميريزيم سر جاش
Append : بهش يك چيزي اضافه ميكنيم
نكته : عمل rewrite باعث ميگردد چنانچه فايل وجود نداشته باشد ايجاد و چنانچه وجود دارد اطلاعاتش به طور كامل پاك شود.
مثال : برنامه اي بنويسيد كه۱۰۰ اسم را از ورودي دريافت و آنها را در يك فايل به نام a۱.dat))بنويسد.

Var
F:text;a:string;
Begin
Assign(f,’a۱.dat’);
Rewrite(f);
For i:=۱ to ۱۰۰ do
Readln(a);
Writeln(f,a);
End;
Close(f);
End.

مثال : برنامه اي بنويسيد كه فايل a۱.dat را خوانده و به ما بگويد چند بار اسم ali تكرار شده است؟

Var
A:text;
B:string;
Begin
Assign(a,’a۱.dat’);
Reset(a);
Sum:=۰;
For i:=۱ to ۰۰ do
Begin
Readln(a,b);
If b=’ali’ then
Sum:=sum+۱;
End;
Close(a,b);
End;

مثال : برنامه اي بنويسيد كه تعدادي اسم را كه آخرين آنها end است از ورودي دريافت و در يك فايل به نام aa.dat بريزد آنگاه فايل را بسته و قسمتهاي زير را به طور جداگانه انجام دهد.
۱- تعداد حسنها بيستر است يا علي ها
۲- چند اسم وجود دارد كه با حرف z شروع ميشود.

Var
f:text;
Name:string;
Begin
Assign(f,’aa.dat’);
Rewrite(f);
Readln(name);
While name<> ‘end’ do
Begin
Writeln(f,name);
Readln(name);
End;
Close(f);
H:=۱;
A:=۱;
Z:=۱;
Reset(f);
While not eof (f) do
Begin
Readln(f,name);
If name=’ali’ then
A:=a+۱;
If name =’hassan’ then
H:=h+۱;
End;
Close(a);
If h>a then writeln(’h>a’);
If h
If h=a then writeln(’h=a’);
End;
Close(f);
Reset(f);
While not eof (f) do
Begin
Readln(f,name);
If name[i]=’z’ then
Z;=z+۱;
End;
Close(f);
Writeln(’sum of z is :’z);
End.

تكليف : برنامه اي بنويسيد كه تعدادي نام را از ورودي دريافت و در يك فايل بريزد سپس فايل تشكيل شده را باز كرده و از روي اين فايل دو فايل ديگر تشكيل دهيد كه در يكي از آنها اسامي كه بين a تا z قرار گرفته اند ريخته و در فايل دوم كليه اسامي كه از v تا z هستند را بريزد.

Program test;
Var
Name : string;
F,f۱,f۲:text;
Begin
Assign(f,’a.dat’);
Rewrite(f);
Writeln(’enter a name ‘);
Readln(name);
While length(name)>۰ do
Begin
Writeln(f,name);
Writeln(’enter a name’);
Readln(name);
End;
Close(f);
Reset(f);
Assign(f۱,’a۱.dat’);
Assign(f۲,’a۲.dat’);
Rewrite(f۱);
Rewrite(f۲);
While not eof (f) do
begin
Readln(f,name);
Case name[۱] of
‘a’..’u':writeln(f۱,name);
‘v’..’z':writeln(f۲,name);
end;
end;
close(f۲);
close(f۱);
close(f);
end.

تكليف : برنامه اي بنويسيد كه نام دو فايل را از ورودي دريافت و از اطلاعات داخل اين دو فايل فايل سومي تشكيل دهد كه حاصل تركيب دو فايل قبل باشد.

var
h,f,g:text;
a:string;
begin

writeln(’enter first filename’) ;
readln(a);
assign(h,a);
writeln(’enter second filename’) ;
readln(a);
assign(f,a);
reset(h);
reset(f);
assign(g,’out.dat’);
rewrite(g);
while not eof(h) do
begin
readln(h,a);
writeln(g,a);
end;
while not eof(f) do
begin
readln(f,a);
writeln(g,a);
end;
close(f);
close(h);
close(g);
End.

تكليف :برنامه اي بنويسيد كه در ضمن عمل merge دو فايل مرتب شده را با يكديگر تركيب و يك فايل مرتب شده به دست آوريم.

+ نوشته شده در  سه شنبه 1 آبان1386ساعت 4:43 بعد از ظهر  توسط پوریا  | 

کار با فایل ها

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

Var y۱,y۲:real;
St۱,st۲ : string;
Y۱:=۳۵۲.۷۶۸
Y۲:=۴۷۶.۳۹۵
Str(y۱:۷:۲,st۱);
Str(y۲:۳:۱,st۲);

با اجراي دستور str اول مقدار ۳۵۲.۷۶۸ به رشته ‘۳۵۲.۷۶۸′ تبديل ميشود و در st۱ قرار ميگيرد و با اجراي دستورstr دوم مقدار ۴۷۶.۳۹۵ به رشته ‘۴۷۶.۳۹۵′تبديل ميشود و در st۲ قرار ميگيرد.
جدا كردن زيررشته اي از رشته:
زيررشته بخشي از رشته است و براي جدا كردن زيررشته از رشته از تابع copy استفاده ميشودتابع copy به صورت زير به كار ميرود.

Copy (source,index,size)
S:=’I am learning pascal ‘;
S۱:=copy(s,۱۵,۶);

دستور copy باعث ميگردد تا با شروع از محل ۱۵ تعداد ۶ كاراكتر از رشته s استخراج شود و در s۱ قرار گيرد. بنابراين محتويات رشته s۱ برابر است با ‘pascal’.
الحاق رشته ها :
منظور از الحاق رشته ها اتصال رشته ها به يكديگر است به عنوان مثال اگرs۱:=’ab’ و s۲:=’cde’ الحاق دو رشته (s۱,s۲) به صورت ‘abcde’ خواهد بود براي الحاق رشته ها از تابع concat استفاده ميشود:
(اسامي رشته ها)concat
دستورات زير را در نظر بگيريد:

S۱:=’pascal’;
S۲:=’is a ;
S۳:=’language’;
S۴:=concat(s۱,s۲,s۳);

با اجراي اين دستور s۳ به انتهاي s۲ متصل ميشود و رشته نتيجه به انتهاي s۱ متصل ميگردد و در نتيجه رشته s۴ عبارت است از’pascal is a language’: . اگر طول رشته حاصل بيش از ۲۵۵ باشد بقيه كاراكترها حذف ميشوند.
جستجوي رشته اي در رشته ديگر:
براي اين كار از تابع pos استفاده ميشود كاربرذ اين تابع به صورت زير است:

Pos(s۱,s۲)

S۱ رشته اي است كه بايد در s۲ وجود داشته باشد محل اولين وقوع آن برگردانده ميشود و گر نه مقدار صفر برگردانده ميشود دستورات زير را در نظر بگيريد:

S۱:=’learning’
S۲:=’I am learning pascal’;
S۳:=’english’
X:=pos(s۱,s۲)
y:=pos(s۳,s۲)

چون رشته s۱ در s۲ وجود دارد دستور pos اول مقدار ۶ را در x قرار ميدهد و معنايش اين است كه رشته ‘learning’ در محل ۶ رشته s۲ وجود ندارد مقدار صفر در y قرار ميگيرد.
محاسبه طول رشته :
براي محاسبه طول رشته از تابع length به صورت زير استفاده ميشود:
(رشته)length
دستورات زير را در نظر بگيريد:

S۱:=’xymn’
X:=length(s۱)

چون طول رشته s۱ برابر ۴ است مقدار x برابر ۴ خواهد بود.
حذف و درج زيررشته:
زير رشته اي را ميتوان از رشته اي حذف كرد و يا زيررشته اي را ميتوان در رشته اي درج كرد براي حذف زير رشته از زيربرنامه ها به صورت زير به كار ميروند:

Delete(source,index,size)
Insert(pattern,destination,index)

در زيربرنامه delete زيررشته اي به طول size با شروع از محل index از رشته source حذف ميشود و در زيربرنامه insert زيررشته pattern با شروع از محل index در رشته destination درج ميشوددستورات زير را در نظر بگيريد:

S۱:=pas***cal
Delete(s۱,۴,۳)
S۲:=’paal’;
S۳:=’sc’;
Insert(s۳,s۲,);

دستور delete باعث ميشود تا با شروع از محل ۴ رشته s۱ حذف شده و رشته s۱ به pascalتبديل شود دستور insert موجب ميشود تا رشته s۳ در s۲ درج شود و در نتيجه رشته s۲ به ‘pascal’ تبديل شود.
مثال : برنامه اي بنويسيد كه يك اسم را از ورودي دريافت و آنرا بر عكس چاپ كند

Readln(name);
For i:=length(name) downto ۱ do
Write (name[i])

مثال : برنامه اي بنويسيد كه كه يك نام را از ورودي دريافت و به ما بگويد كه آيا اين نام با حرف a شروع ميشود يا خير؟

Readln(name);
If name[۱]=’a’ then
Writeln(’ok’)
Else
Writeln(’not ok’);

مثال : برنامه اي بنويسيد كه يك نام را از ورودي دريافت و حروف آنرا يك در ميان چاپ كند.

Readln(name);
For i:=۱ to length(name) do
If I mod ۲ = ۰ then
Writeln(name[i]);

روش ديگر:”

For i:=۱ to int(length(name)/۲) do
Writeln(name[i*۲]);

مثال : برنامه اي بنويسيد كه يك رشته را از ورودي دريافت و متقارن بودن آنرا چك كند.
۱ ۲ ۳ ۴ ۵ ۵ ۴ ۳ ۲ ۱

var
N:string;
Begin
Readln(n);
For i:=۱ to int(length(n)/۲) do
Begin
If n[i] <> n[length(n)-i+۱] then
K:=۰;
End;
If k=۱ then
Writeln (’ok’)
Else
Writeln(’no’);
End.

مثال : برنامه اي بنويسيد كه تعداد حروف a موجود در يك رشته ورودي را بشمارد.

Var st:string;
Begin
Readln(st);
C:=۰;
For i:=۱ to length(st) do
If st[i]=’a’ then ?if st[i] in [’a',’A'] then
C:=c+۱;
Writeln(c)

مثال : برنامه اي بنويسيد كه تعداد اسامي alireza موجود در رشته را بشمارد.

Begin
Readln(st);
C:=۰;
While pos(’alireza’,st) <> ۰ do
Begin
C:=c+۱;
J:=pos(’alireza’,st);
Delete(st,pos(’ali’,st),۳);
End;
Write ( c );
End.

مثال : برنامه اي بنويسيد كه دو رشته را از ورودي دريافت و بعد از كاراكترمساوي كه در رشته اول وجود دارد رشته دوم را چاپ كند.

Readln(st,st۱);
J:=pos(’=',st);
Writeln(copy ((st,۱ j) , st۱, copy (st,j+۱,۱۰۰));

تكليف : برنامه اي بنويسيد كه با دريافت سه حرف و قرار دادن آنها در يك آرايه سه تايي كليه تركيبات ممكن را كه سه حرف تركيباتشان به هم نخورد چاپ كند.
W a x
A x w
W a x
مثال : برنامه اي بنويسيد كه يك رشته را از ورودي دريافت و كليه كلمات موجود در آن را بشمارد.

Readln(st);
S:=۰;
St:=st+’ ‘
While pos(’ ‘,st) <> ۰ do
Begin
S;=s+۱;
Delete(st,۱,pos(’ ‘,st));
While st[۱]=’ ‘do
Delet (st,۱,۱);
End;
End.

تكليف : برنامه اي بنويسيد كه ۱۰۰ رسته را از ورودي دريافت و در يك آرايه به طول ۱۰۰ از نوع string بريزيد و به سؤالات زير جواب دهد.
۱- تعداد كل كلمات
۱- تعداد كل حروف
۲- تعداد حروف صدا دار

ذخيره اطلاعات :
Log file : فايلي است كه تمام تغييرات مربوط به يك محيط را ثبت ميكند
فايلها :
۱- متني text
۲- ركوردي typed
۳-بدون نوع
۴-untyped

+ نوشته شده در  سه شنبه 1 آبان1386ساعت 4:42 بعد از ظهر  توسط پوریا  | 

اموزش پاسکال

زبان برنامه نويسي پاسکال

پاسکال يک زبان برنامه نويسي ساختار يافته مي باشد
يعني نوشتن برنامه ها به صورت بلاک هاي مجزا و
پي در پي صورت مي گيرد که فايده اين کار در اين
است که اشکال زدايي از برنامه ها راحت ترصورت ميگيرد

اشنايي با قواعد - فرمانها - ثابت ها

1. شناسه

شناسه ها به صورت کلي به نامي گفته ميشود که
برنامه نويس از ان براي رجوع به متغير ها يا اجزاي
ديگر برنامه استفاده مي کند . شناسه به صورت کلي به
دو دسته تقسيم مي شوند . يک : شناسه هاي استاندارد
که اين نوع شناسه ها در واقع همان دستورات و توابع
موجود در پاسکال هستند مانند
(
Read - Write - Ord - Succ , ... )
دو : شناسه هاي غير استاندارد که اين نوع از شناسه ها
توسط خود برنامه نويس تعريف ميشود مانند : نام متغير
نام برچسب و غيره


چگونگي نامگذاري شناسه ها يا متغير ها

شناسه ها در پاسکال بايد با يک حرف يا يک خط زير ( _ ) شروع
بشن . و نبايد براي نامگذاري شناسه اون رو با عدد شروع کرد
همچنین نباید برای نامگذاری یک شناسه یا متغیر از کاراکتر
فاصله استفاده کرد

نکته : بعضي از کلمات براي پاسکال معني خاصي دارن
که نبايد از اونا براي نامگذاري متغير يا شناسه استفاده بشه
اين کلمات رو کلمات ذخيره شده در پاسکال مي نامند
تمامي دستورات پاسکال و توابع از اين قبيل هستند
(
Read - Begin - End - Write , ... )

مثال : چند شناسه قابل قبول در پاسکال

Test - Ali - Ab3f - ok_2005 - _reza

چند شناسه غير قابل قبول در پاسکال

45
df -d sds - read - write

2. تعريف يک شناسه

شکل کلي :

Var
نوع داده : نام متغير يا متغيرها;

مثال :

Var
Test:integer;

3. انواع داده هاي موجود در پاسکال

الف : داده هاي عددي که خود دو نوع است

1. 
داده از نوع صحيح
2.داده از نوع اعشاري
 

انواع داده نوع صحيح :

1.
Short int ( 1 byte فضا اشغال ميکند )
2.
Byte ( 1 byte فضا اشغال مي کند )
3.
Integer ( 2 byte فضا اشغال مي کند )
4.
Word ( 2 byte فضا اشغال مي کند )
5.
Longint ( 4 byte فضا اشغال مي کند )

داده اعشاري :

1.
Real ( 6 byte فضا اشغال ميکند )

ب:
Boolean

اين نوع داده يکي از دو مقدار
True يا False
را در خود نگه ميدارد

ج :
String

اين نوع داده داده کاراکتري است و مي توان
تا 255 کاراکتر در ان قرار داد



مثال :
Var
a,b:integer;

str:string

c:Real;

f,k,h:word;

3.
Const ( ثابت ها )

ثابت ها مقاديري هستندکه در طول اجراي برنامه
به هيچ وجه تغيير نمي کنند و ثابت هستند

شکل کلي تعريف يک ثابت

Const
شناسه=مقدار;

مثال :

Const
Test=42.35;

نکته :
( ; ) پس از پايان هر دستور بايد علامت
سيمي کالن را قرار بدين . در غير اين صورت با پيغام خطاي
Error 85 : ";" expected
مواجه ميشيد

ثابت ها يکي از کم کاربرد ترين شناسه ها در
پاسکال هستند و معمولا در برنامه هايي که داده هاي
ان مشخصند و تغيير نمي کنند مي تونيم از ثابت ها
استفاده کنيم

4 . علايم () - { } - [ ]

اين علايم نيز معني خاصي براي پاسکال دارند
که به ترتيب در مورد هر يک توضيح مي دم

(
) : مي تونيد عبارتي رو توش قرار بديد

{ } : مي تونيد داخلش توضيحي بنويسيد . نوشتن
توضيح هيچ تا ثيري در برنامه شما نداره و صرفا
پاسکال اون رو يک توضيح فرض ميکنه

[ ] : مي تونيد شروع يا پايان انديس ارايه اي رو
درش قرار بدين در مورد ارايه بعدا صحبت ميکنيم

ساختار يک برنامه پاسکال
هر برنامه پاسکال از سه بخش تشکيل شده

1 . Heading ( عنوان )

2 .
Declarations ( تعاريف )

3 .
Block ( بلاک يا تنه اصلي )

شروع شده و به Begin نکته : تنه اصلي با
ختم مي شود
End.

حالا يک مثال ساده براي اين که خوب جا بيفته
( در مورد دستورات به کار رفته در برنامه
بعدا توضيح مي دم اين برنامه صرفا براي
اشنايي با ساختار يک برنامه پاسکاله )

مثال 1 . برنامه اي بنويسيد تا نام شما را از ورودي
گرفته سپس ان را نمايش دهد

Program Test; ( عنوان که ميتوانيد ان را ننويسيد )
uses crt;
Var ( بخش تعاريف )
Name:string;
a:integer;
Begin ( تنه اصلي )
clrscr;
write('Please Enter Your Name:');
read(name);
writeln('Salam',Name);
read(a)
end;


دستورات پاسکال

1.
Read :

شکل کلي:

read(متغير )

توضيح : اين دستور داده اي را از طرف کاربر

دريافت مي کند . اين داده ممکن است يک عدد يا يک

عبارت( رشته ) باشد.


2. readln :

را انجام Read اين دستور کاري مشابه دستور

ميدهد با اين تفاوت که بعد از دريافت داده مکان نما

به يک خط پايين تر منتقل مي شود


نکته :

اگر تعداد داده هاي داده شده توسط read در دستور

کاربر بيشتر از متغير ها باشد داده هاي اضافي حذف نميشود


مثال :

مثلا اگر :

read(a,b,c);

يعني ما سه متغير داشته باشيم و کاربر هم اعداد :

8و 7 و 3 و 12 و 4

را وارد کند انگاه اعداد 7 و 8 اعداد اضافي هستند

که حذف نميشن و ميشه در ادامه برنامه از اونا استفاده

کرد

3 .
write

از اين دستور براي نمايش اطلاعات استفاده مي شود
و شکل کلي ان به صورت زير است :

write(' عبارت ' );

يا

write(متغير );

يا ترکيبي از هردو .

تذکر : هر چيزي را که بين دو علامت ' ' بنويسيم به عنوان

يک رشته يا يک عبارت محسوب مي شود حتي اگر چيزي که

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

نکته : براي انجام عمليات رياضي در پاسکال از

( + , - , * , / ,
mod , div ,abs , sqr , ... )

استفاده مي کنيم و اما کاربردشون :

از بالا به پايين اولويت ها کم ميشود

منظور از اولويت اينه که در انجام محاسبات کدام

علامت مقدم تره مثلا قرينه سازي بالاترين اولويت

و جمع و تفريق کمترين اولويت رو دارن

1. + , - :( قرينه سازي ( يا همون مثبت و منفي

2. * , /: ضرب و تقسيم اعشاري

3.
div , mod :

div : تقسيم صحيح

mod : باقيمانده صحيح

4. + , - : جمع وتفريق

نکته : عملگرهايي که داراي اولويت يکساني هستند

اگر در عبارتي به کار برن ابتدا عملگري که در سمت

چپ قرار ميگيره داراي بالاترين اولويته

همچنين براي عوض کردن اولويتها از علامت ( ) استفاده

ميکنيم به طوري که هر عملگري که بين دو علامت ( ) قرار

بگيرد داراي بالاترين اولويت است

لازم به ذکره که توابع در پاسکال همواره اولويت

بالاتري نسبت به عملگرها دارن در مورد توابع بعد

بحث مي کنيم
يک مثال :

برنامه اي بنويسيد تا از کاربر 2 عدد دريافت

کند سپس حاصلجمع و حاصلضرب و حاصل تقسيم

و حاصل تفريق اين دو عدد را در خروجي نمايش دهد


جواب :

program math;

var

a,b:integer;

begin

write('Please Enter 2 Number :');

Read(a,b);

write('a + b =' , a+b);

write('a - b =' , a*b);

write ('a * b =' a*b);

write('a / b =' a/b);

readln(a)

end;

در مثال بالا تعريف
a,b چند سوال : اگر متغيرهاي

نميشد اون وقت برنامه چه پيغامي رو صادر ميکرد ؟

; علامت
end; چرا در دستور قبل از

سيمي کالن نگرفت ؟

اگه متغیرها تعریف نشده باشند پیغام خطای

Error 3: Unknown identifier

نمایش داده میشود یعنی " متغیر ناشناخته " اما سوال بعدی

اگر در دستور یکی مانده به اخر علامت سیمی کالن قرار نگیرد

پاسکال خطایی نخواهد گرفت

يونيت ها :
unit :

يونيتها همان کتابخانه ها در پاسکال هستند

در پاسکال يونيت هاي زيادي وجود دارد از جمله :

unit graph , unit crt , strings , win dos

,
win crt , ...

در ادمه با بعضي يونيت ها اشنا ميشيم

unit crt : اين يونيت شامل دستوراتي نظير

gotoxy , textcolor , textbackground , ...

مي باشد . براي استفاده از يونيتها در برنامه از کلمه

استفاده مي کنيم مثلا براي استفاده
uses ذخيره شده

معمولا در ابتداي برنامه
crt از يونيت

را مينويسند
uses crt; عبارت

 1.gotoxy: از اين دستور براي انتقال مکان نما در

سطر يا سطون دلخواه در صفحه نمايش استفاده ميشود

لازم به ذکره که صفحه نمايش يا همون مانيتور

داراي 80 ستون و 25 سطر است که در دستور بالا

x=ستون

y=سطر

مي باشد

2.textcolor:

از اين دستور براي تايين رنگ قلم استفاده مي شود

شکل کلي :

text color ( نام رنگ يا شماره ان )

شماره رنگ           نام ثابت             نام رنگ

سياه
              Black                  0

ابي
                 Blue                 1

سبز
               Green                 2

فيروزه اي
          Cyan                 3

قرمز
                red                    4

بنفش
                  magenta          5

قهوه اي
              Brown              6

خاکستري روشن
   lightgray             7

خاکستري تيره
     Darkgray          8

ابي روشن
     lightblue               9

سبز روشن
      lightgreen         10

فيروزه اي روشن
     lightcyan      11

  قرمز روشن            lightred        12

بنفش روشن
   lightmagenta    13

زرد
                   Yellow           14

سفيد
                        white        15

 

 

+ نوشته شده در  سه شنبه 1 آبان1386ساعت 4:29 بعد از ظهر  توسط پوریا  |