Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 200589
07.04.2021, 12:53
0.00 руб.
1 1 1
Компьютеры Программирование
Здравствуйте! У меня возникли сложности с таким вопросом, необходимо написать код для программы из вложения, ниже прикрепляю, что у меня получилось написать, но код не работает, помогите, пожалуйста, разобраться!!!


Приложение:
program Project1;
var
x:real;
n,a,b,k:integer;


begin
writeln('Введите значение n:');
readln(n);
writeln('Введите значение x:');
readln(x);
k:=1;
if n>=1 then begin
while n>=1 do
begin
a:=((k-4)/k)+exp(abs(k*x));
a:=a*a;
n:=n-1



end;
b=exp(1/3*ln(n))*exp(ln(x))*a;
writeln(b);
readln;

end
else
writeln('Ошибка');
readln;
end.
Прикрепленные файлы:
8da908e601a478da8624bbbf555cb49db1498702.PNG
скачать (29.00 кБ)

Обсуждение

давно
puporev
Профессор
401888
1232
07.04.2021, 13:03
общий
это ответ
Здравствуйте, 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.
5
Форма ответа