Уважаемые программисты!!! Помогите пожалуйста решить задачки...

[deform]

На весы я нажал еще после решения Задачи 3, но репутация почему-то не добавилась, а сейчас пишет, что я не могу снова добавить отзыв mflat. Не знаю, почему так((((

[Stilet]

Та впринцыпе не важно

Раз не важно напишу задачу 4 на моем любимом языке

a=0
b=360
delete $*
li=SplineShape wirecolor:red
addNewSpline li
while a<b do (
    rr=[a,sin((2*a)^(1/2))+cos(a),0]
	addKnot li 1 #corner #line rr
	a+=1
)
updateShape li

[deform]

)) Прикольно)) А можешь её решить на С++?? А то нам на 1-ом курсе в универе ничего про этот язык еще не говорили, а сам я не переведу эту прогу в Си((( Извени, что сначала написал "не важно", не так выразился...

[Stilet]

не так выразился

Вот в следующий раз будешь думать дважды прежде чем темы неадекватно постить. Тут с этим строго. Уважаешь ты - уважают и тебя

эту прогу в Си

Си плохо знаю. Могу в паскале или в Делфи.

[deform]

Извени еще раз! Паскаль мне подойдёт. Помоги пожалуйста, если можешь...

[Stilet]

Примерно так:

uses crt,Graph;
const er=100;
var
 c:char;
  grDriver: Integer;
  grMode: Integer;
  x,y:double;a,b,ErrCode,i: integer;
  ang:real;

begin
  grDriver := Detect;
  InitGraph(grDriver, grMode,'');{}
  ErrCode := GraphResult;
  x:=0;
  moveto(100,100);
  while x<(2*pi) do begin
   y:=(sin(exp(0.5*ln(x*2))+cos(x)));
   lineto(er*round(x)+100,er*round(y)+100);
   x:=x+0.1;
   end;
    c:=readkey;
    CloseGraph;
end.

Там только формулу подправить (er менять) чтоб красиво выводило. но смысл такой.

[deform]

Спасибо ОГРОМНОЕ!!!!!!!!!!!!!!!

[deform]

Помогите пожалуйста и первую задачу решить.....
Задача 1

Для матрицы а(n, n) найти обратную матрицу. Вывести на печать нижнюю треугольную матрицу в общепринятом виде. N<=8