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

Уравнение ax^2+bx+c=0. Вывести на экран количество решений. Если бесконечное количество решений, то R. Вводятся вещественные числа a, b и с.

Вывод целое число или символ R.

For example:

Input Result
0 1 2
1
1 0 -4
2
1 -5 6
2
На паскале

Показать ответ
Ответ:
nizomabdurahmon
nizomabdurahmon
30.10.2020 13:35

Так как неуказан язык программирования пишу алгоритм

1)Открываем поток для чтения файла f , нам еще потребуется переменная назовем ее count (Тип дробных чисел в каждом языке по разному) и переменную допустим value (тоже дробное) Далее проход по файлу любым циклом до конца файла и условие если value = дробь то count  = count +1 И в конце выводим count в файл g

2)Открываем поток для чтения файла f , и две переменные max и min и массив кол-во элементов которого равно кол-ву чисел в файле (Считаем любой функцией ) далее сортируем массив по возрастанию и получиться max = последний элемент массива ;

min = первый элемент массива . Далее выводим min и max в файл g

3)Аналогично 4 только вместо записи их в массив просто задаете переменную которая будет увеличиваться если число четное . 

 

4)Открываем поток для чтения файла f , потребуется массив равный кол-ву четных элементов файла на четность можно проверить если остаток от деления числа на 2 =0 то

число четное , далее просто заполняем массив из файла четными точно такой же проверкой и выводим в файл g . Но еще лучше использовать динамический массив тогда проход по файлу будет равен 1 

5)Все просто открываешь первый файл для чтение считаешь кол-во элементов , 

создаешь массив, кол-во элементов которого = твой подсчет , заполняешь его из файла ,далее соритруешь по возрастанию , и выводишь этот массив в файл 2 , опять же можешь использовать динамические массивы и облегчить себе жизнь

0,0(0 оценок)
Ответ:
foxmanlp
foxmanlp
18.12.2022 05:43

1)

var A: array [1..6,1..4] of integer;

i,j: integer;

begin

randomize;

for i := 1 to 6 do begin

    for j := 1 to 4 do begin

        A[i,j] := random(20) - 10;

    end;

end;

 

for i := 1 to 6 do begin

    for j := 1 to 4 do begin

        if (A[i,j] == 0) then begin

            writeln("0 v stroke ", i);

            continue;

        end;

    end;

end;

 

end.

 

2)

var B: array [1..10] of integer;

i: integer;

begin

for i := 1 to 10 do begin

    if (i mod 2 == 0) then B[i] := 5;

    else B[i] := 2;

end;

 

for i := 1 to 10 do begin

    writeln(B[i]);

end;

 

end.

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