Ajutor vă rog! Nu funcționează. Nu înțeleg nimic în pascal, dar nu am nevoie. Calculați dublu valoarea expresiei, prima dată utilizând procedura, iar a doua - funcția.
Nu înțeleg ce este rău aici! în linia 42 această greșeală foarte! Proga codul de program; const m = 8; n = 10; f = 15; tip raz = 1..f; mas = array [raz] real; var x, y, z, w: mas; kx, ky, kz, kw: real; i: întreg; funcția nmas (a, y: mas; f: integer): întreg; var i, j: întreg; începe j: = 0; pentru i: = 1 pentru a face dacă un [i]> 0 începe apoi j: = j + 1; y [j]: = a [i]; se încheie; se încheie; începe scriteln ("Massiv X"); pentru i: = 1 până la m începe x [i]: = 4 * sqr (i) -9 * (5-i); writeln (x [i]); se încheie; writeln ("Massiv Y"); pentru i: = 1 la m do y începe [i]: = 6 * sin (2 * i) + 5 * exp (i-5); scriteln (y [i]); se încheie; writeln ("Massiv Z"); pentru i: = 1 la n do începe z [i]: = 6 * (i-4) + 5 * sqr (sin (1,5 * i)); scriteln (z [i]); se încheie; writeln ("Massiv W"); pentru i: = 1 până la f; începe cu [i]: = 6 * ln (0,1 * i) + 10 * cos (i-2,5) * cos (i-2,5) * cos (i-2,5); writeln (w [i]); se încheie; ky: = nmas (m, y); kz: = nmas (n, z); kw: = nmas (f, w); scriteln ("Noviy massiv Y ', ky); scriteln ("Noviy masiv Z ', kz); scriteln ("Noviy massiv W ', kw); end.
Bună ziua după-amiază membri ai forumului! la decizia unei sarcini pe care am recunoscut-o in procedura "sort" o eroare, nu o pot gasi, se pare, eu numar incorect specificat. parametrii, și sa dovedit că undeva mai mult este mai puțin, sper pentru ochiul tău tare, ajută-mă să găsesc eroarea?
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: