ßê ñòâîðèòè ôàéë â ïàñêàëå
Ïàñêàëü º îäíèì ç íàéïîøèðåí³øèõ ìîâ ïðîãðàìóâàííÿ çàâäÿêè ñâî¿é ïðîñòîò³ ³ âåëèêèé ôóíêö³îíàëüíîñò³. ×åðåç Ïàñêàëü ìîæíà çä³éñíþâàòè ðîáîòó ç ôàéëàìè, ñòâîðþþ÷è àáî çì³íþþ÷è ¿õ çà äîïîìîãîþ â³äïîâ³äíèõ ôóíêö³é.
1
Äëÿ ñòâîðåííÿ òåêñòîâîãî ôàéëó â Ïàñêàëü íåîáõ³äíî çàäàòè çì³íí³ â³äïîâ³äíîãî òèïó, ÿê³ áóäóòü çàïèñóâàòèñÿ â â³äïîâ³äíèé ðîçä³ë ïàì`ÿò³. Ùîá öå çä³éñíèòè ìîæíà ñêîðèñòàòèñÿ ð³çíèìè ôóíêö³ÿìè ìîâè. Âñ³ äàí³ òà çì³íí³ çàïèñóþòüñÿ çà äîïîìîãîþ ñòàíäàðòíî¿ îïåðàö³¿ Writeln (äîñèòü çàäàòè äîäàòêîâèé ïàðàìåòð) .Program CreateFile;
var textfile: Text- nametype: String- textstring: String- a, b: integer-Äå textfile - çì³ííà òèïó Text, ùî ì³ñòèòü â ñîá³ ³ì`ÿ ôàéëó. Nametype - òèï ââåäåííÿ òåêñòó, ÿê³é ïðèñâîþºòüñÿ String. Textstring - òåêñòîâèé ðÿäîê â³äïîâ³äíîãî òèïó. A ³ b º äîïîì³æíèìè çì³ííèìè, ÿê³ çáåð³ãàþòü öåëî³ñ÷³ñëÿåìèå öèôðîâ³ çíà÷åííÿ.
var textfile: Text- nametype: String- textstring: String- a, b: integer-Äå textfile - çì³ííà òèïó Text, ùî ì³ñòèòü â ñîá³ ³ì`ÿ ôàéëó. Nametype - òèï ââåäåííÿ òåêñòó, ÿê³é ïðèñâîþºòüñÿ String. Textstring - òåêñòîâèé ðÿäîê â³äïîâ³äíîãî òèïó. A ³ b º äîïîì³æíèìè çì³ííèìè, ÿê³ çáåð³ãàþòü öåëî³ñ÷³ñëÿåìèå öèôðîâ³ çíà÷åííÿ.
2
Çàïðîïîíóéòå êîðèñòóâà÷åâ³ ââåñòè òèï ïîòð³áíîãî ôàéëó nametype. Éîãî íåîáõ³äíî ïîâ`ÿçàòè ç ñàìèì ôàéëîì textfile.Writeln ( `Please, type the name of data typing`);
Readln (nametype);
Assign (textfile, nametype) -
Readln (nametype);
Assign (textfile, nametype) -
3
³äêðèéòå ôàéë äëÿ çàïèñó äàíèõ ³ çàïðîïîíóéòå êîðèñòóâà÷åâ³ ââåñòè ñïî÷àòêó ê³ëüê³ñòü ðÿäê³â äëÿ çàïèñó, à ïîò³ì ¿õ âì³ñò. Äàí³ áóäóòü ïî ÷åðç³ âíîñèòèñÿ â ñàì äîêóìåíò.Rewrite (textfile);
Writeln ( `Type numbers of strings:`);
Readln (b) - {çì³ííà, ÿêà çáåð³ãຠê³ëüê³ñòü ðÿäê³â}
Writeln ( `Please, type the strings:`) -
Writeln ( `Type numbers of strings:`);
Readln (b) - {çì³ííà, ÿêà çáåð³ãຠê³ëüê³ñòü ðÿäê³â}
Writeln ( `Please, type the strings:`) -
4
Äëÿ çàïèñó ô³êñîâàíî¿ ê³ëüêîñò³ ðÿäê³â ñêîðèñòàéòåñÿ öèêëîì, ïåðøèé ïàðàìåòð ÿêîãî ïîâèíåí â³äïîâ³äàòè íîìåðó ïåðøîãî ðÿäêà ôàéëó, â äàíîìó âèïàäêó öèôð³ 1.for a: = 1 to b do
begin
Readln (textstring);
Writeln (textfile, textstring) - {ôóíêö³ÿ çàïèñó â ôàéë}
end-
begin
Readln (textstring);
Writeln (textfile, textstring) - {ôóíêö³ÿ çàïèñó â ôàéë}
end-
5
Çàâåðø³òü ðîáîòó ç ôàéëîì ³ çàê³í÷èòå ïðîãðàìó âèêîðèñòàííÿì â³äïîâ³äíèõ ôóíêö³é. Òàêîæ âèâåä³òü ïîâ³äîìëåííÿ ïðî óñï³øíó çàïèñè. Ùîá óíèêíóòè ïðîáëåì ç âèâåäåííÿì âèñòàâòå ïîâòîðíèé readln.close (textfile);
Writeln ( `Success`);
readln;
End.
Writeln ( `Success`);
readln;
End.
6
Ôàéë óñï³øíî ñòâîðåíèé. ³äêîìï³ëþéòå ³ çáåðåæ³òü ñêðèïò ÷åðåç ìåíþ âèêîðèñòîâóâàíîãî ñåðåäîâèùà ïðîãðàìóâàííÿ.
Ñòàòò³ çà òåìîþ "ßê ñòâîðèòè ôàéë â ïàñêàëå"
Îö³í³òü, áóäü ëàñêà ñòàòòþ