задача по основам алгоритмизации и программирования

[irishka_87]

Информатика контрольные.doc помогите решить задачу... первую контрольную

[Grag]

Обращайся, сделаю... не дорого...
Турбо Паскаль 7.0 Borland
Сможешь приехать в Красноярск и забрать работу...
Контакты:
e-mail: delmas-61@mail.ru
icq: 585281783
Skype: delmas61

[irishka_87]

нет не смогу,

[Grag]

Так можно и по электронке, было бы согласие...

[irishka_87]

ты сделаешь только одну, или сможешь и вторую..? только надо чтоб точно правильно было иначе мне потом будет... как там написано по пунктам! так не дорого - это сколь?

[Grag]

Сделаю и вторую... О цене договоримся...
Пиши на почту или в аську... Здесь цены не обсуждают...

[ROMA2PVT]

дожили уже дискриминант вычислить не могут и формулы составить

[irishka_87]

возьми вычисли,помоги девушки, мне просто не когда решать,

[vlad_light]

program 1;
uses 
 crt;
var
 a,b,c,h:real;

function D(a:real, b:real, c:real):real
begin
 D:=sqr(b)-4*a*c;
end;

begin
 write('Введите h = ');
 readln(h);
 a:=sqrt((abs(sin(8*h))+17)/((1-sin(4*h)))*cos(sqr(sqr(h)+18)));
 b:=1-sqrt(3/(3+abs(tan(a*sqr(h))-sin(a*h))));
 c:=a*sqr(h)*sin(b*h)+b*sqr(h)*h*cos(a*h);
 if D(a,b,c)<0 then writeln('Действительных корней нет');
 if D(a,b,c)=0 then writeln(-b/(2*a));
 if D(a,b,c)>0 then 
  begin
   writeln((-b+sqrt(D(a,b,c)))/(2*a));
   writeln((-b-sqrt(D(a,b,c)))/(2*a));
  end;
 readkey;
end.

[vlad_light]

program 2;
uses
 crt;
var
 B:array [0..255,0..255] of real;
 V:array [0..255] of real;
 k,m,n:integer;
 x:real;

begin
 n:=0;
 writeln('Введите размер матрицы КхМ');
 readln(k,m);
 writeln('Введите матрицу:');
 for i:=0 to k-1 do
 begin
  for j:=0 to m-1 do
  begin
   read(x);
   B[i,j]:=x;
   V[n]:=x;
   inc(n);
  end;
 end;
 clrscr;
 writeln('Матрица В:');
 for i:=0 to k-1 do
 begin
  for j:=0 to m-1 do
  begin
   write(B[i,j], ' ');
  end;
  writeln;
 end;
 writeln('Вектор V:');
 for i:=0 to (k+m-2) do write(V[i], ' ');
 readkey;
end.