Results 1 to 25 of 27

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    Registered User netshacker's Avatar
    Join Date: May:2005
    Location: Áúëãàðèÿ
    Posts: 126

    Ïðîãðàìà íà Pascal

    Çäðàâåéòå,
    Èìàì äà ïðàâÿ ïðîãðàìà íà Pascal.Ùå âè ïîìîëÿ äà ìå íàñî÷èòå êàê äà ÿ íàïðàâÿ.Íå èñêàì äà ìè ÿ ïèøåòå âèå çàùîòî èñêàì äà ñå óïðàæíÿâàì,íî àêî ìîæåòå äà ìå íàñî÷èòå êàê äà çàïî÷íà îòêúäå è òàêà íàòàòúê.À ïúê â ïîñëåäñòâèå àêî ñå çàòðóäíÿ ùå ìó ìèñëÿ òîãàâà.Òîâà å óñëîâèåòî:
    Code:
    Äà ñå èçãîòâè ÂÈÊ îáñëóæâàùà ñèñòåìà íà åçèêà Ïàñêàë,êîÿòî äà ñúäúðæà äàííè îò ñëåäíèÿ âèä:
    1.Àáîíàò/èìå,ïðåçèìå,ôàìèëèÿ/
    2.ÅÃÍ íà àáîíàòà
    3.Ðåãèñòðàöèîíåí íîìåð íà âîäîìåðà
    4.Ïîêàçàíèÿ/ñòàðî ïîêàçàíèå è íîâî ïîêàçàíèå/
    Ïðîãðàìàòà äà ïîçâîëÿâà èçïúëíåíèå íà ñëåäíèòå äåéñòâèÿ,îïèñàíè â ìåíþ:
    1.Âúâåæäàíå íà çàïèñè íà àáîíàòè
    2.Ïðîìÿíà íà ðåãèñòðàöèîíåí íîìåð ïî çàäàäåíè ñòàð ðåã.íîìåð è ÅÃÍ íà àáîíàòà
    3.Èç÷èñëÿâàíå íà ñóìàòà çà çàïëàùàíå ïî çàäàäåí ðåãèñòðàöèîíåí íîìåð íà âîäîìåðà,ñòàðî è íîâî ïîêàçàíèå
    4.Èçâåæäàíå íà ñïèñúê ñ èìåíàòà íà àáîíàòèòå,÷èÿòî ðàçëèêà ìåæäó íîâî è ñòàðî ïîêàçàíèå íàäõâúðëÿ 20 êóáèêà.
    5.Èçòðèâàíå íà çàïèñ çà àáîíàò ïî çàäàäåíè èìå íà àáîíàòà è ðåã. íîìåð íà âîäîìåðà.
    6.Èçõîä
    Çàáåëåæêà:äàííèòå/çà ìèíèìóì 15 àáîíàòà/äà ñå ñúõðàíÿâàò ïîñòîÿííî âúâ ôàéë íà âúíøíà ïàìåò
    Àìè òîâà å çàñåãà.Áëàãîäàðÿ ïðåäâàðèòåëíî

  2. #2
    Ïàòëàäæàí! Rostislao's Avatar
    Join Date: Feb:2005
    Location: Bulgaria
    Posts: 822
    Åòî òè íàñîêà

    type abonat = record

    name,middle,family,EGN,RegVod : string;
    new,old : word;

    end;

    var a : array[1..200] of abonat;


    BEGIN...


    Àêî çà òîâà ãîâîðèì ...

    Ìàëåå ... çàáðàâèë ñúì ãî òîÿ åçèê. ×å òàêà äå. Êàòî èçïîëçâàø íåùî îò ìàñèâà a ãî ïîëçâàø ïî ñëåäíèÿ íà÷èí:

    a[i].name:=...
    a[i].middle:=...

    òàêà çà âñè÷êè ñòîéíîñòè íà òèïà. È òàêà ùå òè å ïî ëåñíî êàòî íàìåðèø â êîé èíäåêñ íà ìàñèâà ñå íàìèðà êðèòåðèÿ, ïî êîéòî òúðñèø äà íàìåðèø è äðóãèòå ñòîéíîñòè íà ñúùèÿ àáîíàò. Ñïîðåä ìåí òàêà ùå òè å íàé-óäîáíî äà ïî÷íåø ...

  3. #3
    Registered User netshacker's Avatar
    Join Date: May:2005
    Location: Áúëãàðèÿ
    Posts: 126
    Quote Originally Posted by Rostislao
    Åòî òè íàñîêà

    type abonat = record

    name,middle,family,EGN,RegVod : string;
    new,old : word;

    end;

    var a : array[1..200] of abonat;


    BEGIN...


    Àêî çà òîâà ãîâîðèì ...

    Ìàëåå ... çàáðàâèë ñúì ãî òîÿ åçèê. ×å òàêà äå. Êàòî èçïîëçâàø íåùî îò ìàñèâà a ãî ïîëçâàø ïî ñëåäíèÿ íà÷èí:

    a[i].name:=...
    a[i].middle:=...

    òàêà çà âñè÷êè ñòîéíîñòè íà òèïà. È òàêà ùå òè å ïî ëåñíî êàòî íàìåðèø â êîé èíäåêñ íà ìàñèâà ñå íàìèðà êðèòåðèÿ, ïî êîéòî òúðñèø äà íàìåðèø è äðóãèòå ñòîéíîñòè íà ñúùèÿ àáîíàò. Ñïîðåä ìåí òàêà ùå òè å íàé-óäîáíî äà ïî÷íåø ...
    äîáðå áëàãîäàðÿ.Ùå ìîæå ëè äà ìè ïîìîãíåø ñ ìàñèâà,çàùîòî òàì çàöèêëÿì ïîíåæå èìàì ïðîïóñêè òàì.Áëàãîäàðÿ

  4. #4
    Ïàòëàäæàí! Rostislao's Avatar
    Join Date: Feb:2005
    Location: Bulgaria
    Posts: 822
    àìè êàæè òî÷íî êîå íå òè å ÿñíî òà äà òè ïîìîãíà ... òî çà ìàñèâè öåëè òåîðèè èìà ïèñàíè ... êàæè êàêâî òî÷íî òå èíòåðåñóâà è òè êàçâàì, íÿìàø ãðèæè.

  5. #5
    Executor Lan's Avatar
    Join Date: Nov:2005
    Location: Ñîôèÿ
    Posts: 3,304
    Çíà÷è â óñëîâèåòî íå å äàäåíî îãðàíè÷åíèå çà áðîÿ àáîíàòè, òúé ÷å àêî òðÿáâà äà å èçðÿäíî âñè÷êî ùå òðÿáâà äà èçïîëçâàø äèíàìè÷åí ìàñèâ (array of Integer), îáà÷å íå ïîìíÿ äàëè ÷èñòèÿ ïàñêàë ãî ïîääúðæà (àç ðàáîòÿ íà îáåêòåí), àêî íå ãî ïîääúðæà ùå òðÿáâà ñàì äà ñè ðåàëèçèðàø ñïèñúê (ðåêóðñèâíà ñòðóêòóðà). Çà íà÷àëî îáà÷å ìîæå äà ðàáîòèø ñ âàðèàíòà ïîêàçàí îò Rostislao, à êàòî íàïðåäíåø åâåíòóàëíî äà ãî ïðåïðàâèø ñ äèí. ìàñèâ.
    Ïî èäåÿòà íà Rostislao èìàì åäíà çàáåëåöêà, ÷å íàé âåðîÿòíî ïîëåòàòà íà ñòðóêòóðàòà new è old ùå òðÿáâà äà ñà îò ðåàëåí òèï - Double/Real íàïðèìåð.
    Âñè÷êè íåùà ìîæåø äà ñè ãè ðåàëèçèðàø, íå ñà îñîáåíî òðóäíè, òðÿáâà äà ñå ïîðàçòúðñèø èç íåòà, õóáàâî å äà èìàø íÿêîÿ íà÷àëíà êíèæêà. Âñè÷êî å âõîäíî-èçõîäíè îïåðàöèè, ðàáîòà ñ ôàéëîâå è ïðîñòè îïåðàöèè, åäèí-äâà åëåìåíòàðíè öèêúëà ùå èìàø. Àêî íÿêúäå ñå çàòðóäíèø, íî âå÷å íà ïî-êîíêðåòíî íèâî ïèòàé.
    I mourn thee by dusk | I mourn thee by dawn
    Crave for thy gloss | to seek the silent glades beyond

  6. #6
    ɐ-əpoɔᴉu⋂ ɐí íəÔ anrieff's Avatar
    Join Date: Apr:2004
    Location: Sofia
    Posts: 8,448
    Quote Originally Posted by Lan
    Çíà÷è â óñëîâèåòî íå å äàäåíî îãðàíè÷åíèå çà áðîÿ àáîíàòè, òúé ÷å àêî òðÿáâà äà å èçðÿäíî âñè÷êî ùå òðÿáâà äà èçïîëçâàø äèíàìè÷åí ìàñèâ (array of Integer)...
    Äîêîëêîòî ñúì îñòàíàë ñ âïå÷àòëåíèå îò ó÷èëèùíè è íÿêîè óíèâåðñèòåòñêè êóðñà ïî ïðîãðàìèðàíå íà Ïèñêþë, îáèêíîâåíî äàñêàëèòå íå èçèñêâàò äà ãî íàïðàâèø "ìíîãî äîáðå", "êàêòî õîðàòà", "extensible" è ò.í., èñêàò ñàìî äà å íàïèñàíî è äà ðàáîòè, òóé, ÷å å íåèçïîëçâàåìî íà ïðàêòèêà - êîé ãî èíòåðåñóâà.
    Òàêà ÷å, ñïîðåä ìåí, âàðèàíòà íà Rostislao ñúñ ñòàòè÷åí ìàñèâ å íàïúëíî äîñòàòú÷åí.
    Åòî òàêà ñå ïëîäÿò òå, êàçâàì ñè àç. Ïîä íîñà òè.
    "640K îught to be enough for anybody" - Bill Gates, 1981
    Òåñòîâå íà áàòåðèè::Machine specs::Fract::AGG::ÍåÑåÑúðäè×îâå÷å::Baileys::blog::YouTube channel

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 | Ìàãàçèí çà åëåêòðîííè öèãàðè