Az oldatot a multiplicitás funkció teszt
Ez fut hiba nélkül és helyesen. Azt kell tennie, egy átvilágítás sokaságával függvényében. Mivel? 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 programot tenyésztenek; használja SysUtils, a Windows; const MaxN = 3; típusú MyAr = array [1..MaxN, 1..MaxN] az egész; // Írja be a mátrixba. eljárás inputmas (var A: MyAr); var i, j: integer; kezdődik writeln ( „Add meg a mátrix a rend -” MaxN); i: = 1 MaxN tenni J: = 1 MaxN do olvasni (a [i, j]); végén; // Ellenőrizze a paritás sorban. funkció paritás (var A: MyAr; k egész szám.): logikai; var r. integer; kezdődik paritás: = true; r: = 1 MaxN teendő, ha páratlan ([K, r]), majd paritás: = false; végén; // állapítsa változókat. var s, i, x: integer; A: MyAr; kezdődik // csatlakoztassa az orosz kódolást. setconsolecp (1251); setconsoleoutputcp (1251); // Hívjon az eljárást. inputmas (a); // bevezetni H. Write ( 'Adja meg az X'); Readln (x); // Keresse meg a sorok számát az összes páratlan elemeket. s: = 0; i: = 1 MaxN teendő, ha nem paritás (A, I), majd s: = s + 1; // A Szépség. writeln ( „A sorok száma páratlan elemeit csak =”, s); // Ellenőrizze a sokfélesége és kimenet. ha s mod x = 0, akkor writeln ( 'A sorok száma többszöröse X') else writeln ( 'nem-többszörös sorok száma X'); readln end.Dobavleno 1 óra 17 perc, senki nem segít.
Határozza meg a sorok számát a mátrixban, amelyben az elemek tartozó [a, b] nagyobb, mint elem nem 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 típusú TMA = array [1..3,1..3] valós; var a: TMA; b, c: real; i, k, n, j: integer; Eljárás InputMatrix (Var x: TMA); var i, j: integer; Kezdődnek a i: = 1-től 3 tenni j: = 1-től 3 do Read (x [i, j]); ReadLn; Vége; funkció nemesített (var z: integer): logikai; var i: integer; kezdődnek a i: = 1-től 3 tenni, ha (a [Z, i]> = b) és (a [Z, i] k, akkor tenyésztik: = false mást tenyésztik: = true; end; kezdődik readln (b); readln (c); inputmatrix (a); j: = 1-től 3 do ha nemesített (j), majd writeln (j); readln end.zapuskaetsya, de nem működik megfelelően + fordító panaszkodik: [Warning] Project2.dpr (36): FOR-Loop változó „j” nem lehet átadni a var paraméter [Tipp] Project2.dpr (13): változó az „i” nyilvánították, de soha nem használt „projekt2”, milyen hibákat hozzáadva ideje 1 óra 3 perc köszönhetően az összes talált ?. hiba függvényében a számláló nem nullázódik n: = 0; k: = 0, mielőtt a hurok.
A program nem működik, vagy nem felel meg a leírást. Kérjük, ossza meg velünk kitöltésével egy egyszerű űrlapot. Köszönöm =) Tedd oldal jobb