9. N санының цифрларының санын шығару процедурасы.
Program proc8;
var N:longint;
Procedure san;
var k:integer;
begin k:=0;
repeat
k:=k+1; n:=n div 10; until n=0;
write(‘n санының цифрларының саны=’,k) end;
begin readln(n); san;
readln end.
10. Бүтін Х санының бүтін Y дәрежесін табу процедурасын құру.
Program proc9;
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); our(s);
readln end.
11. Массив элементтерінің қосындысын табу программасын парольмен ашылатындай етіп құру:
Program proc10;
lavel 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=(10,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.
Достарыңызбен бөлісу: |
