program kursovakopach; uses crt; type arr= array[1..5,1..5]of real; xrr= array[1..5]of real; var a:arr; x:xrr; g:real; procedure mas(var a:arr); var i,j:integer; begin for i:=1 to 5 do for j:=1 to 5 do a[i,j] := cos(exp((i+j)*ln(2))) + 1/exp(i+j); i:=1; while i<=5 do begin j:=1; while j<=5 do begin write(' a[',i,j,']=',a[i,j]:5:3); j:=j+1; end; i:=i+1; writeln; end; end; procedure vector(a:arr;var x:xrr); var i,j:integer; MAX:real; begin for i:=1 to 5 do begin MAX:=a[i,1]; for j:=1 to 5 do if A[i,j]>max then max:=A[i,j]; x[i]:=MAX*max; end; for i:=1 to 5 do writeln('x[',i,']=',x[i]:5:3); x[i]:=sqr(max); end;
procedure func (x:xrr;var g:real); var k,i:integer; s,p:real; begin s:=0; i:=1; while i <= 5 do begin p:=1; k:=1; while k<= 1 do begin p:=p*(x[k]/k+1); k:=k+1; end; s:=sin(s+(x[i]+arctan(p))); i:=i+1; end; g:=s; writeln ('g=',g:5:3); end;
begin clrscr; mas(a); vector(a,x); func (x,g); readln; end.
Lapp
13.04.2011 5:24
Цитата(oleg @ 12.04.2011 9:41)
Нужно 3 Блок-Схемы
Удивительные люди.. Притащат чужую прогу, а ты им ее еще разбери и прокомментируй..
oleg, я с радостью сделаю это для тебя. Хоть десять. Цена: $50 за одну БС. Перенести тему в "Задачи на заказ"? Не исключено, что там строгуешься подешевле, лоботряс. А заодно - клиентов не обзывают..
P.S. И что ли повесить на главную страницу большую объяву:
С ПОПРОШАЙНИЧЕСТВОМ БЛОК-СХЕМ НЕ ОБРАЩАТЬСЯ!!
- а?
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.