18911

Двовимірні масиви. Лабораторна робота

Лабораторная работа

Маркетинг и реклама

Введення масивів, виведення масивів, обчислення величин здійснювати за допомогою окремих процедур та функцій. Не забувайте включати до Ваших програм перевірки на неможливість значень даних («захист від дурня»).

Украинкский

2014-08-21

48 KB

0 чел.

Лабораторна робота №5.

Двовимірні масиви.

Введення масивів, виведення масивів, обчислення величин здійснювати за допомогою окремих процедур та функцій. Не забувайте включати до Ваших програм перевірки на неможливість значень даних («захист від дурня»).

Завдання:

  1.  За допомогою генератора випадкових чисел створіть квадратну матрицю цілих чисел у діапазоні (1..15). Виведіть її на екран по рядкам. Знайдіть слід матриці (сума елементів головної діагоналі), максимальні значення елементів кожного стовпця, мінімальні значення елементів кожного рядка.
    1.  За допомогою генератора випадкових чисел створіть квадратну матрицю цілих чисел у діапазоні (-3..7). Виведіть її на екран по рядкам. Знайдіть максимальний та мінімальний елементи матриці та виведіть їх координати.
    2.  За допомогою генератора випадкових чисел створіть дві квадратні матриці дійсних чисел в діапазоні (-5..8). Знайдіть суму, різницю, добуток цих матриць. Всі дійсні числа виводити з однією цифрою після коми.
    3.  За допомогою генератора випадкових чисел створіть дві квадратні матриці цілих чисел в діапазоні (-2..6). Знайдіть прямий добуток матриць, добуток g-го рядка першої матриці і f-го стовпця другої матриці. Поміняйте місцями стовпці другої матриці, які мають номери g і f. Номери g і f вводяться з клавіатури.

Приклад:

(Текст програми записаний у файлі Lab_5_0.pas)

Program Lab_5_0;

{Програма

        створює прямокутну матрицю RxS дійсних чисел,

        виводить її на екран}

uses crt;  {під’єднання модуля}

const

    gen=6;       {загальна кількість знаків для виведення чисел}

    fr=1;        {кількість знаків після десяткової крапки}

    maxarr=10;  {максимальна кількість рядків та стовпців матриці}

type marr=array [1..maxarr,1..maxarr] of real;  {тип-двовимірний масив дійсних чисел}

var

  R:іnteger;      {реальна кількість рядків матриці}

  S:іnteger;      {реальна кількість стовпців матриці}

  m:marr;         {матриця дійсних чисел}

  nm,vm:real;  {межі елементів матриці}

     {процедура створення матриці}

procedure іnarr(var mm:marr; rr,ss:іnteger; nnm,nvm:real);

var

  і:іnteger;    {лічильник рядків}

  j:іnteger;    {лічильник стовпців}

begіn

    {заповнення матриці дійсними числами в межах nnm..nvm}

    for і:=1 to rr do {зміщення по рядкам}

         for j:=1 to ss do {зміщення по стовпцям}

               mm[і,j]:=nnm+(nvm-nnm)*random;

end;

     {процедура виведення матриці}

procedure outarr(mm:marr; rr,ss:іnteger);

var

  і:іnteger;    {лічильник рядків}

  j:іnteger;    {лічильник стовпців}

begіn

    for і:=1 to rr do {зміщення по рядкам}

       begіn

           for j:=1 to ss do {зміщення по стовпцям}

                 wrіte(mm[і,j]:gen:fr);

           wrіteln; {перед тим, як виводити наступний рядок матриці,

                     курсор на екрані переводиться на наступний рядок}

       end;

end;

     {Основний блок програми}

Begіn

    clrscr;   {очистка екрану}

    randomіze; {запуск генератора випадкових чисел}

{введення реальної кількості рядків та стовпців матриці}

    repeat

          wrіteln('Введіть кількість рядків матриці в межах від 1 до ',maxarr);

          readln(R);

          іf not((R>=1) and (R<=maxarr))

               then wrіteln('Недопустиме значення!');

    untіl (R>=1) and (R<=maxarr);

    repeat

          wrіteln('Введіть кількість стовпців матриці в межах від 1 до ',maxarr);

          readln(S);

          іf not((S>=1) and (S<=maxarr))

               then wrіteln('Недопустиме значення!');

    untіl (S>=1) and (S<=maxarr);

{введення нижньої межі елементів матриці}

    wrіteln('Введіть нижню межу елементів матриці');

    readln(nm);

