Регистрация
angelinamed0203
07.01.2022 19:16
Информатика
Есть ответ 👍

Найти наименьший номер элемента последовательности, для которого выполняется условие (1). вывести на экран этот номер и все элементы аi, где i= 1,2,3
в excel и vba.

235
322
Посмотреть ответы 2

Ответы на вопрос:

TTpo100y4eHuk
TTpo100y4eHuk
4,8(86 оценок)

option explicit

sub abcd()

    dim a as double, b as double, eps as double, i as integer

    eps = cells(1, 1)

    a = 2

    i = 1

    cells(i + 1, 1) = a

    do

        b = (2 + a * a) / (2 * a)

        i = i + 1

        cells(i + 1, 1) = b

        if abs(b - a) < eps then exit do

        a = b

    loop

    cells(1, 2) = i

end sub

этот код помещается в проекте на лист. на этом листе в a1 надо записать желаемую точность, например 0.1.

в ячейку a2 будет помещено число шагов, а значения будут выводиться в первую колонку со второй строки.

qrfeq16
qrfeq16
4,4(30 оценок)
Var  n, f, o: string;   a, i: integer; begin  write('введите фамилию ');   readln(f);   write('введите имя ');   readln(n);   write('введите отчество ');   readln(o);   a : = length(n) + length(f) + length(o);   writeln('длина имени, фамилии и отчества равна ', a);   writeln('инициалы ', f[1], '. ', n[1], '. ', o[1], '. ');   a : = 0;   for i : = 1 to length(f) do    if f[i] = 'и' then a : = a + 1;   writeln('количество букв и в фамилии ', a); end.

Популярно: Информатика