Results 1 to 25 of 27
Thread: Ïðîãðàìà íà Pascal
Hybrid View
-
22nd December 2005 15:17 #1
Ïðîãðàìà íà Pascal
Çäðàâåéòå,
Èìàì äà ïðàâÿ ïðîãðàìà íà Pascal.Ùå âè ïîìîëÿ äà ìå íàñî÷èòå êàê äà ÿ íàïðàâÿ.Íå èñêàì äà ìè ÿ ïèøåòå âèå çàùîòî èñêàì äà ñå óïðàæíÿâàì,íî àêî ìîæåòå äà ìå íàñî÷èòå êàê äà çàïî÷íà îòêúäå è òàêà íàòàòúê.À ïúê â ïîñëåäñòâèå àêî ñå çàòðóäíÿ ùå ìó ìèñëÿ òîãàâà.Òîâà å óñëîâèåòî:
Àìè òîâà å çàñåãà.Áëàãîäàðÿ ïðåäâàðèòåëíîCode:Äà ñå èçãîòâè ÂÈÊ îáñëóæâàùà ñèñòåìà íà åçèêà Ïàñêàë,êîÿòî äà ñúäúðæà äàííè îò ñëåäíèÿ âèä: 1.Àáîíàò/èìå,ïðåçèìå,ôàìèëèÿ/ 2.ÅÃÍ íà àáîíàòà 3.Ðåãèñòðàöèîíåí íîìåð íà âîäîìåðà 4.Ïîêàçàíèÿ/ñòàðî ïîêàçàíèå è íîâî ïîêàçàíèå/ Ïðîãðàìàòà äà ïîçâîëÿâà èçïúëíåíèå íà ñëåäíèòå äåéñòâèÿ,îïèñàíè â ìåíþ: 1.Âúâåæäàíå íà çàïèñè íà àáîíàòè 2.Ïðîìÿíà íà ðåãèñòðàöèîíåí íîìåð ïî çàäàäåíè ñòàð ðåã.íîìåð è ÅÃÍ íà àáîíàòà 3.Èç÷èñëÿâàíå íà ñóìàòà çà çàïëàùàíå ïî çàäàäåí ðåãèñòðàöèîíåí íîìåð íà âîäîìåðà,ñòàðî è íîâî ïîêàçàíèå 4.Èçâåæäàíå íà ñïèñúê ñ èìåíàòà íà àáîíàòèòå,÷èÿòî ðàçëèêà ìåæäó íîâî è ñòàðî ïîêàçàíèå íàäõâúðëÿ 20 êóáèêà. 5.Èçòðèâàíå íà çàïèñ çà àáîíàò ïî çàäàäåíè èìå íà àáîíàòà è ðåã. íîìåð íà âîäîìåðà. 6.Èçõîä Çàáåëåæêà:äàííèòå/çà ìèíèìóì 15 àáîíàòà/äà ñå ñúõðàíÿâàò ïîñòîÿííî âúâ ôàéë íà âúíøíà ïàìåò
-
22nd December 2005 15:44 #2
Åòî òè íàñîêà
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:=...
òàêà çà âñè÷êè ñòîéíîñòè íà òèïà. È òàêà ùå òè å ïî ëåñíî êàòî íàìåðèø â êîé èíäåêñ íà ìàñèâà ñå íàìèðà êðèòåðèÿ, ïî êîéòî òúðñèø äà íàìåðèø è äðóãèòå ñòîéíîñòè íà ñúùèÿ àáîíàò. Ñïîðåä ìåí òàêà ùå òè å íàé-óäîáíî äà ïî÷íåø ...
-
22nd December 2005 16:31 #3äîáðå áëàãîäàðÿ.Ùå ìîæå ëè äà ìè ïîìîãíåø ñ ìàñèâà,çàùîòî òàì çàöèêëÿì ïîíåæå èìàì ïðîïóñêè òàì.Áëàãîäàðÿ
Originally Posted by Rostislao
-
22nd December 2005 19:49 #4
àìè êàæè òî÷íî êîå íå òè å ÿñíî òà äà òè ïîìîãíà ... òî çà ìàñèâè öåëè òåîðèè èìà ïèñàíè ... êàæè êàêâî òî÷íî òå èíòåðåñóâà è òè êàçâàì, íÿìàø ãðèæè.
-
23rd December 2005 14:52 #5
Çíà÷è â óñëîâèåòî íå å äàäåíî îãðàíè÷åíèå çà áðîÿ àáîíàòè, òúé ÷å àêî òðÿáâà äà å èçðÿäíî âñè÷êî ùå òðÿáâà äà èçïîëçâàø äèíàìè÷åí ìàñèâ (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
-
23rd December 2005 15:08 #6Äîêîëêîòî ñúì îñòàíàë ñ âïå÷àòëåíèå îò ó÷èëèùíè è íÿêîè óíèâåðñèòåòñêè êóðñà ïî ïðîãðàìèðàíå íà Ïèñêþë, îáèêíîâåíî äàñêàëèòå íå èçèñêâàò äà ãî íàïðàâèø "ìíîãî äîáðå", "êàêòî õîðàòà", "extensible" è ò.í., èñêàò ñàìî äà å íàïèñàíî è äà ðàáîòè, òóé, ÷å å íåèçïîëçâàåìî íà ïðàêòèêà - êîé ãî èíòåðåñóâà.
Originally Posted by Lan
Òàêà ÷å, ñïîðåä ìåí, âàðèàíòà íà Rostislao ñúñ ñòàòè÷åí ìàñèâ å íàïúëíî äîñòàòú÷åí.Åòî òàêà ñå ïëîäÿò òå, êàçâàì ñè àç. Ïîä íîñà òè.
"640K îught to be enough for anybody" - Bill Gates, 1981
Òåñòîâå íà áàòåðèè::Machine specs::Fract::AGG::ÍåÑåÑúðäè×îâå÷å::Baileys::blog::YouTube channel





Lenovo ThinkPad 15 èëè IdeaPad 15
5th May 2023, 22:16 in Ìîáèëíè êîìïþòðè