Практикалык жумыс

Автор работы: M*********@mail.ru, 28 Ноября 2011 в 14:03, реферат

Краткое описание

Паскаль тілін 1970 жылы швецария ғалымы Николас Вирт ойлап тапқан және оны VII ғасырда өмір сүрген француз ғалым-философы Блэз Паскальдің құрметіне PASCAL деп атаған болатын. Қазіргі кезде Паскаль программалау тілінің көптеген версиялары бар және олар бір-бірімен сәйкес келе бермейді.
Блэз Паскаль 1623 жылы францияның Клермон-Ферран қаласында өмірге келген. Оның қабілете жас кезінде көбінесе математика саласынан көп көріне бастаған. Ол 1662 жылы дүниеден қайтқан соң бүкіл әлемде ұлы маематик ретінде қалды. Математикадан басқа Паскальдің таланты физика, философия, әдебиеттану мақсатында есептеу машинасын ойлап тапты. Оның әкесі салық жинаушы болғандықтан бұл машина есептеу жұмыстарында өте қажетті болды.

Содержание работы

1) Жүктеу түрлері. ТР ортасында жұмыс жасаудың негізгі жолдары. Программа мәтінін редакторлеу, өңдеу процессі.
Программаны редакторлеу, өңдеу командаларын Pascal-дің командалық менюі көмегімен орындап үйрену. Программаны құрастыру. Оның бөлімдері. Бөлімдерін сипаттау. Программаның әрбір бөлімінің атқаратын қызметі.

Begin тақырыбына арналған есептер.

Меншіктеу, енгізу, шығару командаларын пайдаланып қарапайым программаларды құрастыру. Read, Readln, Write, Writeln командалары.

Тармақталу командалары. Құрама операторлар.

Құрама шарттар. Мәтіндік шарттар. Таңдау командасы.

Шарттың алдында қойылатын циклдарды ұйымдастыру. While do циклдағы құрама операторлар. Шарттың соңында қойылатын Until, Repeat циклдарын ұйымдастыру.

Циклдағы құрама операторлар For, to, do операторлары.

Бір өлшемді массивтер. Матрицалар.

Функциялар және Процедуралар.

Қатарлар.

Графика.

Графиктік режимде текст шығару процедуралары.

Есептер шығрау.

Скачать целиком (133.84 Кб) Сколько стоит заказать работу?
Содержимое работы - 1 файл

Практикалық жұмыс 1.doc

— 522.00 Кб (Скачать файл)

M:=A+C;

K:=B+C;

N:=M*K;

WRITE('N=',N);

END. 
 

№19. Тік төртбұрыштың қарама- қарсы екі төбесінің кординаталары  берілген (X1,Y1),(X2,Y2). Тік төртбұрыштың

          қабырғалары кординаталар осьтеріне  параллель. Тік төртбұрыштың периметірі мен ауданын тап. 

PROGRAM Fix;

VAR P,S,X1,Y1,X2,Y2:REAL;

BEGIN

WRITE('X1,Y1,X2,Y2-MAN ENGIZ');

READ(X1,Y1,X2,Y2);

P:=X1+Y1+X2+Y2;

S:=X1*Y2/2;

WRITE('P=',P);

WRITE('S=',S);

END. 
 

№20. Жазықтықта (X1,Y1),(X2,Y2)кординаталарымен берілген екі нүктенің ара қашықтығын тап.

          N:=SQRT(SQR(X2-X1)+SQR(Y2-Y1));

 

PROGRAM NiG;

uses crt;

VAR N,X1,Y1,X2,Y2:REAL;

BEGIN

WRITE('X1,Y1,X2,Y2-MAN ENGIZ');

READ(X1,Y1,X2,Y2);

N:=SQRT(SQR(X2-X1)+SQR(Y2-Y1));

WRITE('N=',N);

END. 
 

№21. Үш бұрыштың үш төбесінің кординаталары (X1,Y1),(X2,Y2),(X3,Y3) берілген. 

PROGRAM NAzym;

uses crt;

VAR S,P,A,B,C,X1,X2,Y1,Y2,X3,Y3:REAL;

BEGIN

WRITE('X1,Y1,X2,Y2,X3,Y3-MAN ENGIZ');

READ(X1,Y1,X2,Y2,X3,Y3);

A:=SQRT(SQR(X2-X1)+SQR(Y2-Y1));

B:=SQRT(SQR(X3-X2)+SQR(Y3-Y2));

C:=SQRT(SQR(X3-X1)+SQR(Y3-Y1));

P:=(A+B+C);

S:=SQRT(P*(P-A)*(P-B)*(P-C));

WRITE('P=',P);

WRITE('S=',S);

END. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

09.06.2011жыл 

                                   Тармақталу командалары. Құрама  операторлар. 

№5.       IF, THEN, ELSE тармақталу операторлары.

  Жалпы жазылуы:

