:
: , .
. . , . , :
;
;
;
;
;
;
.
- .
:
1) , ;
2) ( , );
3) .
, :
type
< > = file of < >;
< > = text;
< > = file;
< > ( );
< > , .
, :
type student = record
mark:string(10);
fiz,mat,pr: integer;
end;
text1 = file of string[80];
var f1: file of char;
f2: text;
f4: text1;
f3: file of student;
f6: file;
(text) , (file of) (file). .
, , . . .
input () output (). . . .
assign:
assign(<..>,< .->)
<..> ;
< . -> , . , assign(f,''), input output.
|
|
:
reset (<..>);
<..> .
: , , , .. .
:
rewrite(<..>);
rewrite . (.. , ) .
: read, readln write, writeln . :
Write(f,x1,x2,x3) f x1,x2,x3. 1, 2, 3 (, , , ) f, , write. .
" " (end of file). eof(f), , f. eof(f) true, ; eof(f) false.
eoln(f) , (end of line) , f. . eoln(f) true, " ". "".
Close(f) , f. close .
append(f) , f, .
:
- ;
- , , ;
- -;
- .
. , f, .
program pr1;
{ , .}
var f:text;{ p}
a:real;{p p}
k:integer;{ }
begin
assign(f,'f.dat');
reset(f); {p }
while not eof(f) do { }
begin
read(f,a);{ }
if a>0 then k:=k+1; { }
|
|
if eoln(f) then readln(f);{ p, p p }
end;
writeln('k=',k);
end.
: , . ASCII .
program pr2;
var oldf,newf:text;{ p p }
oldn,newn:string;{p p, p }
line:string;{p p p p p}
c:integer;{p }
begin
writeln(' p ');
readln(oldn);
writeln(' ');
readln(newn);
assign(oldf,oldn);
assign(newf,newn);
reset(oldf); {p p }
rewrite(newf); {p }
while not eof(oldf) do
begin
readln(oldf,line);{ p p }
for c:=1 to length(line) do {p p}
if ord(line[c])=255 then line[c]:=chr(0)
else
line[c]:=succ(line[c]);
writeln(newf,line); {p p }
end;
close(oldf);
close(newf);
end.
, . : , , , . c .
, . ; 10 ( , ), .
program pr3;
type student = record
fam:string[10];
fiz,mat,prog:byte;
end;
var ved: student;{ }
k:integer;{ }
ss,{ }
sg,{ }
max:real;{ }
f4:text;{ }
maxfam:string[10]; { }
begin
assign (f4,'f4.dat');
reset (f4);{ }
sg:=0;k:=0;max:=0;
while not eof (f4) do { }
with ved do
begin
read (f4,fam); { }
readln (f4,fiz,mat,prog);
ss:=(fiz+mat+prog)/3; { }
if ss>max then { }
begin { }
max:=ss;
maxfam:=fam;
end;
sg:=sg+ss;
k:=k+1
end;
sg:=sg/k;
writeln(' =',sg);
writeln(' ', maxfam)
end.
, : , . , , .
1. .
1.1. f. , 6 .
1.2. . g f '0' '1' .
1.3. f. . , .
1.4. . f g, . .
1.5. s. f, s.
1.6. f. , . f1.
|
|
1.7. f, , :
...
g, :
..
..
...
1.8. . .
1.9. . , .
1.10. . , , , k .
1.11. . , , , k .
1.12. . , , k .
2. .
2.1 : , , . . .
2.2. : , , , . . .
2.3. : , , , . . , .
2.4. : , , , . , 180 . . , .
2.5. : , 1, 1, 2, 2). . ( 4 ).
2.6. : , , , . . .
2.7. : , , , . . .
2.8. : , , , , , . . .
2.9. : , , , . . , .
2.10. : , , , , . . .
2.11. : , , , , , . . .
2.12. : , , , , . . , .