Процедуралар және функциялар

Мазмұны :
Кіріспе
1. Модульді бағдарламалау
1.1. Процедуралар мен функциялар
1.2. Модульдер

2. Массив
2.1. Ашық массивтер
2.2. Массивтердің параметрлері

3.Объект.бағытталған бағдарламалау
3.1. Visual Basic
3.2. Си++

Қорытынды
Қолданылған әдебиеттер тізімі
Қосымша
        
        Мазмұны :
Кіріспе
1. Модульді бағдарламалау
1. Процедуралар мен функциялар
2. Модульдер
2. Массив
1. Ашық массивтер
2. Массивтердің ... ... Visual ... ... ... тізімі
Қосымша
Кіріспе
Көлемі жағынан орташа болып келетін бағдарламаларды(бірнеше мың жолды
код) құрастырғанда ... ... ... Бағдарламаның
құрылымы шығарылып жатқан есептің құрылымын көрсету керек, сонда бағдарлама
мәтінінен есепті ... ... ... ... Ол үшін ... ... алгоритмнің нақты құрылымын дәлірек ... ... да бір ... ... жұмыс жасайтын және өзіне негізгі
бағдарламаның кез келген бөлігінен қатысуға болатын ... ... ішкі ... деп ... Ішкі ... негізгі
бағдарламының ішіндегі кіретін және шығатын орындары бар тұйықталған бөлігі
болып табылады. Негізгі бағдарлама мен ішкі бағдарламадағы ... ... ... ... ... екі түрі ... – процедуралар және функциялар.
Олардың айырмашылығы: процедура белгілі бір операторлар тобын ... ... қоса ... да бір ... ... оны ... қайта жібереді. Бұл нәтиженің өзіне тән типі болады. ... ... ... ... ұғым жоқ, онда тек қана ... Егер ... ешбір нәтиже есептемесе, онда ол «ешқандай»
(void) типін қайтарады.
Кез келген бағдарламада бірнеше процедура ... ... ... ... мен ... ... бөлігінде айнымалылар бөлігінен
кейін жарияланады.
1.Модульді бағдарламалау
1.1.Процедуралар мен ... ... ... ... операторларынан
басталады. Қажет жағдайда ішкі бағдарлама ... оның ... ... соң ... ... ... бағдарламаға беріліп,
бағдарламаның орындалуы жалғасады.
Ішкі бағдарлама негізгі бағдарлама сияқты құрылады, яғни бағдарлама
атауынан, ... ... және ... құрылады.
Параметрдің екі түрі болады: формальды және шын мәніндегі параметрлер.
Шын мәніндегі параметр деп ... ... ... негізгі
бағдарламадағы параметрлерді айтамыз. Ал ... ... ... ... ... көрсетіледі.
Формальды параметрлер тізімінде айнымалылар аталып, олардың типтері
көрсетіледі.
Формальды параметрлерді екіге бөлуге болады:
1) ... яғни ... үшін ... ... ... осы ... арқылы процедураның
жұмысының нәтижесін ... ... ... ... ... var сөзі жазылады. (Паскаль).
Процедура – белгілі ретпен іске асырылатын ... ... ... бір ... ... ... ... ... |Си++ ... |SUB () |
|Денесі | |begin |{ |
| | |; | |
| | |end; |}; ... |END SUB |жоқ |жоқ ... ... ... бір ... ... табу.
procedure fact (k : integer; var a : ... x : ... x:=1 to k ... k – ... ... яғни негізгі бағдарламадан келген
сан. а – формальды ... яғни ... ... ... ... ... процедураны негізгі бағдарламаның командалар
бөлігінен шақырылу командасын қарастырайық:
();
Мысалы: fact(i,s);
Процедураның құрылымы:
(тақырыбы:)
PROCEDURE аты (формальды ... ... ... (бұл бөлімдер болмауы да мүмкін)
BEGIN Операторлар; (процедура денесі)
END;
Программада процедураны пайдалану үшін процедураның атын нақты
параметрлермен бірге жазып ... ол ... ... ... деп ... ... процедураның шақыруын оқыған заматта
процедураның орындалуы басталады. Мысалы прпограмма ... ... SUMMA ... ... ... ... жолмен шақыруға болады.
Summa (19,A,50);
Жақшадағы 19 Ф 50-нақты параметрлер болып ... ... ... ... ... ... ие болады:
N=19, M=A, X=50.
Процедура шақыру процесінде формальды ... ... ... ... ... да, ... ... сол жаңа мәндер пайдаланады.
Процедураның параметрлері мәндік және айнымалы болып ... ... ... ... тек қана ... ... ... қабылдайды да, қайтып оларға өзінің мәнін
бере алмайды. Процедураның бір орындалу барысында негізгі программаның
бірден бірнеше ... жаңа мән ... ... Айнымалы
параметрлердің алдына VAR қызметші сөзі қойылып жазлады.
Мысалы:
PROCEDURE Misal ... VAR X,Y: ... S: ... S:=A+5*B;
X:Sqr(S); Y:Sqr(X); END;
Бұл процедураны программалық текстте ... ... ... ... ... ... Misal ... шақыру идендификаторын
оқып, басқаруды Misal процедурасына ... де, ... ... А, В, Х, Ү ... ... ... нақьы
параметрледің мәнін қабылдайды:
А=10, В=5, Х=K, Ү=I,;
2.процедура денесіндегі ... ... ... ... сөзінен кейінгі жазылған формальды Х және ... ... ... барысында меншіктеген өздерінің
жаңа мәндерінің нақты К-мен І ... ... ... ... ... ... идендификаторынан кейін тұрған операторға
өтеді;
К=X=1225, I=Y=1500625
4. әрі ... ... ... К және І ... ... ... ... құру мысалдары.
Қатеттері бойынша үшбұрыштың ауданы мен
гипотенузасын табу процедурасын құру.
Дұрыс құралған процедура мысалдары:
А)
PROGRAM Proced 1;
VAR A, B, C, S: ... Ushbur ... Var T, Q: ... ... (Sqr ... Readln (A,B);
(негізгі программадан Ushbur процедурасын шақыру:)
Ushbur (A, B, S, C);
Writeln (‘gip=’,C:4:2); Writeln (‘aud=’, S:4:2);
Readln End.
Ә)
PROGRAM Proced 2;
VAR A, B, C, S: ... Ushbur ... Var T:Real, Q: ... ... (Sqr ... Readln (A,B);
Ushbur (A, B, S, C);
Writeln (‘gip=’,C:4:2);
Writeln (‘aud=’, S:4:2);
Readln End.
Б)
PROGRAM Proced 3;
VAR A, B, C, S: Real;
PROCEDURE Ushbur;
Begin
S:=A*B/2; C:=Sqrt(SQRT(A)+SQRT(B)); ... Readln ... ... ... ... ... құралмаған процедура мысалдары:
А)
PROGRAM Proced 4;
VAR A, B, C, S: Real;
PROCEDURE Ushbur (M,N:Real; Var T, Q: Real);
Begin T:=M*N/2
Q:=Sqrt (Sqr (M)+Sqr(N));END;
(бұл процедура S пен С –ға жаңа мән ... Readln ... ... ... ... ... Proced ... A, B, C, S: Real;
PROCEDURE Ushbur(A,B:Real; Var S:Real, C: Real);
Begin S:=A*B/2
C:=Sqrt(SQRT(A)+SQRT(B)); END;
(бұл ... ... мәе ... ал С –ға ... Readln ... (A, B, S, C);
Writeln (‘gip=’,C:4:2);
Writeln (‘aud=’, S:4:2);
Readln End.
Б)
PROGRAM Proced 6;
VAR A, B, C, S: ... Ushbur ... Var A, B: ... (Sqr ... ... ... ... жазылмаған)
BEGIN Readln (A,B);
Ushbur (A, B, S, C);
Writeln (‘gip=’,C:4:2);
Writeln (‘aud=’, S:4:2);
Readln End.
Екі ... ... ... ... Maxsan;
Var A,B, Max: Real;
PROCEDURE Maxsim (K, I:Real; VAR S:Real); (Махім процедурасы)
Begin If K>I Then ... S:=I; End; (екі ... ... ... салыстыру)
BEGIN Write(‘2 сан енгіз:’); Readln(A,B); (негізгі программа)
Maxim(A,B,Max); Writeln(‘Max=’,Max:4:1); Readln End.
Екі санның үлкенін табатын процедураны қолданып,
берілген үш және төрт ... ... табу ... ... ... Max: Real;
PROCEDURE Maxsim (K, I:Real; VAR S:Real); ... ... If K>I Then S:=K Else S:=I; ... санды салыстырып үлкенді салыстыру)
BEGIN Write(‘4 сан енгіз:’); Readln(A,B,С,D,); (негізгі программа)
Maxim(A,B,Max);
(процедураның орындалуы нәтижесінде Мах А және В ... ... ... ... Мах А,В,С ... ... ... орындалуы нәтижесінде Мах А,В,С,D Сандарының үлкенін
меншіктейді)
Writeln(‘A,B,C,D сандарының:’,Max:4:1);
Readln End.
N-нен М-ге ... ... ... қосындысын табу проедурасы.
PROGRAM Proc7;
Var N,M,K: Integer; S:Longint;
PROCEDURE Sum (N, M:Integer; VAR X:Longint); ... ... X:=0; For K:= N To M Do X:=X+K; ... Readln ... (N,M,S);
Writeln(‘SUM=’,S);
Readln END.
Бүтін Х санның бүтін Ү дәрежесін табу ... ... ... X,Y: Integer; ... Inp (VAR ... ... ... проуедурасы)
Begin Write(санды енгіз:); Readln (A);
Write (‘дәрежесін енгіз:’); Readln (B) ... Dar (A,B: Integer; VAR S: ... K: ... ... K:=1 To B Do S:=S*A; ... Out ... ... шығару процедурасы)
Begin Writeln (X,’ санның ‘, Y’, дәрежесі=’,S) End;
BEGIN Inp (X,Y); Dar (X,Y,S); ... ... ... цифрларының санын шығару процедурасы
PROGRAM Proc8;
Var N:Longint;
PROCEDURE San; (Sаn проуедурасы)
Var K:Integer;
Begin K:=0
Repeat
K:=K+1; N:= N Div 10; Until ... ... ... саны=’,K) End;
Begin Readl (N); San;
Readln END. (негізгі программа)
N санының цифрларының ... ... ... ... N: Integer; ... San (I:Longint); (san проуедурасы)
Begin K:=0;
Repeat K:=K+1;
I:=I Div 10; Until I=0; ... Dar (I: Integer; VAR S: ... (dar ... J: Ineger; (онның І дәрежесін есептеу)
Begin P:=1;
For J:=1 To I Do P:=P*10; ... Jup ... (Jup ... ... ... ... ... анықтайтын цикл)
For I:=1 To K do Begin
Dar (K-I,D); (D ... Dar ... ... ... К-І ... ... Div D; (Х ... І=1 болғанда санның бірінші цифрін, І=2
болғанда 2-ші цифрын,... І=K болғанда Л цифрын меншіктейді )
Writeln (I’, цифр =’,x);
N;=N Mod D; ( ... ... ... ... ... X Mod 2=0 ( ... ... салыстыру)
Then Write(‘бұл цифр жұп’)
Else Write (‘бұл цифр тақ’);
BEGIN Readl (N); San (N); Jup (N); (негізгі программа)
Readln End.
Функция – ... ... алу үшін ... ... ... ... ... ерекшелігі – оның орындалуы барысында
бір ғана нәтиже шығады, ал кіру параметрлері бірнешеу болуы ... ... ... ... ... ... беріледі.
Функциялардың жалпы түрі:
| |Бейсик ... |Си++ ... ... ... () ... | |begin |{ |
| | |; |; |
| | |end; |}; ... |END FUNCTION |жоқ |жоқ ... ... ... функцияның мысалдары:
Бейсик:
FUNCTION SQR % (X AS INTEGER)
SQR% = X*X
END FUNCTION
Паскаль:
function SQR (x : integer) : ... ... SQR (int ... x*x;
};
Паскаль тіліндегі функцияны негізгі бағдарламаның командалар бөлігінен
шақырылу командасын қарастырайық:
();
Мысалы: у:=SQR(x);
Функциялардың атқаратын ... мен ... ... ... Функциялардың процедуралардан негізінен екі
айырмашылықтар бар:
1. Функциялар өрнек операндалары ретінде қолданыла береді;
2. Функция ... ... бір ғана ... ... ... ... ... Процедуралар шақыру нүктесіндегі
бірнеше идендификаторға жаңа мәндер қайтарып бере алса, ал
функциялар бір шақыру ... бір ғана ... мән бере ... ... аты ... ... ... бөлімдері; (*бұл бөлімдер болмауы да мүмкін*)
BEGIN Операторлар бөлімі;
Аты:=(*функция жаңа мән меншіктейді*) (*функция ... құру ... ... және ... ... ... бойынша ара
қашықтығын анықтау функциясын құру.
PROGRAM Func 1;
VAR X1,X2,Y1,Y2:Integer;
FUNCTION Ara: Real; ... табу ... ... ... ... Readln ... (негізгі программа)
Writeln (‘Екі нүктенің ара қашықтығы=’, Ara:4:1);
Readln END.
Нақты оң Х санының ... Ү ... ... құру
PROGRAM Func 1;
VAR X,Y:Real;
FUNCTION Dar (A,B:Real):Real; ... табу ... If A>0 Then ... Begin Writeln ... Delay (30000); Halt End End;
Begin Readln (X,Y); ... ... ... Readln ... N –ге ... бүтін сандар қосындысын табу функциясы
PROGRAM Func 3;
VAR A,B,P:Real;
FUNCTION Sum (M,N:Integer):Integer; ... табу ... ... S:=; For K:=M To N Do ... End;
Begin Readln (A,B);
P:=Sum(A,B); Writeln (‘P=’,P); Readln END.
N санының факториал табу ... Func ... ... 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 (оң сан ендіру ... ... Readl ... санның және төрт санның кішісін табу функциялары
PROGRAM Minsan;
VAR A,B,C,D:Real;
FUNCTION Min (K,I:Real):Real;
Begin If K>I Then Min:=K Else Min:=I; ... ... ... ... (D, Min(C, ... ... Writeln (‘төрт сан енгіз’); Readln (A,B,C,D);
Writeln (‘Төрт санның кішісі=,’ ... ... ... ... ... ... кіші әріптерін бас әріпке
айналдыру функциясын құру.
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); ... ... жаңа мәні ... ... ... қатарында кездесетін «а» символдарын санап, ... ... ... функциясын құру.
PROGRAM Kat4;
Var X:String; K,N:Byte;
FUNCTIION Austyr(A:String):String;
Begin N:=0; For K:=1 To Length (A) Do If ... ... N:=N+1; ... End; ... End;
BEGIN Readln (X); X:=Austyr(X);
Writeln (‘Қатардың жаңа мәні ... ... ‘, N, “a” ... болды’);
Readln End.
2-ден 1000-ға дейін сол жағынан да, оң жағынан да оқығанда жай сандарды
анықтау функциясын құру.
PROGRAM ... ... ... ... ... T:=’Жай сан емес’; D:=0;
For I:=2 To Y Y-1 Do If Y Mod I=0 Then ... D =0 Then ... Jai:=T ... Kery (Y:Integer):Integer;
VAR S:Integer;
Begin If Y10) And (Y=100) And (Y>1000)
Then S:=Y Mod 10*100+Y Mod100 Div 10*10+Y Div ... ... Writeln ... ... N:=2;
For X:=4 To 99 Do Begin
If Jai(X)=’Жай’ Then If Jai (Kery(X))=’Жай’
Then Begin ... N:=N+1 End; ... (N, ... сан ... End.
Тік төртбұрышты квадраттарға бөлу программасының
функциясы.
PROGRAM Kvadrat;
VAR A,B,D,K,X,Y:Integer;
Function Min(A,B:Integer):Integer;
Begin If A Max Then Begin F:=I; ... M:=T[I] ... ... T[K]; T[K]:=M ... ... (командалардың рейтингін R массивіне меншіктеу)
For K:=1 To 5 Do R[K]:=Sumball (K,T,A,B,C); Retteu; End;
Procedure Out;
Begin Writeln (‘европаның ең ... ... ... ... ... ... K:=1 To 5 Do While (T[K]:7, R[K]:4); ... Inp ... Reiting Out; ... ... ... ... Pascal ... саннан құралған тұрақтыларға, мәліметтер типіне,
айнымалыларға, ... және ... ... қамтамасыз
етеалады. Олардың ішіндегі кейбіреулері Borland Pascal үшін ... ... Windows ... Dos ... үшін ... ... ерекше. Олардың саны өте көп, дегенмен, өз программаңызда
олардың бәрін бір ... аз ... ... олар модульдер деп
аталатын өзара байланысты топтарға бөлінген. Бұл жағдайда тек программаға
қажетті модульдерді ... ... ... (Unit) тұрақтылар, мәліметтер типі, айнымалылар,
процедуралар және функциялар жиынтығы болып табылады. Әр модуль Паскальдағы
жекеленген ... ... сіз ... орындаңға жіберместен
бұрын, оның шақырылатын және ... ... ... ... ... ... ... Қысқаша айтқанда модуль, программаға қоюға
болатын және программаны жеке ... ... ... ... ... ... ... құрамына кіретін, процедуралар және функциялар, мәліметтер типін
және айнымалылар арасындағы ... ... ... ... ... та
бұл тәсілдерді нақтылы жүзеге асыру интерфейс және ... ... Егер ... модуьді пайдаланса, модульдің барлық
сипттамалары бұл программаға, оның өзінде ... ашық ... ... ... ... = ... sinh(x: Float): Float;
function cosh(x: Float): Float;
function tanh(x: float): Float;
implementation
var
t: Float;
function sinh(x: Float): Float;
begin
t := Exp(x);
sinh := 0.5*(t – 1.0/t);
end;
function cosh(x: Float): ... := ... := 0.5*(t + ... tanh(x: Float): Float;
begin
t := Exp(2.0*x);
tanh := (t – 1.0) / (t + ... ... ... 1 қосымшада келтіремін.
2. Массив
2.1. Ашық массивтер
Borland Pascal ережесі бойынша пароаметр ретінде беріәліп отырған кез
келген массивтің көлемі ... ... ... ... ... ... тұратын процедуралар мен функциялардың арнайы құралдарды
қолданылу аумағы айтарлықтай шектеледі. Берілген шектеулікті ... үшін ... ... ... ... массивтер – индекс типі көрсетілмеген массив типінің ... ... ... ... ... ... мүмкін. Ашық массивтерді қолдана отырып, ашық массив ... ... ... ... ... ... ... параметрінің
шынайы элемент саның екі түрлі әдіспен анықтауға болады:
1. ... ... ... ... арнайы функцияларды қолдану.
2.2. Массивтердің параметрлері
High () – ... ... үшін ... ... ... ... ашық массив үшін – индекстің
максимальді мәнін.
Low () – ... ... үшін ... жоғарғы шегін қайтарады, ашық массив үшін – нөль.
Массив элементтерін өндіру, шығару процедурасын құру мысалдары.
А) массив элементтерінің қосындысын мен көбейтіндісін табу:
PROGRAM Massiv ... ... Mas ... Of ... A,B:Mas; S,P,K: ... Inp ... Var X: ... For K:=1 To N Do Read (X[K]); End;
PROCEDURE Out (N: Integer; VAR X: Mas; VAR ... S:=0; ... K:=1 To N Do Begin ... End ... Inp (N,A); Out ... ... программа)
Writeln (‘қосындысы=’,S); Writeln (‘Көбейтінді’,P);
Inp (N,B); Out (N,B,S,P); (‘қосындысы=’,S);
Writeln (‘Көбейтінді’,P);
Readln END.
ә) массив ... ... мен ... ... параметрсіз құру:
PROGRAM Massiv 2;
CONST N=5;
VAR X,A,B:Array; [1…N] Of Integer; S,P,K: Integer;
PROCEDURE Inp
Begin For K:=1 To N Do Read (X[K]); Writeln ... ... S:=0; P:=1; For K:=1 To ... S:=S+X[K]; P:=P*X[K] End End;
BEGIN Inp Out; ... ... ... Writeln ... ... (‘қосындысы=’,S); (‘Көбейтінді’,P);
Readln END
Б) массив элементерінің қосындысын табу ... ... етіп ... Proce 11;
LABEL 1;
VAR N:Longint; K:Integer;
PROCEDURE Parol;
Begin Writeln(‘пароль дұрыс емес қайтадан еңгізіңіз:’);
Readln(N); If K=3 Then Halt; K:=K+1; End;
PROCEDURE Mas;
CONST A: Array[1..5] Of ... ... ... K:=1 To 5 Do S:=S+A[K];
Writeln (‘S=’, S) End;
BEGIN K:=1; ... ... ... ... Readln (N);
1:IF N < > 123456 Then Begin Parol; Goto 1 End;
Mas; Readln END.
Футбол чемпионатына қатысқан 12 команданың ... ... ... 3 және ... 5 орын ... ... тізімін шығару
поцедурасын құру.
PROGRAM Futboll;
USES Crt;
TYPE M=Array[1..12] Of Integer; N=Array [1..12] Of String;
VAR K,I,P:Integer; A:N; ... Engiz ( VAR B:M; VAR ... For K:=1 To 12 Do Begin Writeln ... аты:’);
Readln (A[K]); Writeln (‘Оның алған ұпайы:’); Readln (B[K]) End;
End;
PROCEDURE Kemu (B:M; VAR A:N);
VAR Max,F:Integer; ... For K:=1 To 11 Do ... F:=12; ... I:=12 Downto K ... B[I] > Max Then Begin F:=I; Max:= B[I]; M:=A[I]; End;
B[F]:= B[K]; B[K]:=Max; A[F]:=A=[K]; A[K]:=M; End;
Writeln; End;
PROCEDURE Autsaider(B:M; VAR ... Kemu (B,A); ... ... қалған командалар:’);
For K:=8 To 12 Do Write (A[K]:7); End;
PROCEDURE Juldeger (B:M; A:N);
Begin Writeln;
Writeln (‘Жүлдегер командалар:’);
For K:1 To 3 Do ... ... Clsrcr; ... ... ... (B,A); Juldeger (B,A); Readln; ... кораблі Күн системасындағы тоғыз планетаның ... ... ... ... қайтып келуі тиіс. Жанар майды үнемдеу
үшін ол әр жолы ... ең аз ... ... ... ... ... Космос кораблінің ең тиімді маршруты мен оның
барлық жүрген жолын анықтау программасы.
PROGRAM ... ... M:Set Of ... Of ... Of ... ... ... For K:=1 To N Do
For I:= To K Do Begin Read(B[I,K]);
B[I,K]:= B[I,K]; End; End;
PROCEDURE Out;
Begin For K:=1 To N Do ... I:= To K Do Begin ... End; ... Clrscr; ... ... ... егіз:’); Readln (N);
Inp; Out;
Write (‘Қай планетадан шықты, номерін енгіз:’); Readln (X);
If=[X]; A[1]:=X; C:=x; ... I:=1 To N-1 Do Begin ... ... K:=1 To N ... (B[X,K]) 0) ... ... Y:=K; ... M:=M+[Y];
A[I+1]:=Y; X:=Y End;
Writeln (‘корабльдің барлық жүрген жолы:’D+B[C,X]);
Write(‘Корабльдің ең тиімді маршруты:’);
For K:=1 To N Do Write ... Write (‘ ... ... картотека жазу» программасын
процедуралар қолданып құру.
PROGRAM Dosye;
TYPE Dos=RECORD A:Char; Integer; C,D,E:String; End;
VAR X:Array[1..10] Of Dos; ... ... Writeln (K, ... туралы деректерді еңгіз’);
With X [K] Do Begin
Write (‘Қаласы:’); Readln(A);
Write (‘машина нөмірі:’); ... ... ... ... ... ... ... Readln(Е); End; End;
Procedure Out(I:Integer);
Begin Writeln (‘Бұл нөиерімен мынадай машиналар бар:’);
With X [K] Do Begin
Writeln (‘Қаласы:’,A);
Writeln (‘машина нөмірі:’,В);
Writeln (‘Сериясы:’,С);
Writeln (‘Фамилиясы, ... ... End; ... k:=1 To 3 Do Inp;
Write (‘Көрнекті машина нөмірін енгіз:’); Readln(B);
For K:=1 To 3 Do If X [k].B=B Then ... ... ... ... Visual ... Basiс – оқиғалы-бейімделгіш бағдарламалауды ... ... ... ... ... ... қадамды толықтай сипаттаудың орнына әр ... яғни ... ... ... ... ... ... көрсетсеңіз болғаны. Бұл бағдарламалау жүйесі арқылы
бір ... ... ... ... ... басқаратын, өзара
байланысты микропрограммалары (процедура) бар ... ... Basiс ... ... ... ... ... болады, ол
үшін міндетті түрде бұл тілді терең, профессионалды ... ... ... ... ортасы.
Visual Basiс-тің жұмыс ортасын өңдеудің интеграцияланған ортасы деп
жиі атайды( ... ... ... ... ... IDE), ... сан алуан функциялары бар: жобалау, редакциялау, компиляциялау ... ... ... ... келгенде, IDE дегеніміз – бұл бағдарлама
жасауға қатысатын құралдар үстелі мен жұмыс ортасы. Бағдарламалауды ... ... ең ... ... элементтер экранға шығады. Оларға қоса ондаған
көмекші және жасырын терезелер бар, олар тек пайдаланушыға керек кезде ... ... 3.2. ... ... тілі 1980 жылы ... болды. Оны құрастырған Бьяр
Страуструп. Оның атауын ойлап тапқан Рик Масситти деген адам. Бұл Си ... ... Си++ ... эволюциялық түрде көшуін білдіреді. Си++
- бұл Си тілінің ... ... ... ... үшін ... тіл ретінде Си-дің таңдалды, себебі ол:
➢ көпмақсатты, ықшамды және біршама төмен деңгейлі;
➢ жүйелік бағдарламалаудың мақсаттарының көбісіне жауап береді;
➢ UNIX ... ... ... болып табылады.
Қорытынды
Қорыта келгенде, Турбо Паскаль ... ... ... ... ... ... ... Олардың арасында –
ақпараттарды есептеу мен ... ... ...... ... мамандырылған программистің жолында кездесетін күнделікті
есептер.
Сонымен қоса, Турбо Паскаль бағдарламалау тілі – ... ... ... ... Ол өте ... ... ... бола тұрғанымен, Паскаль – ол тірі бағдарламалау тілі.
Қазіргі ... ... ... жазылған әртүрлі оперативті жүйелерге
арналған компиляторлар мен бағдарламаларды құрастыру орталары ңделуде.
Соның ... Linux - өте ... ... ... келе ... ... айтып кетуге болады.
Қолданылған әдебиеттер тізімі:
1. Н. Т. Ермеков, В. А. Криворучко, Л. Н. ...... ... С. В. ...... Базовый курс., 2001 ж.
3. В. В. Егоров, В. А. ... Н. Н. ... – Visual Basic ... и ... 2007 ... М. Мансұрова – Компьютерлік орта., 2004 ж.
5. Рихтер Джеффри “Windows для профессионалов”, С-П. ,1995.
6. Л.В. ... О.Л. ... ... ... и ... М., ... ... Е.И. “Принципы построения и архитектура САПР”
8. П.Грэй “Логика, алгебра, и БД.”
9. Джексон Г. ... ... баз ... для использования с
микро-ЭВМ” М.: 1991.В.К
10. Даулеткулов А.Б. ... по ... ... ИНТ. 2004 ... Марченко А.И., Марченко Л.А. Программирование в среде Turbo ... ... ... ... Федоренко Ю. Алгоритмы и программы на Turbo Pascal. М.; ... ... ... Е.Қ. ... Б.Б. ... А.Б. Жаңа информациялық
технологиялар: информатикадан 30 сабақ. Алматы, ЖТИ, ... ... ... ... ... = ... = ... Tan(x : float) : float;
function ArcSin(x : float) : float;
function ArcCos(x : float) : float;
function Degrees_to_Radians(Degrees : float) : ... ... : float) : ... Sinh(x : float) : ... Cosh(x : float) : float;
function Tanh(x : float) : float;
function Log10(x : float) : float;
function Power(x, Exponent : float) : ... = Pi / ... = 180 / ... = ... = ... Tan(x : float) : Float;
var
Consine, Tangent : float;
begin
Consine := Cos(x);
if Cosine := 0.0 then
if Sin(x)>=0 then
Tan := Infinity
else
Tan := ... := Sin(x) / ... Tangent > Infinity ... := ... Tangent < ... ... := ... := Tangent;
end;
end;
function ArcSin(x : float) : float;
begin
if Abs(x) = 1.0 then
ArcSin := Pi / ... := ArcTan(x / Sqrt(1 – x * ... ArcCos(x : float) : ... : ... x = 0.0 then
ArcCos := Pi / 2.0
else
begin
Result := ArcTan(sqrt(1 – x * x) / x);
if x < 0.0 ... := Result + ... := ... ... : float) : ... := Degrees * ... ... : float) : float;
begin
Radians_to_Degrees := Radians * Degrees_Per_Radian;
end;
function Sinh(x : float) : ... : ... x > MaxValue ... := ... x < ... then
Sinh := -Infinity
else
begin
t := Exp(x);
Sinh := 0.5 * (t – 1 / ... Cosh(x : float) : ... : ... Abs(x) > MaxValue ... := ... := ... := 0.5 * (t + 1 / ... Tanh(x : float) : float;
begin
Tanh := Sinh(x) / Cosh(x);
end;
function Log10(x : float) : float;
begin
Log10 := Ln(x) / ... Power(x, Exponent : float) : ... x > 0.0 ... := ... * ... if x = 0.0 ... := 0.0
else
WriteLn ( ‘ Основание степени отрицательно! ’ );
end;
begin
end.

Пән: Информатика
Жұмыс түрі: Курстық жұмыс
Көлемі: 27 бет
Бұл жұмыстың бағасы: 500 теңге









Ұқсас жұмыстар
Тақырыб Бет саны
String типті айнымалыға қолданылатын стандартты функциялар мен процедуралар9 бет
Енгізу және шығару функциялары мен процедуралары21 бет
Паскаль программасындағы функциялар мен процедуралар9 бет
Процедуралар мен функциялар8 бет
Файлдарға қолданылатын функциялар мен процедуралар turbo pascal27 бет
Құрылымдық типтер және жолдық процедуралармен функциялар22 бет
Delphi-де бағдарламалау52 бет
Graph кітапханасын қолдану21 бет
MS DOS операциялық жүйелерімен жұмыс модульдері26 бет
Turbo pascal6 бет


Исходниктер
Пәндер
Көмек / Помощь
Арайлым
Біз міндетті түрде жауап береміз!
Мы обязательно ответим!
Жіберу / Отправить


Зарабатывайте вместе с нами

Рахмет!
Хабарлама жіберілді. / Сообщение отправлено.

Сіз үшін аптасына 5 күн жұмыс істейміз.
Жұмыс уақыты 09:00 - 18:00

Мы работаем для Вас 5 дней в неделю.
Время работы 09:00 - 18:00

Email: info@stud.kz

Phone: 777 614 50 20
Жабу / Закрыть

Көмек / Помощь