Составить блок-схему и программу

[Татьяна19]

Составить блок-схему и программу

Здравствуйте! помогите с решение пожалуйста

 

[Vladimir_S]

Здравствуйте! помогите с решение пожалуйста

Охо-хо, ну до чего надоело...:tehnari_ru_744: Язык какой?!!! Pascal? Delphi?

 

[Татьяна19]

ой, извиняюсь, Pascal.

 

[Vladimir_S]

С блок-схемами, к сожалению, помочь не смогу, а вот решения - пожалуйста:

1.

Const
 a=5.0;
 x=2.3;
var
 t:Real;
begin
 t:=1.0/Cos(x)+Ln(Abs(Sin(x/2)/Cos(x/2)))+Exp(1.0/3*Ln(a*x));
 Writeln('t= ',t:0:5);
 Readln
end.

2.

Const
 g=9.81;
 L=0.0278;
var
 T:Real;
begin
 T:=2.0*Pi*SQRT(L/g);
 Writeln('T= ',t:0:5,' sec');
 Readln
end.

3.

Var
 a,b,c,d,u1,u2,u3:Integer;
Begin
 write('a= ');
 readln(a);
 write('b= ');
 readln(b);
 write('c= ');
 readln(c);
 write('d= ');
 readln(d);
 if a<b then u1:=a else u1:=b;
 if c>d then u2:=c else u2:=d;
 if u1>u2 then u3:=u1 else u3:=u2;
 writeln('Max[Min(a,b,b*b),Max(c,d)]= ',u3);
 readln
End.

Внимание! Здесь использовано то, что, если b - целое число, то b² НЕ может быть меньше b. А потому в первом минимуме достаточно сравнить a и b.

4.

Var
 a,x,y:Real;
Begin
 write('a= ');
 readln(a);
 write('x= ');
 readln(x);
 if a<x then y:=a*x else
 if a>x then y:=a*a-x*x else
 y:=a*a+x*x;
 writeln('y= ',y:0:5);
 readln
End.

А вообще, Таня, простите, но с подобными глупыми пустячками надо бы справляться самостоятельно, а не бегать по форумам. Извините еще раз.

 

[DDS]

Блок-схемы к 1 и 2 задачам

 

[DDS]

А вот блок-схемы к 3 и 4 задачам.

 

[Татьяна19]

Огромное спасибо за помощь!