Будь умным!


У вас вопросы?
У нас ответы:) SamZan.ru

1PROGRM TBLVFIL ; USES GRPHBC CRT; VR XY-BYTE; M- rry[0.

Работа добавлена на сайт samzan.ru: 2016-03-13


1)PROGRAM TABL_V_FAIL ;

 USES GRAPHABC, CRT;

 VAR X,Y:BYTE;

     M: array[0..10, 0..10] OF BYTE;

 F: file OF BYTE ;

BEGIN

 assign(F,'D:\DOC\REZULT.DAT');

 rewrite(F);

 for x:=1 to 10 do

 for y:=1 to 10 do

      BEGIN

       M[x,y]:=x*y;

       GOTOXY(X*3,Y);  WRITE(M[X, Y]);

       WRITE (f, 47+M[X, Y])

     END ;

 close(F);

END.

2) PROGRAM SINUSOIDA;

 USES GRAPHABC, CRT;

 VAR X,Y:BYTE;

 F:file  OF BYTE;

BEGIN

 assign(F,'D:\DOC\REZULT.DAT');

 rewrite(F);

 for X:=0 to 128 do

   BEGIN

     Y:=80-ROUND(20*sin(x/10));

     write(F,Y);

     SETPIXEL(X,Y,CLGREEN)

   END;

 close(F);

END.

3) PROGRAM GAUS;

  USES GRAPHABC;

  VAR X,Y: BYTE;

   F: file OF BYTE;

BEGIN

 assign(f,'D:\DOC\REZULT.DAT'); rewrite(F);

 for x:=0 to 200 do

   BEGIN

Y:=120-ROUND(75*exp(-sqr(x-100)/(2*sqr(15))));

    setpixel(X,Y,clred);

      write(F,Y);

   END;

 CLOSE(F);

END.

4) VAR N, N_MAX, k: BYTE;

M:ARRAY[1..250] OF BYTE;

        F:FILE OF BYTE;

BEGIN

CLRSCR;

ASSIGN(F, 'D:\DOC\DATA.DAT');

reset(F);

N:=0;

while not eof(F) do

  BEGIN

    N:=N+1;

    read(f, M[N]);

    SETPIXEL(N,M[N],CLRED);

  END;

CLOSE(F);

  ASSIGN(F, 'D:\DOC\REZULT.DAT'); REWRITE(F);

  k:=N;

  FOR N:=1 TO k  DO

   BEGIN

    write(f,M[N]-20);

    SETPIXEL(N,M[N]+10,CLGREEN)

   END;

 CLOSE(F);

END.

5) PROGRAM LOAD;

USES GRAPHABC, CRT;

 VAR X, Y1, Y2, Y3 : BYTE;

     F1, F2, F3: FILE OF BYTE;

BEGIN

ASSIGN(F1,'D:\DOC\DATA1.DAT'); RESET(F1);

ASSIGN (F2,'D:\DOC\DATA2.DAT'); RESET(F2);

ASSIGN (F3,'D:\DOC\REZULT.DAT'); REWRITE(F3);

    X:=1;

    while  NOT EOF (F1)  AND NOT EOF(F2) DO

       BEGIN

        X:=X+1;

        READ(F1,Y1); READ(F2,Y2);  Y3:=Y1+Y2-250;

        SETPIXEL(X,Y1,CLRED);

        SETPIXEL(X,Y2,CLGREEN);

        SETPIXEL(X,Y3,CLBLUE);

        WRITE(F3,Y3)

       END;

    CLOSE(F1);

    CLOSE(F2);

    CLOSE(F3)

END.

6) PROGRAM CHITAT;

USES GRAPHABC, CRT;

VAR N, N_MAX: BYTE;

M:ARRAY[1..250] OF BYTE;

        F:FILE OF BYTE;

BEGIN

CLRSCR;

ASSIGN(F, 'D:\DOC\DATA.DAT');

 RESET(F);

 SEEK(f, 40);

N:=0;

WHILE NOT EOF(F) DO

  BEGIN

    N:=N+1;

    READ(F, M[N]);

    SETPIXEL(N,M[N],CLRED);

  END;

CLOSE(F);

  N_MAX:=N;

  ASSIGN(F, 'D:\DOC\REZULT.DAT'); RESET(F);

  SEEK(f, FILESIZE(F));

  FOR N:=1 TO N_MAX DO

   BEGIN

    WRITE(F,M[N]);

