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


 

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

10313. Язык и мышление, их взаимосвязь 42.75 KB
  Язык и мышление Язык главная из знаковых систем человека важнейшее средство человеческого общения способ осуществления мышления. Человек единственной существо моделирующее внешний мир при помощи знаковых систем. В любом человеческом сообществе люди реагиру...
10314. Функции культуры 26 KB
  Функции культуры Основная человекотворческая Человек живет не в природе а в культуре. В ней он сам себя познает. Здесь есть и моменты миропонимания формирования воспитания и социологизации человека. Иначе она еще называется преобразующей функцией поскольку освое
10315. Категории диалектики. Законы диалектики 30 KB
  Категории диалектики общие понятия отражающие наиболее существенные закономерные связи и отношения реальности. Можно сказать что философские категории воспроизводят свойства и отношения бытия в максимально общем виде. Регулируя реальный процесс мышлени они в ходе е
10316. Общество - это продукт совметной историчсекой деятельности дюдей 18.99 KB
  Общество это продукт совместной исторической деятельности людей совокупность общественных связей отношений и компонентов особый тип надындивидуальной и надприродной системной организации. Общество представляет собой специфическую систему включающую множество э...
10317. Предмет и функции философии, Философские дисциплины 27.54 KB
  Философия есть определенная способность думать о вечных вопросах, о человеческой жизни и смерти, о предназначении человека, и в таком своем качестве она возникла вместе с появлением человеческого рода, Философия имеет дело с предельными, вековечными вопросами.
10318. Мировоззренческая, методологическая, рефлексивно–критическая и интегративная функция философии 26.11 KB
  Содержание Введение 1. Предмет философии. Место философии в системе наук и культуре 2. Основные разделы философии 3. Мировоззренческая методологическая рефлексивно–критическая и интегративная функция философии Заключение Список использованной ли...
10319. Гумилев Л.Н. Этногенез и биосфера Земли 47.04 KB
  Тема: Гумилев Л.Н. Этногенез и биосфера Земли. Этнос и популяция. Этнос не популяция. Начать свой доклад я бы хотел с определения терминов этнос и популяция. Этнос – исторически возникший вид устойчивой социальной группировки людей представленный племенем или народ...
10320. Предмет, задачи, основные категории педагогики и психологии. Формы проявления психики. Связь педагогики и психологии с другими науками. Методология психолого-педагогических дисциплин. Методологическая культура педагога 50.5 KB
  Предмет задачи основные категории педагогики и психологии. Формы проявления психики. Связь педагогики и психологии с другими науками. Методология психологопедагогических дисциплин. Методологическая культура педагога. Педагогика наука изучающая сущность законом
10321. Актуальные задачи российской школы и педагогической и психологической науки 67.5 KB
  Актуальные задачи российской школы и педагогической и психологической науки. Закон РФ Об образовании. Структура и особенности современной системы образования в РФ. Непрерывное образование. Уровни и формы получения образования. Концепция модернизации российского обра...