Родились сегодня:
Антонина


Лидеры рейтинга

ID: 226425

Konstantin Shvetski

Модератор

672

Россия, Северодвинск


ID: 259041

Алексеев Владимир Николаевич

Мастер-Эксперт

325

Россия, пос. Теплоозёрск, ЕАО


ID: 401284

Михаил Александров

Академик

278

Россия, Санкт-Петербург


ID: 325460

CradleA

Академик

211

Беларусь, Минск


ID: 401888

puporev

Профессор

140

Россия, Пермский край


ID: 400815

alexleonsm

6-й класс

130


ID: 137394

Megaloman

Мастер-Эксперт

120

Беларусь, Гомель


8.8.12

06.05.2021

JS: 2.8.16
CSS: 4.5.4
jQuery: 3.6.0
DataForLocalStorage: 2021-05-06 21:16:03-standard


Создание программ на языках Pascal, Delphi и Lazarus.

Администратор раздела: Зенченко Константин Николаевич (Старший модератор)

Консультация онлайн # 200589

Раздел: Pascal / Delphi / Lazarus
Автор вопроса: KSIW2S (Посетитель)
Дата: 07.04.2021, 12:53 Консультация закрыта
Поступило ответов: 1

Здравствуйте! У меня возникли сложности с таким вопросом, необходимо написать код для программы из вложения, ниже прикрепляю, что у меня получилось написать, но код не работает, помогите, пожалуйста, разобраться!!!

Приложение:

Ответ # 280918 от puporev
Здравствуйте, KSIW2S!
Код
program Project1;
var x,p,b:real;
    n,k:integer;
begin
  repeat
  writeln('Введите целое число n>1 n=');
  readln(n);
  until n>1;
  repeat
  writeln('Введите значение x>=0 x=');//корень из отрицательного не определен
  readln(x);
  until x>=0;
  p:=1;
  for k:=1 to n do
  p:=p*((k-4)/k)+exp(cos(abs(k*x)));
  b:=exp(1/3*ln(n))*sqrt(x)-p;
  writeln(b);
  readln;
end.

puporev

Профессор
07.04.2021, 13:03
5
Мини-форум консультации # 200589

Нет сообщений в мини-форуме

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

Лучшие эксперты раздела

puporev

Профессор

Рейтинг: 140

Зенченко Константин Николаевич

Старший модератор

Рейтинг: 74

Вадим Исаев ака sir Henry

Мастер-Эксперт

Рейтинг: 2

Степанов Иван /REDDS

4-й класс

Рейтинг: 1

Лысков Игорь Витальевич

Мастер-Эксперт

Рейтинг: 0

Асмик Гаряка

Советник

Рейтинг: 0