Ceturtdiena
Pamodos ~00:20, visu nakti zadrotoju warcraft 3 TFT, aizgāju uz skolu, sēžu tagad jau 7. stundu. Diezgan sūdaina diena, ja ņem vērā, ka neesmu dabūjis nevienu atzīmi, bet varbūt arī labi, jo tas varētu būt 2.. Atrodos programmēšanas stundā, kā vienmēr īsti darīt nav ko, bišk jāpalauza galva pie tā paskāla, vienvārdsakot uzdošu jums uzdevumu. Dota programma (pareizāk gan, manis taisīta):
program burti;
uses crt;
var t:text;
i,b:char;
sk:integer;
begin
clrscr;
writeln;
assign (t, 'H:\teksts.txt');
reset (t);
repeat
read (t,i);
write (i);
if i=' ' then sk:=sk+1;
until Eof(t);
writeln; writeln;
writeln ('Faila ir ' ,sk, ' vardi');
close (t);
readln;
end.
Programma atver doto .txt failu un saskaita cik ir vārdu, bet šī programma strādā tikai, ja lietots viena atstarpe starp vārdiem. Tātad man vajag, lai tā strādātu arī kad lietotas vairākas. Mainīt var visu, ka tik strādātu, bet varu pačukstēt, ka jāpievieno un jāizmaina 1-2 rindiņas. Pašlaik es atbildi nezinu, ja uzzināšu, tad kautkad uzrakstīšu pareizo atbildi, ja tomēr neuzzināšu un kāds to izveidos pareizi, paldies
2 Comments
Recommended Comments
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now