Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
mimra23213
15.05.2023 01:03 •
Информатика
ВЫПОЛНИТЕ ЗАДАНИЕ ПО ИНФОРМАТИКЕ НУЖНО
Составьте алгоритм по следующей блок-схеме(именно по этой схеме,а не по другой)
Функция
y(три раветвления,всё это одна функция)=1(это по какая по счету,и т.д.). -x² при x≤-12
вторая. x⁴ при -12<х<0
х-2 при ≥0
Показать ответ
Ответ:
66vdv1
16.04.2021 06:15
Vara,b,c,d,x1,x2: real;
begin
writeln('Дано уравнение вида ax^2+bx+c=0');
Writeln ('Укажи переменную "a"');
readln(a);
Writeln ('Укажи переменную "b"');
readln(b);
Writeln ('Укажи переменную "c"');
readln(c);
if a = 0
then writeln('Не квадратное уравнение!')
else begin
d:= sqr(b)-4*a*c;
if d < 0 then writeln('Нет корней')
else begin
x1:= (-b+sqrt(d))/2*a;
x2:= (-b-sqrt(d))/2*a;
writeln ('X1 =',x1,' X2 =',x2);
end;
end;
end.
0,0
(0 оценок)
Ответ:
sashaloxas
08.05.2023 04:48
While (tnum != 0) //tnum, tden - числитель и знаменатель искомой дроби
{
if (tnum < tden)
{
temp = tnum;
tnum = tden;
tden = temp;
}
tnum = tnum - tden;
}
gcd = tden; //вычисляем наибольший общий делитель
numerator = numerator / gcd; //делим числитель и знаменатель на
НОД, получаем сокращенную дробь
denominator = denominator / gcd;
0,0
(0 оценок)
Популярные вопросы: Информатика
ФёдорХоменко
19.12.2021 21:03
1.Группа элементов, добавляет и создает различные типы оглавления: а) ссылки б) оглавление в) сноски 2.Группа элементов, позволяет добавлять к рисункам или таблицам названия...
shishkova600
02.04.2020 09:12
Вставьте пропущенные слова ….- химические вещества потребность организма в которых от сотен граммов до сотен миллиграммов Установите соответствие. Железо ✨Необходимо для Фтор...
IslamKapkaev
19.04.2023 13:18
5. Установіть відповідність між дієсловами та формами у яких вони вжиті....
din46
27.08.2020 03:53
с дом. заданием Учитель на дом дал данный компьютер,и сказал устранить данную проблему. Но у меня до сих пор нечего не получается. , как вернуть windows в нормальное состояние....
Habibullinaasa
06.10.2021 01:06
Будь ласка пришліть уже виконане завданя історія 6 клас контурна карта ів даю...
radich16
16.06.2020 07:10
X1-2x2+x3=-2 X1+X2-X3=7. 3x1+X3=6...
aav7
29.06.2021 04:35
Аудирование и г оворение [ ] Задание 1 1. Прослушайте текст о гостеприимстве казахов. 2. Перескажите основное содержание текста от первого лица. 3. Включите в пересказ ответы...
Dariy69
27.12.2021 12:22
Какой этап решения задачи на компьютере можно назвать компьютерным экспериментом? Выберите один ответ: этап отладки и тестирования этап составления алгоритма этап программирования...
Millernata
22.01.2023 18:04
8 СОР No 3 Суммативнос отцепвание за раздел ««Основы кинематики. Механическое движение. Графики движения» 2 вариант...
trybak03
18.08.2020 16:55
Серед переліку рослин виберіть спорову А) сосна карпатська Б) плаун булавовидний В) кульбаба лікарська...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
writeln('Дано уравнение вида ax^2+bx+c=0');
Writeln ('Укажи переменную "a"');
readln(a);
Writeln ('Укажи переменную "b"');
readln(b);
Writeln ('Укажи переменную "c"');
readln(c);
if a = 0
then writeln('Не квадратное уравнение!')
else begin
d:= sqr(b)-4*a*c;
if d < 0 then writeln('Нет корней')
else begin
x1:= (-b+sqrt(d))/2*a;
x2:= (-b-sqrt(d))/2*a;
writeln ('X1 =',x1,' X2 =',x2);
end;
end;
end.
{
if (tnum < tden)
{
temp = tnum;
tnum = tden;
tden = temp;
}
tnum = tnum - tden;
}
gcd = tden; //вычисляем наибольший общий делитель
numerator = numerator / gcd; //делим числитель и знаменатель на
НОД, получаем сокращенную дробь
denominator = denominator / gcd;