Jump to content
KSO.lv Forums

BLOGGED

Sign in to follow this  
  • entries
    2
  • comments
    3
  • views
    1879

Ceturtdiena

Sign in to follow this  
blind

645 views

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 :)

Sign in to follow this  


2 Comments


Recommended Comments

pameklē - moš paskālā ir trim() funkcija kā php, par ko es smagi šaubos. ir jau iespēja likt pilnu dirsu ar or, vai arī kāda funkcija, kuru es esmu aizmirsis, piecus gadus no vietas spēlējot cs un vairs domājot tikai ar kreiso smadzeņu puslodi.

Share this comment


Link to comment

Nē, vispār beigās sanāca diezgan viegli. Mainījās ļoti maz kas. Šādi bija jāizmaina:

sk:=0;
b:='a';
repeat
read (t,i);
write (i);
if (i=' ') and (b<>' ') then sk:=sk+1; b:=i;
if (e='a') or (e='u') or (e='p')

Kautgan, ja runā godīgi, es nesapratu, ko es tur izdarīju, bet viss strādā :)

Share this comment


Link to comment

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 account

Sign in

Already have an account? Sign in here.

Sign In Now

About us

KSO.LV is a gaming community which started in early 2003. Our goal is to make sure to provide you a low latency server with cool game modes to give every player the best gaming experience.

 

 

Get in touch

facebook feed

Recent tweets

Follow us

×

Important Information

To continue using KSO.LV, you’ll need to agree to the updated Terms, Privacy Policy, and Cookie use.  Privacy Policy Terms of Use. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.