ө ғғ ң ұ ә- ң algorithmi ққ. Ә- ғқ қ ғ.
ғқ ә , қ ә қ қғ ү ә қ қ.
- ә , қ ә ү әң .
ғқ ә , қғ ққ / ә ( ғғ) ғғ әң ү қғ ү ә қ ұқ .
құғ қ / .
ұғ . ү ғ ң ү .
қ:
1. қ, қғ ә ұ қғ ө . ң қғ ө ңғ қғ ғ ү . ң қ ұ қ
2. ң ә ұғ / ғ ү , ғ ә ұғ, ғ қ ғ ә ә . ң ұ қ қғ .
3. ң қ ә ғ , ү ә ү . , ң ң ү ң ә ғ ү , ү ғ қ. ң ұ қ ғ .
4. ә. қ ә ң ә ә .
ң (қ) ә , ү ғ ү ө ң .
ң құ ққ, ң ң ү : қ, қғ ә .
ң ң , қ .
|
|
|
ң ә қ ә қ , қғ .
/ ө қ , .
ң өң . қ (ү, қ), қ ә қ .
(), ә ә .
ңғ, қ ғ ә ғ ғ ү. ң өң ө . ң ң ө құ. ғ қ ә өң ө . қ ө . Turbo Pascal
ә, ғ. ғ қ ә ., қ өң ө ә ә қ ү, қ құғғ ғ . - ұ. , ү ә қ. ғ ө қ . қ , - ү ү қ , қ ғ ұғ ұ, ү ң, ә қғ ңғ. ү ө ұ:
қ;
ө;
ө;
ң ғқ PROGRAM ө ң қ ұ. ң ң ө . ұ ө ғ , ұқ ә ң қ қ ғ ө. ө ө ұ, қ ң ү ө ғ ө ұ ү. ң ңғ ә ө ө . -ә, ө . begin ү ө , қ қ - ғ ң end ү ө қ. ө . ө ә ққ. ә ә ү ө ә қ ұқ, .. ә құ ң .
|
|
|
әң ң ә ң ә . әң ң , ң қ әңң ә ғ ң ң қ , ғ ң қ ә . әң ә ө ғ ә . , 1 2 ә ү , қғ, ғ, ө ә ө . ө қ :
ү Byte, Shortint, Integer, Longint, Word;
қ Real, Single, Double, Extended, Comp;
қ Boolean;
қ Char;
қ ;
Turbo Pascal ғ
1
қң қғ ғ құ қ. : 90.45 90 45 .
program Dengi;
var
d: Real;
r, k: Real;
begin
Write(' : ');
Read(d);
r:= Int(d);
k:= Round(Frac(d) * 100);
Write(r, ' . ');
WriteLn(k, ' .');
end.
2
ғ қң ғқ, қ ғ құ . : 3 ғ 18 .
program timer;
var
t,h,m: Integer;
sm,sh: String;
begin
sm:= 'minut';
sh:= 'sagat';
Write(Minutty engyz: ');
Read(t);
h:= t div 60;
m:= t mod 60;
case h of
1, 21: sh:= sh + '';
2..4, 22..24: sh:= sh + '';
5..20: sh:= sh + '';
end;
case m of
1, 21, 31, 41, 51: sm:= sm + '';
2..4, 22..24, 32..34, 42..44, 52..54: sm:= sm + '';
end;
Write(h, sh, ' ', m, sm);
end.
3
(x1, y1), B(x2, y2), C(x3, y3) ү ү ? қң
program z3;
var
x1, x2, x3, y1, y2, y3, z, n:real;
Begin
write ( ү ');
readln (x1,y1);
write ( ү ');
readln (x2,y2);
write (C ү ');
readln (x3,y3);
z:=(x3-x1)/(y3-y1);
n:=(x3-x2)/(y3-y2);
if (z=n) and (z=(x2-x1)/(y2-y1)) then
writeln (' ү ү);
else
writeln (' ү ү);
end.
4
ұ ң ө ү: ғ қғ 3 5 құғ ғ (ғ қң ү 3 ). 3 ғ 5, 5 құғ 9 ң қ. Ә қғ 3 ө ү. қ (>7) , ң ғ ң қғ. N қ қ .
program z4;
var k, i, n, p:integer;
s, x, y:longint;
r:array [1..3] of longint;
Begin
write(' k='); readln(k);
write( n='); readln(n);
r[1]:=k; r[2]:=0; r[3]:=0; s:=k;
for i:=1 to n do
begin
x:=s div 3;
p:=s mod 3;
if p=0 then y:=0
|
|
|
else if p=1 then begin x:=x-3; y:=2 end
else begin x:=x-1; y:=1 end;
r[3]:=r[2]; r[2]:=r[1]; r[1]:=5*x+9*y;
s:=r[1]+r[2]+r[3];
end;
writeln ( - ,s);
end.
5
ң ү ғ ө, ә құ. ң қ, ө, , 50 - z қ қ. қ қ қ қ қ ү қ .
program z5;
var
a,b,c,x,y,z,kol,r:real;
Begin
readln (a,b,c);
readln (x,y,z);
readln (r);
x:=int(x*100/a);
y:=int(y*1000/b);
z:=int(z*50/c);
kol:=0;
if (x>=r) and (y>=r) and (z>=r) then
begin
if (x<=y) and (x<=z) then kol:=int(x/r);
if (y
if (z
end;
writeln (kol);
end.
6
Қ , ң ө, өң . ң ң қ . ү қ ? , қ ?
program z6;
var
k,p,r,s, h:real;
kol: integer;
Begin
readln (k,p,r);
kol:=0;
while (k>0) and (kol<50) do
begin
kol:=kol+1;
k:=k+k*(p/100);
k:=k-r;
end;
if kol>=50 then writeln ('no') else writeln (kol);
end.
7
ү : . a^b қ .
program z7;
var
a,b,d:integer;
c:byte;
Begin
writeln (' a'); readln (a);
writeln (' b'); readln (b);
d:=a;
if b=1 then writeln (a)
else
begin
for c:=2 to b do
d:=d*a;
d:=d mod 10;
end;
writeln (d);
end.
8
қ ққ 15 ү ү . ң ү ө 50 . ү ө, ә үң ғ қ (15) қғ. ү ө ә ө ғ , қ қ . үң ғ 50 .
program z8;
type
mas=array[1..15] of integer;
var
m:mas;
k,i,s:integer;
Begin
for i:=1 to 15 do
begin
writeln (' m','[',i,']');
readln (m[i]);
end;
k:=1; i:=1; s:=0;
repeat
if s+m[i]<=50 then
begin
s:=s+m[i];
i:=i+1;
end
else
begin
k:=k+1;
s:=0;
end;
until i>15;
writeln ('Қ, k,'');
9
қ k ң p% ө қ. ү қ қ ?
program z9;
var
s,k,p:real;
n:integer;
Begin
writeln ('қ қ');
readln(k);
writeln ('Ө ');
readln(p);
writeln ('қ , ғ ');
readln(s);
while k
begin
k:=k+k*(p/100);
n:=n+1;
end;
writeln (' -',int(n/12));
end.
10
өң ө . : 175, 1*7*5=35 ө. ң 3 ғ ғ құ.
|
|
|
program z10;
var i,a,b,c: integer;
Begin
for i:= 111 to 999 do
begin
a:= i div 100;
b:= (i div 10) mod 10;
c:= i mod 10;
if (b <> 0) and (c <> 0) and (i mod (a * b * c) = 0) then writeln (i);
end;
end.
