Будь умным!


У вас вопросы?
У нас ответы:) 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. логотип появился в начале XIX века в типографике и был синонимом термина лигатура то есть обозначал объе
2. Реферат- Предмет, метод и социальная ценность правовой (судебной) бухгалтерии
3. Лекція 3 Митний контроль
4. бунташный век- волнения и бунты прошли чередой с его начала до самого конца
5. Реферат- Классификация паразитов и их хозяев
6. Колізійні норми спадкового права
7. ru Все книги автора Эта же книга в других форматах Приятного чтения Кен Кизи Над кукушкиным г
8. Первые шаги советской физической культуры 1917-1941 гг
9. обучение процесс обучения понимается главным образом преподавание цель которого ученик.
10. Екологічні проблеми сільськогосподарського виробництва
11. Генетика и эволюция История жизни на Земле и методы исследования эволюции (эволюция и развитие живых систем)
12.  2При стационарном течении количество жидкости втекающей в единицу времени в трубку тока через сечени
13. і. Жыцце ва умовах першабытнага грамадства 100 тыс
14. Старый Писатель используя свои способности к астральным путешествиям прослеживает посмертную судьбу тре
15. Складається і пресорної депресорної і сенсорної ділянок виконує тонічну підтримує судинний тонус і рефле
16. ТЕМА- Современные концепции препарирования кариозных полостей
17. 00588 ССБТ. Общие санітарногигиенические требования к воздуху рабочей зоны
18. Тема- Лазерний атомно фотоіонізаційний спектральний аналіз.
19. ТЕМАХ ОДНОДОМЕННИХ НАНОЧАСТИНОК 01
20. Трансформации энергии