break continue, . .
, . break.
, , , . continue, , .
break continue.
Break , , .
Continue , .
:
for n:=1 to 10 do
begin
if n mod 2 = 0 then continue;
if n = 7 then break;
writeln(n);
end;
(- continue). , n 7. : 1, 3, 5.
1_ ( 2.1)
, .. .
, cos(x)+cos(2x)+cos(3x)++cos(7x) k cos(k*x), k 1 7.
, ( , 0).
| FOR , : | While: | Repeat: |
| s:=0; for k:=1 to 7 do s:=s+cos(k*x); writeln( =, s); end. | s:=0; k:=1; while k<=7 do begin s:=s+cos(k*x); k:=k+1; end; writeln( =, s); end. | s:=0; k:=1; repeat s:=s+cos(k*x); k:=k+1; until k>7; writeln( =, s); end. |
2 ( 3)
y(x)=x*2+ 
-10 10 0.5
program f1;
uses crt;
var x,y,a,b,dx:real;
Begin
Clrscr;
Write( :);readln(a);
Write( :);readln(b);
Write( :);readln(dx);
Writeln(-------------------------:20);
Writeln(x:9 | :4, y:4); { }
|
|
|
Writeln(-------------------------:20);
X:=a;
While (x<=b) do
Begin
If (5-x)<0 then Writeln( x:10:3, | :22)
Else
Begin
Y:=x*2+sqrt(5-x);
Writeln(x:10:3, | ,y:7:3);
End;
X:=x+dx;
End;
Writeln(-------------------------:20);readln;
End.
3 ( 4)
( ) , . , , . . , .
