Pascal задачко.....

[PUAZN]

ну вроде тут не двумерным нуна.... тут как мне подсказали нужно через одномерные массивы типа string

упс сори вссё решил всё получилось ))
Код:
const n=20; n1=21; {n1=n+1}
var
P: array [0..n] of real;
R: array [0..n1] of real;
a: real;
По Р-массиву коэффициентов многочлена
P(x)=pn*x^n + p(n-1)*x^(n-1) + ... + p1*x +p0 {возле p не множитель, а коэффициент}
получить R-массив коэффициентов многочлена (x-a)P(x)
вот с этим не поможете?(((

[Esgal]

всё равно плохо понятно

возможно объявить массивы

FName,SName:array[1..N] of string;;

for i:=1 to n do
if FName='ivanov' then write(SName);

[Хыиуду]

Попробую еще раз побыть экстрасенсом. Дан массив строк:
Иванов Иван
Петров Петр
Сидоров Семен
Надо по заданной фамилии найти имя.
for i:=1 to n do
if copy(A,1, length(sname))=sname
then writeln(copy(A, length(sname)+1, length(A)));

[PUAZN]

задачу на фамилии решил

Код: Выделить всё

program A40_5;
Uses crt;
Var
   C:string;
   n,i,j:integer;
   D:array[1..10,1..2] of string;
Begin
    clrscr;
    writeln('Введите количество человек');
    readln(n);
    Writeln('Введите фамаилии и имена: ');
    For i:=1 to n do
        for j:=1 to 2 do
                 readln(D[i,j]);
    Writeln('Введите фамилию');
    Readln(c);
    For i:=1 to n do
        if d[i,1]=C then writeln(d[i,2]);
    Readln
End.

[Хыиуду]

Ага, ровно то же самое, что я предложил в самом начале

[PUAZN]

Ага, ровно то же самое, что я предложил в самом начале

дада именно это...
теперь бы ещще про массив задачку решить...

[PUAZN]

Код: Выделить всё

program matrix;
uses crt;
var x:array[1..6] of real;
      a:array[1..6,1..6] of real;
      i,j:1..6;
begin
clrscr;
writeln('vvedi x1, x2, x3, x4, x5, x6:');
for i:=1 to 6 do 
  read(x[i]);
for i:=1 to 6 do
  for j:=1 to 6 do
    [B]a[i,j]:=exp((i-1)*ln(x[j]));[/B]
for i:=1 to 6 do
  begin
    for j:=1 to 6 do
      write(a[i,j],  );
    writeln();
  end;
readln;
end.

как вот это написать без exp и ln?

[Хыиуду]

a[i,j]:=1;
for k:=1 to i-1 do a[i,j]:=a[i,j]*x[j];

[PUAZN]

1) Определить, явля.тся ли буквы слова, введеного с клавиатуры, упорядочены в алфавитном порядке или в порядке, обратном алфавитному.
2)заполнить массив

Код: Выделить всё

1 2 3 .. 8 9
0 1 2 .. 7 8
0 0 1 .. 6 7
................
0 0 0 .. 0 1

[Esgal]

2)заполнить массив

Код: Выделить всё

1 2 3 .. 8 9
0 1 2 .. 7 8
0 0 1 .. 6 7
................
0 0 0 .. 0 1

2)
[syntax=pascal]
for i:= 1 to 9 do
for j:=i to 9 do
a[i,j]:=j-i+1;

for i:=2 to 9 do
for j:=1 to i-1 do
a[i,j]:=0;

[/syntax]
а ещё можно было инициировать массив нулями, и второй цикл не использовать...

както так в общем