Знайти найбільший елемент у частині матриці вище побічної діагоналі.
Знайти кількість від’ємних елементів у частині матриці A(nxn) нижче головної діагоналі.
Описати функцію бульового типу, що повертає ознаку впорядкованості масиву: true - масив впорядкований, false - ні.
Описати функцію обчислення суми елементів головної діагоналі матриці. За допомогою цієї функції обчислити суми елементів головних діагоналей матриць A(N,N), B(M,M).
Дані три натуральних числа. Визначити їх найбільший спільний дільник.
Знайти найменше спільне кратне чотирьох заданих натуральних чисел.
Визначити периметри трикутників, що задані координатами вершин: xa(5), xb(5), xc(5), ya(5), yb(5), yc(5).
Описати функцію Norm(A, M, N) дійсного типу, що обчислює норму дійсної матриці А розміру MxN: Norm( A, M, N) = max|A[1, { ] + |A[2, j ] +... + |Л[М, j ]}, де
максимум береться для всіх j від 1 до N. Для даної матриці А розміру MxN знайти Norm(A, k, N), k=1,.. ,,M.
Описати функцію цілого типу, що знаходить найбільший спільний дільник (НСД) двох натуральних чисел А та B, використовуючи алгоритм Евкліда: НСД^В^НСД^ mod A, A), якщо A<>0; НСД(0,В)=В - інакше. За допомогою цієї функції знайти найбільші спільні дільники пар А та В, А та С, А та D заданих чисел A, В, C, D.
Описати функцію Norm(A, M, N) дійсного типу, що обчислює норму дійсної матриці А розміру MxN:
Norm( A, M, N) = max|A[i,1] + {[/,2] + к + |A[i, N ]}, де
максимум береться для всіх i від 1 до M. Для даної матриці А розміру MxN знайти Norm(A, k, N), k=1,.. ,,M.
const n=15; m=20; type matrix=array[1..n, 1..m] of real; Описати функцію sum(a), що обчислює x1x„+x2x„-1+.+x„x1, де xi - максимальний елемент /-го рядка.
Дані вектори x, y, z дійсних чисел. Обчислити величину (a,a)- (b,c), де a означає той з векторів, в якому найбільший мінімальний елемент (вважати, що такий вектор один), b і c означають два інших вектори, а (p,q) - скалярний добуток p і q.
const d=100; m=5; type position=1..d; var x: string[d]; y, z: string[m]; Описати логічну функцію search(s, ss, k, n), що перевіряє, чи входить підрядок ss у ту частину рядка s, яка починається з k-ї позиції, і, якщо входить, присвоює параметру n номер позиції, з якої починається перше входження ss у цю частину рядка s. Використовуючи цю функцію, замінити у рядку x усі входження підрядка у на підрядок z.
За заданими масивам цілих чисел x та у обчислити:
20 2 15
u = X X/ , при X ХіУі > 0, і=1 і=1
X 2 ■
u = X Уі , інакше.
і =1
Описати функцію next без параметрів, яка зчитує першу літеру рядка, що не є пропуском, і оголошує її своїм значенням. Використовуючи цю функцію, описати функцію підрахування відмінних від пропусків букв рядка.
ь
Обчислити інтеграл і = | / (х)ёх за формулою
а
п-1
« И^ / (хі), де хі = а + і ■ И, хі = хі + И/2, И = (Ь - а)/N,
і=0
для функції / (х) = С0Б( х2)
Описати функцію БіЬ(п) цілого типу, що обчислює п-е число Фібоначчі F(N) за формулою: Р(1)=Б(2)=1, Р(к)=Р(к-2)+Б(к-1), к=3, 4... За допомогою цієї функції обчислити 10 чисел Фібоначчі із заданими номерами.
За заданими дійсними масивами а, Ь, с обчислити: 1=шіп(Ьі)/шах(аі)+шах(сі)/шіп(Ьі+сі), при шіп(аі)<шах(Ьі), 1=шах(Ьі+сі)+шіп(сі) - інакше.
Описати функцію Ро1упош(А, N X) дійсного типу, що знаходить значення полінома Р у точці X. Поліном Р задається параметрами N (ступінь полінома, 0<N<8) та А - коефіцієнти полінома (дійсний масив розміру N+1): Р(Х)=А[1]Х^А[2]Х№1+ +...+А[ЩХ+А[К+1]. Використовуючи цю функцію, знайти значення заданого полінома у п’ яти точках.
Знайти найбільше значення функції двох змінних:
= ху/(х + у), де х є[хп ... хк ], змінюється з кроком Ах,
у є Хп к • Ук ], змінюється з кроком Ау.
Описати функцію цілого типу, що обчислює значення “подвійного факторіала”: №!=1-3-5-...^, якщо N - непарне; №!=2-4-6-..., якщо N - парне. За допомогою цієї функції обчислити “подвійні факторіали” десяти заданих чисел.
Описати функцію Ехр1(х, ер8) дійсного типу (параметри х, ер8 - дійсні,), що знаходить наближене значення функції ехр(х): ехр(х)=1+х+х2/2!+х3/3!+...+хп/п!+...із заданою точністю ер8.
Описати функцію 8іп1(х, ер8) дійсного типу (параметри х, ер8
дійсні), що знаходить наближене значення функції 8іп(х)=х- х3/3!+х5/5!-...+(-1)пх2п+1/(2п+1)!+...
Описати функцію Со8І(х, ер8) дійсного типу (параметри х, ер8
дійсні), що знаходить наближене значення функції ео8(х)=І- х2/2!+х4/4!-...+(-1)пх2п/(2п)!+...
Описати логічну функцію, що перевіряє впорядкованість латинських букв за алфавітом.
Знайти кількість від’ємних елементів у частині матриці A(nxn) нижче головної діагоналі.
Описати функцію бульового типу, що повертає ознаку впорядкованості масиву: true - масив впорядкований, false - ні.
Описати функцію обчислення суми елементів головної діагоналі матриці. За допомогою цієї функції обчислити суми елементів головних діагоналей матриць A(N,N), B(M,M).
Дані три натуральних числа. Визначити їх найбільший спільний дільник.
Знайти найменше спільне кратне чотирьох заданих натуральних чисел.
Визначити периметри трикутників, що задані координатами вершин: xa(5), xb(5), xc(5), ya(5), yb(5), yc(5).
Описати функцію Norm(A, M, N) дійсного типу, що обчислює норму дійсної матриці А розміру MxN: Norm( A, M, N) = max|A[1, { ] + |A[2, j ] +... + |Л[М, j ]}, де
максимум береться для всіх j від 1 до N. Для даної матриці А розміру MxN знайти Norm(A, k, N), k=1,.. ,,M.
Описати функцію цілого типу, що знаходить найбільший спільний дільник (НСД) двох натуральних чисел А та B, використовуючи алгоритм Евкліда: НСД^В^НСД^ mod A, A), якщо A<>0; НСД(0,В)=В - інакше. За допомогою цієї функції знайти найбільші спільні дільники пар А та В, А та С, А та D заданих чисел A, В, C, D.
Описати функцію Norm(A, M, N) дійсного типу, що обчислює норму дійсної матриці А розміру MxN:
Norm( A, M, N) = max|A[i,1] + {[/,2] + к + |A[i, N ]}, де
максимум береться для всіх i від 1 до M. Для даної матриці А розміру MxN знайти Norm(A, k, N), k=1,.. ,,M.
const n=15; m=20; type matrix=array[1..n, 1..m] of real; Описати функцію sum(a), що обчислює x1x„+x2x„-1+.+x„x1, де xi - максимальний елемент /-го рядка.
Дані вектори x, y, z дійсних чисел. Обчислити величину (a,a)- (b,c), де a означає той з векторів, в якому найбільший мінімальний елемент (вважати, що такий вектор один), b і c означають два інших вектори, а (p,q) - скалярний добуток p і q.
const d=100; m=5; type position=1..d; var x: string[d]; y, z: string[m]; Описати логічну функцію search(s, ss, k, n), що перевіряє, чи входить підрядок ss у ту частину рядка s, яка починається з k-ї позиції, і, якщо входить, присвоює параметру n номер позиції, з якої починається перше входження ss у цю частину рядка s. Використовуючи цю функцію, замінити у рядку x усі входження підрядка у на підрядок z.
За заданими масивам цілих чисел x та у обчислити:
20 2 15
u = X X/ , при X ХіУі > 0, і=1 і=1
X 2 ■
u = X Уі , інакше.
і =1
Описати функцію next без параметрів, яка зчитує першу літеру рядка, що не є пропуском, і оголошує її своїм значенням. Використовуючи цю функцію, описати функцію підрахування відмінних від пропусків букв рядка.
ь
Обчислити інтеграл і = | / (х)ёх за формулою
а
п-1
« И^ / (хі), де хі = а + і ■ И, хі = хі + И/2, И = (Ь - а)/N,
і=0
для функції / (х) = С0Б( х2)
Описати функцію БіЬ(п) цілого типу, що обчислює п-е число Фібоначчі F(N) за формулою: Р(1)=Б(2)=1, Р(к)=Р(к-2)+Б(к-1), к=3, 4... За допомогою цієї функції обчислити 10 чисел Фібоначчі із заданими номерами.
За заданими дійсними масивами а, Ь, с обчислити: 1=шіп(Ьі)/шах(аі)+шах(сі)/шіп(Ьі+сі), при шіп(аі)<шах(Ьі), 1=шах(Ьі+сі)+шіп(сі) - інакше.
Описати функцію Ро1упош(А, N X) дійсного типу, що знаходить значення полінома Р у точці X. Поліном Р задається параметрами N (ступінь полінома, 0<N<8) та А - коефіцієнти полінома (дійсний масив розміру N+1): Р(Х)=А[1]Х^А[2]Х№1+ +...+А[ЩХ+А[К+1]. Використовуючи цю функцію, знайти значення заданого полінома у п’ яти точках.
Знайти найбільше значення функції двох змінних:
= ху/(х + у), де х є[хп ... хк ], змінюється з кроком Ах,
у є Хп к • Ук ], змінюється з кроком Ау.
Описати функцію цілого типу, що обчислює значення “подвійного факторіала”: №!=1-3-5-...^, якщо N - непарне; №!=2-4-6-..., якщо N - парне. За допомогою цієї функції обчислити “подвійні факторіали” десяти заданих чисел.
Описати функцію Ехр1(х, ер8) дійсного типу (параметри х, ер8 - дійсні,), що знаходить наближене значення функції ехр(х): ехр(х)=1+х+х2/2!+х3/3!+...+хп/п!+...із заданою точністю ер8.
Описати функцію 8іп1(х, ер8) дійсного типу (параметри х, ер8
дійсні), що знаходить наближене значення функції 8іп(х)=х- х3/3!+х5/5!-...+(-1)пх2п+1/(2п+1)!+...
Описати функцію Со8І(х, ер8) дійсного типу (параметри х, ер8
дійсні), що знаходить наближене значення функції ео8(х)=І- х2/2!+х4/4!-...+(-1)пх2п/(2п)!+...
Описати логічну функцію, що перевіряє впорядкованість латинських букв за алфавітом.
