Results 1 to 6 of 6
Thread: Òóðáî ïàñêàë ïðîãðàìèðàíå
Hybrid View
-
15th June 2005 09:41 #1
Òóðáî ïàñêàë ïðîãðàìèðàíå
Íÿêîé ìîæå ëè äà ìè ïîìîãíå çà åäèí ïðîåêò ïî èíôîðìàòèêà.Ñòàâà âúïðîñ çà òóðáî ïàñêàë.óñëîâèåòî å:
Äà ñå ñúñòàâè ïðîãðàìà,çà ñúçäàâàíå è ïîëçâàíå íà ôàéë ñ èìå ÊÎËÈ.Çàïèñàíèòå íà ôàéëà ñúäúðæàò ñëåäíèòå ïîëåòà:ðåãèñòðàöèîíåí íîìåð ,ñåðèåí íîìåð,ìàðêà,öâÿò ,ñîáñòâåíèê (ñîáñòâåíî,áàùèíî,ôàìèëèÿ),àäðåñ íà ñîáñòâåíèêà.Ïðîãðàìàòà äà äàâà âúçìîæíîñò çà ïîëó÷àâàíå íà ñëåäíèòå ðåçóëòàòè.
À.Ñïðàâêà çà êîëè ïî âúâåäåíè îò ïîòðåáèòåëÿ:ìàðêà íà êîëà è ïîñëåäíè 2 öèôðè îò ðåãèñòðàíèîííèÿ íîìåð.
Á.Ñïèñúê íà âñè÷êè êîëè ,ñîðòèðàíè ïî ñåðèåí íîìåð:
Â.Áðîé íà êîëè îò äàäåíà ìàðêà.
Ã.Ñïèñúê íà âñè÷êè êîëè ,÷èéòî ñîáñòâåíèöè ñà îò ãðàä Âàðíà.
Ä.Èçòðèâà êîëà îò ôàéëà ïî äàäåí ðåãèñòðàöèîíåí íîìåð è ñåðèåí íîìåð.
Å.Äîáàâÿíå íà íîâà êîëà êúì ôàéëà.
Æ.Ïî çàäàäåí ðåãèñòðàöèîíåí íîìåð íà êîëà ïðîìåíÿ ïîëåòàòà íà çàïèñà.
Áëàãîäàðÿ ïðåäâàðèòåëíî.
-
15th June 2005 10:14 #2
ìîæå áå.
ìîãàò äà ïîìîãíàò:
à) ó÷åáíèê
á) ÷àñîâåòå â ó÷èëèùå
â) íÿêîé çóáúð äåòî ñå å èçëúãàë äà ñåäè â ÷àñ
ã) âââ.ëèíóü-áã.öîì ùîòî òàì ñà ôåíîâå íà ñâîáîäíèÿ ñîôòóåð àìà ïðàñêàëà íå ãî òà÷àò ìàéÏîñëåäíà ðåäàêöèÿ: èçâúðøåíà îò XaMaB; íà äíåøíà äàòà. 0.42 ñåêóíäè ñëåä ïóñêàíå íà ïîñòà
In God we Trust (all others must submit a X.509 certificate). Àêî ñïîðèø ñ èäèîò, âåðîÿòíî è òîé ïðàâè ñúùîòî èëè ñè ïîïàäíàë íà ïàðòèåí (íåïúëåí) ÷ëåí
-
15th June 2005 10:29 #3
http://www.google.com/search?hl=en&c...xample&spell=1
Ïúðâèÿò èçëÿçàë ëèíê áè òðÿáâàëî äà òè ïîìîãíå çà íàé-åëåìåíòàðíî ðåøåíèå.
-
15th June 2005 11:02 #4
Íàààé-îáùî êàçàíî:
Ïðàâèø ñè ìàñèâ îò çàïèñè
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
-
15th June 2005 15:07 #5
êàêòî å çàïî÷íàë 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-à
"Òîâà, êîåòî íå ìå óáèâà ìå ïðàâè ïî-ñèëåí"
Ìîæåõ äà ãè êàæà íåùàòà ïî äðóã íà÷èí - ïî-äîáðå...
-
16th June 2005 16:30 #6
Áëàãîäàðÿ íà âñè÷êè êîèòî ðåøèõà äà ïîìîãíàò è äðàñíàõà íÿêîè äðóã ðåä.




Reply With Quote
Íå âúçìîæíîñò äà èçêëþ÷à êîìïþòúðà
7th May 2023, 16:02 in Îáù ôîðóì çà PC õàðäóåð