Варіанти індивідуальних завдань. 1) Знайти найбільший та найменший елементи двовимірного масиву дійсних чисел В[m

1) Знайти найбільший та найменший елементи двовимірного масиву дійсних чисел В[m, n].

2) Точки на площині задані своїми координатами, що зберігаються відповідно в масивах х і у. Знайти пару самих віддалених одну від одної точок.

3) Знайти суму елементів двовимірного масиву дійсних чисел С [15,15], розташованих на головній діагоналі.

4) Знайти суми елементів двовимірного масиву цілих чисел, розташованих на лініях, паралельних головній діагоналі, і нижче її.

5) Знайти суму елементів двовимірного масиву дійсних чисел, розташованих на лініях, паралельних побічній діагоналі, і вище її.

6) Знайти номер рядка і стовпчика двовимірного масиву для максимального елемента цього масиву.

7) Задано двовимірний масив дійсних чисел. Знайти максимальну суму абсолютних значень елементів по рядкам і номер рядка з такою сумою.

8) Задано двовимірний масив дійсних чисел. Знайти максимальну суму абсолютних значень елементів по стовпцям і номер стовпця з такою сумою.

9) Задано двовимірний масив цілих чисел. Знайти номер рядка, для котрого середнє арифметичне значення його елементів максимальне.

10) У двовимірному масиві дійсних чисел знайти номер рядка, для котрого середнє арифметичне значення його елементів мінімальне.

11) Знайти номер стовпця двовимірного масиву цілих чисел, для якого середнє арифметичне значення його елементів максимальне.

12) Знайти номер стовпця двовимірного масиву дійсних чисел, для якого середнє арифметичне значення його елементів мінімальне.

13) У двовимірному масиві цілих чисел поміняти місцями елементи, симетричні відносно головної діагоналі.

14) У двовимірному масиві дійсних чисел поміняти місцями рядки і стовпці з однаковими номерами.

15) У двовимірному масиві цілих чисел поміняти місцями стовпці, симетричні відносно середини масиву (вертикальної лінії).

16) У двовимірному масиві цілих чисел поміняти місцями рядки, симетричні відносно середини масиву (горизонтальної лінії).

17) Поміняти місцями значення елементів двовимірного масиву дійсних чисел, симетричних відносно побічної діагоналі.

18) Знайти максимальний елемент серед максимальних елементів рядків двовимірного масиву цілих чисел. Визначити номер рядка і стовпця для такого елемента.

19) Знайти мінімальний серед мінімальних елементів стовпців двовимірного масиву цілих чисел. Визначити номер рядка і стовпця для такого елемента.

20) Знайти максимальний елемент серед мінімальних елементів стовпців двовимірного масиву. Визначити номер рядка і стовпця для такого елемента.

21) Задана квадратна матриця A розміром N x N, що складається із дійсних елементів. Знайти середнє арифметичне елементів кожного з парних стовпців цієї матриці.

22) Задана квадратна матриця A розміром N x N, що складається із дійсних елементів. Знайти середнє арифметичне елементів кожного з непарних стовпців цієї матриці.

23) Задана квадратна матриця A розміром N x N, що складається із дійсних елементів. Знайти середнє арифметичне елементів кожного із рядків цієї матриці.

24) Задана квадратна матриця A розміром N x N, що складається із дійсних елементів. Знайти середнє арифметичне елементів кожного із парних рядків цієї матриці.

25) Задана квадратна матриця A розміром N x N, що складається із дійсних елементів. Знайти середнє арифметичне елементів кожного із непарних рядків цієї матриці.

26) Задана квадратна матриця A розміром N x N, що складається із дійсних елементів. Знайти середнє арифметичне елементів кожного із всіх негативних елементів цієї матриці.

27) Задана квадратна матриця A розміром N x N, що складається із дійсних елементів. Знайти середнє арифметичне елементів кожного із всіх позитивних елементів цієї матриці.

28) Задана квадратна матриця A розміром N x N, що складається із дійсних елементів. Знайти характеристику кожного її рядка (суму позитивних парних елементів в кожному рядку).

29) Задана квадратна матриця A розміром N x N, що складається із дійсних елементів. Знайти характеристику кожного її стовпця (суму позитивних парних елементів в кожному стовпці).

30) Задана квадратна матриця A розміром N x N, що складається із дійсних елементів. Знайти суму і добуток всіх її позитивних елементів.

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

Процедурою в Турбо Паскалі називається особливим образом оформлений фрагмент програми, який має власне ім’я.

