17-tema. Paskalda fayllar menen islew reje

4-mısal. S logikalıq disktaǵı «15.pas» faylınan 10 sanı oqıp olardıń kvadratların monıtorda sáwlelendiriwshi programma jaratıń.
uses crt;
var f:text;
x, i:integer;
begin
assign ( f, 'c:/15. txt');
reset (f); clrscr;
for i:=1 tap 10 do
begin
read (f, x);
writeln (i, '-dıń kvadtati ', sqr (x), ' ga teń');
end;
close (f);
end.
Programma nátiyjesi:



Fayldan oqılıwında fayldıń aqırın anıqlawshı EOF (f) logikalıq funksiyasınan paydalanıwǵa mısal keltiremiz. Onıń ushın siz tómendegi sıyaqlı sinfdoshlaringizni 4 pánnen alǵan test nátiyjelerin sáwlelendiriwshi «15. txt» hújjetti jaratıp kerekli orında saqlawıńız zárúr.



5-mısal. Oqıwshılardıń 4 pánnen alǵan nátiyjelerin fayldan oqıp, hár bir o'kuvchining famılıyası hám balları jıyındısın ekranda baspadan shıǵarıwshı programma jaratıń.
Programma kórinisi:
uses crt;
var f:text;
fam:string;
a, b, c, d:integer;
begin
assign ( f, 'c:/15. txt');
reset (f); clrscr;
while not eof (f) do

begin
readln (f, fam, a, b, c, d);

writeln (fam, a+b+c+d);
end;
close (f);
end.
(programmanı ǵárezsiz atqarıp, juwmaq shıǵarıń )

Ǵárezsiz atqarıp kóriń.

1.
var f:text;
x, i:integer;
begin
mk bolıp tabıladı ('c:/v1');{yangi katalog ashıw ushın}
assign ( f, 'c:/v1/12. txt');
rewrite (f);
writeln (f, sqrt (2011));
close (f);
end.
2.
var f:text;
x, i:integer;
begin
assign ( f, 'c:/v1/12. txt');
rewrite (f);
writeln (f, sqrt (2011));
close (f);
rename (f, 'c:/v1/y1. txt');
end.
Bekkemlew ushın sorawlar :
1. Fayl túrdegi to'zgaruvchi degende neni tushinasiz?
2. Paskalda tekstli fayldı ańlatiwshı xizmetker sózdi aytıń.
3. Assign operatorı wazıypasın aytıp beriń.
4. Rewrite operatorı wazıypasın aytıp beriń.
5. Rewrite operatorı menen ashılıp atırǵan fayl sırtqı yadta aldınan ámeldegi bolsa qanday xodisa júz beredi?
6. Close operator ne ushın qollanıladı?
7. Append procedurasın wazıypasın aytıp beriń.
8. Fayl daǵı maǵlıwmatlardı ashıw ushın qaysı operator járdeminde ashıladı.
9. EOF funksiyasın wazıypasın aytıp beriń.

ASOSIY ADABIYOTLAR:

1. Slinkin D. A. Osnovi programmirovaniya na Turbo-Paskale: Uchebno-metodicheskoe posobie dlya studentov vuzov. Shadrinsk: Izd-vo Shadrinskogo pedinstituta, 2003.- 90 -97 cs.
2. Faronov V. V. Turbo Pascal. — SPb.: VXV- Sankt-Peterburg, 2004.- 1056 c. (129 -150 cc)
3. M. Ol. Ashurov, N. D. Xatkerxmedova. Turbo Pascal programmalastırıw tili. (stilistik qóllanba ), Tashkent TDPU - 2011 (95-101)