:
1. .
2. .
3. .
, , . , , , .
, . - , . , , .
- . , , a, b c . , a, b, c x1, x2 ( ), , ( ), .
, :
- ;
- ;
- .
.
- , , , . : ( ).
.
.
- ( ), .
( ) ( Var) Begin, , .. :
Program
Const
Var
.....
_1;
.....
_n;
Begin { }
......
End.
:
Procedure (_); { }
;
Begin
; <=
End;
, , . , End , End . - .
|
|
- , , . . , . ( ;). . , , . , , var.
- , .
. , n , .
Procedure GorLine(n: Integer; Sim: char);
{ Sim}
Var
i: Integer;
Begin
For i:=1 To n Do
Write(Sim);
End;
n Sim - , ; i - .
. , , , .
Equation. a, b c, - x1 x2 ( ). , "" ( , ) d, :
procedure Equation(a,b,c:real; var x1,x2:real);
var d:real;
begin
d:=sqr(b)-4*a*c;
if d>=0 then begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
end;
end;
, x1 x2 , . , , :
var a,b,c,x1,x2,x3,x4:real;
...
write(' a,b,c:');
read(a,b,c);
Equation(a,b,c,x1,x2);
ax2+bx+c=0, a, b, c, , , , x1 x2.
:
Equation(1,4,-3.5,x3,x4);
x2+4x-3.5=0, x3 x4.
, . : , . , , , , . , Equation , . ( var), ( ).
|
|
.
- ( ), , . . . , : .
.
Program...;
Const
...
Var
...
_1;
.....
_n;
Begin { }
.....
End.
, . . , :
Function (_): _;
;
Begin
....
:=;
....
End;
- . , . , . .
, , -. . , , . ( ) , . , . , , .
.
{ 10 }
var i: byte;
f: integer;
function factorial (n: byte): integer;
var i: byte;
f: integer;
begin
f:=1;
for i:=1 to n do
f:=f * i;
factorial:=f;
end;
begin
for i:=1 to 10 do
begin
f:=factorial(i);
writeln(f);
end;
end.
(. ).
. .
, , . , writeln , sin - . . , help- ( ).
7.
:
1. .
2. .
. : , .
( ) , , .
.
- , . .
Pascal ABC .
.
: , , , (end of line).
|
|
text:
var f: text;
. , . , :
assign (f,'_');
f - .
. :
assign (f,'data.txt');
data.txt .
. - , ( , , ) . :
reset (f); - ;
rewrite (f); - ;
append (f); - .
read, readln, write writeln, :
var a,b,c:real; f1,f2:text;
begin
assign (f1,'read.txt');
assign (f2,'write.txt');
reset (f1);
{ read.txt ,}
rewrite (f2);
{ write.txt }
read (f1,a,b);
{ 2 read.txt}
c:=(a+b)/2;
writeln (f2,c:6:2); { c
write.txt}
, , :
close(f); - , f.
. , , :
Eof(f) - true, ;
Eoln(f) - true, .
, .
var f,w:text;
a: array[1..5] of integer;
i: integer;
begin
assign(f,'data.txt');
reset(f);
for i:=1 to 5 do read (f,a[i]);
close(f);
assign(w,'result.dat');
rewrite(w);
writeln(w,':');
for i:=1 to 5 do
writeln (w,a[i]:5,sqr(a[i]):5);
close(w);
end.
data.txt , , :
1 2 3
4 5
result.dat :
:
1 1
2 4
3 9
4 16
5 25
.
, .
Var :
Var
: File Of _ ;
.
var f2: file of real;
, .
Read Write , , , , . ,
|
|
.
FileSize , , FilePos .
. , , 1 10 :
var f:file of real;
r:real;
begin
assign(f,'real.dat');
rewrite(f);
r:=1;
while r<11 do
begin
write(f,r);
r:=r+1;
end;
close(f);
end.
1. http://infobz.narod.ru
2. :
/ . JI. , . . . .: , 2010. - 496 .
3. . Turbo Pascal 7.0. . / . . , . . . .: +, 2003. 464 .