ÌÅÍÞ


Ôåñòèâàëè è êîíêóðñû
Ñåìèíàðû
Èçäàíèÿ
Î ÌÎÄÍÒ
Ïðèãëàøåíèÿ
Ïîçäðàâëÿåì

ÍÀÓ×ÍÛÅ ÐÀÁÎÒÛ


  • Èííîâàöèîííûé ìåíåäæìåíò
  • Èíâåñòèöèè
  • ÈÃÏ
  • Çåìåëüíîå ïðàâî
  • Æóðíàëèñòèêà
  • Æèëèùíîå ïðàâî
  • Ðàäèîýëåêòðîíèêà
  • Ïñèõîëîãèÿ
  • Ïðîãðàììèðîâàíèå è êîìï-ðû
  • Ïðåäïðèíèìàòåëüñòâî
  • Ïðàâî
  • Ïîëèòîëîãèÿ
  • Ïîëèãðàôèÿ
  • Ïåäàãîãèêà
  • Îêêóëüòèçì è óôîëîãèÿ
  • Íà÷åðòàòåëüíàÿ ãåîìåòðèÿ
  • Áóõó÷åò óïðàâëåí÷ó÷åò
  • Áèîëîãèÿ
  • Áèçíåñ-ïëàí
  • Áåçîïàñíîñòü æèçíåäåÿòåëüíîñòè
  • Áàíêîâñêîå äåëî
  • ÀÕÄ ýêïðåä ôèíàíñû ïðåäïðèÿòèé
  • Àóäèò
  • Âåòåðèíàðèÿ
  • Âàëþòíûå îòíîøåíèÿ
  • Áóõãàëòåðñêèé ó÷åò è àóäèò
  • Áîòàíèêà è ñåëüñêîå õîçÿéñòâî
  • Áèðæåâîå äåëî
  • Áàíêîâñêîå äåëî
  • Àñòðîíîìèÿ
  • Àðõèòåêòóðà
  • Àðáèòðàæíûé ïðîöåññ
  • Áåçîïàñíîñòü æèçíåäåÿòåëüíîñòè
  • Àäìèíèñòðàòèâíîå ïðàâî
  • Àâèàöèÿ è êîñìîíàâòèêà
  • Êóëèíàðèÿ
  • Íàóêà è òåõíèêà
  • Êðèìèíîëîãèÿ
  • Êðèìèíàëèñòèêà
  • Êîñìåòîëîãèÿ
  • Êîììóíèêàöèè è ñâÿçü
  • Êèáåðíåòèêà
  • Èñòîðè÷åñêèå ëè÷íîñòè
  • Èíôîðìàòèêà
  • Èíâåñòèöèè
  • ïî Çîîëîãèÿ
  • Æóðíàëèñòèêà
  • Êàðòà ñàéòà
  • Ðåôåðàò: Îáó÷àþùàÿ ïðîãðàììà Ãðàôèêà ïðîãðàììèðîâàíèþ â ãðàôè÷åñêîì ðåæèìå íà ÿçûêå turbo-pascal 7.x

                Line(380,230,550,190);                                   

                OutTextXY(375,140,'(X,Y)');                              

                OutTextXY(375,170,'dY');                                 

                OutTextXY(555,190,'(X1,Y1)');                             

                OutTextXY(375,200,'dY');                                 

               end;                                                      

           end;                                                          

           Y:=Y+10;                                                       

           Read(F32,At);                                                 

           until At.P1='*';                                              

         2:OutTextXY(50,330,'ÂÂÅÄÈÒÅ ÍÎÌÅÐ ÏÐÀÂÈËÜÍÎÃÎ ÎÒÂÅÒÀ ___');     

           CH:=ReadKey;                                                  

           SetColor(4);                                                  

           OutTextXY(320,325,CH);                                         

           SetColor(1);                                                  

           readkey;                                                      

           If(CH<>'1') and (CH<>'2') and (CH<>'3') and (CH<>'4') then    

           begin                                                          

            SetFillStyle(1,11);                                          

            Bar(318,320,327,340);                                        

            GoTo 2;                                                       

           end                                                           

           else                                                          

           repeat                                                        

           Read(F33,Atr);                                                 

           R2:=StrPas(Atr.P2);  {Ïðåîáðàçîâàíèå ASCIIZ-ñòðîêè Atr.P2 â   

                                 ñòðîêó òèïà string }                    

           Val(R2,Z2,Code); {Ïðåîáðàçîâàíèå ñèìâîëüíîãî ïðåäñòàâëåíèÿ    

                             íîìåðà âîïðîñà â äâîè÷íóþ ôîðìó}            

           If Z2=Z1 then                                                 

            begin                                                        

             repeat                                                      

             If Atr.P3=CH then                                           

              begin                                                      

               Y:=100;                                                   

               OKNO;                                                      

               repeat                                                    

               Stt:=StrPas(Atr.P4); {Ïðåîáðàçîâàíèå ASCIIZ-ñòðîêè Atr.P4

      â ñòðîêó òèïà string }                

               R5:=StrPas(Atr.P5); {Ïðåîáðàçîâàíèå ASCIIZ-ñòðîêè Atr.P5

      â ñòðîêó òèïà string }                

               Val(R5,Z5,Code); {Ïðåîáðàçîâàíèå ñèìâîëüíîãî

        ïðåäñòàâëåíèÿ îöåíêè â äâîè÷íóþ ôîðìó}                

               REZ3:=Round((REZ3+Z5)/2); {Ôîðìèðîâàíèå îöåíêè}           

               OutTextXY(20,Y,Stt);    {Âûâîä òåêñòà ñïðàâêè}            

               Y:=Y+10;                                                   

               case Atr.P1 of         {èëëþñòðàöèè ê òåêñòó ñïðàâîê}     

               '1':begin                                                 

                    Line(380,150,550,190);                               

                    MoveRel(380,190);                                    

                    Line(380,190,550,190);                               

                    LineTo(550,190);                                     

                    OutTextXY(555,190,'(X1,Y1)');                        

                    OutTextXY(370,140,'(X,Y)');                          

                    OutTextXY(390,200,'(X,Y+dY)');                       

                   end;                                                  

               '2':begin                                                 

                    GOTOXY(100,190);                                     

                    LineTo(100,190);                                     

                    LineRel(30,40);                                       

                    LineRel(0,80);                                       

                   end;                                                  

               '3':begin                                                 

                    GOTOXY(100,190);                                     

                    LineTo(380,150);                                     

                    LineRel(30,40);                                      

                    LineRel(0,80);                                       

                   end;                                                  

               end;                                                      

               Read(F33,Atr);                                            

               until Atr.P3='*';                                          

               readkey;                                                  

               GOTO 3;                                                   

             end                                                         

             else  Read(F33,Atr);                                        

             until Atr.P1='*';                                           

            end                                                          

            until Atr.P1='0';                                             

           end                                                           

           else                                                          

      3: end;                                                            

         until At.P1='0';                                                 

         Close(F32);                                                     

         Close(F33);                                                     

         CloseGraph;                                                     

       end;                                                              

                                                                         

      begin                                                              

      end.

    Unit RAZDEL4;                                                       

                                                                        

     interface                                                          

                                                                        

     uses Crt,Graph,Dos,Strings,MYBOOK;                                 

                                                                        

     type An = record {Òåîðèÿ}                                          

         P1:Char;  {Ïåðåìåííàÿ ïîëÿ ôëàãà : êîíåö ôàéëà, íîìåð          

                   èëëþñòðàöèè}                                         

         P2:array[0..69] of char; {Ïåðåìåííàÿ ïîëÿ òåêñòà}              

     end;                                                               

                                                                         

     type Ant=record {Òåêñò âîïðîñîâ}                                   

          P1:Char;   {Ïåðåìåííàÿ ïîëÿ ôëàãà:êîíåö ôàéëà, íîìåð èëëþñò-  

                      ðàöèè, êîíåö âîïðîñà}                             

          P2:array[0..1] of Char; {Ïåðåìåííàÿ ïîëÿ íîìåðà âîïðîñà}      

          P3:array[0..69] of Char; {Ïåðåìåííàÿ ïîëÿ òåêñòà âîïðîñà}     

     end;                                                               

                                                                         

     type Antr=record { Ñïðàâêè }                                       

          P1:Char; {Ïåðåìåííàÿ ïîëÿ ôëàãà:êîíåö ôàéëà, êîíåö âîïðîñà,   

                    íîìåð èëëþñòðàöèè}                                  

          P2:array[0..1] of Char;  {Ïåðåìåííàÿ ïîëÿ íîìåðà âîïðîñà}     

          P3:array[0..0] of Char; {Ïåðåìåííàÿ ïîëÿ ôëàãà: íîìåð ñïðàâêè 

                                   è êîíåö ñïðàâêè}                     

          P4:array[0..69] of Char; {Ïåðåìåííàÿ ïîëÿ òåêñòà ñïðàâêè}     

          P5:array[0..2] of Char; {Ïåðåìåííàÿ ïîëÿ îöåíêè}              

     end;                                                               

                                                                        

     var F4: file of An ;  {Ïåðåìåííûå òåîðèè}                           

         A:An;                                                          

         N,Y:integer;                                                   

         St:string[68];                                                 

                                                                         

     var F32:file of Ant;  { Ïåðåìåííûå âîïðîñîâ}                       

         At:Ant;                                                        

         R1:string[2];                                                  

         Z1:integer;                                                     

         S:string[68];                                                  

     var F33:file of Antr;   {Ïåðåìåííûå ñïðàâîê}                       

         Atr:Antr;                                                      

         R2:string[2];                                                   

         R3:string[1];                                                  

         Stt:string[68];                                                

         R4:string[2];                                                   

         Z2,Z3,Z4:integer;                                              

         CH:  Char;{Ïåðåìåííàÿ äëÿ ïðèíÿòèÿ ñèìâîëà ñ êëâèàòóðû}        

         K,J,I:integer; {Ïåðåìåííûå öèêëîâ}                             

         M: array[0..3] of integer; {Ìàññèâ äëÿ õðàíåíèÿ ÷åðûðåõ        

                                    âûáðàííûõ íîìåðîâ âîïðîñîâ}         

         Code:integer;                                                  

                                                                        

     var R5:string[1];   {ïåðåìåííûå âûâîäà ðåçóëüòàòîâ}                

         Z5:integer;                                                     

         REZ4:Longint;  {ïåðåìåííàÿ îöåíêè}                             

                                                                        

                                                                         

     procedure RAZDEL40;                                                

                                                                        

     implementation                                                     

                                                                         

     procedure RAZDEL40;                                                

                                                                        

     Label 0,1,2,3;                                                     

                                                                         

     begin                                                              

      REZ4:=6;                                                          

      GraphRegim;                                                        

      Assign(F4,'RAZTEX4.pas'); {Ñâÿçü ñ ôàéëîì òåêñòà òåîðèè}          

      {SI-}                                                             

      Reset(F4);                                                        

      {SI+}                                                              

      If IOResult <> 0 then Writeln ('Íåò ôàéëà RAZTEX4.pas');          

      repeat                                                            

      ClearDevice;                                                      

      OKNO;                                                              

      Y:=10;                                                            

      For N:=0 to 31 do           {Âûâîä òåêñòà òåîðèè}                 

       begin                                                             

        Read(F4,A);                                                     

        St:=StrPas(A.P2); {Ïðåîáðàçîâàíèå ASCIIZ-ñòðîêè A.P2 â ñòðîêó   

                           òèïà string}                                 

        OutTextXY(20,Y*N+10,St);                                         

        case A.P1 of                                                    

        '*':begin                                                       

             SetColor(4);                                               

             OutTextXY(20,Y*N+10,St);                                   

             SetColor(1);                                               

            end;                                                        

        '1':begin SetFillStyle(1,15);                                    

             Bar(350,45,600,340);                                       

             SetFillStyle(1,0);                                         

             Bar(350,45,600,65);                                        

             SetFillStyle(1,1);                                          

             Bar(350,65,600,85);                                        

             SetFillStyle(1,2);                                         

             Bar(350,85,600,105);                                       

             SetFillStyle(1,3);                                         

             Bar(350,105,600,120);                                      

             SetFillStyle(1,4);                                         

             Bar(350,120,600,135);                                       

             SetFillStyle(1,5);                                         

             Bar(350,135,600,150);                                      

             SetFillStyle(1,6);                                         

             Bar(350,150,600,165);                                       

             SetFillStyle(1,7);                                         

             Bar(350,165,600,185);                                      

             SetFillStyle(1,8);                                         

             Bar(350,185,600,200);                                      

             SetFillStyle(1,9);                                         

             Bar(350,200,600,215);                                      

             SetFillStyle(1,10);                                         

             Bar(350,215,600,235);                                      

             SetFillStyle(1,11);                                        

             Bar(350,235,600,255);                                      

             SetFillStyle(1,12);                                         

             Bar(350,255,600,275);                                      

             SetFillStyle(1,13);                                        

             Bar(350,275,600,295);                                      

             SetFillStyle(1,14);                                        

             Bar(350,295,600,315);                                      

             SetFillStyle(1,15);                                        

             Bar(350,315,600,340);                                       

            end;                                                        

        '2':begin                                                       

             SetBKColor(15);                                            

             SetFillStyle(1,15);                                         

             Bar(200,100,600,300);                                      

             SetFillStyle(2,2);                                         

             Bar(200,100,600,120);                                      

             SetFillStyle(3,2);                                         

             Bar(200,120,600,145);                                      

             SetFillStyle(4,2);                                         

             Bar(200,145,600,168);                                       

             SetFillStyle(5,2);                                         

             Bar(200,168,600,190);                                      

             SetFillStyle(6,2);                                         

             Bar(200,190,600,210);                                       

             SetFillStyle(7,2);                                         

             Bar(200,210,600,228);                                      

             SetFillStyle(8,2);                                         

             Bar(200,228,600,246);                                      

             SetFillStyle(9,2);                                         

             Bar(200,246,600,264);                                      

             SetFillStyle(10,2);                                         

             Bar(200,264,600,282);                                      

             SetFillStyle(11,2);                                        

             Bar(200,282,600,300);                                      

             SetFillStyle(1,0);                                          

            end;                                                        

        '0':GoTo 0                                                      

        end;                                                            

       end;                                                              

       readkey;                                                         

    0:until  A.P1='0'  ;                                                

      readkey;                                                           

      Close(F4);                                                        

      Assign(F32,'Joi.pas');  {ñâÿçü ñ ôàéëîì âîïðîñîâ}                 

      {SI-}                                                             

      Reset(F32);                                                        

      {SI+}                                                             

      If IOResult<>0 then Writeln('Íåò ôàéëà Joi.pas');                 

      Assign(F33,'Iodi.pas');                                           

      {SI-}                                                             

      Reset(F33);     {ñâÿçü ñ ôàéëîì ñïðàâîê}                          

      {SI+}                                                             

      If IOResult<>0 then Writeln('Íåò ôàéëà Iodi.pas');                

      OKNO1;           {"Êîíòðîëüíûå âîïðîñû"}                          

    Ñòðàíèöû: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19


    Ïðèãëàøåíèÿ

    09.12.2013 - 16.12.2013

    Ìåæäóíàðîäíûé êîíêóðñ õîðåîãðàôè÷åñêîãî èñêóññòâà â ðàìêàõ Ìåæäóíàðîäíîãî ôåñòèâàëÿ èñêóññòâ «ÐÎÆÄÅÑÒÂÅÍÑÊÀß ÀÍÄÎÐÐÀ»

    09.12.2013 - 16.12.2013

    Ìåæäóíàðîäíûé êîíêóðñ õîðîâîãî èñêóññòâà â ÀÍÄÎÐÐÅ «ÐÎÆÄÅÑÒÂÅÍÑÊÀß ÀÍÄÎÐÐÀ»




    Copyright © 2012 ã.
    Ïðè èñïîëüçîâàíèè ìàòåðèàëîâ - ññûëêà íà ñàéò îáÿçàòåëüíà.