Тапсырма 1. 1. N, m ның терiс емес бүтiн сандары берiлген A(n, m) есептеу,

1. N, m ның терiс емес бү тiн сандары берiлген A(n, m) есептеу,

Мұ нда m+1, егер n=0,

A(n, m)=A(n-1, 1), егер n< > 0, m=0,

A(n-1, A(n, m-1)), если n> 0, m> 0

Рекурсивті процедураны қ олданың дар.

2. Белгілердің тап қ алғ ан жолы бойынша бү тiн санның мә нiнiң есептеуiн процедураны қ ұ рың дар, он алтылық есептеу жү йесiнде санның болатын жазу.

3. s, t сандары берілген. f(t, -2s, 1.17)+f(2.2, t, s-t) алың дар,

онда f(a, b, c)=2a-b-sin c/5+|c|.

4. s, t нақ ты сандары берілген. g(1.2, s)+g(t, s)-g(2s-1, s*t) алың дар,

онда g(a, b)=a^2+b^2/a^2+2ab+3b^2+4.

5. x нақ ты сан берілген. 1.7*t(0.25)+2*t(1+x)/6-t(x^2-1) алың дар,

онда t(a)=(a^2k+1/(2k+1)!), a^2k/(2k)!.

6. a, b, c сандары берілген. max(a, b+a)+max(a, b+c)/1+max(a+b*c, 1.15) алың дар.

7. a, b сандары берілген. u=min(a, b), v=min(ab, a+b), min(u+v^2, 3.14) алың дар.

8. a0,..., a6 сандары берілген. x=1, 2, 3 ү шін p(x+1)-p(x) мағ ынасын алың дар,

онда p(y)=a6*y^6+a5*y^5+...+a0.

9. s, t, a0,..., a12 сандары берілген. p(1)-p(t)+p^2(s-t)-p^3(1) алың дар,

онда p(x)=a12x^12+a11x^11+...+a0.

10. A1...an сандарының тiзбегiнде барлық мү шелердi алмастырады келесi 0-шi мә н ең ү лкен процедураны жазың дар.

11. Ереже бойынша сандарының тiзбегiн ө згертетiн iшкi программаны жазу: Егер а1...аn тiзбек k-ның мә нi бар бiр де бiр мү ше жоқ болса, онда ең кiшi мү шені k-ғ а алмастырың дар. Басқ а жағ дайда ө згерiссiз қ алдырың дар.

12. a, b, c, d сандары берілген. Егер мұ ндай ү шбұ рыш бар болса бұ л сандардың ә рбiр ү шi ү шiн тiк тө ртбұ рыштың ауданын анық тайтын процедураны сипаттаң дар.

13. M*n ө лшемді ү ш матрица, олардың iшiнен басып шығ аруғ а жолдардың ү лкеннө лдерін

14. (x, y) орын ауыстыру x сө зiнiң бедербелгiсi қ айта орнық тыруғ а бола тексеретiн логикалық функциядан y сө зiн алуғ а болатындығ ын сипаттаң дар.

15. Ереже бойынша тө рт жолдан екi жол қ ұ растыратын процедураны сипаттаң дар: (x, y, a, b)

a. x=(a1, a2,..., a8, x9, x10,..., x20);

b. y=(y1, y2,..., y5, b1,..., b6, y12,..., y20).

16. Екi векторлардың шығ армасын есептейтiн процедураны сипаттаң дар.

17. А матрицасында n*n ө лшемiді максимал элементiн жә не А (1, 1) элементтiң орындарымен ө згерген процедураны сипаттаң дар.

18. S циклдiк векторының элементтерiн k позициясынан солғ а қ озғ алтатын iшкi программаны сипаттаң дар.

19. n, m натуралды сан берілген. НОД рекурсивті процедураның есептеуін қ олдана НОД(n, m) табың дар.

20. n*m ө лшемді матрица, (жолдағ ы максимал элементiнiң анық тауын iшкi программаны қ олданылу) ә рбiр жолдың максимал элементтерiнiң сомасын табатын iшкi программаны сипаттаң дар.

21. Барлық нө лдер бiрлiкпен нө лдердiң барлық бiрлiктiң Белгілерының бастапқ ы жол алмастыратын процедураны қ ұ раң дар. Алмастыру жолдың тап қ алғ ан позициясынан бастай орындалу тиiстi.

