Технический форум - Помогите с тремя простыми задачами PASCAL

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

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

Помогите с тремя простыми задачами PASCAL

Помогите пожалуйста с задачами.
Вообще не понимаю как делать tehnobanka

М-да... По поводу первой. А вот заглянуть сюда, где только что было выложено решение аналогичной задачи, и чуть-чуть-чуть пошевелить мозгами в плане приведения к Вашей - никак? Ну то есть совсем? Грустно. Ну ладно, получите:

Код:

VAR

 i:Integer;

 S,x,A,Eps:Real;



Begin

 Write('x= ');

 Readln(x);

 Write('Eps (e.g. 0.0001)= ');

 Readln(Eps);

 i:=3;

 A:=x/6;

 S:=A;

 Repeat

  Inc(i,2);

  A:=-A*x*x/(i*(i-1));

  S:=S+A;

 Until Abs(A)<Eps;

 Writeln('x= ',x:0:3,'   Sum= ',S:0:5,'   Accurate value= ',(x-Sin(x))/Sqr(x):0:5);

 Readln

End.

Ну вот Вам вторая (про упорядоченные строки матрицы):

Код:

Var

 A:Array[1..10,1..3] of byte;

 i,j:byte;

Begin

 Randomize;

 for i:=1 to 10 do

  begin

   for j:=1 to 3 do

    begin

     A[i,j]:=Random(10);

     Write(A[i,j]:3);

    end;

   if (A[i,2]<=A[i,1]) or (A[i,3]<=A[i,2]) then

    writeln('   Order is corrupted!')

   else

    writeln('   Ordered')

  end;

 Readln

End.

А вот третья. Только оговорюсь сразу: что уважаемые преподы подразумевают под высокопарным термином "нисходящий способ" я, извините, не в курсе. Равно как и про "косовосходящий способ" или "втуманнуюдальуходящий". Потому решаю, как умею.

Код:

Var

 A:Array[1..5,1..5] of byte;

 C:Array[1..5] of byte;

 i,j:byte;

 b:boolean;

Begin

 Randomize;

 Writeln('Matrix A:');

 for i:=1 to 5 do

  begin

   C[i]:=Random(50)+50;

   for j:=1 to 5 do

    begin

     A[i,j]:=Random(50);

     Write(A[i,j]:4);

    end;

   Writeln;

  end;

 Writeln;

 Writeln('Old C array:');

 for i:=1 to 5 do Write(C[i]:4);

 Writeln;

 Writeln;

 b:=true;

 for i:=1 to 5 do

  if A[i,i]>C[i] then b:=false;

 If b then

  for i:=1 to 5 do

   begin

    C[i]:=A[i,1];

    for j:=2 to 5 do

     if A[i,j]<C[i] then C[i]:=A[i,j];

   end;

 Writeln('New C array:');

 for i:=1 to 5 do Write(C[i]:4);

 Readln

End.

А можете написать их без оператора Randomize, а чтобы самому надо было вводить?

Цитата:

Сообщение от Madara (Сообщение 977617)

А можете написать их без оператора Randomize, а чтобы самому надо было вводить?

Как говорил незабвенный Василий Иваныч, "могу, Петька, могу":

Код:

Var

 A:Array[1..10,1..3] of byte;

 i,j:byte;

Begin

 for i:=1 to 10 do

  begin

   for j:=1 to 3 do

    begin

     Write('A[',i,',',j,']= ');

     Readln(A[i,j]);

    end;

  end;

 Writeln;

 for i:=1 to 10 do

  begin

   for j:=1 to 3 do

     Write(A[i,j]:4);

   if (A[i,2]<=A[i,1]) or (A[i,3]<=A[i,2]) then

    writeln('   Order is corrupted!')

   else

    writeln('   Ordered')

  end;

 Readln

End.

Код:

Var

 A:Array[1..5,1..5] of byte;

 C:Array[1..5] of byte;

 i,j:byte;

 b:boolean;

Begin

  for i:=1 to 5 do

   for j:=1 to 5 do

    begin

     Write('A[',i,',',j,']= ');

     Readln(A[i,j]);

    end;

 Writeln;

 for i:=1 to 5 do

  begin

   Write('C[',i,']= ');

   Readln(C[i]);

  end;

 Writeln('Matrix A:');

 for i:=1 to 5 do

  begin

   for j:=1 to 5 do

    Write(A[i,j]:4);

   Writeln;

  end;

 Writeln;

 Writeln('Old C array:');

 for i:=1 to 5 do Write(C[i]:4);

 Writeln;

 Writeln;

 b:=true;

 for i:=1 to 5 do

  if A[i,i]>C[i] then b:=false;

 If b then

  for i:=1 to 5 do

   begin

    C[i]:=A[i,1];

    for j:=2 to 5 do

     if A[i,j]<C[i] then C[i]:=A[i,j];

   end;

 Writeln('New C array:');

 for i:=1 to 5 do Write(C[i]:4);

 Readln

End.

Спасибо большое:)
С вами можно как нибудь связаться тут тет-а-тет ?

Цитата:

Сообщение от Madara (Сообщение 977630)

С вами можно как нибудь связаться тут тет-а-тет ?

http://www.tehnari.ru/f43/t92756/#post975779 и дальше.

У меня пывадают только 3 пункта

просмотреть профиль
найти ещё сообщения
добавить

Всё понял)прочитал