Студопедия

Главная страница Случайная страница

КАТЕГОРИИ:

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника






Завдання 3.2


⇐ ПредыдущаяСтр 5 из 7Следующая ⇒


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

1. X: =A[1, 3]; N1: =I; N: =3; For I: =1 To N Do For J: =1 To N Do If X< A[I, J] Then Begin X: =A[I, J]; N1: =I End; 7. X: =0; N: =3; For I: =1 To N Do For J: =1 To I-1 Do X: =X+A[I, J]; X: =X/(N*(N-1) Div 2);
2. X: =0; N: =3; For K: =1 To N Do X: =X+A[K, K]; For I: =1 To N Do For J: =1 To N Do A[I, J]: =A[I, J]/X; 8. N: =3; For I: =1 To N Do Begin P: =1; For J: =1 To N DoP: =P*A[I, J]; B[N-i+1]: =P End;
3. N: =3; For I: =1 To N Do Begin X: =0; For J: =I To N DoX: =X+A[I, J]; A[I, J]: =X End; 9. N: =3; For I: =1 To N Do Begin S: =0; For J: =1 To N Do S: =S+A[I, J]*B[J]; A[I, 1]: =S End;
4. N: =3; X: =A[1, N]; K: =1; For I: =2 To N Do If A[I, N+1-I]< X Then Begin X: =A[I, N+1-I]; K: =I End; If N< > K Then For I: =1 To N Do Begin B: =A[N, I]; A[N, I]: =A[K, I]; A[K, I]: =B End; 10. N: =3; X: =1; F: =X; For I: =1 To N Do Begin F: =F*I; For J: =1 To N-I Do X: =X*A[I, J]; End; X: =X*F;
5. X: =0; N: =3; For I: =1 To N Do For J: =1 To N-I Do X: =X+Abs(A[I, J]); 11. X: =1; N: =3; S: =N*(N-1) Div 2; For I: =1 To N Do For J: =1 To I-1 Do X: =X*A[J, I]; X: =Exp(1/S*Ln(Abs(X)));
6. N: =3; For J: =1 To N Do Begin X: =A[1, J]; For I: =2 To N Do If A[I, J]> X Then X: =A[I, J]; B[J]: =X End; 12. X: =A[1, 3]; N1: =I; N: =3; For I: =1 To N Do For J: =N-I+1 To N Do If X> A[I, J] Then Begin X: =A[I, J]; N1: =I End;
13. X: =0; N: =3; For I: =1 To N Do For J: =1 To I-1 Do X: =X+A[I, J]; X: =X/(N*(N-1) Div 2); 19. N: =3; X: =A[1, N]; K: =1; For I: =2 To N Do If A[I, N+1-I]< X Then Begin X: =A[I, N+1-I]; K: =I End; If N< > K Then For I: =1 To N Do Begin B: =A[N, I]; A[N, I]: =A[K, I]; A[K, I]: =B End;
14. N: =3; X: =1; F: =X; For I: =1 To N Do Begin F: =F*I; For J: =1 To N-I Do X: =X*A[I, J]; End; X: =X*F; 20. X: =0; N: =3; For K: =1 To N Do X: =X+A[K, K]; For I: =1 To N Do For J: =1 To N Do A[I, J]: =A[I, J]/X;
15. N: =3; For J: =1 To N Do Begin X: =A[1, J]; For I: =2 To N Do If A[I, J]> X Then X: =A[I, J]; B[J]: =X End; 21. N: =3; For I: =1 To N Do For J: =1 To N Do D[I, J]: =A[J, I];
16. X: =A[1, 3]; N1: =I; N: =3; For I: =1 To N Do For J: =1 To N Do If X< A[I, J] Then Begin X: =A[I, J]; N1: =I End; 22. N: =3; For I: =1 To N Do Begin P: =0; For J: =1 To N DoP: =P+A[I, J]; B[N-I+1]: =P End;
17. N: =3; For I: =1 To N Do Begin S: =0; For J: =1 To N Do S: =S+A[I, J]*B[J]; C[I]: =S End; 23. N: =3; For I: =1 To N Do Begin X: =1; For J: =1 To I DoX: =X*A[I, J]; A[I, J]: =X End;
18. N: =3; For I: =1 To N Do Begin X: =1; For J: =I To N DoX: =X*A[I, J]; A[I, J]: =X End; 24. X: =0; N: =3; For I: =1 To N Do For J: =I+1 To N Do If A[I, J]> 0 ThenX: =X+A[I, J];

 


⇐ Предыдущая1234567Следующая ⇒

Данная страница нарушает авторские права?


mylektsii.su - Мои Лекции - 2015-2024 год. (0.006 сек.)Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав Пожаловаться на материал