Поогите решить задания

[Velana]

Здравствуйте, вы сможете решить задания по информатике на тему циклический алгоритм и массивы, нужно составить блок схему и написать программу на языке паскаль
http://files.mail.ru/DK5X1H
http://files.mail.ru/B74PZO

[gaw4]

"вы сможете решить задания "
это вопрос или утверждение ?

[Velana]

Это вопрос и крик о помощи

[Son Of Pain]

Сможем. Но зачем?

[Velana]

Я учусь на специальности информатик-менеджер, дали задания на сессию нужно сдать до 13 января

[whatever]

Сообщение от Velana

Я учусь на специальности информатик-менеджер, дали задания на сессию нужно сдать до 13 января

Ну тем более, либо справляйся сам, либо показывай наработки и задавай конкретные вопросы. Ты же не на экономиста учишься, в таких вещах должен разбираться.

P.S. я это написал не для того, что бы что-то написать, экономлю тебе время. Практически каждый из местных форумчан скажет тебе то же самое. Остальные отправят в раздел фриланс\предложат решить за деньги.

[Mad_Cat]

#1

program Happy_New_Year_2;
uses crt;
Function ctg(x:real):real;
begin
ctg:=cos(x)/sin(x);
end;
Function pow(x,y:real):real;
begin
pow:=exp(y*ln(x));
end;
var x,y,z,U:Real;
hx,hy,hz:real;
 x1,y1,z1,U1:Real;
begin
U1:=maxint;
x:=1;hx:=0.6;
while x<=2 do
begin
z:=1;hz:=0.4;
while z<=3 do
begin
y:=0.1;hy:=0.05;
while y<=0.7 do begin
U:=ctg(pow(x,y)+3*z*Z);
writeln(' x=',x:6:2,' z=',z:6:2,' y=',y:6:2,' U=',u:6:2);
if U<U1 then begin U1:=U;x1:=x;y1:=y;z1:=z;end;
y:=y+hy;
end;
z:=z+hz;
end;
x:=x+hx;
end;
Writeln('++++++++++++++++++++++++++++++++++++');
writeln(' x=',x1:6:2,' z=',z1:6:2,' y=',y1:6:2,' minU=',u1:6:2);
Writeln('++++++++++++++++++++++++++++++++++++');
readln;
end.

#2

program Happy_New_Year;
const n=4;
var A:array[1..n,1..n] of real;
s:real;
max:real;
i,j:integer;
begin
randomize;
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=random(17)-8;
write(a[i,j]:6:2);end;
writeln;
end;
max:=-maxint;
for i:=1 to n do
for j:=1 to n -i do
if(a[i,j]<0) and (a[i,j]>max) then max:=a[i,j];
for i:=1 to 4 do
s:=s+a[i,3];
s:=s+3*a[2,3];
s:=sin(s);
Writeln('++++++++++++++++++++++++++++++++++++');
writeln('Max=',max:6:2);
writeln('Sum=',s:6:2);
readln;
end.