Hoe Om 'n Pascal-lêer Te Skep

INHOUDSOPGAWE:

Hoe Om 'n Pascal-lêer Te Skep
Hoe Om 'n Pascal-lêer Te Skep

Video: Hoe Om 'n Pascal-lêer Te Skep

Video: Hoe Om 'n Pascal-lêer Te Skep
Video: Паскаль с нуля [ч1]. Первая программа. 2024, Maart
Anonim

Pascal is een van die mees gebruikte programmeertale vanweë sy eenvoud en uitstekende funksionaliteit. Deur middel van Pascal kan u met lêers werk deur dit met behulp van die toepaslike funksies te skep of te verander.

Hoe om 'n pascal-lêer te skep
Hoe om 'n pascal-lêer te skep

Instruksies

Stap 1

Om 'n tekslêer in Pascal te skep, is dit nodig om veranderlikes van die toepaslike tipe in te stel wat in die ooreenstemmende geheue-afdeling geskryf sal word. Om dit te doen, kan u die verskillende funksies van die taal gebruik. Alle data en veranderlikes word geskryf met behulp van die standaard Writeln-bewerking (spesifiseer net 'n addisionele parameter) Program CreateFile;

var textfile: Teks; naamtipe: String; teksstring: String; a, b: heelgetal; Waar tekstbestand 'n tipe veranderlike is Teks wat die naam van die lêer bevat. Naamtipe - die tipe teksinvoer waaraan die string toegeken is. Tekstring is 'n teksstring van die toepaslike tipe. A en b is hulpveranderlikes wat heelgetalle-waardes stoor.

Stap 2

Vra die gebruiker om die gewenste tipe lêertipe in te voer. Dit moet aan die tekstbestand gekoppel word. Writeln self ('Tik die naam van die data tik');

Readln (naamtipe);

Ken (tekstbestand, naamtipe) toe;

Stap 3

Maak die lêer oop om data te skryf en vra die gebruiker om eers die aantal reëls in te voer en dan die inhoud daarvan. Die gegewens sal een vir een in die dokument ingevoer word. Herskryf (tekstbestand);

Writeln ('Tik die aantal snare:');

Lees (b); {veranderlike wat die aantal lyne stoor}

Writeln ('Tik asseblief die toutjies:');

Stap 4

Om 'n vaste aantal reëls te skryf, gebruik 'n lus waarvan die eerste parameter moet ooreenstem met die nommer van die eerste reël van die lêer, in hierdie geval die getal 1. vir a: = 1 tot b doen

begin

Readln (teksstring);

Writeln (tekslêer, tekstring); {lêer skryffunksie}

einde;

Stap 5

Verlaat die lêer en beëindig die program met die toepaslike funksies. Vertoon ook 'n kennisgewing oor die suksesvolle opname. Om probleme met die uitvoer te voorkom, stel 'n tweede readln.close (textfile);

Writeln ('Sukses');

leesln;

Einde.

Stap 6

Die lêer is suksesvol geskep. Stel die script saam en stoor dit in die menu van u programmeeromgewing.

Aanbeveel: