10.12.2012, 21:01 | #1 (permalink) |
Member
Регистрация: 05.11.2012
Сообщений: 25
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Блок-схема по тексту программы
Код:
Program Lab5; const Nmax=10; type matr=array[1..Nmax, 1..Nmax] of real; vect=array[1..Nmax] of real; var N:Integer; Y:real; A:matr; X:vect; Procedure Matrica; var i,j:integer; begin for i:=1 to N do begin for j:=1 to N do begin A[i,j]:=power(-1,i+j)*(4.3-i)/Abs(0.2-i*j)/N; write(A[i,j]:8:3); end; writeln; end; writeln; end; Procedure Vector; var i,j,k:integer; s:real; begin for i:=1 to N do begin k:=0; s:=0; for j:=1 to N do if A[i,j]>0 then begin s:=s+A[i,j]; Inc(k); end; if k>0 then X[i]:=s/k else X[i]:=0; Writeln('X[',i,']= ',X[i]:0:3); end; Writeln; end; Procedure Porjadok; var i,j,k:integer; c:real; begin for j:=1 to N do for i:=1 to N-1 do for k:=1 to N-i do if A[k,j]>A[k+1,j] then begin c:=A[k,j]; A[k,j]:=A[k+1,j]; A[k+1,j]:=c; end; for i:=1 to N do begin for j:=1 to N do Write(A[i,j]:8:3); Writeln; end; Writeln; end; Procedure Fun; var Max,Min:Real; i:Integer; begin Max:=X[1]; Min:=X[1]; For i:=2 to N do begin if X[i]>Max then Max:=X[i]; if X[i]<Min then Min:=X[i]; end; Y:=(Max-Min)/2; Write('Y= ',Y:0:3); end; Begin Write('N= '); Readln(N); Matrica; Vector; Porjadok; Fun; Readln End. Последний раз редактировалось turcia7; 10.12.2012 в 21:09 Причина: не верное название темы |
10.12.2012, 21:01 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Сейчас лучшее, что можно сделать - это прочитать схожие посты Блок-схема Нужна помощь. Блок-схема Блок-схема. Паскаль Блок-схема в Qbasic Нужна блок-схема Блок-схема к программе |
11.12.2012, 00:29 | #3 (permalink) |
С# - learn or die
Регистрация: 17.12.2011
Сообщений: 2,438
Записей в дневнике: 8
Сказал(а) спасибо: 21
Поблагодарили 49 раз(а) в 11 сообщениях
Репутация: 19701
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|