Паскаль програмдау тілінің көмекші программалары
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)); END;
BEGIN Readln (A,B);
Writeln (‘gip=’,C:4:2);
Writeln (‘aud=’, S:4:2);
Readln End.
Дұрыс құралмаған процедура мысалдары:
А)
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пенС –ға жаңа мән қайтармайды)
BEGIN Readln (A,B);
Writeln (‘gip=’,C:4:2);
Writeln (‘aud=’, S:4:2);
Readln End.
Ә)
PROGRAM Proced 5;
VAR 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;
(бұл процедура S-кежаңа мәе қайтарады,алС –ға қайтармайды)
BEGIN Readln (A,B);
Ushbur(A, B, S, C);
Writeln (‘gip=’,C:4:2);
Writeln (‘aud=’, S:4:2);
Readln End.
Б)
PROGRAM Proced 6;
VAR A, B, C, S: Real;
PROCEDURE Ushbur (S,C:Real; Var A, B: Real);
Begin
S:=A*B/2
C:=Sqrt (Sqr (A)+Sqr(B));END;
(бұл бұрышта параметрлер реттеліп жазылмаған)
BEGIN Readln (A,B);
Ushbur (A, B, S, C);
Writeln (‘gip=’,C:4:2);
Writeln (‘aud=’, S:4:2);
Readln End.
Екі санның үлкенін табатын процедура.
PROGRAM Maxsan;
Var A,B, Max: Real;
PROCEDURE Maxsim (K, I:Real; VAR S:Real); (Махім процедурасы)
Begin If K>I Then S:=K
Else S:=I; End; (екі санды салыстырып үлкенді салыстыру)
BEGIN Write(‘2 сан енгіз:’); Readln(A,B); (негізгі программа)
Maxim(A,B,Max); Writeln(‘Max=’,Max:4:1); Readln End.
Екі санның үлкенін табатын процедураны қолданып,
берілген үш және төрт санның үлкенін табу программасы.
PROGRAM Maxsan2;
Var A,B,С,D, Max: Real;
PROCEDURE Maxsim (K, I:Real; VAR S:Real); (Махім процедурасы)
Begin If K>I Then S:=K Else S:=I; End;
(екі санды салыстырып үлкенді салыстыру)
BEGIN Write(‘4сан енгіз:’); Readln(A,B,С,D,); (негізгі программа)
Maxim(A,B,Max);
(процедураның орындалуы нәтижесінде Мах А және В Сандарының үлкенін меншіктейді)
Maxim(Мах,С,Max);
(процедураның орындалуы нәтижесінде Мах А,В,С Сандарының үлкенін меншіктейді)
Writeln(‘A,B,C сандарының:’,Max:4:1);
Maxim(Мах,D,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); (сандардың енгізу проуедурасы)
Begin X:=0; For K:= N To M Do X:=X+K; End;
BEGIN Readln (N,M);
Sum (N,M,S);
Writeln(‘SUM=’,S);
Readln END.
Бүтін Х санның бүтін Ү дәрежесін табу
процедурасын құру.
PROGRAM Proc7;
Var X,Y: Integer; S:Longint;
PROCEDURE Inp (VAR A,B:Integer); (сандардың енгізу проуедурасы)
Begin Write(санды енгіз:);Readln (A);
Write (‘дәрежесін енгіз:’); Readln (B) End;
PROCEDURE Dar (A,B: Integer; VAR S: Longint);
VAR K: Byte;
Begin S:=1;
For K:=1 To B Do S:=S*A; End;
PROCEDURE Out (S:Longint); (нәтиже шығару процедурасы)
Begin Writeln (X,’ санның ‘, Y’, дәрежесі=’,S) End;
BEGIN Inp (X,Y); Dar (X,Y,S); Out(S);
Readln End.
Nсанның цифрларының санын шығару процедурасы
PROGRAM Proc8;
Var N:Longint;
PROCEDURE San; (Sаnпроуедурасы)
Var K:Integer;
Begin K:=0
Repeat
K:=K+1; N:= N Div 10; Until N=0;
Writeln(‘N санының цифрларының саны=’,K) End;
Begin Readl (N); San;
Readln END. (негізгі программа)
N санының цифрларының жұп-тақтығын
анытайтын процедурасын құру.
PROGRAM Proc9;
Var N: Integer; K,I:Longint;
PROCEDURE San(I:Longint); (sanпроуедурасы)
Begin K:=0;
Repeat K:=K+1;
I:=I Div 10; Until I=0; End;
PROCEDURE Dar (I: Integer; VAR S: Longint); (dar процедурасы)
VAR J: Ineger; (онның І дәрежесін есептеу)
Begin P:=1;
For J:=1 To I Do P:=P*10; End;
PROCEDURE Jup (N:Longint); (Jup процедурасы)
Var X,D:Longint;
Begin (санның цифрларының жұп-тақтығын анықтайтын цикл)
For I:=1 To K do Begin
Dar (K-I,D); (Dидендифткаторы Dar поцедурасының орындалу нәтижесінде 10-ның К-І дәрежесін меншіктейді)
X:=N Div D; (Х идендификаторы І=1 болғанда санның бірінші цифрін, І=2 болғанда 2-ші цифрын,... І=Kболғанда Л цифрын меншіктейді )
Writeln (I’, цифр=’,x);
N;=N Mod D;(келесі циклге қалатын санның шамасы)
If X Mod 2=0( цифрлардың жұп-тақтығын салыстыру)
Then Write(‘бұл цифр жұп’)
Else Write (‘бұл цифр тақ’);
BEGIN Readl (N); San (N); Jup (N); (негізгі программа)
Readln End.
Массив элементтерін ендіру, шығару процедурасын құру мысалдары.
А) массив элементтерінің қосындысын мен көбейтіндісін табу:
PROGRAM Massiv 1;
CONST N=5;
Type Mas =Array[1…N] Of Integer;
VAR A,B:Mas; S,P,K: Integer;
PROCEDURE Inp (N:Integer; Var X: Mas);
Begin For K:=1 To N Do Read (X[K]); End;
PROCEDURE Out (N: Integer; VAR X: Mas; VAR S,P:Integer);
BEGIN S:=0; P:=1;
For K:=1 To N Do Begin S:=S+X[K];
P:=P*X[K] End End;
BEGIN Inp (N,A); Out (N,A,S,P); (негізгі программа)
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 End;
PROCEDURE Out
BEGIN S:=0; P:=1; For K:=1 To N
Begin S:=S+X[K]; P:=P*X[K] End End;
BEGIN Inp Out; (негізгі программа)
Writeln (‘қосындысы=’,S); Writeln (‘Көбейтінді’,P);
Inp; Out;
Writeln(‘қосындысы=’,S); (‘Көбейтінді’,P);
Readln END
Б) массив элементерінің қосындысын табу программасын парольмен ашылатындай етіп құру
PROGRAM 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 Integer=(15,150,-80,50,60);
VAR S:Integer;
Begin S:=0;
For K:=1 To 5 Do S:=S+A[K];
Writeln (‘S=’, S) End;
BEGIN K:=1; (негізгі программа)
Writeln (‘пароль еңгізіңіз:’); Readln (N);
1:IF N < > 123456 Then Begin Parol; Goto 1 End;
Mas; Readln END.
Футбол чемпионатына қатысқан 12 команданың алған ұпайлары бойынша, алғагқы 3 және соңғы 5 орын алған командалар тізімін шығару поцедурасын құру.
PROGRAM Futboll;
USES Cr
| | скачать работу |
Паскаль програмдау тілінің көмекші программалары |