Results 1 to 6 of 6
Thread: Ïîìîù çà êóðñîâà ðàáîòà
Hybrid View
-
23rd October 2007 16:16 #1_
Join Date: Apr:2006
Location: _
Posts: 1,128
Ïîìîù çà êóðñîâà ðàáîòà
Çäðàâåéòå,
Áèõ èñêàë äà ïîìîëÿ íÿêîé êîéòî ðàçáèðà îò Ïàñêàë è èìà âúçìîæíîñò äà ñå ïîçàíèìàâà ñ ìîÿ ïðîáëåì àêî èìà âîëÿ äà ìè ïîìîãíå.
Óñëîâèåòî íà çàäà÷àòà å
Äà ñå ñúñòàâè ïðîãðàìà êîÿòî äà ñîðòèðà åëåìåíòèòå íà åäíîìåðåí ìàñèâ è äà âúâåæäà:
- âúâåæäà öåëî÷èñëåíà ìàòðèöà ÌÀÒ (3,3)
- îòïå÷àòâà ÿ
- ñîðòèðà åëåìåíòèòå íà âñåêè ÷åòåí ñòúëá â âúçõîäÿù ðåä è åëåìåíòèòå îò íå÷åòåí ñòúëá â íåñõîäÿù ðåä
- îòïå÷àòâà òàêà ïîëó÷åíàòà ìàòðèöà
program demo1;
const
m = 3;
var
flag : boolean;
rez : real;
I, J, k, L : Integer;
type
mat = array[1..m,1..m] of Integer;
A = array[1..m] of real;
begin
for I := 1 to m do
for J := 1 to m do
repeat
write ('Vavedete stoinostta na matritzata [',I,',',J,') = ');
readln (mat [I,J]);
until ((mat[I,J] >= -10000) and (mat[I,J] <= 10000));
writeln;
writeln (' Vavedenite stoinosti na masiva sa: ');
writeln;
----------------------------------------------------------------------------------
Äî òóê ñòîéíîñòèòå ñå âúâåæäàò êîðåêòíî.
begin
for I := 1 to m do
begin
for J := 1 to m do
write (mat [I,J]:5);
writeln;
writeln;
end;
begin
for k := 1 to L do
if (k mod 2 = 0) then
for I := 1 to L - 1 do
for J := I+1 to L do
if (A[I] < A[J]) then
begin
flag := false;
rez := a[J];
a[J] := a[I];
a[I] := rez;
end
else
for I := 1 to L - 1 do
for J := I+1 to L do
if (a[I] > a[J]) then
begin
rez := a[J];
a[J] := a[I];
a[I] := rez;
end;
writeln ('Sortiraniqt masiv e:');
writeln;
for I := 1 to m do
write (A[I]:6:1);
readln;
end;
end;
end.
Ñïðàâèõ ñå ñúñ çàäà÷àòà íî ñàìî äî íÿêàäå. Ïðè êîìïèëèðàíåòî íà êîäà ñå ïîëó÷àâà ãðåøêà êîÿòî íå çíàì êàê äà ïîïðàâÿ.
Áëàãîäàðÿ íà âñè÷êè îòçîâàëè ñå?
ï. ï. Ìîëÿ àäìèíà äà èçòðèå çàäà÷àòà îò ñòàðàòà òåìà Pascal.Last edited by Red_Leader; 23rd October 2007 at 18:15.
-
23rd October 2007 18:04 #2Registered User
Join Date: Oct:2003
Location: Ñîôèÿ
Posts: 4,317
Àêî áåøå êàçàë ãðåøêàòà, ùåøå äà å ìíîãî ïî-ëåñíî.
Íà ïðúâ ïîãëåä íèêúäå íå âèæäàì äà ñè çàäàë ñòîéíîñò íà ïðîìåíëèâàòà L. Ïðåäïîëàãàì, ÷å öèêúëúò for òðÿáâà äà å íå îò 1 äî L, à îò 1 äî m.
Îñâåí òîâà íå çàòâàðÿø ïðàâèëíî äâàòà öèêúëà çà îòïå÷àòâàíå - âñúùíîñò çàòâàðÿø ñàìî âúòðåøíèÿ. Äàæå êàòî ñå çàãëåäàõ, ìàé è äðóãèòå âëîæåíè öèêëè íå ñà çàòâîðåíè ïðàâèëíî.
Çà äà ñå íàìàëÿò òàêèâà îáúðêâàíèÿ, ñà èçìèñëåíè îòñòúïèòå ïðè ïèñàíå íà êîä. Íåùî, êîåòî áè òðÿáâàëî ïðåïîäàâàòåëÿò íàé-ìàëêîòî äà âè å ïîêàçàë, äîðè è äà íå å îáÿñíèë çàùî ñå ïðàâè òàêà.
-
23rd October 2007 18:30 #3
ìîæå è äà å ñ îòñòúïè, ôîðóìà ìàõà ñïåéñîâåòå â íà÷àëîòî. Äðóãà äîáðà ïðàêòèêà å ñ ïèñàíåòî íà äóìàòà/ñèìâîëà çà îòâàðÿíå íà áëîê, âåäíàãà äà ñå ïèøå òîçè çà çàòâàðÿíå, ñòðåëêà íàëÿâî è ïðîäúëæàâàø äà ïèøåø.
EVGA X299 FTW K|i9-7960X@4.7|4x8 Patriot Viper Steel 4000|GTX 1660 Ti|970 EVO 1 TB|Seasonic Focus GX-1000|Xigmatek Elysium|Êèëî è ïîëîâèíà âîäà
Rampage IV Extreme BE|E5-1680v2@4.7|4x4 HyperX 1866|Cougar Aqua 240|GTX 1050 Ti|970 EVO 1/4 TB|CM 850 SilentPro|HAF-X|Áåç èñòèíñêî âîäíî
-
23rd October 2007 19:14 #4_
Join Date: Apr:2006
Location: _
Posts: 1,128
ùå ìîæå ëè íàïðàâî äà ñëîæèòå â îòãîâîðà öåëèÿ êîä ñ íàíåñåíè ïîïðàâêè òàêà ìè å òðóäíî ðàçáèðàì èäåéòå âè
-
23rd October 2007 20:00 #5Registered User
Join Date: Jul:2006
Location: Ñîôèÿ
Posts: 480
Ìàëêî òúïî, íàèñòèíà. Íîðìàëíî å âñè÷êî â [CODÅ]...[/CODÅ] äà å íåïîêúòíàòî, òàêà êàêòî àâòîðúò ãî å íàïèñàë ñ âñè÷êèòå ìó èíòåðâàëè, òàáóëàöèè è ò.í. Òàêà êàêòî ñå èíòåðïðåòèðà <PRE>...</PRE> â HTML.
Ðåäàêòîðúò ìè ïðåâðúùà òàáóëàöèèòå â èíòåðâàëè, êîåòî å ðàçóìíî, êàòî ñå èìà âïðåäâèä, ÷å òàáóëàöèÿòà ñå èíòåðïðåòèðà ðàçëè÷íî îò ðàçëè÷íèòå ïðîãðàìè, à àç èñêàì äà âèæäàì êîäà ñè ôîðìàòèðàí ïðàâèëíî.
À ôîðóìúò ìè ñêàïâà öåëèÿ êîä, äîðè äà å ôîðìàòèðàí ïåðôåêòíî. Òîâà ñè å ÷èñòà ïðîáà íåäîìèñëèöà...
-
23rd October 2007 20:25 #6_
Join Date: Apr:2006
Location: _
Posts: 1,128
åòî êîäà íàáðàí íà Ïàñêàë
Êàòî ãî èçòåãëèòå çà äà ãî îòâîðèòå èçòðèèòå .txt




Reply With Quote

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