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

egin ClrScr;
A:= 'a'; B:= 'b';
Raksta(7); writeln(A:3, B:3);
Skaita; writeln(A:3, B:3);
readln; end.
Pk5-3. Atrast kļūdas programmas fragmentos un paskaidrot tās.
a) function Liels(A,B: integer): integer;
begin if A> B then Liels:= A; end;
b) function Summa(Skaits: integer): integer;
var L: integer;
begin Summa:= 0;
for L:=1 to Skaits do Summa:= Summa + L; end;
Pk5-4. Noteikt summas 1!+2!+3!+4!+5! vērtību.
Pk5-5. Noteikt summas 1/a +1/a 2 +1/a 3 +1/a 4 + ... +1/a n vērtību patvaļīgai naturāla
skaitļa n vērtībai.
Pk5-6. Izvadīt tabulas veidā summu
· 1 +1/2+1/3 +1/4 + ... +1/n
· 1 + 1/2 2 + 1/3 2 +1/4 2 + ... +1/n 2
· 1/3 2 + 1/5 2 +1/7 2 + ... +1/(2n+1) 2
· 1! +2!/(1+1/2) +... +n!/(1 +1/2 + ... 1/n)
vērtības naturāla skaitļa n vērtībām intervālā (5, 10).
Pk5-7. Izveidot funkcijas y = 3x 5 + 2 x 3 - 7 x 2 + x -8 vērtību tabulu intervālā (1,15) ar
soli 2.
Pk5-8. Izveidot dotās programmas, kura nosaka ar virsotņu koordinātēm uzdota četrstūra
ABCD laukumu, komentārus. Papildināt programmu tā, lai tiktu izvadīti atsevišķu
trīsstūru laukumi. Pārbaudīt risinājumu izvēloties citu četrstūra dalījumu. Pārveidot
programmu tā, lai tiktu izmantotas funkcija un procedūra.
program laukums4stur;
uses crt;
var xA,yA,xB,yB,xC,yC,xD,yD:integer;
a,b,c,d,e,AB,BC,CD,AD,DB,L,p1,p2,T1,T2:real;
begin
clrscr;
writeln (Ievadi koordinates xA, yA, xB, yB, xC, yC, xD, yD ');
writeln;
write(' xA= '); readln(xA);
write(' yA= '); readln(yA);
write(' xB= '); readln(xB);
write(' yB= '); readln(yB);
write(' xC= '); readln(xC);
write(' xC= '); readln(yC);
51