М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
dis8
dis8
27.07.2021 19:36 •  Информатика

Написать программу на языке паскаль. известна сторона квадрата а и радиус круга r.какая из фигур имеет большую площадь?

👇
Ответ:
zhigulovnik
zhigulovnik
27.07.2021
Var a,r:real;
begin
read(a,r);
if (a*a>pi*r*r) then writeln('Квадрат')
else if (a*a<pi*r*r) then writeln('Круг')
else writeln('Площади равны');
end.
4,7(63 оценок)
Открыть все ответы
Ответ:
matkazina
matkazina
27.07.2021

1) Любая информация имеет двоичную форму

2) Арифметические расчеты выполняет процессор

3) Прикладное программное обеспечение нужно для того, чтобы пользователь мог сделать что то при компьютера без программирования. Например, нарисовать картинку, решить задачу, построить график, оформить текст для печати.

4) В наше время наиболее распространены портативные персональные компьютеры

5) В состав системного блока входят: блок питания, кулер, процессор, модули оперативной памяти, видеокарта, звуковая карта, устройство для чтения дисков, постоянное запоминающее устройство.

6) Быстродействие, разрядность, величина памяти

4,4(55 оценок)
Ответ:
yan7772
yan7772
27.07.2021

// не совсем понял условие по которому оперделяется нужный индекс

// мне показалось, что это умножение, если не так, то сам исправишь условие

// выхода из цикла

 

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();
        }
    }
}

4,7(12 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