Results 1 to 4 of 4
Thread: Ïðîãðàìà íà Pascal - Ïîìîãíåòå
Hybrid View
-
3rd December 2008 00:02 #1Registered User
Join Date: Dec:2008
Location: Sofiq
Posts: 2
Ïðîãðàìà íà Pascal - Ïîìîãíåòå
Çäðàâåé òå è áëàãîäàðÿ ïðåäâàðèòåëíî...
Äàäåíè ñà 3 äâóìåðíè ìàñèâà À[M,N], B[M,N], C[M,N] (M<=20, N<=20 M è N ñå âúâåæäàò îò êëàâèàòóðàòà) ñ ðåàëíè åëåìåíòè. Äà ñå ðàçðàáîòÿò 3 ïðîöåäóðè çà èçïúëíåíèå íà ñëåäíèòå äåéñòâèÿ:
-âúâåæäàíå íà åëåìåíòèòå â ìàñèâèòå
-îòïå÷àòâàíå íà âúâåäåíèòå åëåìåíòè â ìàñèâèòå
-ñîðòèðàíå íà ìàñèâèòå â íèçõîäÿù ðåä ïî êîëîíè è îïðåäåëÿíå íà íîìåðà íà êîëîíàòà ñ íàé-ìàëúê ïî ñòîéíîñò ìèíèìàëåí åëåìåíò
 ãëàâíàòà ïðîãðàìà ïðîöåäóðèòå ñå èçâèêâàò ïîñëåäîâàòåëíî çà âñåêè ìàñèâ.
-
3rd December 2008 00:47 #2
Ïúðâî, êàòî çà íà÷àëî, íàäÿâàì ñå ñè ïðî÷åë òîâà.
À çàäà÷êàòà å åëåìåíòàðíà. Ñúçäàâàø ñè ìàñèâèòå äà ñà òè 20õ20. ×åòåíåòî è îòïå÷àòâàíåòî íàäÿâàì ñå òè å ÿñíî, çà ñîðòðàíå ìîæåø äà ïîëçâàø êîé äà å àëãîðèòúì çà ñîðòèðàíå - íàïðèìåð ìåòîäà íà ìåõóð÷åòî (âèæ è àíãëèéñêàòà âåðñèÿ, òàì å îáÿñíåíî ïî-ïîäðîáíî).Åòî òàêà ñå ïëîäÿò òå, êàçâàì ñè àç. Ïîä íîñà òè.
"640K îught to be enough for anybody" - Bill Gates, 1981
Òåñòîâå íà áàòåðèè::Machine specs::Fract::AGG::ÍåÑåÑúðäè×îâå÷å::Baileys::blog::YouTube channel
-
4th December 2008 15:01 #3Registered User
Join Date: Dec:2008
Location: Sofiq
Posts: 2
Ïîìîù çà ïðîãðàìà íà Pascal
Çäðàâåéòå, èçâèíÿâàì ñå, ÷å íå áÿõ ïóñíàë êîä â ïðåäèøíàòà òåìà
Äàäåíè ñà 3 äâóìåðíè ìàñèâà À[M,N], B[M,N], C[M,N] (M<=20, N<=20 M è N ñå âúâåæäàò îò êëàâèàòóðàòà) ñ ðåàëíè åëåìåíòè. Äà ñå ðàçðàáîòÿò 3 ïðîöåäóðè çà èçïúëíåíèå íà ñëåäíèòå äåéñòâèÿ:
-âúâåæäàíå íà åëåìåíòèòå â ìàñèâèòå
-îòïå÷àòâàíå íà âúâåäåíèòå åëåìåíòè â ìàñèâèòå
-ñîðòèðàíå íà ìàñèâèòå â íèçõîäÿù ðåä ïî êîëîíè è îïðåäåëÿíå íà íîìåðà íà êîëîíàòà ñ íàé-ìàëúê ïî ñòîéíîñò ìèíèìàëåí åëåìåíò
 ãëàâíàòà ïðîãðàìà ïðîöåäóðèòå ñå èçâèêâàò ïîñëåäîâàòåëíî çà âñåêè ìàñèâ.
à åòî è äî êúäå ñúì ñòèãíàë...
CODE
program var5(Input,Output);
const
max=20;
type
Matrix=array[1..20,1..20] of Real;
var
A,B,C:Matrix;
m,n:integer;
procedure Inp(var E:Matrix; name: char);
var
i,j:integer;
begin
for i:=1 to m do
for j:=1 to n do
begin
write(name,'[',i,',',j,']=');
readln(E[i,j]);
end;
end;
procedure Sortcolumn(var E:Matrix);
var
i,j,b,col:integer;
F:Boolean;
max:Real;
begin
col:=1;
max:=E[1,1];
for j:1 to m do
begin
repeat
F:=True;
for i:=1 to n-1 do
if(E[i,j]<E[i+1,j]) then
begin
b:=E[i,j];
E[i,j]:=E[i+1,j];
E[i+1,j]:=b;
F:False;
end;
until F:=True;
write(E[i,j]:6:2);
write('Kolonkata s nai-malyk po stoinost minimalen element e: ',col);
end;
procedure Otp(var E:Matrix; name: char);
var
i,j:integer;
begin
for i:=1 to m do
begin
for j:=1 to n do
begin
writeln(name,'[',i,',',j,']=',E[i,j]:6:2);
end;
end;
end;
begin
repeat
begin
write('Vyvedete redovete na masivite (maksimalno',max,'): ');
readln(m);
end;
until (m>1) and (m<=20);
repeat
begin
write('Vyvedete stulbovete na masivite (maksimalno',max,'): ');
readln(n);
end;
until (n>1) and (n<=20);
writeln('Vyvedohte slednata matrica: [',m,',',n,']');
end;
Inp(A, 'A');
Otp(A, 'A'); readln;
Inp(B, 'B');
Otp(B, 'B'); readln;
Inp(C, 'C');
Otp(C, 'C'); readln;
end.
-
21st December 2008 15:06 #4Registered User
Join Date: Nov:2005
Location: Bulgaia, Sofiq
Posts: 1
Äî êúäå ñòèãíà ñ ïðîãðàìêàòà?




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