Тя работи без грешки и правилно. Ние трябва да направи проверка на фона на множеството като функция. Както? Delphi1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 програма отгледани; използва SysUtils, Windows; конст MaxN = 3; тип MyAr = масив [1..MaxN, 1..MaxN] на цяло число; // въведете матрицата. Процедура inputmas (VAR A: MyAr); Var, Й: цяло число; започнем writeln ( 'Въведете матрица на ред - "MaxN); защото: = 1 до MaxN направи за к: = 1 до MaxN чета (а [Ь, й]); приключи; // Проверка на паритетен линия. функция на четността (Var A: MyAr; к число.): булева; Var г. цяло число; започне равенство: = вярно; за R: = 1 до MaxN направи, ако нечетен (А [К, R]), след това равенство: = фалшива; приключи; // Декларирам променливи. Var S, I, X: цяло число; A: MyAr; започнем // Свържете руски кодировка. setconsolecp (1251); setconsoleoutputcp (1251); // Обадете процедурата. inputmas (а); // въведе H. запис ( "Enter X '); Readln (х); // Намерете броя на редовете с всички нечетни елементи. S: = 0; защото: = 1 до MaxN направи, ако не паритет (А, I), след това и: = S + 1; // За красота. writeln ( "Брой редове с нечетни елементи само = ', S); // Проверка за множество и изход. ако е мод х = 0, тогава writeln ( "Броят на редовете е кратно X ') друго writeln (" не-множествена брой редове X'); readln end.Dobavleno една час 17 минути, никой не може да помогне.
Определяне на броя на редовете в матрицата, в която елементите, принадлежащи на интервала [а, Ь] е по-голяма от елементи не prinadlezhaschih.Delphi1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 тип Tmas = масив [1..3,1..3] на реално; Var на: tmas; б, в: реален; I, К, К, к: цяло число; Процедура InputMatrix (Var х: tmas); Var, Й: цяло число; Започнете защото: = 1 до 3 направи За J: = 1 до 3 чета (х [Ь, й]); ReadLn; Край; функция отгледани (Var Z: число): булева; Var I: цяло число; започне за I: = 1 до 3 се направи, ако (а [Z, п]> = б) и (а [Z, п] к след това селектирани: = фалшива друг отгледани: = вярно; край; започне readln (б); readln (в); inputmatrix (а); за к: = 1 до 3 се направи, ако отгледани (й) след writeln (й); readln end.zapuskaetsya, но не работи правилно + компилатор оплаква: [Внимание] Project2.dpr (36): зА-Loop променлива "J" не може да се предава като параметър Var [Съвет] Project2.dpr (13): променлива "аз" е обявена, но никога не се използва в "Project2" какво бъгове Добавен след 1 час 3 минути, благодарение на всички намерени ?. грешка като функция на броячите не се нулира п: = 0; к: = 0 преди цикъла.
Програма не работи или не съответства на описанието. Моля, уведомете ни, като попълните проста форма. Благодаря ви =) Направете сайта по-добър
Свързани статии