Add Papers Marked0
Paper checked off!

Marked works

Viewed0

Viewed works

Shopping Cart0
Paper added to shopping cart!

Shopping Cart

Register Now

internet library
Atlants.lv library
FAQ
14,20 € Add to cart
Add to Wish List
Want cheaper?
ID number:354069
 
Evaluation:
Published: 09.02.2007.
Language: English
Level: Secondary school
Literature: n/a
References: Not used
Extract

Type
Product = record
Name:string;
Number:integer;
End;
My_text = file of string[80];
Var
F1: file of char;
F2 : text;
F3: file;
F4: my_text;
F5: file of product;

Piemērs 1.

Var
F: file;
Begin
Assign(f, ‘c: fails1.bat’); {faila inicializācija}
Reset(f, 1); (atver failu lasīšanai)
Writeln(‘Faila lielums ir ’, filesize(f));
Close(f); {aizver failu}
End.

Piemērs 2.
Var
F:text;
P:char;
Begin
Assign(f, ‘tests.dat’); { faila inicializācija }
Reset(f); { atver failu lasīšanai }
While not eof(f) do {kamēr neatrod faila beigas}
Begin
Read(f, p); {nolas datus līdz rindas beigām}
Write(p); {ieraksta failā noteiktu mainīgo}
End;
End.

Piemērs 3.
Var
f1, f2: text;
p:string;
Begin

Author's comment
Load more similar papers

Atlants

Choose Authorization Method

Email & Password

Email & Password

Wrong e-mail adress or password!
Log In

Forgot your password?

Draugiem.pase
Facebook

Not registered yet?

Register and redeem free papers!

To receive free papers from Atlants.com it is necessary to register. It's quick and will only take a few seconds.

If you have already registered, simply to access the free content.

Cancel Register