6.К-ны 123456789101112..санына қосып шығаратын программа жаз
program z12 12;
Var k,I,cod,p:integer;s,a,k:string;
Begin
Write (‘K-ni kos’);read(k);
A:=’’;
For I:=1 to K do begin str(I,S);A:=A+s End;Writeln (a);
Ks:=copy(a,k,1);{if K>10 then begin p:=(k-10) mod 2+1;
Ks:=copy(A,K*2-p,1);end;}
Val (ks,k,cod);Write (ks,’’,K’,’,cod);
Writeln;Write(‘K-nin cifri=’,K);
Readln End.
7.Length функциясын пайдалана отырып программа жаз
program area;
Const n=4;
Var
X1,y1,x2,y2,x3,y3:real;
I:Integer;
Su,pl:Real;
Function Length (x1,y1,x2,y2:real):Real;
Begin
Length :=sgrt(sgr(sgr(x1-x2)+Sgr(y1-y2));
End;
Procedure spase(x1,y1,x2,y2,x3,y3:real;Var pl:real);
Var a,b,c,p:real;
Begin
A:=Length (x1,y1,x2,y2);
B:=Length(x2,y2,x3,y3);
C:=Length(x1,y1,x3,y3);
P:=(a+b+c)/2;
Pl:=sgrt(p*(p-a)*(p-b)*(p-c));
End;
Begin
Write (‘1-shi gane 2-shi shinnin kordinatalari’);
Readln (x1,y1,x2,y3);
I:=2;
Su:=0;
Repeat
I:=I+1;
Write (‘1-shi shinninkord.’,I);
Readln (x3,y3);
Space (x1,y1,x2,y2,x3,y3,pl);
Su:=su+pl;
X2:=x3;
Y2:=y3;
Until I=n;
Writeln (‘Alan=’,su:10:5);
Readln End.
Достарыңызбен бөлісу: |