IF <шарт> THEN <1-оператор>

           ELSE <2-оператор >

Егер <шарт> онда <1-оператор >

                  әйтпесе <2-оператор >

       Құрылымдық операторлар басқа  операторларды белгілі-бір ережелер  бойынша біріктіру жолымен құрастырылады. Олар үшін топқа яғни құрама шартты және қайталау операторларына жүетеледі. 

                                   Құрама оператор.

       Құрама оператор бір-бірімен нүктелі  үтір арқылы бөлінген бірнеше  операторларды BEGIN және END қызметші сөздері меншіктей отырып оларды бір оператор тәрізді орындалатындай етіп біріктіру жолымен ұйымдастырылады. Құрама оператордың ішінде және бір құрама операторы болуы мүмкін. Мысалы:

       A,B  MAX-? A>B A<B

   PROGRAM ESEP2;

   uses crt;

   VAR A,B:REAL;

   BEGIN

   WRITE(‘A,B-MAN ENGIZ’);

   READ (A,B);

   IF A>B THEN MAX:=A;

                 ELSE  MAX:=B;

   WRITE (‘MAX=’,MAX);

   END.

                  

№22. A және B айнымалыларының  мәндерін алмастыр және A мен B жаңа мәндерін шығар. 

PROGRAM GAZER;

VAR A,B:REAL;

uses crt;

BEGIN

WRITE('A,B-MAN ENGIZ');

READ(A,B);

WRITE('A=',B);

WRITE('B=',A);

END. 
 

№23. A,B,C айнымалылары берілген. Олардың орындарын ауыстыру арқылы жаңа мән шығар.  

PROGRAM GROW;

uses crt;

VAR A,B,C:REAL;

BEGIN

WRITE('A,B,C-MAN ENGIZ');

READ(A,B,C);

WRITE('A=',C);

WRITE('B=',A);

WRITE('C=',B);

END. 
 

№24. A,B,C айнымалылары берілген. Олардың орындарын ауыстыру арқылы жаңа мән шығар. 

PROGRAM Naze;

uses crt;

VAR A,B,C:REAL;

BEGIN

WRITE('A,B,C-MAN ENGIZ');

READ(A,B,C);

WRITE('A=',B);

WRITE('B=',C);

WRITE('C=',A);

END.  
 

№25. Y:=3X6-6X2-7  функциясының мәнін тап. 

PROGRAM my;

VAR X,Y:REAL;

uses crt;

BEGIN

WRITE('X-MAN ENGIZ');

READ(X);

Y:=3*EXP(6*LN(X))-6*SQR(X)-7;

WRITE('Y=',Y)

END. 

№26. Y:=4(X-3)6-7(X-3)3+2  функциясының мәнін тап. 

PROGRAM Life;

uses crt;

VAR Y,X:REAL;

BEGIN

WRITE('X-MAN ENGIZ');

READ(X);

Y:=4*EXP(6)*LN(X-3)-7*EXP(3)*LN(X-3)+2;

WRITE('Y=',Y);

END. 
 

№27. A саны берілген. Көмекші айнымалы мен көбейтудің үш амалын пайдаланып А8-ді есепте. Бұл үшін А2 А4 А8 тізбектей орындап А- ның мәнін есепте.  

PROGRAM nero;

uses crt;

VAR N,M,J,A:REAL;

BEGIN

WRITE('A-MAN ENGIZ');

READ(A);

N:=SQR(A);

M:=EXP(4*LN(A));

J:=EXP(8*LN(A));

WRITE('N=',N);

WRITE('M=',M);

WRITE('J=',J);

END. 
 
 
 
 
 
 

10.06.2011жыл

                               

Құрама  шарттар. Мәтіндік шарттар. Таңдау командасы. 

№6.                             Мәтіндік шарттар.

        Бағдарламада жазулар белгілі-бір  идентификатормен белгіленіп типтер  бөлімінде сипатталады. Типтер  бөлімінде жазуларды сипаттау  жазуларды білдіретін RECORD сөзімен басталады да END қызметші сөзімен аяқталады. Олардың арасында жазулар өрісі деп аталатын жазулар құрамына кіретін барлық компаненттердің тізімі олардың типтерімен бірге көрсетіледі. Жазулардың типтер бөлімінде сипатталуы:

  1. TYPE DOSYE=RECORD

    A,C:STRING;

    B,E:INTEGER;

    D:CHAR;

    END;

    VAR X,Y:DOSYE; 

    Мұндағы DOSYE – барлық жазулар компаненттерінің ортақ типі ретінде белгіленген   

идентификатор .

      RECORD ...  END- жазуды анықтайтын операторлық жақшаның қызметін атқарады.

     A,C- жолдық қатар болатын айнымалы.        

       B,E – символдық шама.       

       D- символдық шама.       

       X,Y- жазу аты ретінде белгіленген жазулық айнымалы.

       Көптеген есептеулерде жазуды  анықтайтын идентификатор ретінде  элементтері жазу өрістері болатын массивтерді қолданған ынғайлы. Олар бағдарламада төмендегідей сипатталады:

