funcționează fără erori și corect. este necesar să faceți o verificare a multiplicității ca funcție. Cum? Delphi 1 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 program rasă; folosește SysUtils, Windows; const MaxN = 3; tip MyAr = array [1..MaxN, 1..MaxN] de intreg; // Introduceți matricea. procedura de intrare (var A: MyAr); var i, j: întreg; begin writeln ('Introduceți matricea comenzii -', MaxN); pentru i: = 1 până la MaxN face pentru j: = 1 până la MaxN nu citiți (a [i, j]); se încheie; // Verificați liniile pentru paritate. paritatea funcției (var A: MyAr; k. integer): boolean; var r. întreg; începe paritatea: = adevărat; pentru r: = 1 până la MaxN face dacă este impar (A [k, r]) apoi paritate: = false; se încheie; // Declarați variabilele. var s, i, x: întreg; R: MyAr; începeți // Conectăm codificarea rusă. setconsolecp (1251); setconsoleoutputcp (1251); // Apelați procedura. inputmas (a); // Introduceți X. Scrieți ('Tip X'); Readln (x); // Găsiți numărul de rânduri cu toate elementele ciudate. s: = 0; pentru i: = 1 până la MaxN nu paritatea (A, i) atunci s: = s + 1; // Pentru frumusete. writeln ('Numărul de rânduri numai cu elemente ciudate =', s); // Verificați multiplicitatea și ieșirea. dacă s mod x = 0 atunci writeln ('Numărul de rânduri este un multiplu de X') altceva writeln ('Numărul de linii nu este X'); readln end.Adăugat după 1 oră 17 minute nimeni nu va ajuta.
Se determină numărul de rânduri în matrice în care elementele care aparțin intervalului [a, b] este mai mare decât elementele nu 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 tip Tmas = matrice [1..3,1..3] de real; var a: tmas; b, c: real; i, k, n, j: întreg; Procedură InputMatrix (Var x: tmas); var i, j: întreg; Inceput Pentru i: = 1 până la 3 Pentru a face j: = 1 până la 3 do Read (x [i, j]); readln; End; functie crescuta (var z: integer): boolean; var i: întreg; începe pentru i: = 1 până la 3 do if (a [z, i]> = b) și (a [z, i] k atunci rasa: = false altceva rasa: = true; end; începe readln (b); readln (c); inputmatrix (a), pentru j: = 1 până la 3 fac dacă crescute (j) apoi writeln (j); end.zapuskaetsya readln, dar nu funcționează corect + compilator plânge: [Warning] Project2.dpr (36): pENTRU-Buclă variabilă „j“ nu poate fi transmisă ca parametru var [Sfat] Project2.dpr (13): variabila „i“ este declarată, dar nu a folosit niciodată în „Project2“ ce bug-uri Adăugat după 1 oră 3 minute, datorită tuturor găsit ?. eroare ca funcție de contoarele nu sunt aduse la zero n: = 0; k: = 0, înainte de bucla.
Programul nu funcționează sau descrierea nu se potrivește. Spuneți-ne despre acest lucru prin completarea unui formular simplu. Thanks =) Face site-ul mai bun
Articole similare
Trimiteți-le prietenilor: