:molitva: Помогите, пожалуйста, решить задачу, это очень срочно! Получить [Aij] i=1,...,10-целочисленную матрицу для j=1,...,12, в которой Aij=i+2j.
volvo
6.12.2004 0:12
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.
Guest
6.12.2004 0:21
:rose: Спасибо большое. Я просто в Паскале ничего не понимаю, мне в институте хватает одной вышки.Немогли бы еще одну?Буду очень признательна. На интервале 0<=a<=5 протабулировать функцию b=1-e (e в степени -a/x) da=0.5
klem4
6.12.2004 0:42
Если я правельно понял условие, то вот так :
Код
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
6.12.2004 1:07
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
6.12.2004 1:41
Спасибо огромное!!! :flowers: Вы меня очень, очень выручили!
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.