а)  TYPE DOSYE=RECORD

    A,C:STRING;

    B,E:INTEGER;

    D:CHAR;

    END;

      VAR X:ARRAY[1….10] OF DOSYE

      Мұндағы:

       DOSYE-

       A,C- жолдық қатар болатын айнымалы. Мысалы: фамилия, аты..

       B,E –бүтін сандар. Мысалы: туған жылы, курсы.        

       D- символдық шама. Мысалы: қан тобы       

       X- жазулық массив.

      

       Жазу-өрістерінің мәндерін қолдану  үшін айнымалылар құрама атпен  жазылады.

       Айнымалылардың құрама аты жазуды  анықтайтын идентификатордан, нүктеден, жазу өрісінің атынан тұратын  тізбектен тұрады.

       TURBO PASCAL- да жазу айнымалыларын біріктіру үшін WITH  операторы қолданылады. 

                                   Таңдау операторы. 
 

      CASE сөзінен кейінгі өрнек мәні дискретті типке жатуы тиіс. Бүтін санды тип үшін INTEGER болады. Оператор алдындағы тұрақтылар типі өрнек типімен бірдей болуы керек. Тұрақтылар мәндері бір-бірінен айрықша болып қайталанбауы тиіс. Олардың мәні аралыққа сәйкес келгенде бір-бірімен қиылыспай өз аралықтарын ғана қамтуы тиіс. Мысалы:

          CASE  K+1  OF 4;

          Z:=Y*(A-B);

          7:WRITE (A  B);

          Y:=SQRT(X);

          END.

      Мұндағы K+1  өрнегінің мәні 4-ке тең болса, онда Z есептелінетін бірінші оператор, 5-ке тең болса Y мәнін шығаратын 2-ші оператор орындалады. Өрнектің мәні символдық тип болуы мүмкін, онда тұрақтылар да символдық типтер болуы керек.

       Таңдау командасында өрнектің  мәні ешбір тұрақты мәніне сәйкес келмеген кезде ELSE тармағы болса онда таңдау командасының бірде-бір операторы орындалмайды. Өрнектің және тұрақтылардың  мәндері бір типке  жататын бүтін сандық, логикалық немесе символдық типтердің бірі болуы мүмкін. Таңдау операторы өрнек пен тұрақты мәндерінің сәйкес келуіне байланысты бір ғана операторды орындауы тиіс, кейде өрнектің мәні тұрақтының көрсетілген мәндерінің аралығында болуы мүмкін. Мұндайда тұрақтының мәні кесінді тәрізді сандар бірлігін қамтыйды.     

   
 

№28. . A саны берілген. Көмекші айнымалы мен көбейтудің үш амалын пайдаланып А15-ті есепте. Бұл үшін А2 ,А3, А5,А10,А15  тізбектей орындап А- ның мәнін есепте.  

PROGRAM night;

uses crt;

VAR N,M,J,H,K,A:REAL;

BEGIN

WRITE('A-MAN ENGIZ');

READ(A);

N:=SQR(A);

M:=EXP(3*LN(A));

J:=EXP(5*LN(A));

H:=EXP(10*LN(A));

K:=EXP(15*LN(A));

WRITE('N=',N);

WRITE('M=',M);

WRITE('J=',J);

WRITE('H=',H);

WRITE('K=',K);

END. 

29)  

Program kll;

uses crt;

const pi=3.14;

var c,a:real;

begin

Writeln('gradyc');

readln(a);

c:=(a/180)*pi;

write ('c=',c);

end. 

30)  

Program kll;

uses crt;

const pi=3.14;

var c,a:real;

begin

Writeln('radian');

readln(a);

c:=(a/180)*pi;

write ('c=',c);

end. 
 

31) 

Program kll;

uses crt;

var Tc,Tf:real;

begin

Writeln('Tf');

readln(Tf);

Tc:=(Tf-32)*5/9;

write ('Tc=',Tc);

end. 

32) Program kll;

uses crt;

var Tc,Tf:real;

begin

Writeln('Tc');

readln(Tc);

Tf:=(Tc-32)*5/9;

write ('Tf=',Tf);

end. 

33) program kll;

var  x,a,y,c,d :real;

begin 

write('x-?');read(x);

write('a-?');read(a);

write('y-?');read(y);

c:=a/x;

d:=c*y;

write ('c=',c);

write ('d=',d)

end. 

№33.

program kll;

var  x,a,y,c,d :real;

begin

write('x-?');read(x);

write('a-?');read(a);

write('y-?');read(y);

c:=a/x;

d:=c*y;

write ('c=',c);

write ('d=',d);

end. 

№34.

 program kll;

Информация о работе Практикалык жумыс