Евгений
?>

Pascal! для заданной функции s=tg 1/x + 2cos x/2 вывести на экран значения функции в пределах от -1 до 2 и соответствующие им значения аргумента на отрезке x ∈ [ -1, b] c шагом h=0, 3.

Информатика

Ответы

Vladimirovna Yevtodeva
Const a=-1; b=2; h=0.3;
var x,s:real;
i,n:integer;
begin
x:=a-h;
n:=round((b-a)/h)+1;
for i:=1 to n do
 begin
 x:=x+h;
 s:=sin(1/x)/cos(1/x)+2*cos(x/2);
 writeln(x:5:1,'  ',s:6:3);
 end;
end. 

Результат:
 -1.0   0.198
 -0.7  -5.105
 -0.4   2.707
 -0.1   1.349
  0.2  -1.391
  0.5  -0.247
  0.8   4.852
  1.1   2.989
  1.4   2.397
  1.7   1.987
  2.0   1.627
boyarinovigor
Байты в памяти компьютера нумеруются последовательно, начиная от нуля. Если объем памяти составляет n байт, то номера будут идти от 0 до n-1.
В пределах одного данного, размещенного в памяти, байты нумеруют в зависимости от архитектуры компьютера.
Например, байты в персональном компьютере с архитектурой IBM PC, нумеруют в порядке от младшего к старшему, т.е. в порядке a₀, a₁, a₂ ,,, и этот порядок часто называют "интелловским" по названию фирмы Intel, использовавшей такой порядок в своем процессоре архитектуры х86.
А в ЭВМ архитектуры IBM/360 (/370) байты нумеровались от старшего к младшему.
Также, есть ЭВМ, которые могут переключать порядок нумерации байтов при инициализации операционной системы. 
nadezhdasvirina
{1}

const
 n = 6;
var
 a:array[1..n,1..n] of integer;
 i,j:integer;
 t:integer;

begin
 for i := 1 to n do
 for j := 1 to n do
  read(a[i,j]);
 
 for j := 1 to n div 2 do
 for i := 1 to n do
  begin
  t := a[i,j];
  a[i,j] := a[i,n+1-j];
  a[i,n+1-j] := t;
  end;
 
 for i := 1 to n do
  begin
  writeln;
  for j := 1 to n do
    write(a[i,j],' ');
  end
end.

{2}

const
 n = 6;
var
 a:array[1..n,1..n] of integer;
 i,j:integer;
 t:integer;

begin
 for i := 1 to n do
 for j := 1 to n do
  read(a[i,j]);
 
 for i := 1 to n do
 for j := i+1 to n do
  begin
  t := a[i,j];
  a[i,j] := a[j,i];
  a[j,i] := t;
  end;
 
 for i := 1 to n do
  begin
  writeln;
  for j := 1 to n do
    write(a[i,j],' ');
  end
end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Pascal! для заданной функции s=tg 1/x + 2cos x/2 вывести на экран значения функции в пределах от -1 до 2 и соответствующие им значения аргумента на отрезке x ∈ [ -1, b] c шагом h=0, 3.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

betepah
Кристина Валентиновна
eeirikh
ovdei71
shakmeev
zaretskaya37
Sakmarov
menametov
stusha78938
ЭдуардовнаКлючников1361
Дмитрий74
axo-geo
ЕлизаветаВладимирович
ViktorovnaLarin
luxoutlet