arkadaşlar pascalda ödevim için yardımlarınız gerekli

[aldl88]

Arkadaşlar hoca pacsaldan ödev verdi ama tıkandım yardım edebilirmisiniz.


Ödevin İngilizcesi Şu : Make a flowchart of an algorithm for calculation of the number and the sum of all elements smaller than Y on the minor diagonal of a 2D array with 20 rows and 20 columns. The value of Y is input by the keyboard. The program has to utilize subprograms for input of the array elements from the keyboard, output of the array elements on the screen, calculation and output the results on the screen.

Türkçesi : 20 satırlı ve 20 sutünlu bir 2D diziliminin küçük köşegeni üzerinde Y den küçük tüm elementlerin toplamının ve sayılarının hesabı için bir algoritmanın akış şemasını çiziniz.Y nin değeri klavye tarafından verilir .Program klavyeden sıralı elementlerin girişi ,ekrandaki sıralı elementlerin çıkışı ,hesaplama ve çıkış sonuçları için subprogram kullanılmalıdır.
Türkçesinden tam emin değilim ama bukadar çevirebildim.
Yardımlarınızı bekliyorum

[frkncyr]

dejavu mu yaşıyorum acaba sanki bu konuyu bi yerde daha görmüştüm;

http://www.pcnet.com.tr/forum/progra...al-yardim.html

[canosayan]

hayır farklı sorular
o konuda y değil 3 idi.

muhtemelen işinize karışmak gibi olacak. olsun

muhtemelen pascalda belli bir düzeye kadar eğitim aldınız. hatta içimden bir ses çok boyutlu dizileri işlediğinizi söylüyor.
bu soruyu yapamamanız için bir neden göremiyorum.

[frkncyr]

hayır farklı sorular
o konuda y değil 3 idi.

muhtemelen işinize karışmak gibi olacak. olsun

muhtemelen pascalda belli bir düzeye kadar eğitim aldınız. hatta içimden bir ses çok boyutlu dizileri işlediğinizi söylüyor.
bu soruyu yapamamanız için bir neden göremiyorum.

bunları banamı söylediniz yoksa soruyu soran arkadaşa mı??

[aldl88]

Arkadaşlar ana programı yazdım fakat birde bu programa, gireceğim y sayısından küçük sayıları toplaması için bir alt program eklemem lazım bunu nasıl yapabilirim.



Program Diagonals;
{Program that processes 2D array elements on the diagonals}
Uses Crt;
Const N = 20;
Type TArray = Array [1..N, 1..N] of Integer;
Var A : Tarray;
I, J : Integer;
Sum, Min, Max : Integer;
Average : Real;
MainArr : Array[1..N] of Integer;
Temp : Integer;
Begin
ClrScr;
{Input the array elements}
for I := 1 to N do
for J := 1 to N do
begin
Write('Enter array element ',I,',',J,' :');
Read(A[I,J]);
end;
{Output the array elements}
for I := 1 to N do
begin
for J := 1 to N do Write(A[I,J]:3);
Writeln;
end;
WriteLn;
{Find the sum of all elements on the main diagonal}
Sum := 0;
for I := 1 to N do
for J := 1 to N do
if I=J then Sum := Sum + A[I,J];

WriteLn('Sum of all elements on the main diagonal:', Sum);
{Sort the elements on the main diagonal by value in ascending order}
for I := 1 to N do
begin
Write(A[I,I]:3 );
MainArr[I] := A[I,I];
end;
WriteLn;
for I := 1 to N-1 do
for J := I to N do
if MainArr[I]>MainArr[J] then
begin
Temp := MainArr[I];
MainArr[I] := MainArr[J];
MainArr[J] := Temp;
end;
{Output the sorted values on the main diagonal}
for I := 1 to N do Write(MainArr[I]:3);
Readkey;
End.