ПЕРЕЛІК ДИСЦИПЛІН:
  • Адміністративне право
  • Арбітражний процес
  • Архітектура
  • Астрологія
  • Астрономія
  • Банківська справа
  • Безпека життєдіяльності
  • Біографії
  • Біологія
  • Біологія і хімія
  • Ботаніка та сільське гос-во
  • Бухгалтерський облік і аудит
  • Валютні відносини
  • Ветеринарія
  • Військова кафедра
  • Географія
  • Геодезія
  • Геологія
  • Етика
  • Держава і право
  • Цивільне право і процес
  • Діловодство
  • Гроші та кредит
  • Природничі науки
  • Журналістика
  • Екологія
  • Видавнича справа та поліграфія
  • Інвестиції
  • Іноземна мова
  • Інформатика
  • Інформатика, програмування
  • Юрист по наследству
  • Історичні особистості
  • Історія
  • Історія техніки
  • Кибернетика
  • Комунікації і зв'язок
  • Комп'ютерні науки
  • Косметологія
  • Короткий зміст творів
  • Криміналістика
  • Кримінологія
  • Криптология
  • Кулінарія
  • Культура і мистецтво
  • Культурологія
  • Російська література
  • Література і російська мова
  • Логіка
  • Логістика
  • Маркетинг
  • Математика
  • Медицина, здоров'я
  • Медичні науки
  • Міжнародне публічне право
  • Міжнародне приватне право
  • Міжнародні відносини
  • Менеджмент
  • Металургія
  • Москвоведение
  • Мовознавство
  • Музика
  • Муніципальне право
  • Податки, оподаткування
  •  
    Бесплатные рефераты
     

     

     

     

     

     

         
     
    Процедури і функції
         

     

    Інформатика, програмування

    Міністерство освіти Російської Федерації

    Волгоградський державний технічний університет

    Кафедра прикладної математики

    Семістровая робота з теми:

    ПРОЦЕДУРИ ТА ФУНКЦІЇ

    Виконав: студент групи

    Перевірив:

    Волгоград 2003
    1. Завдання

    1.1.

    Ввести двовимірний масив. Знайти суму елементів з непарними індексами.

    1.2.

    Ввести двовимірний масив. Отримати одновимірний масив включає все ненульові елементи матриці. Знайти модуль отриманого вектора.
    2.1. Блок-схема

    3.1. Текст програми

    PROGRAM SEM1;uses crt;const Nmax = 10;

    Mmax = 10;type matr = array [1 .. Nmax, 1 .. Mmax] of integer;var A: matr;
    Na, i, j, Ma, S, max: integer;

    Procedure Vvod (var x: matr; var Nx, Mx: integer; P: char);beginclrscr;write ( 'Vvedite N:');read (Nx);writeln;write ( 'Vvedite M:');read (Mx);writeln;for i: = 1 to Nx do for j: = 1 to Mx do begin write (P ,'[', i ,',', j ,']='); read (x [i, j]); end ;

    end;

    Function Summa (var x: matr; Nx, Mx: integer): integer;begin
    S: = 0;i: = 1;repeatj: = 1;repeatif (i mod 20) and (j mod 20) then S: = S + x [i, j];j: = j +1;until j> Mx;i: = i +1;until i> Nx;
    Summa: = S;end;

    Procedure Vivod (var x: matr; Nx, Mx: integer; P: char);beginwriteln;writeln ( 'Matrica', P ,':');writeln;i: = 1;repeatj: = 1;repeatwrite (x [i, j], '');j: = j +1;until j> Mx;writeln;i: = i +1until i> Nx;end;

    beginvvod (a, na, ma, 'A');
    S: = Summa (a, na, ma);vivod (a, na, ma, 'A');writeln;writeln ( 'SUMMA =', S);end.

    4.1. Тестовий приклад і результат


    N = 3 M = 3


    1 2 3
    4 5 6
    7 8 9

    SUMMA = 20

    2.2. Блок-схема

    3.2. Текст програми

    PROGRAM SEM2;uses crt;const Nmax = 10;

    Mmax = 10;

    Kmax = 100;type matr = array [1 .. Nmax, 1 .. Mmax] of integer; vector = array [1 .. Kmax] of integer;var A: matr;

    C: vector;
    Na, i, j, Ma, Nc, k, M: integer;

    Procedure Vvod (var x: matr; var Nx, Mx: integer; P: char);beginclrscr;write ( 'Vvedite N:');read (Nx);writeln;write ( 'Vvedite M:');read (Mx);writeln;for i: = 1 to Nx do for j: = 1 to Mx do begin write (P ,'[', i ,',', j ,']='); read (x [i, j]); end ;

    end;

    Procedure Sozd (var x: matr; Nx, Mx: integer);begin
    Nc: = 0;k: = 1;i: = 1;repeatj: = 1;repeatif (x [i, j] 0) then begin c [k]: = x [i, j];

    Nc: = Nc 1; k: = k +1; end;j: = j +1;until j> Mx;i: = i +1;until i> Nx;end;

    Function Modul (var x: vector; Nx: integer): integer;begin
    M: = 0;for k: = 1 to Nx do M: = M + x [k];
    M: = ABS (M);
    Modul: = M;end;

    Procedure Vivod (var x: vector; Nx: integer; P: char);beginwriteln;writeln ( 'Vector', P ,':');writeln;k: = 1;repeatwrite (x [k], '');k: = k +1;until k> Nx;writeln;end;

    beginvvod (a, na, ma, 'A');
    Sozd (a, na, ma);
    M: = Modul (c, nc);vivod (c, nc, 'C');writeln;writeln ( 'MODUL =', M);end.

    4.2. Тестовий приклад і результат


    N = 2 M = 3


    -4 2 0
    0. 4 -6

    Vector:
    -4 2 4 -6


    Modul = 4

    -----------------------

    КІНЕЦЬ

    VVOD (a, Na, Ma, 'A')

    s: = summa (a, Na, Ma)

    VIVOD (a, Na, Ma, 'A')

    i НЕ кр. 2 і j НЕ кр.2

    Висновок S

    j: = 1

    i: = 1 to Nx

    VVOD (var x: matr; var Nx, Mx: integer; P: char)

    x [i, j]

    Nх, Mx

    ПОЧАТОК

    j: = 1 to Mx

    END

    END

    Modul: = M

    M: = ABS (M)

    M: = M + x [k]

    k: = k + 1

    k: = 1

    Nc: = 0

    M: = Modul (c, Nc)

    END

    j: = j +1

    i: = i + 1

    i> Nx

    j> Mx

    x [i, j]

    j: = 1 < p> i: = 1

    VIVOD (var x: matr; Nx, Mx: integer; P: char)

    Summa (var x: matr; Nx, Mx: integer) : integer

    Summa: = S

    i: = 1

    S: = 0

    S: = S + x [i , j]

    i: = i +1

    i> Nx

    j> Mx

    j: = j +1

    END

    END

    x [i, j]

    j: = 1 to Mx

    i: = 1 to Nx

    КІНЕЦЬ

    ПОЧАТОК

    Nх, Mx

    VVOD (var x: matr; var < p> Nx, Mx: i ????????????????????????????? ъ? ъ? ъ? ъ? ъ? ъ? ъ? ъ?'nteger; P: char)

    END

    k: = k +1

    M: = 0

    VIVOD (c , Nc, 'C')

    VVOD (a, Na, Ma'A ')

    Modul (var x: vector; var Nx: integer; P: char): integer

    k> Nx

    x [i, j]

    k: = 1 to Nx

    k: = 1

    SOZD (a, Na, Ma)

    VIVOD (var x: vector; Nx: integer; P: char)

    i: = i +1

    i> Nx

    j> Mx

    j: = j +1

    Nc: = Nc + 1

    END

    x [i, j] 0

    j: = 1

    i: = 1

    c [k]: = x [i, j]

    SOZD (var x: matr; Nx, Mx: integer)

         
     
         
    Реферат Банк
     
    Рефераты
     
    Бесплатные рефераты
     

     

     

     

     

     

     

     
     
     
      Все права защищены. Reff.net.ua - українські реферати ! DMCA.com Protection Status