Massiv qiymatlarini biron matn fayliga yozib qo’yish uchun Assign, Rewrite, Append, Write va Close funksiyalari ishlatiladi.
Assign- fayl o’zgaruvchisi bilan asosiy fayl o’rtasida a’loqa o’rnatadi va u quyidagicha yoziladi.
Assign(fayl o’zgaruvchisi, diskdagi fayl joyi va nomi);
Append- Fayldan yozish uchun joy tayyorlayli.
Append(fayl o’zgaruvchisi);
Write- o’zgaruvchi qiymatini fayl o’zgaruvchisiga uzatadi va faylga yozadi. Write(fayl o’zgaruvchisi, o’zgaruvchilar);
Close- ochilgan faylni yopadi. Close (fayl o’zgaruvchisi);
Misol 2. YUqoridagi C: diskdagi AA katalogdagi AB fayldagi ma’lumotlarni A va B massivlarga o’qib shu massiv mos elementlarini qo’shib S massivni tashkil qiling va A,B,C massivlarini ABC nomli faylga joylashtiring.
Fayl ma’lumotlari strukturasi quyilagicha bo’lsin.
i A B C
1 15.2 20.5 45.7
2 20.1 25.5 45.6
. . . . . . . . . . . .
Program FABS;
Type
f=text;
Var
A,B,C: Array[1..100] of Real; i,m: Integer;
fax: f;
Begin
Assign(fax,’c:\AA\AB.txt’); Reset(fax);
m:=0;
While not eof(fax) do
Begin m:=m+1; Readln(fax,A[m],B[m]); End;
Close (fax);
Assign(fax,’c:\AA\ABC.txt’); Rewrite(fax);
Append(fax);
For i:=to m do
Begin Write(fax,i,A[i],b[i],c[i]); Writeln(fax); End;
Close(fax);
End.
S a v o l l a r
Program Proc;
Var a,b,c: Real;
Procedure Maxsimum(x,y: Real; Var z: real);
Begin if x>y Then z:=x Else z:=y End;
Protseduralarning ifodalanishi, protseduraning sarlavxasi (nomi), protseduraning tanasi, formal parametrlar ro`yxati
Protsedura protsedura sarlavxasi (nomi) va tanasidan iborat. Protseduraning sarlavxasi PROCEDURE rezervlashgan suzdan boshlanib, protseduraga nom berilib, kavs ichida xar bir parametrlarning tiplari ko’rsatilgan formal parametrlar ruyxati keltiriladi. Protseduraning nomi - programma chegarasidagi identifikator. Protsedura tanasi strukturasi buyicha dasturga uxshagan lokal blokdan tashkil topadi. Belgi, konstanta, tiplar va boshkalar shu protsedura chegarasida xakikiydir.Protsedura tanasida turli global konstanta va uzgaruvchilar kullanilishi mumkin.
PROCEDURE (Formal parametrlar);
CONST ...;
TYPE ...;
VAR ...;
BEGIN
END;
Misol tarikasida, dastur ishini tuxtatuvchi va mavjud xatolar tugrisida ma’lumot beruvchi protsedurani kurib chikamiz :
PROCEDURE Abort(Msg: string);
BEGIN
Writeln('Xato: ', Msg);
Halt(1);
END;
Protsedura uz-uzidan ishlamaydi , buning uchun protsedurani nomi buyicha chakirib , shu tipdagi bor parametrlarni formal parametrlar kabi ko’rsatib utish kerak.Formal parametrlar tipi va mikdori bor parametrlar mikdoriga teng. Misol sifatida kuyidagi dasturni kurib chikamiz:
PROGRAM DemoProc;
{ Unta kiritilgan butun musbat sonlar yigandisini xisobla, agar kiritlgan son manfiy bulsa, bajarishni tuxtat).
CONST
Limit = 10; { kiritilayotgan sonlar chegarasi }
VAR
Count, Item, Sum: integer; {$I ABORT.PAS } { ABORT.PAS fayli matniga ulanish}
BEGIN
Count:= 0;
Sum:= 0;
WHILE (Count < Limit) DO BEGIN { siklni bajrilish sharti }
Count:= Count+1;
Write('Vvedite ', Count, '-oye butun son: ');
Readln(Item);
IF Item < 0 THEN
Abort('manfiy son kiritilgan'); { protsedurani chakirish }
Sum:= Sum+Item;
END;
Writeln('Kiritlgan sonlar yigindisi ', Sum);
END.
Foydanilgan adabiyotlar
1.I.Qobulov “C++ tili”
2.Sayfiyev J.F “C++ tiliga kirish”uslubiy qo`llanma
3.B.Straustrop “yazik programmiravaniya C++”
4.WWW.C++dastur.uz
|