8) PROGRAM LOAD_FILE;

USES GRAPHABC,CRT;

VAR

  N, N_MIN, K: BYTE;

  M: ARRAY [0..400] OF BYTE;

  F: FILE OF BYTE;

BEGIN

 ASSIGN(F, 'D:\DOC\DATA.DAT'); RESET(F);

 N:=0;

 WHILE NOT EOF(F) DO

   BEGIN

      N:=N+1;

      READ (F, M[N]);

      SETPIXEL(N,M[N],CLGREEN)

   END ;

   CLOSE(F); K:=N;

   ASSIGN(F, 'D:\DOC\REZULT.DAT'); REWRITE(F);

   for N:=K DOWNTO 1 do

     BEGIN

       WRITE(F, M[N]);

       SETPIXEL(K-N,M[n],CLRED)

     END ;

   CLOSE(F)

END.

9) RESET(F);

N:=0;

WHILE NOT EOF(F) DO

  BEGIN

    N:=N+1;

    READ (F, M[N]);

    SETPIXEL(N,M[N],CLRED);

  END;

 CLOSE(F);

 K:=N;

FOR J:=1 TO K DO   

 BEGIN

  FOR N:=2 TO K DO

    IF M[N]<M[N-1] THEN  

      BEGIN

BUF:=M[N];M[N]:=M[N-1]; M[N-1]:=BUF 

      END ;

  ASSIGN(F, 'D:\DOC\REZULT.DAT'); REWRITE(F);

  FOR N:=1 TO K DO

   BEGIN

    WRITE(F,M[N]);

    SETPIXEL(N,M[N]+2,CLGREEN)

   END;

CLOSE(F)

10) ASSIGN(F, 'D:\DOC\DATA.DAT');

reset(F);

 N:=0;

WHILE NOT eof(F) DO

  BEGIN

    N:=N+1;

    read(F, M[N]);

    SETPIXEL(N,M[N],CLRED);

…………………………

   N_MAX:=N;

   for j:=N TO k DO   

     IF M[J]>M[n_max]      

        THEN N_MAX:=J;   

  buf:=M[N];             

   M[N]:=M[n_max];          

   M[n_max]:=buf;         

 END;                  

 ASSIGN(F, 'D:\DOC\REZULT.DAT'); rewrite(F);

………

   write(F,M[N]);

    SETPIXEL(N,M[N]+2,CLGREEN)

   END;

 close(F)

7)  N:=0;

 WHILE NOT Eof(F) DO

   BEGIN

      N:=N+1;

      READ(F, M[N]);

      WRITE(M[N], '  ');

   END ;

   CLOSE(F); k:=n;

   ASSIGN(F, 'd:\doc\rezult.dat'); REWRITE(F);

   N_min:=1;

   for N:=1  to k do

      if M[N_min]> M[N]    then

      N_min:=n;

   WRITE(F,M[N_min],N_min);

   CLOSE(F)

END.




1. это приём с помощью которого самбист выводит соперника из равновесия и бросает на ковёр на какуюлибо часть
2. Электромагнитные ионизирующие излучения В зависимости от источника электромагнитные ИИ подразделяют
3. Задание Как вы расцениваете данные полученные во время операции Центральный рак легкого Т3N3M0 III Б стад.html
4. У Т В Е Р Ж Д А Ю Замес
5. это часть потенциала предприятия приносящая экономическую выгоду на протяжении длительного периода и имею
6. дипломна практика для студентів 4 курсу спеціальності Туристичне обслуговування Термін проходження
7.  студента
8. Аспекты экологического подхода к теории и практике физической культуры и спорта
9. Тема- Тромбоэмболический синдром
10. Анализ медико-биологических данных с помощью Microsoft Excel и СПП STADIA 6
11. Природные и географические факторы в истории России
12. репродуктивный 3 балла 1315 ошибок 4 балла 1012
13. Питер 2006 ~544 с Дополнительная литература 1
14. Курсовая работа- Оценка систем на основе модели ситуационного управления
15. Общества с ограниченной ответственностью понятия, функции и задачи общества
16. Правоспособность государственных и муниципальных предприятий
17. . Так как C BC то ~BC ~ равнобедренный BC B
18. 20г Я в дальнейшем НАЙМОДАТЕЛЬ С другой сторон1
19. Сибирский государственный университет телекоммуникаций и информатики Уральский технический институт
20. тема управления гостиничным имуществом [4] Глава 3