Ответ: Максимум, что можно предложить - это руссифицированная помощь. Мне в жизни не приходилось видеть ПОЛНОСТЬЮ РУССИФИЦИРОВАННОГО Паскаля - такая вот Эстония получается :))

Ответ: Привет. Программа даже в простейшем варианте получилась длинная. Не знаю, стоит ли сюда помещать.
Выслал письмом

Ответ: :) Да ничего - дел что-то многовато. Не успеваю сделать все, что просят

Ответ: 1) Можно проверять положение вывода с помощью функции:
uses CRT;
...
Row := WhereY
и как только Row = 24 - ReadKey - задерживаем последующий вывод до нажатия любой клавиши, а потом:
ClrScr
2) можно в несколько колонок
Что нужно?

Ответ: Вторая задача (первая выше). Чтение исходных данных сделал на основе первой:
----
const
n = 6;
type
TArray = array[1..n] of real;

function ReadData(FileName: String; var Ar1, Ar2: TArray): Integer;
{0 - хорошо, не 0 - не удалось прочитать}
var
f: Text;
i, code: Integer;
begin
Assign(f, FileName); {$I-} Reset(f); {$I+}
code:= IOResult; ReadData:=code;
if code <> 0 then
begin WriteLn(''Не могу открыть файл '',FileName); Exit end;
for i:=1 to n do
if EOF(f) then Code := -2022
else
begin {$I-} Read(f, Ar1[i]); {$I+} Code:=IOResult end;
ReadData:=Code;
if Code <> 0 then begin
WriteLn(''Ошибка чтения данных из файла '',i:3);
if code = -2022 then WriteLn(''Неожиданный конец файла '',FileName);
Exit {немедленный выход из подпрограммы}
end;
for i:=1 to n do
if EOF(f) then Code := -2022
else
begin {$I-} Read(f, Ar2[i]); {$I+} Code:=IOResult end;
ReadData:=Code;
if Code <> 0 then begin
WriteLn(''Ошибка чтения данных из файла '',i:3);
if code = -2022 then WriteLn(''Неожиданный конец файла '',FileName);
Exit {немедленный выход из подпрограммы}
end;
Close(f);
end;

function NumberOfDivs(var ar: TArray): Integer; {число делений}
var count, i: Integer;
begin
count:=0;
for i:=1 to n do
if ar[i] > 0 then begin ar[i]:=ar[i]/i; inc(count) end;
NumberOfDivs:=count
end;

var
A, B: TArray;
nA, nB: Integer;
BEGIN
if ReadData(''input.dat'', A, B) <> 0 then Halt(1)
else WriteLn(''Данные считаны'');
WriteLn('' Массив A Массив B'');
for nA:=1 to n do WriteLn(A[nA]:10:2,'' '',B[nA]:10:2);
nA := NumberOfDivs(A);
nB := NumberOfDivs(B);
Writeln(''Число измененных элементов в массиве A = '',nA,+
'', в массиве B = '',nB);
if nA > nB then WriteLn(''В массиве А число изменных элементов больше'') else
WriteLn(''В массиве B число изменных элементов больше'');
WriteLn(''Изменные массивы:'');
WriteLn('' Массив A Массив B'');
for nA:=1 to n do WriteLn(A[nA]:10:2,'' '',B[nA]:10:2);
END.
-----
Файл данных
0,1; 2,65; 23,45; -17,5; -5464; -5,7;
-56,4; 0,04; 5,87; 4,23; 0; 5,8

Ответ: Чуть позднее пришлю - сейчас занятия

