Помогите, пожалуйста, горю

[Шипа]

Помогите, пожалуйста, горю

Дали задачи а я понятия не имею как их делать помогите пожалуйста

 

[Vladimir_S]

Дали задачи а я понятия не имею как их делать помогите пожалуйста
Ссылка удалена

К сожалению, мы тут абсолютно бессильны. По крайней мере до тех пор, пока не будет указан язык программирования.

 

[Шипа]

паскаль турбо

 

[Vladimir_S]

паскаль турбо

Тогда проще. Ладно, будет минутка свободная - нарисую. Если кто-нибудь не опередит.

 

[Vladimir_S]

Фух, ну ладно, раз уж обещал, хотя не следовало бы поощрять иждивенчество...
Задание 1

VAR
 x,y,z,p:Real;
BEGIN
 Write('x= ');
 Readln(x);
 Write('y= ');
 Readln(y);
 p:=1.0+Abs(x+y);
 If Sin(p)<>0 then
  begin
   z:=Cos(p)/Sin(p)-p*p*p;
   Writeln('z = ',z:0:5);
  end
 else
  Writeln('No solution!');
 Readln;
END.

Задание 2

VAR
 x:Real;
Function Y(z:Real):Real;
begin
 Y:=Exp(z*Ln(2))+Exp(-z*Ln(4))-Exp(z*Ln(3));
end;
BEGIN
 Write('x= ');
 Readln(x);
 Writeln(Y(x):0:5);
 Readln;
END.

Задание 3

VAR
 AB,BC,AC,ABC,ACB,BAC:Real;

Function P(a,b,c:Real):Real;
begin
 P:=a+b+c;
end;

Function S(a,b,c:Real):Real;
var p2:real;
begin
 p2:=P(a,b,c)/2;
 S:=Sqrt(p2*(p2-a)*(p2-b)*(p2-c));
end;

Function GrRad(x:Real):Real;
begin
 GrRad:=x/180*Pi;
end;

Function RadGr(x:Real):Real;
begin
 RadGr:=x/Pi*180;
end;

Function ArcSin(X:Real):Real;
begin
 if X=1 then ArcSin:=Pi/2
 else
 if X=-1 then ArcSin:=-Pi/2
 else
 ArcSin:=ArcTan(X/Sqrt(1-X*X));
end;

Function FindSide(a,b,C:Real):Real;
begin
 FindSide:=Sqrt(Sqr(a)+Sqr(b)-2.0*a*b*Cos(C));
end;

Function FindAngle(a,b,A_a:Real):Real;
begin
 FindAngle:=ArcSin(b/a*Sin(A_a));
end;

BEGIN
 Write('Side AB= ');
 Readln(AB);
 Write('Side BC= ');
 Readln(BC);
 Write('Angle (degrees) ABC= ');
 Readln(ABC);
 AC:=FindSide(AB,BC,GrRad(ABC));
 ACB:=RadGr(FindAngle(AC,AB,GrRad(ABC)));
 BAC:=RadGr(FindAngle(AC,BC,GrRad(ABC)));
 Writeln('Sides:');
 Writeln('AB = ',AB:0:3);
 Writeln('BC = ',BC:0:3);
 Writeln('AC = ',AC:0:3);
 Writeln;
 Writeln('Opposite angles:');
 Writeln('ACB = ',ACB:0:3);
 Writeln('BAC = ',BAC:0:3);
 Writeln('ABC = ',ABC:0:3);
 Writeln;
 Writeln('P = ',P(AB,BC,AC):0:3);
 Writeln;
 Writeln('S = ',S(AB,BC,AC):0:3);
 Readln;
END.

Задание 4

VAR
 N,m:Integer;
BEGIN
 Write('N= ');
 Readln(N);
 If N<0 then writeln('Negative') else writeln('Not negative');
 If (N mod 7)=0 then writeln('Divisible by 7') else writeln('Not divisible by 7');
 If N>6 then writeln('Lager then 6') else writeln('Not lager then 6');
 If N>0 then
  begin
   m:=1;
   Repeat
    m:=m*5;
   Until m>=N;
   If m=N then writeln('The power of 5') else writeln('Not the power of 5');
  end else writeln('Not the power of 5');
 Readln;
END.

Задание 5

VAR
 x,y:Real;
BEGIN
 Write('x= ');
 Readln(x);
 If x<0 then y:=Abs(1+x)*2
 else
 If x=0 then y:=0
 else y:=Ln(1+x)/Ln(10);
 Writeln('y = ',y:0:5);
 Readln;
END.

Задание 6

VAR
 x,z,t,w:Real;
BEGIN
 Write('x= ');
 Readln(x);
 w:=Exp(x*Ln(2))-4;
 if x>0 then t:=Sin(x+10)/Cos(x+10)
 else t:=1.0-Abs(3-x);
 If Abs(t)>Abs(w) then z:=t+w*2 else z:=w+t*2;
 Writeln('z = ',z:0:5);
 Readln;
END.

 

[Шипа]

спасибо большое очень выручили

 

[Шипа]

а ещё пару задач поможеш решить

 

[Vladimir_S]

а ещё пару задач поможеш решить

Заранее не обещаю. Выкладывайте - там видно будет.

 

[Шипа]

[mod2]Пользование файлообменниками на нашем форуме категорически не приветствуется. Техника иллюстрирования сообщений подробно расписана здесь: http://www.tehnari.ru/f8/t32642/
Модератор[/mod2]
http://floomby.ru/content/VVv5DzTCz0

 

[Шипа]

слушай может ты знаеш где можно скачать турбо паскаль для win7 64 bit

 

[Vladimir_S]

И это называется "пара задач"? Ну-ну... Может быть, пару и решу на выходных. А вообще-то, друг, мой тебе совет: берись за ум, причем собственный. Всю жизнь на форумах не проездишь.
А что до Паскаля - нет, не в курсе. Сам пользуюсь DOS-версией (отсюда, кстати, и английский язык - чтобы с кодировками кириллицы не мучиться).

 

[Vladimir_S]

Задание 8

VAR
 T,a,b,c:Real;
 i:Integer;
BEGIN
 a:=5;
 b:=6;
 c:=2;
 T:=a/(b+Ln(c));
 For i:=1 to 9 do
  begin
   a:=a+1;
   b:=b+3;
   c:=c+2;
   if (i mod 2)=0 then T:=T*a/(b+Ln(c)) else T:=T*a/(b-Ln(c));
  end;
 Writeln('T = ',T:0:7);
 Readln;
END.

Задание 9

VAR
 M,N,NOK:Word;
BEGIN
 Write('M= ');
 Readln(M);
 Write('N= ');
 Readln(N);
 If M<N then NOK:=N-1 else NOK:=M-1;
 Repeat
  NOK:=NOK+1;
 Until ((NOK mod M)=0) and ((NOK mod N)=0);
 Writeln('NOK = ',NOK);
 Readln;
END.

Остальное давай-ка самостоятельно. Хватит уже дурака валять.