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

program atnem_10;
uses crt;
var n,i:integer;
begin ClrScr;
writeln('Ievadi skaitli: ');
readln(n);
for i:=10 downto 1 do
begin
n:=n-i;
writeln('Skaitlis ir: ',n);
end;
readln;
end.
{cikls}
{mainīgā n vērtība tiek samazināta par i
un iegūtais rezultāts izvadīts uz monitora
ekrāna}
Programmas izpildes rezultātā, gadījumā, ja n=100, iegūstam naturālu skaitļu virkni –
90 81 73 66 60 55 51 48 46 45.
Piemēri.
1. Izveidot programmu, kura ļauj noteikt visu naturālo skaitļu summu intervālā (a,b).
Izveidot programmas atnem_10 variantu izmantojot iegūtās programmas operatoru
bloku.
2. Izveidot programmu, kura ļauj noteikt uzdota naturāla skaitļa n faktoriāla vērtību
(n!=1·2·3·4·...·(n-1)·n).
3. Izveidot programmu, kura ļauj noteikt no 100 ģenerētiem skaitļiem maksimālo skaitli.
4. Izveidot programmu, kura fiksētām naturāla skaitļa n vērtībām nosaka skaitļu summas
S=1+1/2+1/3+1/4+....+1/n vērtību.
5. Izveidot programmu, kura ļauj noteikt 100 ģenerēto skaitļu pāra un nepāra skaitļu
skaitu, summu un vidējo vērtību.
6. Izveidot programmu reizrēķina zināšanu testēšanai.
program Nr1;
var i,a,b,s:integer;
begin
writeln('Ievadi skaitli a= ');
read(a);
writeln('Ievadi skaitli b= ');
read(b);
s:=0;
for i:=a to b do
s:=s+i;
write(s)
end.
program Nr2;
var i,n,fakt:integer;
begin
writeln('ievada skaitli n= ');
readln(n);
fakt:=1;
for i:=1 to n do
fakt:=fakt*i;
write(fakt)
end.
26