Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.12.2016, 20:41   #1
Roshen
Новичок
Джуниор
 
Регистрация: 12.12.2016
Сообщений: 4
По умолчанию Используя любой из видов циклов, вычислить значения выражения. выражения: Y=ln(x-1)+b

1)Используя любой из видов циклов, вычислить значения выражения.
выражения: Y=ln(x-1)+b
Данные: x изменяется от 10 до 2,
b изменяется от 0 с шагом -0,8
.

Последний раз редактировалось Roshen; 12.12.2016 в 21:12.
Roshen вне форума Ответить с цитированием
Старый 18.12.2016, 12:17   #2
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

Код:
function f(x,b:real):real;
begin
   Result:=Ln(x-1)+b;
end;

const x0=2;
      x1=10;
      dx=0.8;
var x,y,b:real;
begin
   Write('b = '); Readln(b);
   x:=x0-dx;
   Repeat
      x:=x+dx;
      y:=f(x,b);
      Writeln(x:5:2,'  ',y:5:5);
   Until x>=x1;
   Readln;
end.
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Старый 18.12.2016, 12:18   #3
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

Код:
function f(x,b:real):real;
begin
   Result:=Ln(x-1)+b;
end;

const x0=2;
      x1=10;
      dx=0.8;
var x,y,b:real;
begin
   Write('b = '); Readln(b);
   x:=x0-dx;
   Repeat
      x:=x+dx;
      y:=f(x,b);
      Writeln(x:5:2,'  ',y:5:5);
   Until x>=x1;
   Readln;
end.
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
как вычислить значение выражения используя подпрограмму-функцию F(x.y) - Delphi ыфынф Помощь студентам 0 06.06.2016 21:36
Дана строка, арифметические выражения вида A x B. Вычислить значение выражения Un1q Паскаль, Turbo Pascal, PascalABC.NET 4 09.12.2013 14:47
Нахождение значения выражения, используя три операции Hrum Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 5 30.10.2012 10:03
Используя рекурсию, вычислить результат арифметического выражения??? Nataly026 Паскаль, Turbo Pascal, PascalABC.NET 4 09.03.2012 21:36