Results 1 to 6 of 6
Hybrid View
-
15th June 2005 09:41 #1
. . :
, . : , ,, , (,,), . .
. : 2 .
. , :
. .
. , .
. .
. .
. .
.
-
15th June 2005 10:14 #2
.
:
)
)
)
) .-.: XaMaB; . 0.42
In God we Trust (all others must submit a X.509 certificate). , ()
-
15th June 2005 10:29 #3
-
15th June 2005 11:02 #4
- :
type kola = record
...
end;
type masiv = array [1..100] of kola;
. blockread/blockwrite. help- Borland Pascal
,
, . .
"640K ught to be enough for anybody" - Bill Gates, 1981
::Machine specs::Fract::AGG::::Baileys::blog::YouTube channel
-
15th June 2005 15:07 #5
anrieff:
type
kola = record
regno : string[8];
serno : < >;
model : string[20];
color : string[20];
owner: string[40];
end;
fail = file of kola;
masiv = array [1..100] of kola;
var
mas: masiv;
koli : fail;
car : kola;
, , assign, reset read(koli,car);
:
. , : while not eof(koli) and (copy(regno,length-2,2)=< >) do read(koli,car);
if eof(koli) then < > else < >
. ...
. count:=0;while not eof(koli) do begin
read(koli,car);
if car.model=< > then inc(count)
end
writeln(count);
. while not eof(koli) do begin
read(koli,car);
if car.=< > then < >
end
. - , . , -
. car
while not eof(koli) do read(koli,car);
write(koli,car);
. ... ... - SQL-
", -"
- -...
-
16th June 2005 16:30 #6




Reply With Quote
7th May 2023, 16:02 in PC