22. Бiрiншi тап қ алғ ан жол жә не екiншi тап қ алғ ан жол тә уелдi барлық Белгілер алып тастайтын процедураны қ ұ раң дар.

23. Ереже бойынша сандарының тап қ алғ ан тiзбегiн ө згертетiн iшкi программаны сипаттаң дар: бастапқ ыда теріс сандар iске аспай қ алады, содан соң осы тiзбектiң барлық оң сандары.

24. Егер ол тапсырғ ан нышан falseның ә рiбi болып табылса, true-дың мә нiн қ айтаратын iшкi программаны қ ұ рың дар, жә не басқ а жағ дайда.

Кейбір бағ дарламаларда қ олдануғ а болатын ішкі программалар:

1.program z7; {Ариф.ортаны анық тайтын бағ дарламаны қ ұ растыру.Массив а }

uses crt;

var a: array [1..10] of integer;

s: real;

sum, n, i: integer;

begin

clrscr;

write('n='); readln(n);

for i: =1 to n do

begin

write('a[', i, ']=');

readln(a[i]);

end;

sum: =0;

for i: =1 to n do

sum: =sum+a[i];

s: =sum/n;

writeln('ср ариф= ', s);

2.program z9;

uses crt; { n сандарының факториалын шығ аратын программа қ ұ ру

Мысалы: 5! =1*2*3*4*5

7! =1*2*3*4*5*6*7 }

var f, n, i: integer;

begin

clrscr;

write('n='); readln(n);

f: =1;

for i: =1 to n do f: =f*i;

write('f=', f);

3.program z24; { Составить программу для определения расстояния от точки (x3; y3) нү ктесінен (x1; y1), (x2; y2) нү ктелеріне тү зу сызық арқ ылы ө тетін арақ ашық тық ты анық тау ү шін бағ дарламаны қ ұ ру}

uses crt;

var x1, x2, x3, y1, y2, y3, a, b, c, d, t: real;

begin

clrscr;

write('x1='); readln(x1);

write('y1='); readln(y1);

write('x2='); readln(x2);

write('y2='); readln(y2);

write('x3='); readln(x3);

write('y3='); readln(y3);

a: =y2-y1;

b: =x1-x2;

c: =-x1*(y2-y1)+y1*(x2-x1);

t: =sqrt(a*a+b*b);

d: =abs((a*x3+b*y3+c)/t);

write('арақ ашық тық =', d);

4.program z31; { Жай сан бола ма екендігін анық тайтын бағ дарлама қ ұ ру. }

uses crt;

var a: real;

p: boolean;

i: integer;

begin

clrscr;

write('a='); readln(a);

p: =true;

for i: =2 to trunc(a-1) do

if a/i=trunc(a/i) then p: =false;

if p=true

then write('жай')

else write('кү рделі');

5.program z32; { a жә не b екі саннынан НОД жә не НОК табылатын бағ дарлама қ ұ ру. }

uses crt;

var a, b, p: real;

nod, nok: real;

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

p: =a*b;

while a< > b do

if a> b then a: =a-b

else b: =b-a;

nod: =a;

nok: =p/nod;

writeln('НОД: ', a);

write('НОК: ', nok);

6.program z38; { Сө йлем берілген. Онда қ анша сө з бар екендігін анық тау. }

uses crt;

var tec: string;

l, i, n: longint;

begin

clrscr;

write('мә тінді енгізің із: '); readln(tec);

l: =length(tec)+1; tec[l]: =' ';

for i: =1 to l do if tec[i]=' 'then n: =n+1;

write('мә тінде ', n, ' сө з');

{ Мә тін берілген, " кот" сө зі қ анша екендігін анық тау. }

7.uses crt;

var a: string;

i, m, k, n: longint;

begin

clrscr;

write('мә тін енгізің із '); readln(a);

k: =0; m: =length(a);

a: =a[m]+' ';

for i: =1 to m do if a[i+2]='кот'then inc(k);

write('мә тінде ', k, ' кот сө зі ');

readln;

8.program z45; { n цифрына тең куб қ осындысының екі таң балы санын табу. }

uses crt;

var j, i: integer;

z, n: longint;

begin

clrscr;

write('n='); readln(n);

for j: =1 to 9 do

for i: =1 to 9 do

if i*i*i+j*j*j=n then z: =10*i+j;

write('z=', z);