Відмінність функції від процедури полягає в тому, що результатом виконання функції завжди є деяке значення, тому звернення до функції може бути із виразів.

Виклик процедури або функції здійснюється за її ім’ям із тексту основної програми. Після виконання процедури або функції управління передається в основну програму оператору, який знаходиться безпосередньо за оператором виклику процедури або функції.

Всі підпрограми (процедури та функції)і необхідно описати в розділі описів. Описати підпрограму значить указати її заголовок і тіло.

Заголовок - це ім’я підпрограми та параметри, а для функції - ще й тип результату.

Заголовок процедури має вигляд:

     Procedure <ім’я>[(<список параметрів>)];

Заголовок функції має вид:

     Function <ім’я>[(<список параметрів>)]: тип;

Тіло підпрограми, як і у програми, складається з розділу описів і розділу операторів.

Всі імена змінних, які описані в підпрограмі є локальними.

Локальні (внутрішні) змінні - це змінні, які визначені в даній підпрограмі, доступні та використовуються тільки в ній.

Глобальні (зовнішні) змінні - це змінні, які об’явлені в зовнішній програмі і не перевизначені в даній підпрограмі, тобто підпрограмі доступні тільки ті об’єкти зовнішнього рівня, які описані до описання даної підпрограми.

Імена, локалізовані в підпрограмі, можуть співпадати з раніше об’явленими глобальними іменами. В цьому випадку звернення до змінних з таким ім’ям в тілі підпрограм трактується як звернення до локальних змінних, тобто глобальні змінні недоступні.

Параметри, які описують в заголовку об’яви підпрограми, називаються формальними, а ті, що підставляються на їх місце при виклику - фактичними.

     Кількість, тип і порядок переліку формальних і фактичних параметрів повинні строго відповідати один одному.

     В Паскалі існують наступні види формальних параметрів:

     параметри-значення;

     параметри-змінні;

     параметри-константи;

     параметри-масиви;

     параметри-рядки;

     параметри-процедури;

     параметри-функції;

     нетипізовані параметри-змінні.

Параметри-значення - це локальні змінні підпрограми, стартові значення яких задаються при виклику підпрограми із зовнішніх блоків. Всі можливі зміни в підпрограмі параметра-значення не потягнуть зміни значення відповідного фактичного параметра.

Параметри-змінні - це параметри, зміна значень яких в підпрограмі приводить до зміни значень відповідних фактичних параметрів, тому що при виклику підпрограми їй передається адрес розміщення фактичного параметра в оперативній пам’яті. Тому параметрами-змінними користуються для передачі результатів виконання підпрограм в викликаючу програму (для функцій також). Перед параметром-змінною необхідно ставити зарезервоване слово var.

ПРИКЛАД 1. Обчислити: x^y і x^-y, де x,y - дійсні числа. Введення значень x та y виконувати до натиснення клавіш Ctrl+Z (кінець файлу).

 

Блок-схема:

Основна програма

 

 

Функція Power

 

Функція Power:

 

Програма:

 

     Program Ex_func;

     var x,y: real;

 

     Function Power(a,b:real):real;

     begin

     if a>0 then

     Power:=exp(b*ln(a))

     else

     if a<0 then

         Power:= - exp(b*ln(abs(a)))

              else

              if b=0 then

                  Power:=1

              else Power:=0

     end;

     BEGIN

     repeat

     writeln('Введите x');

     readln(x);

     writeln('Введите y');

     readln(y);

      writeln(' Power(x,y)= ',Power(x,y):12:10,

              ' Power(x,-y)= ',Power(x,-y):15:10)

     until Eof {Ctrl+z}

     END.

 

В розглянутому прикладі x,y - фактичні параметри, a,b - формальні параметри.

ПРИКЛАД 2. Розробити процедуру, яка підносить число в квадрат. Якщо значення квадрата числа перевищує 100, то прийняти його рівним 100. При цьому необхідно встановлювати глобальний флаг (ознаку).

Блок-схема:

Основна програма:

 

Процедура GetSqr

 

 

Програма:

 

     Program Ex_proc;

     var

     GlobalFlag: boolean;

 

     procedure GetSqr(x: real; var sq: real);

     const

     SqrMax=100;

     begin

     x:=x*x;

     GlobalFlag:=(x>SqrMax);

     if GlobalFlag then x:=SqrMax;

     sq:=x       

     end;

         

     var

     SqGlobal: real;

     BEGIN

     GetSqr(5,SqGlobal);

     Writeln('SqGlobal= ', SqGlobal:0:2, ' Флаг: ',GlobalFlag)

     END.