Паскаль - жөнөкөйлүгү жана чоң функционалдуулугу менен кеңири колдонулган программалоо тилдеринин бири. Паскаль аркылуу сиз тийиштүү функцияларды колдонуу менен файлдарды түзүү же өзгөртүү жолу менен иштей аласыз.
Нускамалар
1 кадам
Паскаль тилинде тексттик файлды түзүү үчүн тийиштүү типтеги өзгөрүлмөлөрдү орнотуу керек, алар тиешелүү эстутум бөлүмүнө жазылат. Бул үчүн тилдин ар кандай функцияларын колдонсо болот. Бардык маалыматтар жана өзгөрүлмөлөр стандарттык Writeln операциясынын жардамы менен жазылат (кошумча параметрди көрсөтүү жетиштүү). Program CreateFile;
var textfile: Text; аталышы: String; textstring: String; a, b: integer; Бул жерде textfile - файлдын атын камтыган Text түрүндөгү өзгөрмө. Nametype - String дайындалган текст киргизүү түрү. Textstring - тиешелүү типтеги тексттик сап. А жана b - бул бүтүндөй сандык баалуулуктарды сактоочу жардамчы өзгөрмөлөр.
2-кадам
Колдонуучуну каалаган файл түрүн киргизүүгө түрткү бериңиз. Аны textfile. Writeln өзү менен байланыштыруу керек ('Сураныч, дайындардын атын териңиз');
Readln (аты-жөнү);
Дайындоо (тексттик файл, аты-жөнү);
3-кадам
Берилиштерди жазуу үчүн файлды ачыңыз жана колдонуучудан алгач жазылуучу саптардын санын, андан кийин алардын мазмунун киргизиңиз. Маалыматтар документтин өзүнө бир-бирден киргизилет. Кайра жазуу (текст файлы);
Writeln ('Саптардын түрлөрүнүн түрү:');
Readln (b); {саптардын санын сактаган өзгөрмө}
Writeln ('Сураныч, саптарды териңиз:');
4-кадам
Белгиленген бир катар саптарды жазуу үчүн, циклди колдонуңуз, анын биринчи параметри файлдын биринчи сабынын номерине дал келиши керек, бул учурда а: = 1 ден bге чейин 1. саны
баштоо
Readln (textstring);
Writeln (textfile, textstring); {файл жазуу функциясы}
аягы;
5-кадам
Файлдан чыгып, ылайыктуу функцияларды колдонуу менен программаны бүтүрүңүз. Ошондой эле ийгиликтүү жаздыруу жөнүндө билдирүү көрсөтүңүз. Чыгууда көйгөйлөрдү болтурбоо үчүн, экинчи readln.close (textfile) орнотуңуз;
Writeln ('Ийгилик');
readln;
Аягы.
6-кадам
Файл ийгиликтүү түзүлдү. Программалоо чөйрөсүнүн менюсу аркылуу сценарийди түзүңүз жана сактаңыз.
