сервис вопросов и ответовпоследние аk =( 1,9x+ 7k)/k!
10-11 класс|
|
program sum;
const e = 0.001;
var x, a,summa : real;
k : integer;
function Factorial(n: word): LongInt;
begin
if n=0 then Factorial := 1 else Factorial := n*Factorial(n-1);
end;
begin
writeln('Введите x:');
readln(x);
summa:= 0;
k:=1;
a := 1.9*x+exp(k*ln(7));
while abs(a) > e do
begin
summa:=summa + a;
k := k + 1;
a := exp(1.9*x+exp(k*ln(7)))/Factorial(k);
end;
writeln('Сумма=', summa:5:2);
writeln('Количество слогаемых=', k-1);
end.
Где ошибка?
99c
16 янв. 2017 г., 9:46:38 (7 лет назад)
цскам
16 янв. 2017 г., 12:23:17 (7 лет назад)
У меня такой файл работает правильно почти для всех иксов.
Nastusha5
16 янв. 2017 г., 15:19:10 (7 лет назад)
a := 1.9*x+exp(k*ln(7))/Factorial(k);
CyPoK16
16 янв. 2017 г., 17:21:44 (7 лет назад)
Это комп выдаёт такую ошибку?
Alexey010897
16 янв. 2017 г., 21:37:18 (7 лет назад)
В таком случае, надо считать не факториал, а 1 делить на факториал (факториал очень быстро растет и не помещается в обычные типы данных)
Egorovasasga
16 янв. 2017 г., 23:01:37 (7 лет назад)
Нет. Все ровно ошибка...
Ответить
Другие вопросы из категории
Написать функцию, которая возвращает символ строки с самой высокой частотой
встречаемости. Прототип функции char function_name (char *s). Проверить
работу функции на строке, введенной с клавиатуры. Реализовать вывод результата
Помогите с информатикой)
Какой объём видеопамяти необходим для хранения четырёх страниц изображения при условии, что разрешающая способность дисплея равна 640х480 точек, а используемых цветов-32?
ПОМОГИТЕ ПОЖАЛУЙСТА:) 1.объем дискеты 1,44 Мб. Сколько файлов можно записать на дискету, если длина каждого файла равна 250 Кб? 2.объем
дискеты составляет 1,44 Мб. Величина сектора дискеты равна величине ее кластера и равна 512 байт.Сколько кластеров на дискете?
Читайте также
Почему на этапе ввода последней ступени (т.е. задали х=5 и вводим 5 ступень) паскаль выкидывает ошибку: "Индекс находился вне границ массива", ведь al[x]
это его последний элемент, разве нет?
Код:
program s1;
var x, i:integer;
al, tl: array of real;
begin
writeln ('Введите количество ступеней ракеты'); read (x);
setlength (al, x);
setlength (tl, x);
for i:=1 to x do begin
writeln ('Введите ускорение ', i, ' ступени'); read (al[i]);
writeln ('Введите время работы ', i, ' ступени'); read (tl[i]);
end;
end.
P.S.: Переписать массив в статический не предлагать, нужен именно переменной длины. Заранее спасибо.
Алик, Раиф, Валя и Эльдар соревновались в беге. На вопрос, кто какое место занял, каждый дал ответ. Алик:"Не первое и не последнее". Раиф:"Последним был
Алик"Валя:"Первое". Эльдар:"Последнее".Известно, что трое сказали правду, а один солгал. Кто занял первое место? Кто солгал? Как вы это узнали?
Задача 7. Найти первый и последний элементы массива, кратные
числу 3.
Пример: массив 7 2 6 5 4 4 10 3 9
элементы, кратные 3 6 39
первый и последний из них 6 9
Дна последовательность неотрицательных чисел, последнее из которых Равно нулю: причем других равных нулю чисел в последовательности нет. Найти
последнее число, больше десяти, в этой последовательности. Если таких чисел нет, напечатать ноль.
нужно как из четырёхзначного числа сравнить первую и последнюю цифру и две средних вопрос в том что как их вытащить из этого числа? первую и последнюю я
понял как
Console.WriteLine("Введите четырёхзначное число");
m = int.Parse(Console.ReadLine());
a = m / 1000; //последняя 1 цифра
b = m % 10;
допусти я ввёл число 6432 то прога выводит мне 6 и 2 мне надо ещё как то отдельно вывести цифры 4 и 3 и задать им отдельные переменные что бы сравнить
Вы находитесь на странице вопроса "последние аk =( 1,9x+ 7k)/k!", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.