Паскаль програмдау тілінің көмекші программалары
For I:=2 To Y Y-1 Do If Y Mod I=0 Then D:=D+1;
If D =0 Then T:=’Жай’; Jai:=T End;
FUNCTIONKery (Y:Integer):Integer;
VAR S:Integer;
Begin If Y<10 Then S:=Y;
If (Y>10) And (Y<100) Then S:=Y Mod 10*10+Y Div 10;
If (Y>=100) And (Y>1000)
Then S:=Y Mod 10*100+Y Mod100 Div 10*10+Y Div 100;
Kery:=S; End;
Begin Writeln (‘Бұндай сандар:’); N:=2;
For X:=4 To 99 Do Begin
If Jai(X)=’Жай’ Then If Jai (Kery(X))=’Жай’
Then Begin Writeln(X); N:=N+1 End; End;
Writeln (N, ‘Жай сан бар’);
Readl End.
Тік төртбұрышты квадраттарға бөлу программасының
функциясы.
PROGRAMKvadrat;
VAR A,B,D,K,X,Y:Integer;
Function Min(A,B:Integer):Integer;
Begin If A<B Then Min:=A Else Min:=B; End;
FUNCTIONMax (A,B:Integer):Integer;
Begin If A<B Then Max:=A Else Max:=B End;
Begin Readln (A,B);
X:=Min (A,B); Y:=Max(A,B); K:=1;
While X<>Y Do Begin K:=K+1;
D:=Y-X; Y:=Max(D,Y); X:=Min(D,X); End;
Writeln (‘Квадрат саны=’, K’);
Readl End.
Европаның ең ұздік футбол клубын анықтау, және экранға командаларды рейтингісі (жинаған балдары)
бойынша реттеп шығаруда функция мен процедура қолдану.
Европаның ең үздік 5 футбол командасының Европа кубоктарында жеткен табыстары берілген:
Т (Реал, Милан, Порту, Рома, Интер);
А(7,7,3,2,3);
В(3,2,5,4,5);
С(1,2,5,3,7);
Т массиві –футбол клубтары,
А,В,С массивтері –олардың жарыстарда жеңіп алған клубтарының саны
Командалар рейтингісі осы жарыстарда жеңіп алған кубоктар санына байланысты есептеледі. әр кубокты бір рет иеленгені үшін командаға мынадай балдар қосылады:
А-чемпиондар лигасының кубогын жеңіп алған үшін 50 балл,
В-кубок иелерінің кубогын жеңіп алған үшін 30 балл,
С-УЕФА кубогын жеңіп алған үшін 20 балл.
1түрі:
PROGRAM Kubok1;
Type Mas=Array[1..5] Of Integer;
Komanda =Array [1..5] Of String; (массивтерді сипаттау)
VAR K,N,I:Integer;
A,B,C,R:Mas; T: Komanda;
PROCEDURE Inp (Var T: Komanda; VAR A,B,C: Mas);
Begin (4 массивті элементтерін енгізу:)
For K:=1 To 5 Do
Begin Readl (T[K]);
Readln (A[K], B[K], C[K]) End; End;
FUNCTION Sumball (N:Integer; T:Komanda; A,B,C: Mas): Integer;
Begin (балдарының қосындысын есептеу)
Sumball:= A[K]*50+ B[K]*30+ C[K]*20; End;
PROCEDURE Reiting;
VAR Max, F:Integer; M:String;
Begin For K:=1 To 5 Do
R[K]:=Sumball(K,T,A,B,C); (рейтингтерін Rмассивіне меншіктеу)
For K:=1 To 4 Do Begin
Max:= R[5]; F:=5; M:=T[5]; (рейтингтерінің кемуі бойынша реттеу)
For I:=5 Downto K Do
If R[I]> Max Then Begin
F:=I; Max:=R[I]; M:=T[I] End;
R[F]:=R[K]; R[K]:=Max; T[K]; T[K]:=M End;
Writeln (‘Европаның ең мықты клубы:’, T[1]);
Writeln (‘Клубтардың рейтингтері:’); (нәтижелер шығару)
For K:=1 To 5 Do While (T[K]:7, R[K]:4); End;
BEGIN Inp (T,A,B,C); Reiting (негізгі программа)
Readln END.
2түрі:
PROGRAM Kubok2;
Type Mas=Array[1..5] Of Integer;
Komanda =Array [1..5] Of String; (массивтерді сипаттау)
VAR K,N,I:Integer;A,B,C,R:Mas; T: Komanda;
PROCEDURE Inp (Var T: Komanda; VAR A,B,C: Mas);
Begin For K:=1 To 5 Do (4 массивті элементтерін енгізу:)
Begin Readl (T[K]); Readln (A[K], B[K], C[K]) End; End;
FUNCTION Sumball (N:Integer; T:Komanda; A,B,C: Mas): Integer;
Begin (балдарының қосындысын есептеу)
Sumball:= A[K]*50+ B[K]*30+ C[K]*20; End;
PROCEDURE Retteu;
VAR Max, F:Integer; M:String;
Begin (рейттинг бойынша реттеу)
For K:=1 To 4 Do Begin Max:= R[5]; F:=5; M:=T[5];
For I:=5 Downto K Do
If R[I]> Max Then BeginF:=I; Max:=R[I]; M:=T[I] End;
R[F]:=R[K]; R[K]:=Max; T[K]; T[K]:=M End;
PRCEDURE Reiting;
Begin (командалардың рейтингін Rмассивіне меншіктеу)
For K:=1 To 5 Do R[K]:=Sumball (K,T,A,B,C); Retteu; End;
Procedure Out;
Begin Writeln (‘европаның ең мықты клубы:’,T[1]); (нәтижелер шығару) Writeln (‘Клубтардың рейтингтері:’);
For K:=1 To 5 Do While (T[K]:7, R[K]:4); End;
BEGIN Inp (T,A,B,C); Reiting Out; (негізгі программа)
Readln END.
| |  скачать работу |
Паскаль програмдау тілінің көмекші программалары | 
