Results 1 to 6 of 6

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    Slacker Butcher's Avatar
    Join Date: Dec:2003
    Location: Ñîôèÿ
    Posts: 1,631

    Òóðáî ïàñêàë ïðîãðàìèðàíå

    Íÿêîé ìîæå ëè äà ìè ïîìîãíå çà åäèí ïðîåêò ïî èíôîðìàòèêà.Ñòàâà âúïðîñ çà òóðáî ïàñêàë.óñëîâèåòî å:
    Äà ñå ñúñòàâè ïðîãðàìà,çà ñúçäàâàíå è ïîëçâàíå íà ôàéë ñ èìå ÊÎËÈ.Çàïèñàíèòå íà ôàéëà ñúäúðæàò ñëåäíèòå ïîëåòà:ðåãèñòðàöèîíåí íîìåð ,ñåðèåí íîìåð,ìàðêà,öâÿò ,ñîáñòâåíèê (ñîáñòâåíî,áàùèíî,ôàìèëèÿ),àäðåñ íà ñîáñòâåíèêà.Ïðîãðàìàòà äà äàâà âúçìîæíîñò çà ïîëó÷àâàíå íà ñëåäíèòå ðåçóëòàòè.
    À.Ñïðàâêà çà êîëè ïî âúâåäåíè îò ïîòðåáèòåëÿ:ìàðêà íà êîëà è ïîñëåäíè 2 öèôðè îò ðåãèñòðàíèîííèÿ íîìåð.
    Á.Ñïèñúê íà âñè÷êè êîëè ,ñîðòèðàíè ïî ñåðèåí íîìåð:
    Â.Áðîé íà êîëè îò äàäåíà ìàðêà.
    Ã.Ñïèñúê íà âñè÷êè êîëè ,÷èéòî ñîáñòâåíèöè ñà îò ãðàä Âàðíà.
    Ä.Èçòðèâà êîëà îò ôàéëà ïî äàäåí ðåãèñòðàöèîíåí íîìåð è ñåðèåí íîìåð.
    Å.Äîáàâÿíå íà íîâà êîëà êúì ôàéëà.
    Æ.Ïî çàäàäåí ðåãèñòðàöèîíåí íîìåð íà êîëà ïðîìåíÿ ïîëåòàòà íà çàïèñà.
    Áëàãîäàðÿ ïðåäâàðèòåëíî.

  2. #2
    Âåãàí íà ìåñíà äèåòà XaMaB's Avatar
    Join Date: Nov:2001
    Location: Ñîôèÿ
    Posts: 20,393
    ìîæå áå.
    ìîãàò äà ïîìîãíàò:
    à) ó÷åáíèê
    á) ÷àñîâåòå â ó÷èëèùå
    â) íÿêîé çóáúð äåòî ñå å èçëúãàë äà ñåäè â ÷àñ
    ã) âââ.ëèíóü-áã.öîì ùîòî òàì ñà ôåíîâå íà ñâîáîäíèÿ ñîôòóåð àìà ïðàñêàëà íå ãî òà÷àò ìàé
    Ïîñëåäíà ðåäàêöèÿ: èçâúðøåíà îò XaMaB; íà äíåøíà äàòà. 0.42 ñåêóíäè ñëåä ïóñêàíå íà ïîñòà

    In God we Trust (all others must submit a X.509 certificate). Àêî ñïîðèø ñ èäèîò, âåðîÿòíî è òîé ïðàâè ñúùîòî èëè ñè ïîïàäíàë íà ïàðòèåí (íåïúëåí) ÷ëåí

  3. #3
    motherfather The Penalty's Avatar
    Join Date: Mar:2002
    Location: ÑÔ
    Posts: 20,472
    http://www.google.com/search?hl=en&c...xample&spell=1

    Ïúðâèÿò èçëÿçàë ëèíê áè òðÿáâàëî äà òè ïîìîãíå çà íàé-åëåìåíòàðíî ðåøåíèå.

    • Ìîæåø äà èçâàäèø ÷îâåêà îò ñåëîòî, íî ñåëîòî îò ÷îâåêà - íèêîãà
    • Sometimes I think the surest sign that intelligent life exists elsewhere in the universe is that none of it has tried to contact us
    • Soul platinum 1 and 2. See? It's not the game - you suck.


  4. #4
    ɐ-əpoɔᴉu⋂ ɐí íəÔ anrieff's Avatar
    Join Date: Apr:2004
    Location: Sofia
    Posts: 8,448
    Íàààé-îáùî êàçàíî:

    Ïðàâèø ñè ìàñèâ îò çàïèñè
    type kola = record
    ...
    end;
    type masiv = array [1..100] of kola;


    â íåãî çàïèñâàø äàííèòå çà êîëèòå. ×åòåíåòî è ïèñàíåòî âúâ ôàéëà ïðàâèø ñ blockread/blockwrite. Ïîëçâàé help-à íà Borland Pascal

    Áèõ òè ïîìîãíàë ïîâå÷å, íî â ìîìåíòà ñúì óæàñíî çàåò
    Åòî òàêà ñå ïëîäÿò òå, êàçâàì ñè àç. Ïîä íîñà òè.
    "640K îught to be enough for anybody" - Bill Gates, 1981
    Òåñòîâå íà áàòåðèè::Machine specs::Fract::AGG::ÍåÑåÑúðäè×îâå÷å::Baileys::blog::YouTube channel

  5. #5
    End User/Developer dNA's Avatar
    Join Date: Apr:2005
    Location: òóê è òàì
    Posts: 564
    êàêòî å çàïî÷íàë anrieff:

    type
    kola = record
    regno : string[8];
    serno : <íå çíàì êàêúâ òèï>;
    model : string[20];
    color : string[20];
    owner: string[40];
    end;
    fail = file of kola;
    masiv = array [1..100] of kola;

    var
    mas: masiv;
    koli : fail;
    car : kola;

    Ïðåäïîëàãàì, ÷å çíàåø, ÷å îò ôàéëà ñå ÷åòå ñëåä êàòî ãî assign, à ïîñëå reset è íàêðàÿ èçâàæäàø ïîëåòàòà ñ read(koli,car);
    Ñåãà êðàòêè îïèñàíèÿ çà ïîäóñëîâèÿòà:
    À. Ðàáîòàòà ÿ îïèñâàì, íî áúëãàðñêèÿ ñòàíäàðò íÿìà äà å íàïúëíî òî÷íà: while not eof(koli) and (copy(regno,length-2,2)=<òúðñåíèòå öèôðè>) do read(koli,car);
    if eof(koli) then <íå å íàìåðåíà> else <èçâåæäàø êàêâîòî òè òðÿáâà>
    Á. íàèñòèíà ìå ìúðçè äà ãî ïðàâÿ... ñèëîâà ðàáîòà
    Â. count:=0;while not eof(koli) do begin
    read(koli,car);
    if car.model=<òúñåíà ìàðêà> then inc(count)
    end
    writeln(count);
    Ã. while not eof(koli) do begin
    read(koli,car);
    if car.ãðàä=<òúðñåí ãðàä> then <èçâåæäàø äàííè çà êîëàòà>
    end
    Ä. íàé-ãðóáèÿ è ëåñåí íà÷èí å äà ïðî÷åòåø ôàéëà â ìàñèâ è ïîñëå äà èçòðèåø îò íåãî äàäåíîòî ïîëå, à íàêðàÿ äà íàáóòàø îòíîâî ìàñèâà âúâ ôàéëà. Òîâà å ÀÄÑÊÈ ëàìåðñêè ïîäõîä, íî å íàé-ëåñåí äà ãî èçìèñëèø
    Å. âúâåæäàø îòäåëíèòå ïîëåòà íà car è ïîñëå òîâà âëèçà âúâ ôàéëà ñ
    while not eof(koli) do read(koli,car);
    write(koli,car);
    Æ. âå÷å ìå äîìúðçÿ ìíîãî... òîâà íÿêîé äðóã äà ãî ïèøå... ïî-äîáðå äà ñå âðúùàì êúì SQL-à
    "Òîâà, êîåòî íå ìå óáèâà ìå ïðàâè ïî-ñèëåí"
    Ìîæåõ äà ãè êàæà íåùàòà ïî äðóã íà÷èí - ïî-äîáðå...

  6. #6
    Slacker Butcher's Avatar
    Join Date: Dec:2003
    Location: Ñîôèÿ
    Posts: 1,631
    Áëàãîäàðÿ íà âñè÷êè êîèòî ðåøèõà äà ïîìîãíàò è äðàñíàõà íÿêîè äðóã ðåä.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Copyright © 1999-2011 Õàðäóåð ÁÃ. Âúçìîæíî å ñúäúðæàíèåòî íà òàçè ñòðàíèöà äà å îáåêò íà àâòîðñêè ïðàâà.
iskamPC.com | mobility.BG | Bloody's Techblog | Êðèïòîâàëóòè è ìàéíèíã | 3D Vision Blog | Ìàãàçèí çà åëåêòðîííè öèãàðè