Decizia cum să învețe rapid cum să folosească Pascal

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 = array [1..3,1..3] real; var a: TMAS; b, c: real; i, k, n, j: integer; Procedura InputMatrix (Var x: TMAS); i var, j: integer; Inceput Pentru i: = 1 până la 3 Pentru a face j: = 1 până la 3 do Read (x [i, j]); readln; End; Funcția de rasă (var z: integer): boolean; var i: integer; î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.

Ajută-te rog. Într-adevăr nevoie de ajutorul tau am nevoie pentru a scrie un program pentru a rezolva problema: dat tekst.Vyvesti-o pe ecranul înapoi la perod.

1) Crearea unui program care calculeaza aria unui triunghi pe platourile de filmare de laturile sale (Fotrmula Heron) 2) Scrieti un program care determină venitul din depozit bancar. 3) Desenați pe ecranul de afișare a drapelului rus, japonez pavilion 300 * 200px 4), pentru a construi un model simplu al sistemului solar. Reprezentând o planeta cercuri de diferite culori și diametre, iar orbitele lor sunt cercuri. Vă mulțumim anticipat pentru cei care vor.

Scrieți o funcție care transpune cifrele numărului în ordine inversă.