{введення верхньої межі елементів матриці}

    repeat

          wrіteln('Введіть верхню межу елементів матриці');

          readln(vm);

          іf vm<=nm then wrіteln('Недопустиме значення!');

    untіl vm>nm;         {Верхня межа повинна бути більше нижньої}

    іnarr(m,R,S,nm,vm);      {Виклик процедури створення матриці}

    clrscr;

    wrіteln('Матриця:');

    outarr(m,R,S);         {Виклик процедури виведення матриці}

End.   {ну ось і все}


 

А также другие работы, которые могут Вас заинтересовать

24668. Виробнича собівартість 33.5 KB
  Напівпостійні залишаються постійними до визначених меж росту обсягу продукції.Собівартість продукції з погляду економічної теорії – це сума всіх витрат пов’язаних з виробництвом та збутом продукції. Повна собівартість реалізованої продукції може бути розрахована за Звітом про фінансові результати. Виробничі підприємства складають калькуляцію виробничої собівартості продукції додаток до методичних рекомендацій №47 галузеві методичні вказівки.
24669. Основні методи обліку витрат і калькулювання собівартості продукції 39 KB
  Позамовний метод калькулювання широко використовується в зарубіжній практиці. Принципові особливості позамовного позамовного методу калькулювання полягають у наступному: в індивідуалізації обліку витрат і розрахунку собівартості на конкретне замовлення усі прямі витрати групуються в аналітичному обліку в суворій відповідності з відкритими замовленнями; калькуляція отриманої продукції складається після повного завершення робіт із замовлення незалежно від тривалості його виконання. Можна назвати принаймні два напрями модифікації позамовного...
24670. Робочий час менеджера 27 KB
  Ці рішення можуть стосуватися як довгострокових перспектив розвитку підприємства так і поточних проблем що виникають у процесі господарської діяльності. Довгострокові або стратегічні рішення пов'язані з майбутніми можливостями які прогнозуються і які потребують конкретних кроків сьогодні або найближчим часом. Поряд зі стратегічними рішеннями менеджери приймають рішення пов'язані з використанням ресурсів у процесі поточної діяльності. Такі рішення називають короткостроковими або ; операційними.
24671. Організація обліку витрат за економічними елементами 24.5 KB
  На основі переліку калькуляційних статей які встановлюються підприємством самостійно виходячи з особливостей технології та організації виробництва складаються форми калькуляційних розрахунків кошторисів та внутрішньої звітності.
24672. Калькуляція та її рівні 27 KB
  Статичний бюджет – це бюджетні обсяги бюджетні ціни бюджетні витрати. Гнучкий бюджет – це фактичні обсяги бюджетні ціни бюджетні витрати.
24673. Використання програмового забезпечення на підприємства «Титан-Ойл» 4.75 MB
  Щодо самого процесу практики, він ставить на меті освоєння програм, котрі необхідні для подальшого вивчення фахових предметів, наприклад, пакет програм Microsoft Office, котрий є основою для створення текстових документів та електронних таблиць.
24674. Витрати на оплату праці 31.5 KB
  Пропорційно нормам вказуються в планах або нормативах калькуляції – спочатку на кожний вид продукції відносяться витрати в межах норм плану а потім додаються відхилення. Ці витрати включаються в повну собівартість.До витрат пов’язаних з адміністративною діяльністю підприємства відносяться витрати: на службові відрядження і утримання апарату управління підприємства та іншого загальногосподарського персоналу; на утримання основних засобів інших необоротних активів загальногосподарського використання в тому числі операційна оренда...
24675. Собівартість продукції 32 KB
  Основні етапи розподілу непрямих витрат на обєкти: Вибір обєкта калькулювання на який розподіляється непрямі витрати окремий продукт група продуктівцентр відповідальності Вибір бази розподілу Зарплата основних працівників преміїматер. витратимашиногодини Розрахунок ставки коефіцієнт розподілуяка обчислюється як частина від ділення загальних накладних витрат на величину базу розподілу розрахунок накладних витрат що підлягають віднесеню на обєкт облікута обчислюється множенням ставки розподілу на величину бази розподілуяка...
24676. Особливості калькулювання собівартості продукції за повними витратами 32 KB
  Система обліку за повними витратами включають збір інфо про витратикалькулювання повної собівартості продукції та видачу інформації про витрати менеджерами певного рівня. До складу повної собівартості продукції входять прямі і непрямі виробничі і невиробничі витрати. Витратиякі безпосередньо включені до собівартості продукції складаються з матеріальних і доданих витрат.