B * B * A + D * A + 3 * A + 2 * B + 3,2 * C * S * F - 4,6 * A + 3,14
или
(B**2 * A + D * A + 3 * A + 2 * B + 3,2 * C * S * F - 4,6 * A + 3,14) — многие, но не все ЯПы, например Python, JS, Ruby; общепринятый ответ — первый.
или
3 * A + D * A + 2 * B + 3,2 * C * S * F - 4,6 * A + B * A * B + 3,14
Объяснение:
Т. к. формула уже написана арифметическим выражением, а вопрос в топике по инфе, я полагаю, что нужно представить её в алгоритмической форме. Если не так, закидайте ответ единицами :)
И так, исходная формула: ЗА + DА + 2B + 3,2CSF - 4,6А + BАВ + 3,14 = ЗА + DА + 2B + 3,2CSF - 4,6А + B²А + 3,14 = B²А + DА + ЗА + 2B + 3,2CSF - 4,6А + 3,14 = B ^ 2 * A + D * A + 3 * A + 2 * B + 3,2 * C * S * F - 4,6 * A + 3,14.
И убираем квадрат:
B * B * A + D * A + 3 * A + 2 * B + 3,2 * C * S * F - 4,6 * A + 3,14.
Если без изменений в порядке:
3 * A + D * A + 2 * B + 3,2 * C * S * F - 4,6 * A + B * A * B + 3,14.
Коротко, что сделал.
Сначала я поменял порядок для удобства (от изменения мест слагаемых сумма не меняется, аналогичное правило с произвдением и множителями). Дальше я заменил B * B на B² на алгоритмическом языке — т. е. на B * B или B ** 2, зависит от ЯПа.
1.Как я понял, последовательность вводится с клавиатуры и признак окончания ввода - 0. Значит имеет смысл использовать цикл Repeat 2. Вводимые числа - целые. После этих уточнений можно написать код на PascalABC:
//Вариант с циклом repeat var a, min: integer;
begin min := 555555; repeat readln(a); if ((a mod 10 = 5) or (a mod 10 = -5)) and (a < min) then min := a; until a = 0; writeln(min); end.
//вариант с циклом while var a, min: integer;
begin min := 555555; readln(a); while (a>0) or (a<0) do begin if ((a mod 10 = 5) or (a mod 10 = -5)) and (a < min) then min := a; readln(a); end; writeln(min); end.
В запись student добавляете новое поле kurs, Type student = recordLastName: string ; bal: array [1..5] of integer; kurs: integer;average: real end; В цикле по студентам добавляете ввод курса with pupil[i] do begin Write ('Введите фамилию студента №', i ,': '); Readln (LastName); Write('Введите курс '); Readln(kurs); В конце программы изменяете вывод writeln ( 'Студенты первокурсники, имеющие средний больший или равный 4'); For i:=1 to n do beginif (pupil[i].average >=4) and (pupil[i].kurs = 1) then write (pupil[i].LastName,', ');
B * B * A + D * A + 3 * A + 2 * B + 3,2 * C * S * F - 4,6 * A + 3,14
или
(B**2 * A + D * A + 3 * A + 2 * B + 3,2 * C * S * F - 4,6 * A + 3,14) — многие, но не все ЯПы, например Python, JS, Ruby; общепринятый ответ — первый.
или
3 * A + D * A + 2 * B + 3,2 * C * S * F - 4,6 * A + B * A * B + 3,14
Объяснение:
Т. к. формула уже написана арифметическим выражением, а вопрос в топике по инфе, я полагаю, что нужно представить её в алгоритмической форме. Если не так, закидайте ответ единицами :)
И так, исходная формула: ЗА + DА + 2B + 3,2CSF - 4,6А + BАВ + 3,14 = ЗА + DА + 2B + 3,2CSF - 4,6А + B²А + 3,14 = B²А + DА + ЗА + 2B + 3,2CSF - 4,6А + 3,14 = B ^ 2 * A + D * A + 3 * A + 2 * B + 3,2 * C * S * F - 4,6 * A + 3,14.
И убираем квадрат:
B * B * A + D * A + 3 * A + 2 * B + 3,2 * C * S * F - 4,6 * A + 3,14.
Если без изменений в порядке:
3 * A + D * A + 2 * B + 3,2 * C * S * F - 4,6 * A + B * A * B + 3,14.
Коротко, что сделал.
Сначала я поменял порядок для удобства (от изменения мест слагаемых сумма не меняется, аналогичное правило с произвдением и множителями). Дальше я заменил B * B на B² на алгоритмическом языке — т. е. на B * B или B ** 2, зависит от ЯПа.
Удачи!