Технический форум - Помогите люди, завтра лаба!

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Помогите люди, завтра лаба! (http://www.tehnari.ru/f41/t30669/)

HaXaJI

29.11.2009 18:03

Помогите люди, завтра лаба!

ПАСКАЛЬ Даны действительные числа а1......а10 , b1......b20
Получить действительную матрицу [ C ij ] i=1....10 , j=1......20
Ci/j= aj/(1+|bi|)

MrSTEP

29.11.2009 18:06

сейчас сделаем, не беспокойтесь

MrSTEP

29.11.2009 18:13

Цитата:

Ci/j= aj/(1+|bi|)

вы сдесь не перепутали местами i и j? ведь если так, то у нас модет появится a[20], а это выходит за рамки массива a

HaXaJI

29.11.2009 18:16

Да перепутал просто уже мозг кипит , там на оборот Ci/j=ai/(1+|bj|)

MrSTEP

29.11.2009 18:18

во, так лучше. сейчас протестирую и принесу

HaXaJI

29.11.2009 18:26

Хорошо

MrSTEP

29.11.2009 18:33

Код:

uses crt;

var a:array[1..10] of real;

    b:array[1..20] of real;

    c:array[1..10,1..20] of real;

    i,j:integer;

begin clrscr;

      writeln('Vvodi massiv a (10 elementov):');

      for i:=1 to 10 do

          read(a[i]);

      writeln('Vvodi massiv b (20 elementov):');

      for j:=1 to 20 do

          read(b[i]);

      for i:=1 to 10 do

          for j:=1 to 20 do

              c[i,j]:=a[i]/(1+abs(b[j]));

      writeln ('Novaya matrica:');

      for i:=1 to 10 do begin

          for j:=1 to 20 do

              write (c[i,j]:4:1);

          writeln;

      end;

end.

ну вот я набросал. надеюсь все правильно сделал и понял. если что, пишите

HaXaJI

29.11.2009 18:34

Спасибо !!! :)

Часовой пояс GMT +4, время: 11:34.