Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
Jefry228
19.01.2023 13:00 •
Информатика
Сформулируйте основное отличие словесного описания алгоритма от описания на формальном языке
👇
Увидеть ответ
Открыть все ответы
Ответ:
11Аслан11
19.01.2023
Program TaskA;
Var r1, r2: Integer;
Procedure S(r1, r2: Integer);
Var s: Real;
Begin
If r1 > r2 Then
s := Pi * (r1 * r1 - r2 * r2)
Else
s := Pi * (r2 * r2 - r1 * r1);
WriteLn('Площадь кольца: ', s:5:2);
End;
Begin
Write('r1 = ');
ReadLn(r1);
Write('r2 = ');
ReadLn(r2);
S(r1, r2);
ReadLn;
End.
Program TaskA;
Var r1, r2: Integer;
Function S(r1, r2: Integer): Real;
Begin
If r1 > r2 Then
result := Pi * (r1 * r1 - r2 * r2)
Else
result := Pi * (r2 * r2 - r1 * r1);
End;
Begin
Write('r1 = ');
ReadLn(r1);
Write('r2 = ');
ReadLn(r2);
WriteLn('Площадь кольца: ', S(r1, r2):5:2);
end.
4,5
(55 оценок)
Ответ:
taniataolia
19.01.2023
Program TaskA;
Var r1, r2: Integer;
Procedure S(r1, r2: Integer);
Var s: Real;
Begin
If r1 > r2 Then
s := Pi * (r1 * r1 - r2 * r2)
Else
s := Pi * (r2 * r2 - r1 * r1);
WriteLn('Площадь кольца: ', s:5:2);
End;
Begin
Write('r1 = ');
ReadLn(r1);
Write('r2 = ');
ReadLn(r2);
S(r1, r2);
ReadLn;
End.
Program TaskA;
Var r1, r2: Integer;
Function S(r1, r2: Integer): Real;
Begin
If r1 > r2 Then
result := Pi * (r1 * r1 - r2 * r2)
Else
result := Pi * (r2 * r2 - r1 * r1);
End;
Begin
Write('r1 = ');
ReadLn(r1);
Write('r2 = ');
ReadLn(r2);
WriteLn('Площадь кольца: ', S(r1, r2):5:2);
end.
4,6
(71 оценок)
Это интересно:
К
Компьютеры-и-электроника
14.05.2023
Как создать свою видеоигру с нуля: от идеи до релиза...
31.05.2021
Как перестать бояться быть счастливым: 7 советов для изменения мышления...
16.02.2023
Как расширить границы разума: несколько простых способов...
С
Стиль-и-уход-за-собой
18.02.2021
Как избавиться от темных кругов под глазами: советы от экспертов...
С
Стиль-и-уход-за-собой
26.01.2020
Как отчистить сандалии Rainbow...
С
Стиль-и-уход-за-собой
28.02.2021
Как завивать волосы в кудри: простые шаги и полезные советы...
Д
Дом-и-сад
08.06.2022
Как почистить LEGO: простые способы, которые помогут сохранить блестящую внешность игрушек...
Т
Транспорт
18.02.2022
Как диагностировать автомобильную помпу...
Х
Хобби-и-рукоделие
09.09.2020
Как использовать объективы с байонетом M42 на цифровых фотоаппаратах Canon EOS...
П
Питомцы-и-животные
16.12.2021
Как завоевать доверие собаки: советы для новичков...
Новые ответы от MOGZ: Информатика
sergeevan73
10.01.2022
72 101 108 108 111 44 32 109 121 32 102 114 105 101 110 100 33...
vbnmmkllpuuh
03.03.2022
98 решить на паскале 1) дан двумерный массив целых чисел: а) сумму нечетных элементов в каждом столбце (строке); в) количество элементов кратных а или в; с) найти столбец...
irunahruha
27.12.2020
Внекотором текстовом редакторе используется только шрифт times new roman, для которого может быть установлен один из двух размеров. кроме того, имеется три кнопки, позволяющие...
frogs2
27.12.2020
Циклические алгоритмы: выполнить вычисления по формулам не и не изменяя их: r=2n+4n++14n k=m/n*m+1/n+1*m+2/n+*m+10/n+10...
kristinasotsen
15.06.2021
Тире між підметом і присудком не ставиться, якщо (назвати 3 правила)...
Daniil3037
15.06.2021
Подберите к словам синонимы: режим дня невнимательный человек построить здание рассчитаться с долгами жестокий человек...
tanyasidorcova
15.06.2021
I-my you-your he his she-her its we your they their...
Schumka12
15.06.2021
Митя прачоу кгнигу за 1 тыдень ,чытаючы штоденна па 15 старонак.за кольки дзен ён змог бы прачытать гэту книгу как кожны день стау на 8 старонак меньшь? ?...
taniamishanina
15.06.2021
Найти сторону ромба периметр которого 44 см...
pppooppaoappo
15.06.2021
Запишите такие 8 чисел,которые делятся на 6 без остатка...
MOGZ ответил
Раскройте скобки +b)+(d-c) 2)-m-(a-b)-n 3)+p-c-l) 4)a-(c-l-f)+(-k-f+n)...
Визначить, яка теорія походження держави, на ваш погляд, є найбільш...
Определите тему и главную мысль: безумвно, украинцы положительными чертами...
Начертите окружность с радиусами равными 2см 4см 5мм чему равен диаметр...
Три поездки ильи муромца. расскажи об илье муромце. выбери опорные слова:...
Вергилий отмечал, что его сокрытие придаёт ему силы и питает его. ф.м....
Расставте коефициенты iv _ no +_h2o=_hno2+_hno3 (если что то вероятность.)...
Всупермаркете проходт рекламная акция: покупая две шоколадки,покупатель...
Усаши было x марок ,у кати на 4 марки больше,а у миши на 4 меньше чем...
Запишите в виде суммы разрядных слагаемых числа m4m / 86k...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
Var r1, r2: Integer;
Procedure S(r1, r2: Integer);
Var s: Real;
Begin
If r1 > r2 Then
s := Pi * (r1 * r1 - r2 * r2)
Else
s := Pi * (r2 * r2 - r1 * r1);
WriteLn('Площадь кольца: ', s:5:2);
End;
Begin
Write('r1 = ');
ReadLn(r1);
Write('r2 = ');
ReadLn(r2);
S(r1, r2);
ReadLn;
End.
Program TaskA;
Var r1, r2: Integer;
Function S(r1, r2: Integer): Real;
Begin
If r1 > r2 Then
result := Pi * (r1 * r1 - r2 * r2)
Else
result := Pi * (r2 * r2 - r1 * r1);
End;
Begin
Write('r1 = ');
ReadLn(r1);
Write('r2 = ');
ReadLn(r2);
WriteLn('Площадь кольца: ', S(r1, r2):5:2);
end.