: ,
: TURBO PASCAL 7.1
: ,
: 4 .
:
1. .. Turbo Pascal. . 2- . .: , 2007. . 94-100.
2. .. . . . .: , 2008. . 78-89.
:
1. .
2. .
3. , .
4. .
5. .
Pascal :
;
;
.
: , , .
, , "" ― . , : Pascal , .
, , . , , ; ― - ― .. .
, , ― . , , .
( ) . , toy ( , , ):
type toy = record name: string[20];
price: real;
age: set of 0..18; { }
end;
:
var f: text; c: char; i,j,min,max: integer;
a: array[1..100] of toy;
begin
assign(f,input);
reset(f);
for i:=1 to 100 do
if not eof(f)
then with a[i] do
begin readln(f,name,price,min,max);
age:=[];
for j:= min to max do age:=age+[j];
end;
close(f);...end.
, .
|
|
― . : . : , , :
<_> + <_>*<_>
var , ( ), :
var f1,f2: text; { }
g: file of <__>; { }
in, out: file; { }