Pascal1 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 programul Matrix90; matrice tip = matrice [1..10,1..10] de intreg; var a: matrice; M, i, j: Integer; începe Scrie ('M:'); Readln (M); pentru j: = 1 până la M începe pentru i: = 1 până la M începe un [i, j]: = aleatoriu (10); scrie (a [i, j]: 4); se încheie; se încheie; pentru i: = 1 până la M începe pentru j: = 1 până la M să începeți Scrieți ('.', a [i, j]); se încheie; scriteln ('.'); se încheie; scriteln (''); pentru j: = M downto 1 pentru i: = 1 pentru a face a [M-j + i, M-i + 1]: = 0; pentru j: = 1 până la M începe pentru i: = 1 până la M începe să scrie ('.', a [i, j]); se încheie; Writeln ('.'); se încheie; end. 4. 6. 5. 4. 0. 6. 7. 3. 0. 0. 9. 0. 0. 0. 0. 8. 8. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. Să părăsiți aici este necesar ca zerouri să fie din altă parte
Băieți, ajutați la efectuarea procedurii de identificare a primului element minim și ultim al elementelor pozitive ale listei.
Eroare pe linia a 18-a, am uitat cum este rezolvată această problemă, cine îmi va spune?
Am o întrebare cu privire la modul de utilizare a comenzii progressBar pentru a afișa timpul de redare al unui fișier media care a fost descărcat utilizând MediaPlayer. Am folosit designerul de formulare. Conectat MediaPlayer. Deschid fisierul cu OpenFileDialog si pierd. Dar cum să conectați progressBar, astfel încât să afișeze lungimea timpului pierdut în timpul redării, nu știu. Promiți pe oricine. MSDN nu îmi dă nimic (sau nu înțeleg). Cum ar fi nevoie să folosești MediaTimeline cumva și de ce. M-am incurcat si m-am incurcat. Am adaugat dupa 36 de minute
Pascal1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 utilizează crt; var d: întreg; începe clrscr; scrieți ('Introduceți ziua săptămânii numărul 0..6 d ='); (d); cazul d de 0: scrie ('luni'); 1: scrie ('Marți'); 2: scrie ("mediu"); 3: scrie ('Joi'); 4: scrie ('vineri'); 5: scrie ("Sâmbătă"); 6: scrie ("duminică"); altceva scrie ("Ziua fără număr!"); se încheie; readln end.Record folosind funcția.
Bună ziua, ajutați-vă cu codul. Trebuie să găsiți numărul de caractere pe care fișierele nu se potrivesc. Aici este sarcina: Fișierele text f și g sunt date. Determinați dacă componentele fișierului f se potrivesc cu componentele fișierului g. Dacă nu, atunci obțineți numărul primei componente, în care fișierele f și g diferă una de cealaltă. În cazul în care unul dintre fișiere are o componentă (n> = 0) și repetă începutul celeilalte, atunci răspunsul trebuie să fie un număr n + 1. Problema este că produce răspunsul corect dacă numerele nu se potrivesc în ultimul element și dacă în celălalt elementul prezintă un răspuns greșit. Iată codul:
A existat o astfel de problemă am Lista și există numere, dar în format de șir și am nevoie de ele în format dublu Și eu încerc să se aplice metoda ConvertAll, dar, din păcate, nu este convertibil
Trimiteți-le prietenilor: