В общем, нужно построить 2 блок схемы, может быть чуть подправить программу. проги не сложные. одна на массив, другая на что-то подобное. вознагражу Яденьгами! icq 324000058
program dz5; {Laboratornaya rabota #5, variant #10, Litovka.T.K., st. gr. A493} var a:array[1..15] of integer; i,prom,j,n:integer; begin writeln; writeln('vvedite 15 chisel massiva:'); for i:=1 to 15 do read(a); begin n:=15; for i:=1 to n-1 do for j:=1 to n-i do if a[j]>a[j+1] then begin prom:=a[j]; a[j]:=a[j+1]; a[j+1]:=prom; end; end; writeln; writeln('uporyadochniy massiv'); for i:=1 to 15 do write(a,' '); readln; end.
program massiv_2;{litovka.T gr.A493} const c=4; var a:array[1..c,1..c] of real;{massiv} s:array[1..c] of real;{summa elementov} i,j:integer; begin writeln('vvedite massiv'); writeln('posie vvoda elementov kajdoy stroki,',c,'najimayte <Enter>'); for i:=1 to c do begin write('=>'); for j:=1 to c-1 do read(a[i,j]); readln(a[i,c]); end; writeln('vvedenniy massiv'); for i:=1 to c do begin for j:=1 to c-1 do write(a[i,j]:4:2,' '); writeln(a[i,c]:4:2,' '); end; for i:=1 to c do {dlya kajdoy stroki} for j:=1 to c do {summiruem elementi 1 snroki} s:=s+abs(a[i,j]); for j:=1 to c do writeln(s[j]:4:2); readln; end. Это вторая. Как я понимаю, в конечном итоге выводится на экран 4 числа эти числа- это суммы строк матрицы. Нужно, чтобы прога выводила только одно чмсло- наибольшую сумму из получившихся строк. вот
не, ну это позор вообще. так лень усвоить как строятся блок-схемы? 1) сортировка пузырьком... тебе даже трудно гуглом воспользоваться гугл- картинки- сортировка пузырьком 2) 30 минут чтения книги по паскалю и решение найдено.
Есть прога которая строит блок схемы Дельфи/Паскаль. www.google.com "программа для построения блок схем Паскаль"
так они все строят какие-то не те совсем блок схемы. якобы, со слов препода, не по госту.. Это не мне нужно, а моей девушке, учащейся, зачем-то в Военмехе) я в паскале практически ничего не понимаю, поэтому и прошу в Вас помощи, господа..
