6. N-нен M-ге дейінгі бүтін сандар қосындысын табу процедурасы.
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.
7. Даны три тройки чисел: а1,b1,c1; a2,b2,c2; a3,b3,c3. Найти в каждой из них наибольшее и наименьшее, а затем наибольшее и наименьшее среди наибольших и отдельно-среди наименьших.
PROGRAM pr10 2;
VAR A1,B1, C1 A2,B2,C2,A3,B3,C3:Real;
VAR
Max1,Max2,Max3,Min1,Min2,Min3,Max4,Min4,Max5,Min5:Real;
PROCEDURE MaxMin (X,Y,Z:Real; VAR Max,Min:Real);
Begin
If (X>=Y) and (X>=Z) Then Max:=X;
If (X<=Y) and (X<=Z) Then Min:=X;
If (Y>=X) and (Y>=Z) Then Max:=Y;
If (Y<=X) and (Y<=Z) Then Min:=Y;
If (Z>=X) and (Z>=Y) Then Max:=Z;
If (Z<=X) and (Z<=Y) Then Min:=Z;
End;
Begin Write(‘енгіз A1,B1,C1’); Readln (A1,B1,C1);
Write(‘енгіз A2,B2,C2’); Readln (A2,B2,C2);
Write(‘енгіз A3,B3,C3’); Readln (A3,B3,C3);
MaxMin (A1,B1,C1,Max1,Min1);
MaxMin (A2,B2,C2,Max2,Min2);
MaxMin (A3,B3,,C3,Max3,Min3);
MaxMin (Max1,Max2,Max3,Max4,Min4);
MaxMin (Min1,Min2,Min3,Max5,Min5);
Writeln (‘бірінші үш сан Max=’,Max1,’Min=’,Min1);
Writeln (‘екінші үш сан Max=’,Max2,’Min=’,Min2);
Writeln (‘үшінші үш сан Max=’,Max3,’Min=’,Min3);
Writeln (‘үлкен Max=’,Max4,’Min=’,Min4);
Writeln (‘кіші Max=’,Max5,’Min=’,Min5);
End.
8. Выдать на печать в обратном порядке цифры целого положительного числа n (брать остаток от деления n на 10 и делать до техпор, пока n, деленное на 10 (нацело!) не станет нулём, т.е. применим рекурсивную процедуру).
Program pr10 4;
var n:integer;
Procedure cifra (n:integer);
begin write(n mod 10);
if (n div 10)<>0 then cifra (n div 10)
end;
begin writeln (‘введи число N’); readln(n); cifra(n)
end.
Достарыңызбен бөлісу: |
