3
PascalABC
. PascalABC
2. . .., ..
3. . PascalABC.
. .
.
5.1. , .
5.2. PascalABC.
6. .
, PascalABC.
1. PascalABC . PascalABC.
2. → . ( F5).
3. .
4. :
Program Summ;
var
i,n,s:integer;
begin
write ('n=');
readln(n);
s:=0;
for i:=1 to n do
s:=s+i;
writeln('s=',s)
end.
5. Primer1. → () , Primer1.
6. Primer1 → . ( F9). n= 10. , 10 enter. S=55.
7. → .
8. n= 15. (S=120)
PascalABC.
1. . i for i:=1 to n do k. .
2. : : . . .
3. . :
4. PascalABC . , Program files, PABC.
5. DMpp3 enter. . (F9). .
6. . RBcc2 enter. .
7. .
8. Primer1. .
|
|
.
1. . . .
2. .
3.
4. i enter.
5. s.
6. → .
7. F8. n=5. S=15.
8. . .
.
1. , :
Program Exponent;
Var
I:integer;
X,Y,X1,X2: real;
begin
Writeln (' EXP(-(X))');
Writeln;
Writeln (' : X1,X2');
Readln(X1,X2);
for I:=1 to 10 do
begin
X:=X1+(X2-X1)*(I-1)/9;
Y:=Exp(-Abs(X));
Writeln(Y);
end;
end.
2. Primer2.
3. X1=2, X2=5.
4. , . Primer3.
Program Search;
const
N=10;
a:array[1..n] of byte=(3,8,7,1,8,1,4,5,8,13);
var
X, Numx, I, C:byte;
begin
writeln(' : ');
for i:=1 to N do write (A[I],' '); writeln;
writeln(' ');
readln(X);
Numx:=0;
C:=0;
for i:=1 to N do
begin
if A[I]=X then
begin
Numx:=I;
writeln(' ', Numx);
C:=C+1;
end;
end;
if C=0 then writeln(' ')
end.
5. : 5, 15, 8.
6. ,
, , .
Program Fun;
Uses GraphABC,CRT;
var
x1,y1,i,j,x2,y2:integer;
x,y,y21:real;
begin
line (50,200,550,200);
line (300,20,300,350);
line (290,30,300,20);
line (310,30,300,20);
line (540,190,550,200);
line (540,210,550,200);
x:=-40;
while x<=40 do
begin
y:=(x*x);
x1:=round(x);
y1:=round(y);
x:=x+1;
y21:=(x*x);
x2:=round(x);
y2:=round(y21);
line(300+x1*10,200-y1, 300+x2*10,200-y2)
end;
end.
7. .
7.1. Primer1, Primer2, Primer3.
.
8.1. PascalABC.
8.2. .
8.3. .
8.4. .
.
F9. .
, , , . , , , " ".
|
|
Ctrl-F2 .
. ( ) F8 ( ), F7 ( ). F4 .
, , Ctrl-F2 . , , F9.
, F4 , .
. .
Ctrl-F5 . Ins. , , .. ( , .. ).
/ Ctrl-Shift-W.
Del .
.
Ctrl-Del .
, , "" " ".
Pascal ABC SynEdit (web- http://SynEdit.SourceForge.net).
F2, Ctrl-S - .
F3, Ctrl-O - .
F12 - .
Ctrl-Shift-S - .
Ctrl-Shift-0... Ctrl-Shift-9 - 0...9.
Ctrl-0... Ctrl-9 - 0...9.
Ctrl-Tab, Ctrl-Shift-Tab - / .
Ctrl-Shift-I - .
Ctrl-Shift-U - .
. write writeln, .
. F5 / . Esc.
.
Ctrl-Del .
read readln :
- .
Enter , , .