Results 1 to 8 of 8
Thread: Çàäà÷à íà Pascal
Hybrid View
-
14th December 2017 20:14 #1Registered User
Join Date: Dec:2017
Location: Ñòàðà Çàãîðà
Posts: 2
Çàäà÷à íà Pascal
program studenti;
type
Student = record
Ime: string;
EGN: integer;
Fakulteten: integer;
Ocenki: array [1..123456789] of integer;
end;
var x: Student; m:string; n,j,h,f:real;
begin
WriteLn('Èìå: '); Readln(m);
WriteLn('ÅÃÍ: '); Readln(n);
WriteLn('Ôàêóë& #242;åòåí íîìåð: '); Readln(j);
WriteLn('Îöåíê& #232;: '); Readln(f);
ReadLn;
end.
Çäðàâåéòå,èìàì ïèòàíå çà òàçè çàäà÷à ïðè âúâåæäàíå íà îöåíêèòå ñëåä âòîðàòà ìå èçõâúðëÿ ïîìîù?
òîâà å çàäà÷àòà: çà ãðóïà ñòóäåíòè ñà çàäàäåíè èìå,åãí,ôàêóëòåòåí íîìåð,îöåíêè ïî äåñåò ïðåäìåòà è ñðåäåí óñïåõ.Äà ñå ñúñòàâè ïðîãðàìà ñ ïîäïðîãðàìè:
-ôàéë ñ èíôîðìàöèÿ çà ñòóäåíòèòå,áåç ñðåäåí óñïåõ
-èç÷èñëÿâàíå íà ñðåäåí óñïåõ íà âñåêè ñòóäåíò
-èçâåæäàíå íà ôàê.íîìåð íà ñòóäåíòè ñ ïîâå÷å îò òðè äâîéêè
-
14th December 2017 22:30 #2
Âèæ ïðèêà÷åíàòà òåìà íàé-ãîðå â ðàçäåëà:
Ãîòîâî ðåøåíèå íÿìà äà ïîëó÷èø, êàòî ãëåäàì çàäàíèåòî:
- êúäå ñà òè ïðîöåäóðèòå (ïîäïðîãðàìèòå) è ôóíêöèèòå, êîèòî ñå èñêàò;
- êúäå å öèêúëúò íà îñíîâíîòî ìåíþ çà èçáîð;
- êúäå å ñúñòàâÿíåòî íà ôàéëà ñ èíôîðìàöèÿ çà ñòóäåíòèòå ñ öèêúë çà âúâåæäàíå íà äàííèòå;
- è ò.í, è ò.í.
Ðåàëíî íå ñè íàïèñàë íèùî äî ìîìåíòà, òàêà ÷å çàùî "ïðè âúâåæäàíå íà îöåíêèòå ñëåä âòîðàòà ìå èçõâúðëÿ" å íàé-ìàëêèÿò ïðîáëåì
.
Asus CH6H|Ryzen 1800X@4.1GHz|4xBLS8G4D32AESTK@3666MHz 14-19-12-36-58-1T|GB GTX1060 3GB OC|MP510 960GB|SS-1000XP|CM STACKER STC-T01-UW1
Thermochill PA120.2+PA120.3+PA140.3|Yate Loon 5xD12SH-12+3xD14SH-12|Laing DDC 2+Toshiba DIYINHK|EK DDC X-Top v2+EK Reservoir|EK Supreme HF #6
-
15th December 2017 07:40 #3Registered User
Join Date: Dec:2017
Location: Ñòàðà Çàãîðà
Posts: 2
íåùî òàêîâà ìè òðÿáâà ìàëêî îò ìàëêî äà ìè ñâåòíå
-
15th December 2017 11:53 #4òÈìÈðóòÈí
Join Date: Feb:2002
Location: Ñîôèÿ
Posts: 724
Îò èìà-íÿìà 25 ãîäèíè íå ñúì ïèñàë íà Ïàñêàë, íî äà òè íàõâúðëÿì íàêîëêî èäåè ïî çàäà÷àòà ... Äàíî ïîìîãíà ïîâå÷å, îòêîëêîòî äà òå îáúðêàì.
Êàêòî å ïîñî÷èë ïî-ãîðå rager, òðÿáâà äà îðãàíèçèðàø êîäà íà ïðîãðàìàòà â íÿêîëêî ïðîöåäóðè. Íàé-ëåñíî å äà ðàçäåëèø ïðîöåäóðèòå äà èçïúëíÿâàò òî÷êèòå, êîèòî ñè ïîñî÷èë â ïúðâèÿ òè ïîñò - îñíîâíà ïðîãðàìà, êîÿòî "âèêà" åäíà ñëåä äðóãà ïðîöåäóðè çà:
1. Ñúçäàâàíå íà ôàéë ñ èíôîðìàöèÿ çà ñòóäåíòèòå, êîéòî äà áúäå ïîïúëíåí ñ äàííè âúâåäåíè îò êëàâèàòóðàòà.
2. Èç÷èñëÿâàíå íà ñðåäåí óñïåõ çà âñåêè ñòóäåíò, íà áàçà âúâåäåíèòå â òî÷êà 1 äàííè. Èç÷èñëåíèÿ ñðåäåí óñïåõ ùå ñå èçâåæäà ëè íÿêúäå?!?
3. Íàìèðàíå íà âñè÷êè ñòóäåíòè, ñ 3 èëè ïîâå÷å ñëàáè îöåíêè è òÿõíîòî èçâåæäàíå íà åêðàíà.
Òîâà ñà òè òðèòå ïðîöåäóðè, êîèòî îñíîâíàòà ïðîãðàìà òðÿáâà äà èçâèêâà. Ïðèìåðíî.
Îòíîñíî ñòðóêòóðàòà íà äàííèòå, êîèòî ñè îïèñàë:
- âñåêè ñòóäåíò ùå ãî äúðæèø â ðåêúðä, ñòàâà;
- èìåòî ìîæå äà ãî îãðàíè÷èø äî string[80] ïðèìåðíî. Íå å ôàòàëíî è äà ñè ñòîè ñ äúëæèíà 255. Âúïðîñ íà âêóñ;
- ïðè ïîëîæåíèå, ÷å íÿìà äà ïðàâèø íÿêàêâè èç÷èñëåíèÿ, â êîèòî äà âëèçà ñòîéíîñòòà íà ÅÃÍ-òî, à ñàìî ùå ñå ñúáèðà êàòî èíôîðìàöèÿ - íàïðàâè EGN äà å string[10]. Ùå áîëè ïî-ìàëêî (èíà÷å è longInt íÿìà äà òè ñòèãíå, çà äà ïîáåðåø ÷èñëîòî);
- îòðèöàòåëåí ôàêóëòåòåí íîìåð? òóê ñëàãàø "word", âìåñòî "integer" è ñòèñêàìå ðúöåòå;
- ìàñèâúò ñ îöåíêè òðÿáâà äà å 11 åëåìåíòà (10 îöåíêè è 1 ñðåäíà) è òî îò òèï "real".
Äðóãè "çàáåëåæêè":
- äà íå çàáðàâèø äà ñè èíèöèàëèçèðàø ìàñèâèòå è ïðîìåíëèâèòå ïîäõîäÿùî, â íà÷àëîòî íà ïðîãðàìàòà;
- àêî èñêàø äà å ïî-ïðîñòè÷êà ïðîãðàìêàòà - ïîëçâàø ãëîáàëíè ïðîìåíëèâè, âñè÷êî íàé-îòãîðå. Àêî èñêàø äà å ïî-äîáðå íàïèñàíà, âñè÷êè ïðîìåíëèâè, êîèòî ñà íóæíè ñàìî â êîíñòðóêöèÿòà (ïðîöåäóðàòà), â êîÿòî ñå ïîëçâàò ñå äåôèíèðàò ëîêàëíî â òÿëîòî è. Òîâà ìîæå äà òè äîéäå èçëèøíà ðàáîòà, ùîì íå ìîæåø äà ñè íàïèøåø ñàì ïðîãðàìàòà
- ôàéëúò, ñ êîéòî ùå ðàáîòèø, òðÿáâà äà ñå äåôèíèðà îò òèï ðåêúðä-à, êîéòî ñè äåôèíèðàë. Ò.å. âñåêè åäèí "åëåìåíò" âúâ ôàéëà, ñ êîéòî ùå ñå ðàáîòè å åëåìåíò îò òèï äåôèíèðàíèÿ òè ðåêúðä (ñòðóêòóðà, ñúäúðæàùà ïðîìåíëèâèòå çà ñòóäåíò). Òàêà "ãëàâàòà", êîÿòî ÷åòå/ïèøå èç ôàéëà ùå ñå ìåñòè ïî íåãî íàïðåä/íàçàä íà ðàçñòîÿíèå ðàçìåðà íà ðåêúðäà è ùå çàïèñâà/÷åòå íàâåäíúæ ïî åäèí ðåêúðä, ò.å. ïî åäèí åëåìåíò (ñúäúðæàù èíôîðìàöèÿ çà åäèí ñòóäåíò). Çàáðàâÿø çà ôàéëîâå îò òèï binary èëè text, íå òè òðÿáâàò â ñëó÷àÿ;
- îòâàðÿíåòî íà ôàéëà çà ðàáîòà è çàòâàðÿíåòî ìó å äîáðå äà ñòàâàò â êîíòðóêöèÿòà (ïðîöåäóðàòà), â êîÿòî ñå èçâúðøâà ñàìàòà ðàáîòà. Ïî ïðèíöèï. Àêî íå äúðæèø äà å èçïèïàíî â òàçè ïîñîêà - îòâàðÿø ôàéëà â íà÷àëîòî íà îñíîâíàòà ïðîãðàìà, âèêàø ïîäïðîãðàìèòå äà ñè ñâúðøàò ðàáîòàòà è çàòâàðÿø ôàéëà, ìàëêî ïðåäè êðàÿ íà îñíîâíàòà ïðîãðàìà;
- êàê ùå ðàáîòèø ñ ôàéëà å âúïðîñ íà çàäàäåíî óñëîâèå íà çàäà÷àòà (àêî å óòî÷íåíî èçðè÷íî) èëè òâîÿ èíòåðïðåòàöèÿ (àêî å êàçàíî äà èìà äàííèòå âúâ ôàéë, íî íå å êàçàíî êàêâî äà ñå ïðàâè ñ ôàéëà) - äàëè ùå ïèøåø âñè÷êî âúâ ôàéëà â åäíà ïðîöåäóðà ïðè âúâåæäàíåòî íà äàííèòå, ùå çàòâîðèø ôàéëà, ïîñëå ùå ãî îòâîðèø â äðóãà ïðîöåäóðà è èç÷åòåø îòíîâî âñè÷êî â ïàìåòòà è ïîñëåäâàùî ñìÿòàíå íà ñðåäåí óñïåõ ... èëè ùå âúâåäåø â åäíà ïðîöåäóðà äàííèòå â ïàìåòòà, â äðóãà ïðîöåäóðà ùå íàñìÿòàø ñðåäåí óñïåõ è â òðåòà ïðîöåäóðà ùå çàïèøåø äàííèòå âúâ ôàéëà.
Êîçìåòèêè:
- ìàõíè òåÿ íåäîìèñëèöè (óåá-ïðåäñòàâÿíåòî íà êèðèëèöà), íå çíàì îòêúäå ñè êîïè/ïåéñòâàë òîÿ ôðàãìåíò êîä. Çàìåíè ñòðèíãîâåòå çà îòïå÷àòâàíè ñúñ øëüîêàâèöà, àêî íå ñè ñèãóðåí äàëè ùå ñå âèæäà êîðåêòíî íà êîíçîëàòà, ïðè èçïúëíåíèå íà ïðîãðàìàòà;
- êîãàòî èçâåæäàø ïîäñåùàø íàäïèñ, ñëåä êîéòî ùå î÷àêâàø äà áúäå âúâåäåíî íåùî, ïîëçâàé "write" âìåñòî "writeln". Ðàçëèêàòà å, ÷å êóðñîðà íÿìà äà òè ñå "ñâëå÷å" íà ñëåäâàùèÿ ðåä, à ùå ìèãà âåäíàãà ñëåä ïîäñåùàùîòî ñúîáùåíèå. Ò.å. write("alabala: ");readln(a_de);Àïðîïî, ïðåç ... adblock-à ìè å çà çà÷åðâåíèòå îò òúðêàíå ðú÷è÷êè íà ðúêîáëóäöèòå
hardwarebg.com##DIV[id^="helpfulanswers_box"]
-
15th December 2017 13:02 #5
Îùå åäíà âàæíà ïîäðîáíîñò çà Pascal, êîÿòî â äíåøíî âðåìå íè ñå ñòðóâà ñìåøíà- òîâà å ïàìåòòà. Pascal îòäåëÿ 64ê ïàìåò çà äàííè. Àêî íå íè ñòèãàò ñå ïîñÿãà êúì äðóã áëîê ïàìåò (ñ GetMem èëè new), êîéòî ñúùî íå ìîæå äà å ïî-ãîëÿì îò 64ê.  ïðèìåðà òè ìàñèâà ñ îöåíêè íàäõâúðëÿ ìíîãîêðàòíî òèÿ 64k è êîìïèëàöèÿòà íå áè òðÿáâàëî èçîáùî äà ìèíå, îñâåí àêî íå å èçêëþ÷åíà ïðîâåðêàòà ðàçìåðíîñò {$R-}.
Ðàäèîòî ïîçâîëÿâà íà ãëóïîñòòà äà ñå ÷óå, òåëåâèçèÿòà- äà ñå âèäè, à èíòåðíåò- äà ñå ðàçïðîñòðàíè.
-
15th December 2017 14:50 #6
Òî íÿìà è íóæäà ìàñèâúò ñ îöåíêè äà å òîëêîâà ãîëÿì. Çàäà÷àòà å ñ ó÷åáíà öåë, òàêà ÷å íå âèæäàì ïðîáëåì äà áúäàò 10. À àêî ùå è 1000 äà ñà, ïàê ùå ñå âìåñòÿò â áëîê÷åòî.  êðàéíà ñìåòêà, ïîíå â íà÷àëîòî òðÿáâà äà áúäàò ìàëêî, çà äà ìîæå äà ñå ñìÿòà è íà óì è äà ñå ñâåðè ñ èçõîäà îò ïðîãðàìàòà.
Fujistu Lifebook E756 | Core i7-6500U / 400MHz-3.1GHz | 8 GB DDR4-2133 | Samsung PM871 / 256 GB SSD | 15" 1920x1080 | Manjaro Linux + kernel 4.19
-
16th December 2017 13:16 #7Registered User
Join Date: Oct:2003
Posts: 1,860
Òîé íå òå èçõâúðëÿ, òîé êðîòêî è óñïåøíî ïðèêëþ÷âà. Ïðî÷èòà m,n,j,f ñëåä êîåòî íÿìà êàêâî ïîâå÷å äà ïðàâè. Ïðè òîâà âúïðîñíèòå ïðîìåíëèâè ïî íèêàêúâ íà÷èí íå ñà ñâúðçàíè ñ åäèíñòâåíèÿ ñòóäåíò, êîéòî ñè îáÿâèë â ïðîìåíëèâàòà x. 123 ìèëèîíà îöåíêè ìè èäâàò ìàëêî â ïîâå÷å äà ìîæå äà ïîëó÷è äàäåí ÷îâåê ïðåç öåëèÿ ñè æèâîò, íî ùå ìè å èíòåðåñåí îïèòà äà âúâåäåø âõîäíè äàííè äîðè çà åäèíñòâåíèÿ ñè ñòóäåíò.
-
16th December 2017 14:31 #8
-ôàéë ñ èíôîðìàöèÿ çà ñòóäåíòèòå,áåç ñðåäåí óñïåõ
-èç÷èñëÿâàíå íà ñðåäåí óñïåõ íà âñåêè ñòóäåíò
-èçâåæäàíå íà ôàê.íîìåð íà ñòóäåíòè ñ ïîâå÷å îò òðè äâîéêè
-Ïðåäè êîÿ äàòà òðÿáâà äà ñà ðîäåíè ñòóäåíòèòå
Code:EGN: integer;
Last edited by ike; 16th December 2017 at 15:53.
Have no fear ike iz here.
CPU Cx486DLC@40MHz, RAM 4MB, VGA Trident 512KB, HDD Conner 160MB, Monitor 14" Color




Reply With Quote

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