Нужно 3 Блок-Схемы (или сколько напишете)=)) Опции

[oleg]

Нужно 3 Блок-Схемы

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.

Сообщение отредактировано: oleg - 12.04.2011 8:42

[Lapp]

Нужно 3 Блок-Схемы

Удивительные люди.. Притащат чужую прогу, а ты им ее еще разбери и прокомментируй..

oleg, я с радостью сделаю это для тебя. Хоть десять. Цена: $50 за одну БС. Перенести тему в "Задачи на заказ"? Не исключено, что там строгуешься подешевле, лоботряс. А заодно - клиентов не обзывают..


P.S.
И что ли повесить на главную страницу большую объяву:

С ПОПРОШАЙНИЧЕСТВОМ БЛОК-СХЕМ НЕ ОБРАЩАТЬСЯ!!

- а?