31.12.2010, 12:33 | #1 (permalink) |
Member
Регистрация: 15.11.2010
Сообщений: 34
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Составить блок-схему
Код:
Program z5; var min: integer; x,y,i,j:byte; v:array[1..3,1..5] of integer; const b: array[1..3,1..5] of integer = ((2,2,2,2,2),(2,2,1,2,2),(2,2,2,2,2)); begin writeln ('zadannaja matrica B'); for i:=1 to 3 do begin writeln(''); for j:=1 to 5 do begin write ('',b[i,j]); end; end; writeln (''); min:=b[i,j]; x:=1; y:=1; for i:=1 to 3 do for j:=1 to 5 do begin if min>b[i,j] then begin min:=b[i,j]; x:=i; y:=j; end; end; for i:=1 to 3 do for j:=1 to 5 do begin if (i<>x) and (j<>y) then v [i,j]:=b[i,j] else v[i,j]:=0; end; writeln ('minimalnyj element b [',x,',',y,']'); writeln ('matrica V'); for i:=1 to 3 do begin writeln (''); for j:=1 to 5 do begin write ('',v[i,j]); end; end; end. |
31.12.2010, 12:33 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
На форуме есть и похожие темы, вот их список Помогите пожалуйста составить блок-схему! Составить схему измерительного усилителя Построить блок-схему |
15.09.2013, 14:02 | #3 (permalink) | ||
Новичок
Регистрация: 15.09.2013
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
|
||
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|