Pascal! для заданной функции s=tg 1/x + 2cos x/2 вывести на экран значения функции в пределах от -1 до 2 и соответствующие им значения аргумента на отрезке x ∈ [ -1, b] c шагом h=0, 3.
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.
Байты в памяти компьютера нумеруются последовательно, начиная от нуля. Если объем памяти составляет n байт, то номера будут идти от 0 до n-1. В пределах одного данного, размещенного в памяти, байты нумеруют в зависимости от архитектуры компьютера. Например, байты в персональном компьютере с архитектурой IBM PC, нумеруют в порядке от младшего к старшему, т.е. в порядке a₀, a₁, a₂ ,,, и этот порядок часто называют "интелловским" по названию фирмы Intel, использовавшей такой порядок в своем процессоре архитектуры х86. А в ЭВМ архитектуры IBM/360 (/370) байты нумеровались от старшего к младшему. Также, есть ЭВМ, которые могут переключать порядок нумерации байтов при инициализации операционной системы.
nadezhdasvirina
22.05.2022
{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.
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