1. Екі (х1,ү1) және в(x2,y2) нүктелерінің координаталары бойынша ара қашықтығын анықтау функциясын құру.

PROGRAM Func 1;

VAR X1,X2,Y1,Y2:Integer;

FUNCTION Ara: Real; (Қашықтық табу функциясы)

Begin Ara:=Sqrt (Sqr(X2-X1)+Sqr(Y2-Y1)) End;

Begin Readln (X1,X2,Y1,Y2); (негізгі программа)

Writeln (‘Екі нүктенің ара қашықтығы=’, Ara:4:1);

Readln END.

2. Нақты оң х санының нақты ү дәрежесін табу функциясын құру

PROGRAM Func 1;

VAR X,Y:Real;

FUNCTION Dar (A,B:Real):Real; (дәрежесін табу функция)

Begin If A>0 Then Dar:=Exp(Ln(A)*B)

Else Begin Writeln (‘ter’); Delay (30000); Halt End End;

Begin Readln (X,Y); (негізгі программа)

Writeln (‘dar=’,Dar(x,y):4:1); Readln END.

3. М-нен N –ге дейінгі бүтін сандар қосындысын табу функциясы

PROGRAM Func 3;

VAR A,B,P:Real;

FUNCTION Sum (M,N:Integer):Integer; (дәрежесін табу функция)

VAR S,K:Integer;

Begin S:=; For K:=M To N Do S:=S+K;

Sum:=S; End;

Begin Readln (A,B);

P:=Sum(A,B); Writeln (‘P=’,P); Readln END.

4. N санының факториал табу функцясы.

PROGRAM Func 2;

VAR N,P,K:Integer; S:Longint;

FUNCTION Fact(M:Integer):Longint;

Begin P:=1 For K:=2 To M Do P:=P*K;

Fact:=P; End;

BEGIN Repeat Readln(N); Unit N>0 (оң сан ендіру циклі)

S:=Fact(N);

Writeln (‘Fac=,’S); Readl End.

5. Кез-келген жолдық қатардың латын алфавитінің кіші әріптерін бас әріпке айналдыру функциясын құру.

PROGRAM Kat3;

Var X:String; K:Byte;

FUNCTIION Basarip(A:String):String;

Begin For K:=1 To Length (A) Do A[K]:=Upcase(A[K]);

Basarip:=A End;

BEGIN Readln (X); X:=Basarip(X);

Writeln (‘Қатардың жаңа мәні X=’,X);

Readln End.

Тапсырма варианттары:

1. s,t нақты сандар берілген. есептеу керек, мұнда

2. s,t нақты сандар берілген. есептеу керек , мұнда

3. a,b,c нақты сандар берілген. Есептеу керек

4. n натуралды сан берілген. n+1,n+2,...,2n сандар арасында жай сандарды, айырымы 2-ге тең жай сандарды табатын алгоритм құрыңыз. (Жай сандарды танитын процедура құру керек).

5. Берілген a, b, c, d нақты сандарыныңтеріс мәндерінің санын санайтын алгоритм түзіңіз.

6. n натуралды сан берілген - 1,2,…. ,n. Осы сандар арасынан екі натуралды сандардың квадраттарының соммасына тең санды табу керек.

7. Алғашқы n натурал сандардың жұптарының квадраттарының, тақтарының кубтарының қосындыларын есептейтін алгоритм құрыңыз.

8. a, b, c ,d, е нүктелердің координаттары берілген. Төбесі координатына сәйкес келетін бесбұрыштың ауданын табатын алгоритм құрыңыз.

9. a ={1.5; 3; 6.7; -8}, b={4; 6; -7.2; -9} векторларының арасындағы бұрыштың синусын табыңыз. Векторлардың ұзындығын есептеу үшін көмекші алгоритм қолданыңыз.

10. X[1..4, 1..4] массивінің әр қатарының ең кіші элементін және оның нөмірін анықтаңыз.

11. А(5,5), В(5,5), С(5,5) үш массиві берілген. Көмекші алгоритм қолданып массивтегі тақ жолдарындағы нөлдік емес элементтердің минималдысын табу керек.

12. А(5,5), В(5,5), С(5,5) үш массиві берілген. Осы массивтегі негізгі диагоналдың төмен жағында орналасқан жұп сандардың жалпы соммасын табу керек. Бір массивтегі негізгі диагоналдың төменгі жағында орналасқан жұп сандардың сомасын функция түрінде анықталсын.

13. А(6,6), В(6,6), С(6,6) үш массиві берілген. Массивтің жұп бағанында орналасқан оң тақ элементтердің максималды санын көмекші алгоритмді қолданып санаңыз.

14. А(4,4), В(4,4), С(4,4), D(4,4), F(4,4) бес массив берілген. Массивтер қосындысын табу керек. Екі массивтің қосындысы процедура көмегімен анықталуы тиіс.

15. А(5,5), В(5,5), С(5,5), D(5,5) төрт массиві берілген. Көмекші алгоритм көмегімен массивтердің қиғаш диагоналінің жоғары жағында орналасқан сандардың минималды элементін табу керек.

16. төбе координатасы бар жетібұрышты фигура берілген. Ауданы максималды болатын үшбұрыштың координатасын баспаға шығару керек. Үшбұрыштың ауданы Герон формуласы бойынша функция көмегімен анықталады.

17. N натуралды сан, a₁,…,a_n бүтін сандар берілген. a₁,…,a_n жүйеде дәрежесі беске тең болатын элементтің бар болуын анықтайтын программа құру керек.

18. N натуралды сан, a₁,…,a_n бүтін сандар берілген._. Жай сандар қай диапазонда ең көп кездесетінін көмекші алгоритм кұрып анықтау керек.

19. А(15), И(15), С(15), D(15) төрт массиві берілген. Осы массивтердің тақ позициясында орналасқан минималды элементтердің соммасын табатын программа құру керек. Бір массивте тақ позицияда орналасқан элементтер арасындағы минималды элементті анықтау, функция түрінде келтірілсін.

20. A[1..m, 1..n] массивінің

    • әр қатарын

    • әр бағанасын

көмекші алгоритм қолданып өсу және кему ретімен реттейтін программа құру.

2-СӨЖ-дің төртінші тапсырмасы: Символдық жолды қолданып есепті шешу үшін алгоритм және программа құру. Программаны құрған кезінде символдық жолдарды өңдеу үшін жоғарыда келтірілген стандартты процедуралар және функцияларды қолдану талап етіледі.