В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
nekit1205
nekit1205
26.05.2020 21:41 •  Информатика

Нужно сделать 1 под б, ХЕЛП

Показать ответ
Ответ:
Alinka7658
Alinka7658
20.12.2022 11:21
Можешь "включить" подробный вывод, если объявишь макрос "#define DEBUG"

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
namespace cool{
    class main
    {
        static void Main(string[] args)
        {
            int u1 = 1, u2 = 2;
            int l1 = 1, l2 = 1;
            double a = 0, eps = 0.001;
            int i = 2;
            int U, L;
            double A;

            U = u2 + u1;
            L = l2 + l1;
            A = (double)U / L;

            while (Math.Abs(A - a) > eps || i < 5)
            {
                a = A;
                i++;
                l1 = l2; u1 = u2;
                l2 = L; u2 = U;

                U = u2 + l2;
                L = l2 + l1;
                A = (double)U / L;
               
                #if DEBUG 
                Console.WriteLine("{0} -> {1}|{2}", i, U, L);
                #endif
                if (i == 5)
                    Console.WriteLine("Пятый элемент: {0}", A);
                if (Math.Abs(A - a) < eps)
                    Console.WriteLine("Элемент, отличающийся на менее чем {1}: {0}", A, eps);
            }
        }
    }
}
0,0(0 оценок)
Ответ:
KristinaPech
KristinaPech
16.10.2021 08:28
Программы проверены в интерпретаторе ByWater Basic Interpeter/Shell version 2.20 patch level2 for linux

Задание 1:
10 rem Площадь круга и квадрата

 20 input "Введите площадь круга"; SR
 30 input "Введите площадь квадрата"; SK

 40 a=sqr(SK)

 50 c=sqr(a^2 * 2)
 60 pi=3.1415926
 70 r=sqr(SR/pi)
 80 if a>=r then print "Круг поместится в квадрат":goto 110
 90 if r>=c then print "Квадрат поместится в круг":goto 110
100 print "Фигуры не поместятся друг в друга"
110 print "---------------------------------":print
120 end

Задание 2:
10 rem Три числа
20 print "Введите три числа"
30 input a, b, c
35 if a = b and b = c then print "Числа равны между собой" : goto 100
40 if a > b then swap a, b
50 if b > c then swap b, c
60 if a > b then swap a, b
70 if a > c then swap a, c
80 print "Минимум ", a
90 print "Максимум ", c
100 end

Задание 3:
10 rem Первая цифра - чётная?
20 input "Введите двузначное число ", a
30 if a < 10 or a > 99 then 20
33 me$ = "Начинается с чётной"
36 mo$ = "Начинается с нечётной"
40 if int(a / 10) mod 2 = 0 then print me$ else print mo$
50 end

Задание 4:
10 rem Треугольник
20 input "Введите длину стороны а ", a
30 input "Введите длину стороны b ", b
40 input "Введите длину стороны c ", c
45  print "Составить такой треугольник ";
50 if a+b>c and a+c>b and b+c>a then 70
60 print "нельзя"
65 goto 90
70 print "можно"
83 if a=b and b = c then print "Треугольник равносторонний" : goto 90
86 if a=b or a=c or b=c then print "Треугольник равнобедренный"
90 end

Сделать в форме imput ; x 1)дана площадь круга и площадь квадрата. определить поместиться ли 1) кр
Сделать в форме imput ; x 1)дана площадь круга и площадь квадрата. определить поместиться ли 1) кр
Сделать в форме imput ; x 1)дана площадь круга и площадь квадрата. определить поместиться ли 1) кр
Сделать в форме imput ; x 1)дана площадь круга и площадь квадрата. определить поместиться ли 1) кр
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота