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

[Madara]

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

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

 

[Vladimir_S]

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

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.

 

[Vladimir_S]

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

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.

 

[Vladimir_S]

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

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.

 

[Madara]

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

 

[Vladimir_S]

А можете написать их без оператора 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]

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

 

[Vladimir_S]

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

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

 

[Madara]

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

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

 

[Madara]

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

 

[Madara]

А что в строке for i:=1 to 5 do Write(C:4); означает ":4" ?

 

[Vladimir_S]

А что в строке for i:=1 to 5 do Write(C:4); означает ":4" ?

Формат вывода: четыре цифры.