Матрицы и табулирование функций Опции

[Guest]

:molitva: Помогите, пожалуйста, решить задачу, это очень срочно!
Получить [Aij] i=1,...,10-целочисленную матрицу для j=1,...,12, в которой Aij=i+2j.

[volvo]

Guest

Код

var
 i, j: integer;
 a: array[1..10, 1..12] of integer;
begin
 for i := 1 to 10 do
   begin
   for j := 1 to 12 do
     begin
       a[i, j] := i+2*j;
       write(a[i, j]:4)
     end;
   writeln
   end;
end.

Сообщение отредактировано: volvo - 6.12.2004 0:24

[Guest]

:rose: Спасибо большое. Я просто в Паскале ничего не понимаю, мне в институте хватает одной вышки.Немогли бы еще одну?Буду очень признательна. На интервале 0<=a<=5 протабулировать функцию b=1-e (e в степени -a/x) da=0.5

[klem4]

Если я правельно понял условие, то вот так :

Код

program TabF;
uses crt;
var b,a,x:extended;

Begin
  readln(x);
  a:=0;
  while a<=5 do
   begin
     b:=1- exp((-a/x));
     writeln('a=',a:1:1);
     writeln('b=',b:1:3);
     a:=a+0.5;
   end;

  repeat
   keypressed
  until keypressed;

END.

[volvo]

klem4
Все прекрасно, но "табулирование" означает представление в форме таблицы, а в вышеприведенной программе этого нет...

Код

{$n+}
var
 b,a,x:extended;

begin
 readln(x);
 a:=0;
 writeln('a':10, 'b':10);
 while a<=5 do
   begin
     b:=1- exp((-a/x));
     writeln(a:10:1, b:10:3);
     a:=a+0.5;
   end;
 readln
end.

[Guest]

Спасибо огромное!!! :flowers: Вы меня очень, очень выручили!