вывести границы отрезка,

[tanyhatv]

С помощью указателя на матрицу транспонировать матрицу 5х5 в ДРП

Еще задачи
Подсчитать число одинаковых элементов на соответствующих позициях в двух строках, используя для этого указатели на строки.

Создать и вывести на экран файл с пятью объектами перечисляемого типа.

Задача 1
С помощью подпрограммы с параметром процедурного типа вывести границы отрезка,на котором функции имеют корень,перебирая отрезки с шагом 0,1 для ln(x)-x+1.8=0 на интервале [2,3] и x^2-1=0 на интервале [1,2].

Задача 2
Найти сумму максимальных элементов строк матрицы 5х4 в динамическом распределении памяти. (используя указатели)

Задача 3
Для х=0.8 вычислить значения первых 6 полиномов Эрмита: Н0(х)=1, Н1(х)=2х,Нn(х)=2[xНn-1(x)-(n-1)Нn-2(x)]/n

[Stilet]

Подсчитать число одинаковых элементов на соответствующих позициях в двух строках, используя для этого указатели на строки.

Паскаля под рукой нет но вот такое должно работать

 var q,w:string;
  a,s:^char;k,i:integer;
begin
 q:='Helo';w:='Hello';
 a:=@q[1];s:=@w[1];
 i:=1;        k:=0;
 while (i<length(q))and(i<length(w)) do begin
  if a^=s^ then inc(k);
  a:=pointer(integer(a)+1);
  s:=pointer(integer(s)+1);
   inc(i);
 end;
 write(k);
 readln;

end.

[tanyhaftv]

а почему в ответе 1?

var q,w:string;
  a,s:^char;k,i:integer;
begin
 writeln ('vvod 1 stroki');
 readln (q);
 writeln ('vvod 2 stroki');
 readln (w);

 a:=@q[1];s:=@w[1];
 i:=1;
 k:=0;
 while (i<=length(q))and(i<=length(w)) do
 begin
  if a^=s^
    then k:=k+1;
  a:=@q[i+1];
  s:=@w[i+1];
  i:=i+1;
 end;
 write (k);
 readln;

end.

[Stilet]

а почему в ответе 1?

Может потому что ты мой пример неверно прочитал(а)
См. внимательнее что и как я написал.

[tanyhaftv]

мой паскаль не выполняет вот это действие,я выше написал программу,которая у меня работает.
a:=pointer(integer(a)+1);

Как вот эхти сделать?:
1. С помощью указателя на матрицу транспонировать матрицу 5х5 в ДРП
2.Создать и вывести на экран файл с пятью объектами перечисляемого типа.
3.С помощью подпрограммы с параметром процедурного типа вывести границы отрезка,на котором функции имеют корень,перебирая отрезки с шагом 0,1 для ln(x)-x+1.8=0 на интервале [2,3] и x^2-1=0 на интервале [1,2].
4.Найти сумму максимальных элементов строк матрицы 5х4 в динамическом распределении памяти. (используя указатели)
5.Для х=0.8 вычислить значения первых 6 полиномов Эрмита: Н0(х)=1, Н1(х)=2х,Нn(х)=2[xНn-1(x)-(n-1)Нn-2(x)]/n