Полезное:
Как сделать разговор полезным и приятным
Как сделать объемную звезду своими руками
Как сделать то, что делать не хочется?
Как сделать погремушку
Как сделать так чтобы женщины сами знакомились с вами
Как сделать идею коммерческой
Как сделать хорошую растяжку ног?
Как сделать наш разум здоровым?
Как сделать, чтобы люди обманывали меньше
Вопрос 4. Как сделать так, чтобы вас уважали и ценили?
Как сделать лучше себе и другим людям
Как сделать свидание интересным?
Категории:
АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника
|
Елементи масиву мають тип real
БЛОК-СХЕМА АЛГОРИТМУ
БАЗОВА ПРОГРАМА В СИСТЕМІ TURBO PASCAL(7.0) (БЕЗ ВИКОРИСТАННЯ ПРОЦЕДУР) Program Kursovaj; Uses Crt; Const Len=15; Type mtr=array[1..Len,1..Len] of real; mas=array[1..Len] of real; Var i,j,n,t,dod,z:integer; a:mtr; x,m_max,m_min,o:mas; u,flazhok,min,max,maxmax,minmin,sum,mm,ymn:real; BEGIN Clrscr; writeln ('Vvedite razmernost matrix A: n'); write ('n='); read (n); write('flazhok=');read(flazhok); Writeln; For i:= 1 to n do Begin For j:= 1 to n do Begin if flazhok<0 Then Begin a[i,j]:=(j-5.7)*sqrt(abs(sin((i*i+j*j)+(2-(j-5)*(j-5))))); End Else begin write('a[',i,',',j,']='); read(a[i,j]); End; end; End; Clrscr; write('N=',N:5); Writeln; write('flazhok=',flazhok:5:0); Writeln; writeln('Matrica'); For i:= 1 to n do Begin For j:= 1 to n do write('a[',i,',',j,']=',a[i,j]:5:2,' '); Writeln; Writeln; End; Writeln; BEGIN writeln('Vector'); For i:=1 to n do Begin min:=a[i,1]; max:=a[i,1]; for j:=1 to n do Begin if min>a[i,j] then min:=a[i,j]; if max<a[i,j] then max:=a[i,j]; End; m_max[i]:=max; m_min[i]:=min; End; maxmax:=m_max[1]; minmin:=m_min[1]; For i:=1 to n do Begin if maxmax<m_max[i] then maxmax:=m_max[i]; if minmin>m_min[i] then minmin:=m_min[i]; End; if (minmin>0) and (maxmax>0) then Begin for i:=1 to n do Begin t:=i; x[t]:=m_max[i]+m_min[i]; write('x[',t,']=',x[t]:5:3,' ') End; End else if (minmin<0) and (maxmax<0) then Begin for i:=1 to n do Begin t:=i; x[t]:=m_max[i]+m_min[i]; write('x[',t,']=',x[t]:5:3,' ') End; End else Begin t:=0; For j:=1 to n do Begin dod:=0; for i:=1 to n do Begin if a[i,j]>0 then dod:=dod+1; End; if dod=n/2 Then Begin t:=t+1; sum:=0; for i:=1 to n do Begin sum:=sum+a[i,j] End; x[t]:=sum; write('x[',t,']=',x[t]:5:3,' ') End; End; End; Writeln; z:=0; for i:=1 to (t-1) do Begin z:=z+1; o[z]:=x[i]+x[i+1]; End; mm:=o[1]; ymn:=1; for i:=1 to z do Begin if mm<o[z] then mm:=o[i]; End; if mm>maxmax then u:=mm Else Begin for i:=1 to t do Begin if i mod 2=0 then ymn:=ymn*x[i]; End; u:=ymn; End; writeln('funksia U=',u:5:3); Repeat until keypressed; End; End.
ПРОГРАМА З ВИКОРИСТАННЯМ ПРОЦЕДУР В СИСТЕМІ TURBO PASCAL(7.0)
|