Colectarea sarcinilor privind programarea în Pascal
Creați pătrate program de imprimare de toate numere întregi de la 0 la un anumit număr întreg pozitiv n.
Având în vedere o n pozitiv, se calculează n! (0! = 1, n! = N * (n-1)!).
Secvența Fibonacci este definită după cum urmează: a (0) = 1, un (1) = 1, a (k) = a (k-1) + a (k-2), atunci când k> = 2. n Date fiind, calculează (n ).
Pentru bătrâna la pisici cina mers pe jos. În fiecare săptămână, două pisici aduce prietena lui. Casa este o femeie în vârstă de 100 de boluri. Cât timp va pisicile in plus, si multe pisici în același timp, va rămâne foame.
cantitate cunoscută de numere de pagini, definiți numărul paginii.
Broasca face ca fiecare salt ulterior de două ori mai scurt decât cel precedent. dacă acesta ajunge la zonele umede și cât de multe salturi. Lungimea primului salt, set-te.
4.1 Arrays unidimensională
4.1.1 Algoritmi pentru găsirea și atribuirea de valori elementelor matrice
Problema 1. Crearea program de procesare matrice dimensiune n. umplut cu numere întregi introduse pe tastatură. Imprimați indexul și valoarea elementelor pozitive în matrice.
A: ARRAY [0..N] integer;
PENTRU I: = 1 TO N INCEPE
Scrie ( 'Enter', eu, 'element de matrice'); Readln (A [I]);
DACĂ A [I]> 0 ATUNCI WriteLn ( 'element pozitiv =', A [I], 'indicele =', I);
2. Crearea task program de procesare matrice K, format din 20 elemente. Umple matrice de numere aleatoare în intervalul de la -5 la 25. Toate elementele matrice K, ale căror valori sunt în intervalul -2-20 la pătrat. Variațiile în afișajul de masă.
K: ARRAY [0..20] integer;
PENTRU I: = 1 până la 20 INCEPE
PENTRU I: = 1 până la 20 DO
IF (K [I]<20) AND (K[I]>-2) APOI K [I]: = K [I] * K [I];
PENTRU I: = 1 până la 20 DO
3. Crearea valorilor Sarcină program de calcul și de imprimare Y = sin (x-1) / 2x. Valorile Argumentul în matrice X, format din 6 elemente. valorile funcției scrise în Y. matrice
X, Y: ARRAY [0..6] REAL;
PENTRU I: = 1 până la 6 INCEPE
Scrie ( „Enter“, eu, „valoarea argumentului„); Readln (X [I]);
PENTRU I: = 1 până la 6 INCEPE
Zadacha4. Având în vedere o serie de M, format din 30 elemente. Elemente Array - numere întregi arbitrare. Afișează o valoare a fiecărui element al cincilea și pozitiv. Aceste elemente dau un șir de caractere.
M: ARRAY [0..30] integer;
WriteLn ( „valori ale elementelor de matrice“);
PENTRU I: = 1 până la 30 INCEPE
WriteLn ( „valori ale fiecărui al cincilea și elementul pozitiv al șirului“);
În timp ce eu<=30 DO Begin
IF M [I]> 0 Scrie ATUNCI (M [I]: 3);
Problema 5. Din elementele de matrice pentru a forma o matrice de M R aceeași dimensiune conform regulii: dacă numărul este chiar, atunci M [I] = I * P [I], dacă este ciudat, atunci M [I] = - P [I].
P, M: ARRAY [0..N] integer;
WriteLn ( „valori ale elementelor de matrice“);
PENTRU I: = 1 TO N INCEPE
WriteLn ( 'valori formate elementele de matrice M');
PENTRU I: = 1 TO N INCEPE
IF I Mod 2 = 0 Apoi M [I]: = P [I] * I Else M [I]: = - P [I];
matrice Dan-dimensională de dimensiune 10 întregi pline introduse de la tastatură, iar valoarea N. Elementele negative, înlocuite de N. Matricea modificată pentru a afișa o singură linie.
matrice Dan-dimensională de N. dimensiuni umplute cu numere aleatoare în intervalul de la -15 la 20. Afișarea valorilor elementelor de matrice, valoarea absolută este> 10.
Având în vedere o matrice unidimensională de dimensiuni N. umplut cu numere aleatoare. Fiecare al treilea element de matrice pătrat în cazul în care elementul negativ. Variațiile în afișajul de masă.
Crearea unui program pentru a calcula și imprima valorile funcției Y = (sinx + 1) cos 4x. Valorile Argumentul în matrice X, format din 10 elemente. valorile funcției scrise în Y. matrice
Înlocuiți primele elemente de matrice pe semne opuse.
Dintre elementele de matrice A format din 25 elemente, pentru a forma o matrice de aceeași dimensiune D conform regulii: primele 10 elemente sunt conform formulei Di = Ai + i. altele - conform formulei Di = Ai - i.
4.1.2 Algoritmi pentru găsirea sumei, produsul și numărul de elemente de matrice. Lucrul cu indicii ale elementelor de matrice
Problema 1. Se determină cantitatea elementelor din matrice P (n), valoare care> T dată
Având în vedere matrice bidimensională de dimensiuni 6x5, umplut cu numere întregi introduse pe tastatură. Forma o matrice unidimensională, dintre care fiecare element este egal cu primul element care corespunde coloanei, chiar dacă acest lucru nu este prezent, este egal cu zero.
Având în vedere matrice bidimensională de dimensiune 5x6, umplut cu numere întregi. Forma o matrice unidimensională, dintre care fiecare element este egal cu produsul elementelor chiar pozitive ale coloanei corespunzătoare.
Dana matrice pătratică de întregi dimensiune N xN umplute și valoarea A. Pentru a genera o matrice unidimensională, fiecare element este un element situat pe diagonala principală. înmulțit cu valoarea A.
Având în vedere matrice bidimensională de dimensiuni 6x8, umplut cu numere întregi introduse pe tastatură. Forma o matrice unidimensională, dintre care fiecare element este egal cu numărul de elemente ale rândurilor respective ale matricei, ale căror valori sunt în intervalul (-2, 10).
4.2.3 Algoritmi pentru a găsi cele mai mari și cele mai mici elemente ale matrice bidimensională
Problema 1. În competiția de înot au participat 5 sportivi. Competitii a constat din 3 călduri. Rezultatele înregistrate în etape eliminatorii dimensiunea tabelul 3x5. Ia-o matrice unidimensională de dimensiuni 3, ale cărei elemente sunt cele mai bune rezultate în fiecare căldurilor.
RZ: ARRAY [0..3,0..5] integer; LR: ARRAY [0..3] integer;
PENTRU I: = 1 până la 3 INCEPE
WriteLn ( 'Introduceți rezultatele', eu, 'înot');
PENTRU J: = 1 până la 5 INCEPE