ү ғ қ
ө ү ғ ғ қ қ қ . ұ ғ қ қғ ө қ өңң .
ұң қ: ү ғғ ғ қ қ ә қ ғ.
32 үң ғ 0..4294967295 өң ү . қ ө қ ү ұ ғ (3.1-).
ә:
ққ ә:
| 3.1-. ү ң | |||
| Ұғ() | |||
| Integer | 2 (ң) | -32768 | +32767 |
| Shortint | 1 (ң) | -128 | +127 |
| Longint | 4 (ң) | -2147483648 | +2147483647 |
| Byte | 1 (ң) | ||
| Word | 2 (ң) |
ғ ә ү қ.
. Ө ү ң ғ ө .
ққ: қ, 4510905723598 3- ө қ .
қ қ (ө, 1 ң ү қғ.
ң , :
4 5 1 0 9 0 5 7 2 3 5 9 8
ң әқ 3- ө:
12 15 3 0 27 0 15 21 6 9 15 27 24
ұ: ә ұқ қ, ү қғ ұқ ұғ ғ қ.
3.1
ғ ү:
const m=100;var a, b: array [1..m] of integer; i, n, x, k: integer; s: string;begin writeln ('Ұ : '); readln (s); n:= length (s); writeln ('ө : '); readln (x); for i:=1 to n do val (copy(s, i, 1), a[i], k); for i:=1 to n do b[i]:= a[i] * x; for i:=n downto 2 do begin b[i - 1]:= b[i - 1] + b[i] div 10; b[i]:= b[i] mod 10; end; {ә} for i:=1 to n do write (b[i]);end.:
| : | |
| : |
2-: ү ң қ :
: ү қ қ: 4510905723569 ә 361295487.
|
|
|
қ қ . Ә ң , . ң қ (ұ b ) 5- ұқ .
3.2
Sum ү a ә b ң ә ұқ қ. ң ұ: ә ұқ қ, ү қғ ұқ ұғ ғ қ.
ң ғ ү:
const mm=100;var a,b, sum: array [1..mm] of integer; i, n, m,max, x, k: integer; sA, sB: string;begin writeln (' : '); readln (sA); writeln (' : '); readln (sB); n:= length (sA); m:= length (sB); if n>m then max:=n else max:=m; for i:=1 to n do begin val(copy(sA, i, 1),x,k); a[i+(max-n)]:=x; end; for i:=1 to m do begin val(copy(sB, i, 1),x,k); b[i+(max-m)]:=x; end; {======қ===========} for i:=1 to max do sum[i]:= a[i]+b[i]; for i:=max downto 2 do begin sum[i-1]:=sum[i-1] + sum[i] div 10; sum[i]:= sum[i] mod 10; end; {====ә===========} for i:=1 to max do write (sum[i]);end.:
| : | |
| ә: |
. Ү ң ө .
ө (3.3-):
3.3.
- b ң ң ңғ a ң қ ө. ә Nat қ;
- Sum 1 ғ ғ ғ Nat ң қ; ә Sum-ғ ;
- b ң (ң ) , ңғ қ қ;
- ғ Sum ғ.
ң ғ ү:
const mm=100;var a,b,nat,sum: array [1..mm] of integer; i, j, n, m, max, x, k: integer; sA, sB: string;begin writeln (' ө: '); readln (sA); writeln (' ө: '); readln (sB); n:= length(sA); m:= length(sB); {======ғ ө ===============} for i:= 1 to n do begin val(copy(sA, i, 1),x,k); a[i]:= x; end; for i:= 1 to m do begin val(copy(sB, i, 1),x,k); b[i]:= x; end; {== j- ғ ө ============} for j:= m downto 1 do begin for i:= 1 to n do nat[i]:= a[i] * b[j]; for i:= n downto 2 do begin nat[i - 1]:= nat[i - 1] + nat[i] div 10; nat[i]:= nat[i] mod 10; end; {==== ғ қ ==============} for i:= 1 to n do sum[i + j - 1]:= sum[i + j - 1] + nat[i]; for i:= n downto 2 do begin sum[i - 1]:= sum[i - 1] + sum[i] div 10; sum[i]:= sum[i] mod 10; end; end; {====ә=================} for i:= 1 to n + m - 1 do write (sum[i]);end.:
| : | |
| ә: |
