როგორ შევქმნათ Pascal ფაილი

2024 ავტორი: Timothy Dodson | [email protected]. ბოლოს შეცვლილი: 2023-12-16 06:51

პასკალი ერთ – ერთი ყველაზე ხშირად გამოყენებული პროგრამირების ენაა სიმარტივისა და შესანიშნავი ფუნქციონირების გამო. პასკალის საშუალებით შეგიძლიათ ფაილებთან მუშაობა შესაბამისი ფუნქციების გამოყენებით ან შექმნით.

ინსტრუქციები

Ნაბიჯი 1

Pascal- ში ტექსტური ფაილის შესაქმნელად აუცილებელია შესაბამისი ტიპის ცვლადების დაყენება, რომლებიც დაიწერება შესაბამისი მეხსიერების განყოფილებაში. ამისათვის შეგიძლიათ გამოიყენოთ ენის სხვადასხვა ფუნქციები. ყველა მონაცემი და ცვლადი იწერება Writeln სტანდარტული ოპერაციის გამოყენებით (უბრალოდ მიუთითეთ დამატებითი პარამეტრი). პროგრამა CreatFile;

var textfile: ტექსტი; სახელის ტიპი: სიმებიანი; textstring: სიმებიანი; a, b: მთელი რიცხვი; სადაც textfile არის ტიპის ცვლადი, რომელიც შეიცავს ფაილის სახელს. Nametype - ტექსტის ტიპის ტიპი, რომელსაც სტრიქონი ენიჭება. Textstring არის შესაბამისი ტიპის ტექსტური სტრიქონი. A და b არის დამხმარე ცვლადი, რომლებიც ინახავს მთელი რიცხვითი მნიშვნელობებს.

ნაბიჯი 2

შეეკითხეთ მომხმარებელს, შეიყვანოს სასურველი ფაილის ტიპი. ეს უნდა იყოს მიბმული ტექსტურ ფაილთან. თვითონ Writeln ("გთხოვთ, აკრიფოთ მონაცემთა აკრეფის სახელი");

Readln (სახელის ტიპი);

მინიჭება (ტექსტური ფაილი, სახელის ტიპი);

ნაბიჯი 3

გახსენით ფაილი მონაცემთა დასაწერად და შეეკითხეთ მომხმარებელს, რომ შეიყვანოს წერის ხაზების რაოდენობა, შემდეგ კი მათი შინაარსი. მონაცემები სათითაოდ შეიტანება დოკუმენტში. გადაწერა (textfile);

Writeln ('სტრიქონების ტიპების რაოდენობა:');

Readln (ბ); {ცვლადი, რომელიც ინახავს სტრიქონების რაოდენობას}

Writeln ('გთხოვთ, აკრიფოთ სიმები:');

ნაბიჯი 4

ხაზების ფიქსირებული რაოდენობის დასაწერად გამოიყენეთ მარყუჟი, რომლის პირველი პარამეტრი უნდა შეესაბამებოდეს ფაილის პირველი სტრიქონის რაოდენობას, ამ შემთხვევაში რიცხვი 1. ამისთვის a: = 1 to b

დაიწყოს

Readln (ტექსტური სტრიქონი);

Writeln (ტექსტური ფაილი, ტექსტური სტრიქონი); {ფაილის ჩაწერის ფუნქცია}

დასასრული;

ნაბიჯი 5

გამოდით ფაილიდან და დაასრულეთ პროგრამა შესაბამისი ფუნქციების გამოყენებით. ასევე აჩვენეთ შეტყობინება წარმატებული ჩაწერის შესახებ. გამოცემის პრობლემების თავიდან ასაცილებლად დააყენეთ მეორე readln.close (textfile);

Writeln ('წარმატება');

readln;

Დასასრული.