Ответ: 10 раз выводится от того, что Вы написали в конце программы:
for i:=1 to 10 do
begin
ch:=chislo(x,i);
writeln(f2,''chislo peremen znaka ravno'',ch:0);
end;
--
Вот 10 раз и рассчитывается и выводится одно и тоже. Уберите цикл for.
Насчет "регулируемых размеров" можно одно из трех:
1) открытый массив - одна и та же подпрограмма рассчитывается число изменений знака У МАССИВОВ разной длины, объявленных заранее;
2) объявляется массив максимально большой длины, но используется только часть его, и известно (нужно передавать подпрограмме) число используемых элементов;
3) с помощью указателей можно определить массив по настоящему разной длины. Длину массива вводим с клавиатуры (или из файла)

Ответ: Лучше напишите, какие программы?

Ответ: Почти доделал - сейчас занятия

Ответ: В 10 строке снизу после '' '' поставить запятую, имя переменной и только после это формат вывода :25

Ответ: Привет. Код программы поместил в первый Ваш вопрос. Чтение исходных данных из файла, но несложно переделать для ввода с клавиатуры.
Используется указатель на массив - это позволяет определить длину массиву УЖЕ ПОСЛЕ ввода его длины.
Посмотри, и если что не понятно - пиши.
ЗЫ: длина массива ограничена тем, что общий размер памяти, выделенный GetMem не может быть больше 64 К, но можно обойти. Работа будет чуть посложнее

Ответ: :)

Ответ: Мне кажется так:
1) коэффициенты и есть массив b. То есть, видимо нужно прочитать из файла. В нем, наверно, должно быть записано число коэффициентов, и затем сами коэффициенты.
2) Затем нужно прочитать значение x, вычислить сумму, то есть, видимо, следует читать "нахождение суммы многочлена", а не "коэффициентов"
3) "регулированные" размеры - скорее всего означает, что количество коэффициентов заранее неизвестно.
НО ТЕПЕРЬ ВОПРОСЫ, ПРЕЖДЕ ЧЕМ НАПИСАТЬ:
---
Вот мой вариант с чтением исходных данных из файла INPUT.TXT (приводится ниже)
uses CRT;
{$R-}
const
InpFName: String = ''input.txt'';
type
Pcoeffs = ^TCoeffs;
TCoeffs = array[1..1] of Real;
var
N: Integer;
x: Real;
function ReadCoeffs: PCoeffs;
var
f: Text;
P: PCoeffs;
i: Integer;
r: Real;
begin
P:=nil;
Assign(f, InpFName); {$I-} Reset(f); {$I+}
if IOResult <> 0 then begin
WriteLn(''Не могу открыть файл '',InpFName);
Halt(1)
end;
ReadLn(f, N);
if (N < 1) or (N*SizeOf(Real) > 65530) then begin
WriteLn(''Неправильное значение количества слагаемых: '', N);
Close(f); Halt(1);
end;
GetMem(P, sizeof(Real)*N);
for i:=1 to N do begin
{$I-} Read(f, r); {$I+}
if IOResult <> 0 then begin
WriteLn(''Ошибка чтения из файла'');
FreeMem(p, Sizeof(Real)*N);
Close(f); Halt(2);
end;
p^[i]:=r
end;
{$I-} Read(f, x); {$I+}
if IOResult <> 0 then begin
WriteLn(''Ошибка чтения из файла значения X'');
FreeMem(p, Sizeof(Real)*N);
Close(f); Halt(2);
end;
Close(f);
ReadCoeffs := p
end;

var
coeffs: PCoeffs;
k: Integer;
sum: Real;
BEGIN
ClrScr;
coeffs:= ReadCoeffs;
for k:=1 to N do WriteLn(k:2,'') '',coeffs^[k]);
WriteLn(#13,''x = '', x);
WriteLn;
Sum:=0;
for k:=1 to N do sum:= (sum + coeffs^[k])*X;
WriteLn(''Значение суммы:'', sum);
if coeffs <> nil then FreeMem(coeffs, sizeof(real)*N);
ReadKey
END.
--
Содержимое файла INPUT.TXT
11
0.1 2.1 3.2 4.0 0.01 9.4 6.1 8.1 0.2 0.1 1.0
0.22

Ответ: А какие фигуры - имеет значение?