Консультация № 190551
09.02.2017, 23:12
0.00 руб.
1 1 1
Здравствуйте! У меня возникли сложности с таким вопросом:

Написать программу на паскале:
Прикрепленные файлы:
6b8881fd0b01faaf24cf5398927695650580cf61.jpg

Обсуждение

давно
Старший Модератор
31795
6196
10.02.2017, 21:34
общий
это ответ
Здравствуйте, nikita9581!

[code lang=pascal h=100]var
b,t,h,k:real;
begin
repeat
write('t(0<>t<2):=');
readln(b);
until b<2;
repeat
write('h:=');
readln(h);
until h>0;
while b<2 do
begin
if b<>0 then
begin
k:=arctan((2*t+3)/(t+15))+ln(abs(b));
if k<0 then writeln('f(',b:10:5,'):=',k:10:5);
end;
b:=b+h;
end;
end.[/code]
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа