"Datormācība. Skaitlisko aprēķinu realizācijas metodes ...

i:=i+1;
while Mas[i]=x do
begin j:=i;
repeat
Mas[j]:=Mas[j+1];
j:=j+1; until j>=m;
m:=m-1;
end;
until i>=m;
for i:=m+1 to n do Mas[i]:=0;
writeln('iegūtais masīvs ir');
for i:=1 to n do write(' ' ,Mas[i]);
writeln; end end.
elementus}
[kamēr kārtējais masīva elements ir vienāds
ar x, nobīdām atlikušos elementus
par 1
pozīciju pa kreisi}
{samazinām masīva elementu
skaitu}
{masīva ”astē” ievieto nulli}
{ja ’astes’ izvadīšana nav vajadzīga, tad
ciklā n jānomaina ar m}
Paškontroles uzdevumi 4
Pk4-1. Dots programmas fragments:
var A : array[1..30] of real;
B : array[-5…5] of integer;
C : array[11..25] of char;
Noteikt katram masīvam:
a) elementu skaitu;
b) kā pirmajam un pēdējam elementam ar operatora readln palīdzību piešķirt
vērtības
Pk4-2. Definēt masīvus, kuros var ierakstīt:
a) 35 kontroldarba atzīmes;
b) 20 automobiļu cenas;
c) 50 atbildes (ar “jā” vai “nē”) uz vienu jautājumu.
Pk4-3. Pieņemot, ka masīvs Nauda ir definēts šādā veidā:
var Nauda: array[1..3] of real;
un tā elementu vērtības ir: Nauda[1] = 25,31 Nauda[2 ]= 43,27
Nauda[3] = 17,52 , noteikt, kādas ir masīva Nauda elementu vērtības pēc doto programmas
fragmentu izpildes
a) A:= 59.32; B:= A + Nauda[3]; Nauda[1]:= B;
b) if Nauda[3] < Nauda[1] then begin
Pag:= Nauda[3]; Nauda[3]:= Nauda[1]; Nauda[1]:= Pag; end;
Pk4-4. Dots viendimensiju masīvs, kurā ir 7 elementi. Sastādīt programmu, kura aprēķina
pirmo četru elementu summu un pēdējo 3 elementu reizinājumu.
Pk4-5. Sastādīt programmu, kura ar gadījuma skaitļu ģeneratora palīdzību aizpilda masīvu
A[1..10], tad piešķir masīva A vērtības masīvam B[1..10] un aizpilda masīvu
C[1..10] ar masīva A un masīva B attiecīgo elementu summām.
Pk4-6. Sastādīt programmu, kura lietotāja ievadīto vārdu izdrukā apgrieztā secībā.
Piemēram: Students – stnedutS.
44