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

     

     

     

     

     

         
     
    Програмування елементів розгалужується структури
         

     

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

    Пензенська ДЕРЖАВНИЙ УНІВЕРСИТЕТ

    Кафедра МО і ПЕОМ

    Лабораторна робота № 8

    Тема: "Програмування елементів розгалужується структури»

    Виконав: студент гр. 02ТП1

    Пахомов В. Е.

    Перевірив: Ракова А. Н.

    2003

    Завдання А. < p> Знайти середнє арифметичне негативних елементів матриці Z (n, m).
    Значення параметрів n і m задаються наступним умовою n12, m12.

    Програма:

    uses crt; var z: array [1 .. 12,1 .. 12] of integer; m , n, b, sum, i, j: integer; begin n: = 10; m: = 12; clrscr; randomize; b: = 0; sum: = 0; writeln ( 'Вихідний масив:'); for i: = 1 to n do for j: = 1 to m do begin z [i, j]: = random (60) - 30; if z [i, j] <0 then begin sum: = sum + z [i, j ]; inc (b); end; write ( '', z [i, j]); end; writeln; writeln ( 'Результат:', (sum/b): 2:6); readkey; end.

    Блок-схема

    Завдання Б.

    У матриці D (n, m) знайти суму елементів кожного стовпця і результатрозмістити в вектор Z. Визначити номер стовпчика, де ця сума мінімальна.
    Значення параметрів n і m задаються і підкоряються наступного умовіn12, m12.

    Програма:

    uses crt;varn, m, b, i, j, sum, min: integer;d: array [1 .. 12,1 .. 12] of integer;z: array [1 .. 12] of integer;beginclrscr;randomize;b: = 0;min: = 0;n: = 12;m: = 7;writeln ( 'Вихідний масив:');for i: = 1 to n dobeginfor j: = 1 to m dobegind [i, j]: = random (60) - 30;write ( '', d [i, j]);end;writeln;end;for j: = 1 to m dobeginsum: = 0;for i: = 1 to n dobeginsum: = sum + d [i, j];end;z [j]: = sum;end;min: = 1;for i: = 1 to m doif z [min]> z [i] then min: = i;writeln ( 'Масив Z:');for i: = 1 to m dowriteln ( '', z [i]);writeln ( 'Номер стовпця:', min);readkey;end.

    Блок-схема

    ----------------------- sum: = 0 b: = 0

    z [i, j]: = random (60) -30

    n, m

    z [i, j] <0

    Randomize;

    sum/b

    sum: = sum + z [i, j] b: = b + 1

    j = 1; n; 1

    1

    1

    sum: = sum + d [i, j]

    j = 1; m; 1

    I = 1; n; 1

    d [i, j]: = random (60) -30

    n, m

    Randomize;

    z [i]: = sum;

    j = 1; m; 1

    I = 1; n; 1

    початок

    j = 1; m; 1

    I = 1; n; 1

    Кінець

    Початок

    min

    sum/b

    Кінець

    j = 1; n; 1

    z [min ]> z [i]

    Min = 1

    Min = i

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

     

     

     

     

     

     

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