4 года назад

Устанавливает ли функция y=x^2 взаимно однозначное соответствие между отрезками [-1;2] и [0;4] С решением пожалуйста!

1 ответ:

Foxi22234 года назад

0 0

Первый отрезок область определения х, второй область значений у. В крайних точках при х=-1 должно быть у=0, а по данной функциональной зависимости у=х²=(-1)²=1, следовательно соответствия нет.
Ответ: данная функция между данными отрезками взаимно однозначного соответствия не устанавливает

Читайте также

помогите срочнооо) pascal abc1. Развернуть обе половинки массива в обратном порядке. Считая, что массив имеет четное число элеме

Rimedios [10.8K]

Во всех программах у меня будет использоваться процедура swap:

procedure swap(a: ^real; b: ^real);
var
t: real;
begin
t := a^;
a^ := b^;
b^ := t;
end;

swap(x,y) - меняет местами значения x и y.

var
A: array[1..100] of real;
i, j, N: integer;

begin

readln(N);
for i := 1 to N do
read(A[i]);
for j := 1 to (N div 2) - 1 do
for i := 1 to (N div 2) - j do
swap(A[i], A[i + 1]);
for j := 1 to (N div 2) - 1 do
for i := (N div 2) + 1 to N - j do
swap(A[i], A[i + 1]);
for i := 1 to N do
writeln(A[i])
end.

var
A: array[1..100] of real;
i, N: integer;

begin

readln(N);
for i := 1 to N do
read(A[i]);
for i := 1 to N - 1 do
swap(A[i], A[i + 1]);
for i := 1 to N do
writeln(A[i])
end.

var

A: array[1..100] of real;
i, N: integer;

begin

readln(N);
for i := 1 to N do
read(A[i]);
for i := N downto 2 do
swap(A[i], A[i - 1]);
for i := 1 to N do
writeln(A[i])
end.

0 0

4 года назад

Помогите с информатикой, пожалуйста. ски чертежника

Артист2 [1]

Что это за фигуры -_- и причем тут информатика

0 0

4 года назад

Выводить числа от 1 до 10 (пока<10) с шагом 3

MONOWAR13 [7]

Держи Turbo Pascal:
<span><span>uses crt;
var i: integer;
begin
clrscr;
for i:=1 to 10 do
writeln(i);
readln;
end.
</span></span>

0 0

4 года назад

Что больше 32 бит или 4 байта?

Биржан

Ответ:

одинаково

Объяснение:

8 бит это 1 байт → 32 бита 4 байта

0 0

4 года назад

Вывести на экран английский алфавит (ПАСКАЛЬ). Заранее спасибо

Еркеназ [129]

Вот программа:

uses Crt;
var i: integer;

begin
ClrScr;
for i:=65 to 90 do
Write(Chr(i):4);
WriteLn; WriteLn;
for i:=97 to 122 do
Write(Chr(i):4);
WriteLn;
ReadLn;
end.

0 0

4 года назад