Составить блок-схему алгоритма и программу на языке Паскаль для вычисления значения функции 6.png. Ввести программу, вычислить значение функции и проверить полученный результат. На проверку нужно прислать блок-схему алгоритма, текст кода программы, результат работы кода в виде скриншота окна программы с отображением кода и полученного результата. Входные данные задайте самостоятельно. Программная реализация обязательна
// не совсем понял условие по которому оперделяется нужный индекс// мне показалось, что это умножение, если не так, то сам исправишь условие// выхода из цикла using System;
// не совсем понял условие по которому оперделяется нужный индекс
// мне показалось, что это умножение, если не так, то сам исправишь условие
// выхода из цикла
using System;
namespace ConsoleApplicationTest
{
class Program
{
static void Main(string[] args)
{
double A_1 = 1;
double A_2 = 2;
double A_3 = (A_1 + A_2) / 2;
Console.Write("D = ");
double D = double.Parse(Console.ReadLine());
int k = 3;
while (Math.Abs(A_3 * A_2) >= D)
{
A_1 = A_2;
A_2 = A_3;
A_3 = (A_1 + A_2) / 2;
k++;
}
Console.WriteLine("k = {0}; Ak-1 = {1}; Ak = {2}", k, A_2, A_3);
Console.ReadLine();
}
}
}
namespace ConsoleApplicationTest
{
class Program
{
static void Main(string[] args)
{
double A_1 = 1;
double A_2 = 2;
double A_3 = (A_1 + A_2) / 2;
Console.Write("D = ");
double D = double.Parse(Console.ReadLine());
int k = 3;
while (Math.Abs(A_3 * A_2) >= D)
{
A_1 = A_2;
A_2 = A_3;
A_3 = (A_1 + A_2) / 2;
k++;
}
Console.WriteLine("k = {0}; Ak-1 = {1}; Ak = {2}", k, A_2, A_3);
Console.ReadLine();
}
}
}