Технический форум

Технический форум (http://www.tehnari.ru/)
-   Помощь студентам (http://www.tehnari.ru/f41/)
-   -   Преподаватель еще 2 дня дал, чтобы сдать. Буду очень благодарен... (http://www.tehnari.ru/f41/t82062/)

макс122 12.12.2012 18:06

Преподаватель еще 2 дня дал, чтобы сдать. Буду очень благодарен...
 
Задание1.F=Ln(18+Ln(16+Ln(14+...+Ln(4+Ln(2))))).
Задание2. Ввести с клавиатуры x, y и вычислить, используя метод промежуточного аргумента: z=5-2y*Ctg|x-y| стпень пятерки -|x-y| язык паскаль...

макс122 12.12.2012 19:32

помогите очень нужно...

макс122 12.12.2012 20:13

парни помогите очень нужно...

Vladimir_S 12.12.2012 20:30

Цитата:

Сообщение от макс122 (Сообщение 832583)
Задание1.F=Ln(18+Ln(16+Ln(14+...+Ln(4+Ln(2))))).

Код:

Var
 a,S:real;
 i:integer;
Begin
 S:=4+Ln(2);
 a:=4;
 For i:=1 to 7 do
  begin
  a:=a+2;
  S:=Ln(a+Ln(S));
  end;
 Writeln('Result = ',S:0:5);
 Readln;
End.

Со вторым заданием - ни хрена в формулировке не понял и что это за "метод промежуточного аргумента", извините, не в курсе.

макс122 12.12.2012 20:53

Спасибо хоть за это..

макс122 12.12.2012 22:24

Помогите решить в 2 очень нужно

макс122 12.12.2012 23:25

Помогите
 
Вложений: 1
Очень нужно правда..

Léon 13.12.2012 00:25

Цитата:

Сообщение от макс122 (Сообщение 832583)
Задание2. Ввести с клавиатуры x, y и вычислить, используя метод промежуточного аргумента: z=5-2y*Ctg|x-y| стпень пятерки -|x-y| язык паскаль...

Вроде так:
Код:

var
a,b,x,y,z:real;
function func(x,y:real):real;
begin
a:=abs(x-y);
b:=cos(a)/sin(a);
z:=5-2*y*b*b*b*b*b-a;
end;
begin
write ('x=');
readln(x);
write ('x=');
readln(x);
func(x,y);
write ('z=',z);
readln
end.


макс122 13.12.2012 10:41

Помогите последние две..

макс122 13.12.2012 13:13

Помогите очень нужно правда..


Часовой пояс GMT +4, время: 08:04.

Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.