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.   {ну ось і все}


 

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

4578. Философия человека 185 KB
  Философия человека Понятие философской антропологии. Проблема человека в истории философии. Проблема определения сущности человека. Философские проблемы антропосоциогенеза. Смысл и ценность жизни человека. Введение. С развитием общества ...
4579. Визначення максимальної енергії бета-частинок у спектрі 78 KB
  Визначення максимальної енергіїбета-частинок у спектрі Мета роботи: визначення максимальної енергії бета-частинок в спектрі. Короткі теоретичні відомості Бета-розпад — це самовільний процес, в якому нестабільне ядро перетворюєтьс...
4580. Вивчення прискорення вільного падіння тіла за допомогою фізичного маятника 103 KB
  Вивчення прискорення вільного падіння тіла за допомогою фізичного маятника Мета роботи. Вивчити вільні незатухаючі коливання фізичного маятника і визначити прискорення вільного падіння. Теоретичні відомості. Коливання - це процес, який п...
4581. Управление затратами предприятия на примере ООО «Кормилец» 184.81 KB
  Дать характеристику и классификацию издержек обращения в торговых предприятиях; изучить методы управления затратами; дать характеристику деятельности ООО «Кормилец»; сделать анализ финансового состояния предприятия; разработать план мероприятия по управлению затратами; дать оценку эффективности данных мероприятий...
4582. Сучасні технології захисту інформації в комп’ютерних системах і мережах 2.15 MB
  Частина друга присвячена питанням захисту інформації в комп’ютерних мережах. До її складу входять роботи: Перехоплення мережевого обміну, Сканування TCP/IP мереж, Засоби аналізу захищеності, Міжмережеві екрани, Системи виявлення атак. Лаборатор...
4583. Використання методу Монте-Карло для вирішення стохастичних і детермінованих задач 80 KB
  Використання методу Монте-Карло для вирішення стохастичних і детермінованих задач. Мета роботи:Ознайомитись з методом статистичних випробувань (метод Монте-Карло), та його застосуванням для вирішення стохастичних та детермінованих задач. Метод...
4584. Знайомство з системою комп’ютерної математики - математичною матричною лабораторією MATLAB 232.5 KB
  Знайомство з системою комп’ютерної математики - математичною матричною лабораторією MATLAB. Мета роботи: Ознайомитися з основними елементами і складовими частинами системи комп’ютерної математики MatLab® і її робочим і програмним середовищ...
4585. Планування модельних експериментів. Стратегічне планування модельного експерименту 101 KB
  Планування модельних експериментів. Стратегічне планування модельного експерименту. Мета роботи: Ознайомитися з методами стратегічного планування імітаційних експериментів. Планування модельних експериментів Припустимо, три юні натураліст...
4586. Методи управління модельним часом: моделювання з постійним кроком і по особливих станах 101 KB
  Методи управління модельним часом: моделювання з постійним кроком і по особливих станах. Мета роботи: Вивчити методи управління модельним часом. Ознайомитися і програмно реалізувати алгоритми управління модельним часом з постійним кроком і по особли...