Fantasya

Nesakei, kad ir antrą žodį reiks nuskaityt. :D Na tai kiekvienoj eilutėj gali kopijuot, pirmą žodį nuo pradžios iki tarpo pozicijos, antrą žodį nuo tarpo pozicijos iki eilutės galo. Taigi betkokiom eilutėm tinka:

nauja_eilute:=copy(eilute,1,pos(' ',eilute)); // čia nukopijuosim pirmą žodį nauja_eilute2:=copy(eilute,pos(' ',eilute),length(eilute));

type Rekordas = record pirmas, antras : integer; vardas, pareigos : string; end; Masyvas = array[1..6] of Rekordas; procedure input (var data : Masyvas); var fin : text; nr, id, i : integer; curr, line : string; begin assign (fin, 'data.in'); reset (fin); nr := 0; while not eof(fin) do begin inc (nr); ReadLn (fin, line); id := 1; curr := ''; for i := 1 to length(line) do if line[i] <> ' ' then curr += line[i] else case id of 1 : begin val (curr, data[nr].pirmas); curr := ''; inc (id); end; 2 : begin val (curr, data[nr].antras); curr := ''; inc (id); end; 3 : begin data[nr].vardas := curr; curr := ''; inc (id); end; end; data[nr].pareigos := curr; end; close (fin); end;

Jo, gali skaičiuot tarpus jei neturi ką veikt. :)
Daryk taip: pirma nuskaityk visą eilutę (sakykim kintamasis - eilute), tada pirma žodį - viską iki pirmo tarpo - nukopijuok į kitą kintamąjį (kintamasis - nauja_eilute), kodas atrodytų taip:

nauja_eilute:=copy(eilute,1,pos(' ',eilute)); {eilute - nuo ko kopijuosim, 1 - nuo kurio simbolio pradėti, pos(' ',eilute) - iki kokio simbolio kopijuoti, šiuo atveju iki tarpo - ' ' pozicijos}
 
Tik gali kilti problemų, dėl to, kad yra prieš tai du skaičiai. Bent jau man tai pascalis svaigsta ir nuskaito tekstinę eilutę su tarpu priekyje (tada tarpo pozicija tampa 1 ir nieko nenukopijuoja). ;) Jei taip nutiktų, tą nereikalingą tarpą nuskaityk į kokį papildomą char. :D

duomenis issaugot taip:

4 13 Jonas Artojas //A[1] 2 51 Petras Melzejas //A[2] 3 71 Anupras Girininkas //A[3] 1 42 Kazimieras Gaspadorius //A[4] 6 34 Donce Sestas //A[5] 1 12 Kulverstukas Padejejas //A[6]
Turi butu sulygiuoti

Vienetas nurodo lango būseną paleidus tai yra :
0- Paslėptas langas
1-Normalus langas
2-Nuleistas langas
3.Padidintas langas
 
ir dar nemažai gali būti variantų apie kuriuos gali pasiskaityti http://msdn.microsoft.com/en-us/library/aa394375(VS.85).aspx pasirinkęs Show Window skiltį. Tiesa man ant Win7 ne visi langai tiksliai pagal tuos parametrus veikia .
 
 
Taip atrodo pascalio kodas:

program DaugExe; uses windows; var f:text; x:string; P : PChar; begin assign(f, 'duomenys.txt'); reset(f); while not eof(f) do begin readln(f, x); P := @x[1]; winexec(p,1); end; close(f); end.
 
Taip txt faile turi būti surašyta:

C:\Program Files\Internet Explorer\iexplore.exe C:\Program Files\Adobe\Adobe Photoshop CS4 (64 Bit)\Photoshop.exe
 
 
PChar tai yra Pointer to Char , o pointeris tai yra ne pats char o tik nuoroda į jį ;)

program DaugExe; uses windows; begin winexec('C:\Program Files\Internet Explorer\iexplore.exe',1); winexec('C:\Program Files\Adobe\Adobe Photoshop CS4 (64 Bit)\Photoshop.exe',1); end.
 
Prikopink tiek eilučių ( winexec('TAVO KELIAS Į EXE',1);) ir viskas ;)

Nežinau, bet turbo pascal radau googlej:
 

uses Dos; var ProgramName, CmdLine: string; begin Write('Program to Exec (full path): '); ReadLn(ProgramName); Write('Command line to pass to ', ProgramName, ': '); ReadLn(CmdLine); WriteLn('About to Exec...'); SwapVectors; Exec(ProgramName, CmdLine); SwapVectors; WriteLn('...back from Exec'); if DosError <> 0 then{ Error? } WriteLn('Dos error #', DosError) else WriteLn('Exec successful. ', 'Child process exit code = ', DosExitCode); end.
 
Pakoregavus galima pritaikyti.

Sveiki, ar imanoma pagaminti pascaliu tokia programa, kuri paleistu .exe failo shortcuta? Man reik paleist daug panasiu programu, bet visas jas maigyt uzsiknisimas, tai gal imanoma kaip nors suprogramuot nedidele programele kuri visus juos paleistu? Jei imanoma, tai butu idomu suzinot kaip visa tai uzrasyti (source code). Paskali siek tiek ismanau, tai visko galit nerasyt. Aciu! :)

Sveiki, ar imanoma pagaminti pascaliu tokia programa, kuri paleistu .exe failo shortcuta? Man reik paleist daug panasiu programu, bet visas jas maigyt uzsiknisimas, tai gal imanoma kaip nors suprogramuot nedidele programele kuri visus juos paleistu? Jei imanoma, tai butu idomu suzinot kaip visa tai uzrasyti (source code). Paskali siek tiek ismanau, tai visko galit nerasyt. Aciu! :)

