pascal modulis

[iesaacejs]

Sveiki, varbut kads varetu man palidzet.Man paskaala moduli vienam vardam japiesprauzh otrs vards.Interneta atradu, ka itka tas butu jadaara, bet paskaals negrib straadat.
Kods man ir shitaads sanacis:


const LenStrMod=255;
LenStrdata=80;

type STRMod = string [LenStrMod];
STRData = string [LenStrdata];
var NumMod : integer;
procedure insert1
( InpStr : STRMod; NameOut, NameIn : STRData; var OutStr : STRMod);

implementation
var ModPos: integer;
procedure insert
(var S:String;NameOut,NameIn:STRData;n:integer);
begin
S:=NameOut;
n:=4;
Insert(S,'NameIn',n);
end;
procedure insert1
( InpStr : STRMod; NameOut, NameIn : STRData; var OutStr : STRMod);
begin
NumMod:=0;
while pos( NameOut, InpStr) > 0 do
begin
ModPos:=pos(NameOut, InpStr);
delete( InpStr, ModPos, length(NameOut) );
insert(S,'NameIn',n);
end;

OutStr:= InpStr;
end;
begin

end.

[101111]

un kaa izskatās programma kurā šis modulis tiek pielietots?

[iesaacejs]

var
InputString: STRMod;
WordOut, WordIn: STRData;
OutputString: STRMod;
begin
writeln('Ievadi analizeejamo rindu');
readln(InputString);
Writeln(' Analizejam rindu');
writeln(InputString);
writeln('ievadi vardu kuram pievienot citu vardu');
readln(WordOut);
writeln('ievadi vardu kuru iespraust');
readln(WordIn);
sprauzam( InputString, WordOut, WordIn, OutputString);
Writeln( ' Apstradajama un rezultejosaa rinda');
writeln( InputString );
writeln( OutputString);
writeln( 'Ir izslegti ', NumMod, ' varda ', WORDOut,' ieklavumi');
writeln( ' Nospied ENTER');
readln;

[Ēriks Klotiņš]

Paskāla moduļiem ir šāda struktūra:

Kods:

unit {moduļa vārds, jāsakrīt ar faila nosaukumu};

interface

{publiskie mainīgie, publisko funkciju headeri }

implementation

{funkciju implementācija, privātās lietas}

end.

Apskaties vai tavs kods atbilst šim paraugam

[iesaacejs]

unit 3labors;
Interface

Nu shis divas lietas man ir pasha sakuma, aizmirsu iekopet

[Ēriks Klotiņš]

Un kāds tad ir kļūdas paziņojums?

[iesaacejs]

Error : Wrong number of parameters specified for call to "ins"

[Ēriks Klotiņš]

Tagad paskatījos kārtīgāk Tavu kodu:

Lai savienotu 2 stringus lieto funkciju Concat
http://www.macdonald.egate.net/CompSci/P...rings.html

Kapēc tur vajag vēl savu moduli rakstīt, es nezinu, bet neiedziļinoties visā pārējā:

Kods:

var ModPos: integer;
procedure insert {funkcija insert jau ir definēta paskālā, neesmu drošs, ka vinu drīkst tā vienkarši pārdefinēt }
(var S:String;NameOut,NameIn:STRData;n:integer);
begin
S:=NameOut;
n:=4;
Insert(S,'NameIn',n); {Šeit rekursija nav jālieto nekādā gadījumā }
end;

Ja gribi izmantot pašrakstītus moduļus, tad galvenajā failā sākumā jāraksta

Kods:

uses <mans modulis>;

[iesaacejs]

(09.04.2010 11:48 )Ēriks Klotiņš rakstīja:  Tagad paskatījos kārtīgāk Tavu kodu:

Lai savienotu 2 stringus lieto funkciju Concat
http://www.macdonald.egate.net/CompSci/P...rings.html

Kapēc tur vajag vēl savu moduli rakstīt, es nezinu, bet neiedziļinoties visā pārējā:

Kods:

var ModPos: integer;
procedure insert {funkcija insert jau ir definēta paskālā, neesmu drošs, ka vinu drīkst tā vienkarši pārdefinēt }
(var S:String;NameOut,NameIn:STRData;n:integer);
begin
S:=NameOut;
n:=4;
Insert(S,'NameIn',n); {Šeit rekursija nav jālieto nekādā gadījumā }
end;

Ja gribi izmantot pašrakstītus moduļus, tad galvenajā failā sākumā jāraksta

Kods:

uses <mans modulis>;

Sk, paldies par informaciju, vnk interneta mekleju jau pasha sakuma to ka apvienot 2 stringus un atradu tikai insert variantu

Tagad tik jaizdoma ka to visu iemaukt koda

[Ēriks Klotiņš]

Sāc no vienkāršākā gala, uztaisi pascal programmiņu, kas dara to ko Tev vajag. Pēc tam visas funkcijas un pāŗējo ieliksi modulī.