Домашнє завдання.

1. Опрацювати конспект.

2. Виконати вправу “Многочлен”.

1. Дано многочлен 4A+7B-3A+8E-2D+1C-5D-2B. Знайти подібні члени для змінної А та обчислити суму коефіцієнтів.

Один елемент многочлена можна вважати записом, тому що він складається з даних різних типів - числового коефіцієнта і символьної змінної.

Нехай М1 - елемент многочлена (запис); M2 - резуль­туючий елемент (запис); К - коефіцієнт (елемент запису); Z— символьна змінна (елемент запису); S — сума коефіцієнтів. Многочлен вводиться у вигляді

А

+ і т.д.; ознака кінця введення - ‘ ‘(порожній рядок). Припинити введення можна за допомогою функції Еоlп, яка перевіряє, чи досягнутий кінець рядка: Eoln—Тrue, якщо рядок порожній.

2. Програма для зведення подібних членів для змінної А має такий вигляд:

Type Dodanok = Record

К : integer;

B : Char

End;

Var M1, M2 : Dodanok; S : integer;

Begin

S: =0;

Writeln ('Введіть многочлен1);*

Repeat

Readln (Ml.K); Readln(Ml.B);

If M1.B='A' Then S:=S+M1.K;

Until Eoln;

M2.K:=S; M2.В:='A';

Writeln ('Результат зведення: ', M2.K : 3, М2.В)

End.

3. Змініть програму так, щоб вона зводила подібні члени для іншої букви многочлена (буква вводиться з клавіатури).

4. Змініть програму так, щоб вона зводила подібні члени щодо всіх букв многочлена і видавала спрощений много­член на екран.

5. Для збереження членів многочлена вводиться масив М, еле­ментами якого є записи типу Dodanok. В масиві S[1. .5] накопичуються суми коефіцієнтів для змінних - елементів масиву Buk[1. .5].

Const Вик : Array[1..5] of Char = ('A'.'B'.'C'.'D'.'E');

Var M : Array[1..5] of Dodanok;

M1: Dodanok; і : Integer;

S : Array[l..5]of Integer;

Begin

For і:=1 To 5 Do S [i]:=0;

writeln ('Введіть многочлен');

Repeat

Readln (Ml.K); Readln (Ml.B);

For і:=1 To 5 Do

if M1.B=Bик [i]

Then S [i]:=S [i] + M1.K;

Until Eoln; {ознака кінця введення - порожній рядок}

For і:=1 То 5 Do Begin

M[i].K:=s[i];

M[і].в:=Bик[і]

End;

6. Виведіть спрощений многочлен на екран:

For і:=1 То 5 Do

If (М[і ]. К>=0) and (і>1)

Then Write ('+', М[і].к, м[і].B)

Else write (M[і].К, M[і].B);