, . , . , , . . , . ( Debug > Add breakpoint), ( Run -> Run), , . . , ( Run -> Run), ( Run -> Program reset). , , - .
: :
1. .
2. if ( Debug -> Add breakpoint).
3. ( Run -> Run). if, .
4. ( Run -> Step over).
5. ( Debug > Breakpoints).
6. ( Run -> Run) .
1. A, B, C . A, B, C.
: .
:
| A | B | C | ||
:
Program Treugoln_suchestvuet;
var
a, b, c:real;
begin
Writeln(' a, b, c');
Readln(a, b, c);
if (a+b>c) and (c+b>a) and (a+c>b) then
writeln(' ')
else
writeln(' ');
readln;
readln;
end.
2. (x, y). , , .
:
| x | y | ||
| Ox | |||
| Oy | |||
| -2 | |||
| -2 | -2 | ||
| -1 |
:
|
|
|
Program Points;
var
x, y: real;
begin
Writeln(' ');
Readln(x, y);
if (x=0) and (y=0) then
writeln(' ');
if (x<>0) and (y=0) then
writeln(' Ox');
if (x=0) and (y<>0) then
writeln(' Oy');
if (x>0) and(y>0) then
writeln(' ');
if (x<0) and(y>0) then
writeln(' ');
if (x<0) and(y<0) then
writeln(' ');
if (x>0) and(y<0) then
writeln(' ');
readln;
end.
3. 2++=0.
:
| b | |||||
| d>0 | -5 | X1 = 3, 2 = 2 | |||
| d=0 | : x1 = -1, 2= -1 | ||||
| d<0 | |||||
| =0, b=0, c=0 | , . | ||||
| =0, b=0, c≠0 | |||||
| =0, b≠0, c≠0 | . : = -0,25 | ||||
| ≠0,b≠0,=0 | X1 = 0, 2 = -0,25 |
:
Program Kvadratnoe_uravnenie;
Var
a, b, , d, x1, x2: Real;
begin
Writeln(' a, b, c ');
Readln(a,b,c);
if (a=0) and (b=0) and (c=0) then
Writeln(' Bce .
x . ');
if (a=0) and (b<>0) then
Writeln(' .
: = ', (-/b):6:2);
if (a=0) and (b=0) and (c<>0) then
Writeln('Hepaoe . ');
if (a<>0) then
begin
D:= b*b - 4*a*c;
if D > 0 then
begin
x1:=(-b+Sqrt(D)) / (2*a);
x2:=(-b- Sqrt(D)) / (2*a);
WriteLn('x1=',x1:6;2,' x2=',x2:6:2);
End;
if D = 0 then
Writeln('Kop : x1=x2=', -b/(2*a):6:2);
if D < 0 then
WriteLn(' ecex . ');
end;
ReadLn;
end.
1. . . (, , ):
.
() > 3.5
() > 7
! .
2. . 10% , 1000 . :
.
<Enter> -> 1200
10%
: 1080.00 .
3. . 3% , 500 ., 5% 1000 .
:
.
<Enter> -> 640
3%
: 620.80 .
|
|
|
4. , N 3. 3, , - .
5. x, y. , , , , .
6. , (x,y) A .
7. x y. x Y . x Y 2. .
8. , (x,y) , x 
+y =10 y=x .
9. a,b c. , a>b>c, , .
10. a,b,c .
11. a, b, c x, y. , a,b,c x y.
12. . , .
13. R , .
14. X,Y,Z . X,Y,Z. , : , .
15. 1,1,1,2,2,2. , 1+1y=c1 2+2y=2, , , .
16. , (x,y) , x^2+y^2=r y=1/x.
17. , (x,y) , y=sqrt(x) x=3.
18. a,b,c , .
19. R , .
20. .
21. , .
22. , a,b,c,d.
23. .
24. . . .
4.
: .
:
¾ ;
¾ ;
¾ .
:
1. , , .
2. : [4: 6], [9: 5.1].
3. ;
4. .
: 3 4 1 2.
1. n. 10- .
:
Program x_v_stepeni_4;
var
x, y: real;
begin
Writeln(' x ');
Readln(x);
y:=1; {x 
}
y:=y*x; {x 
}
y:=y*x; {x }
y:=y*x; {x 
}
y:=y*x; {x 
}
writeln(' x 4 ',y);
|
|
|
Readln;
end.
4- . 10- , () 10
2. 10 . .
:
: 3 . .
Program Proizved_3_otricat_chisel;
var
x, p: real;
begin
P:=1;
Writeln(' x ');
Readln(x);
if x<0 then
p:= * x;
Writeln(' x ');
Readln(x);
if x<0 then
p:= * x;
Writeln( x?);
Readln(x);
if x<0 then
p:= * x;
writeln('P= ',p);
Readln;
end.
(), 10
3. S=1+2+3+4+....+10.
: S=1+2+3+4.
1:
Program Summa;
var
s: integer;
begin
s:=0;
s:=s+1;
s:=s+2;
s:=s+3;
s:=s+4;
writeln(' S= ',s);
Readln;
end.
( ). :
1. .
2. , . 3, i, , 2.
2:
Program Summa;
var
s, i: integer;
begin
s:=0; i:=1;
s:=s+i;
i:=i+1;
s:=s+i;
i:=i+1;
s:=s+i;
i:=i+1;
s:=s+i;
i:=i+1;
writeln('S= ',s);
Readln;
end.
, . 10 .
4. n. S=1+1/(1*2)+1/(1*2*3)+....+1/(7!)
:
1.
Program Summa2;
var
s: integer;
begin
s:=1;
s:=s+1/(1*2);
s:=s+1/(1*2*3);
s:=s+1/(1*2*3*4);
writeln('S= ', s);
Readln;
end.
2. i.
Program Summa2;
var
s, i: integer;
begin
s:=1;i:=1;
i:=i*2;
s:=s+1/i;
i:=i*3;
s:=s+1/i;
i:=i*4;
s:=s+1/i;
writeln('S= ',s);
Readln;
end.
3. j.
Program Summa2;
var
s, i, j: integer;
begin
s:=1; i:=1; j:=1;
j:=j+1;
i:=i*j;
s:=s+1/i;
j:=j+1;
i:=i*j;
s:=s+1/i;
j:=j+1;
i:=i*j;
s:=s+1/i;
writeln('S= ',s);
Readln;
end.
4! 3 , 7! 6 .
1. , .
2. 6 .
3. S=1+1/2+1/3+1/4+....+1/10.
4. S=1+(1*2)+ (2*3)+ (3*4)+....+ (9*10).
5. S=1+1/3+ 2/5+ 3/7+....+ 6/13.
6. S=1+1/(1*2)+ 2/(1*2*3)+ 3/4!+....+ 5/6!.
7. 2032 S, .
8. , 15 .
9. 6 .
|
|
|
10. 6 .
11. 8 . .
12. , , 10 , , .
13. n. n.
14. 10 . .
5.
: .
:
¾ for;
¾ repeat;
¾ while;
¾ ;
¾ , .
:
1. , , .
2. .
3. : [4: 6], [7: 6 - 9], [8: 3, 3], [9: 5 - 7].
4. ;
5. .
: 4 5 1 3.