Mus univere nuo šitų pradėjo mokint :)
L1pirma_savaite.pdf
L1antra_savaite.pdf
L1trecia_savaite.pdf
L1ketvirta_savaite.pdf

zelionke čia labai protingai parašė. :D Bet tau kaip pradedančiajam, siūlyčiau pasižiūrėti šitokią skaitymo procedūrą, gal šiek tiek aiškiau bus.

program lankomumas; type pamokos = array[1..100] of integer; mokinys = record vardas : string[15]; pavarde : string[15]; p : pamokos; s : integer; end; mokiniai = array[1..30] of mokinys; var A : mokiniai; n : integer; {-------------------------------------------} procedure skaitymas; var fd : text; i, j : integer; begin assign(fd, 'lankomumas.dat'); reset(fd); readln(fd, n); for i:=1 to n do begin read(fd, A[i].pavarde, A[i].vardas); for j:=1 to 9 do begin read(fd, A[i].p[j]); A[i].s:=A[i].s + A[i].p[j]; end; readln(fd); end; close(fd); end; {-------------------------------------------} //IŠKIRPTOS KELIOS PROCEDŪROS {-------------------------------------------} procedure rasymas; var i, j : integer; fr : text; begin assign(fr, 'lankomumas.rez'); rewrite(fr); for i:=1 to n do begin if A[i].s <= 15 then writeln(fr, A[i].pavarde, A[i].vardas, A[i].s); end; writeln(fr, 'Per mokslo metus praleistos pamokos: ', viso); writeln(fr, 'Daugiausiai pamokø praleido:'); if kiek_daugiausiai = 1 then writeln(fr, A[i].vardas, A[i].s) else begin for i:=1 to n do if A[daugiausiai].s = A[i].s then writeln(fr, A[i].pavarde, A[i].s); end; close(fr); end; {-------------------------------------------} begin skaitymas; rikiavimas; rasymas; end. //O čia pats lankomumas.dat failas 6 Jonaitis Jonas 1 1 1 3 3 6 1 0 1 Petraitis Petras 3 3 3 3 8 8 4 1 0 Antanaitis Antanas 0 0 0 5 0 0 2 1 0 Saulaitis Saulius 1 1 0 10 0 0 7 7 7 Vidaitis Vidas 0 0 0 0 5 1 1 1 0 Romaitis Romas 1 0 0 0 8 1 2 1 1
Čia šitokią programą kažkada klasėj sprendėm, tai va ir pakopinau jos dalį. Dar ir rašymą į failą palikau (gal pravers). :D

program skaitymas; uses Crt; var Dm : Text; Le : integer; Eil, K : String; Begin Assign(Dm, 'txt.txt'); Reset(Dm); While not Eof (Dm) do Begin ReadLn(Dm, Eil); Le := Length(Eil); K := Copy(Eil, Le, 1); If K = '1' Then WriteLn('labas') else WriteLn('viso gero'); End; Close(Dm); ReadLn; End.
 
if ten pats pasikeisi kaip tau reik

Pradedant internetinių puslapių programavimu, baigiant įvariomis programomis. O atlyginimas nuo daug ko priklauso: išsilavinimo, patirties, pragramavimo kalbos (c, java, php, ar panašiai). Kiek mačiau JAVA ir C kalbų programuotojams daugiausiai siūlo (bent skelbimuose), šiaip kiek mačiau lietuvoj kainos svyruoja skelbimuose nuo 1500 iki 4000-5000lt, o užsienyje nuo 40 000 iki 60 000 eurų per metus ( čia airija, nes ten kainas žinau kitose valstybėse kainos gali skirtis).

Sitos uzduotys labai lengvos. Jei tokiu neissprendi tai kas veliau bus :unsure:
Stai sprendimai
 

program sk_santykis; var skaicius:integer; santykis:real; procedure suskaiciuok(skaicius:integer; var santykis:real); begin {Ismetame pirmaji skaiciu kad mums liktu du paskutiniai} skaicius:= skaicius mod 100; { randame skaiciu santykio kvadrata} santykis:=sqr((skaicius div 10)/(skaicius mod 10)) end; begin WriteLn('Ivesk trizenkli skaiciu'); Readln(skaicius); suskaiciuok (skaicius, santykis); writeln('santykio kvadratas: ',santykis:2:2); readln; end.
 

program kompiuteriu_skaicius; var lt,ct,k_lt,k_ct,kompiuteriai:integer; priedai:real; procedure suskaiciuok(lt,ct,k_lt,k_ct:integer; var priedai:real; var kompiuteriai:integer); var viso,kaina:longint; begin {suskaiciuojame kiek mokykla isviso turi centu} viso:=lt*100+ct; {suskaiciuojame kiek centu kainuoja vienas kompiuteris} kaina:=k_lt*100+k_ct; {apskaiciuojame kiek kompiuteriu galima nusipirkti uz musu turimus centus} kompiuteriai:= viso div kaina; {apskaiciuojame kiek litu kainuos priedai} priedai:= (viso- kaina*kompiuteriai)/100 end; begin WriteLn('Iveskite mokyklos turimus litus, centus bei kompiuterio kainos litus, centus'); Readln(lt,ct,k_lt,k_ct); suskaiciuok(lt,ct,k_lt,k_ct,priedai,kompiuteriai); writeln ('Nupirkti ',kompiuteriai,' kompiuteriai'); writeln ('Priedai kainavo: ', priedai:2:2,' LT'); readln; end.