Составьте программу построения графика зависимости y=sin4x/sinx на отрезке [-20, 20]. Установите начало системы координат в точке (400, 300 Участки графика с положительными значениями функции нарисуйте красным цветом, а участки с отрицательными значениями функции - синим цветом.

а

Объяснение:

Первый связан с применением обычных индексных выражений в квадратных скобках, например: array[18] = 3 или array[i + 3] = 9. При данном доступа записываются два выражения. Второе выражение должно быть заключено в квадратные скобки. Одно из данных выражений должно являться указателем, а второе – выражением целого типа. Последовательность записи данных выражений может быть произвольной, однако в квадратных скобках следует записывать выражение, следующее вторым. Поэтому записи array[16] и 16[array] будут являться одинаковыми и обозначающими элемент массива с номером шестнадцать. Указатель, который используется в индексном выражении, не всегда является константой, которая указывает на какой-либо массив, это может быть и переменная. Например, после выполнения присваивания ptr = array доступ к шестнадцатому элементу массива можно получить, применяя указатель ptr в форме ptr[16] или 16[ptr].

Второй доступа к элементам массива связан с применением адресных выражений и операции раза-дресации в виде *(array+16) = 3 или *(array+i+2) = 7. При данном доступа адресное выражение соответствует адресу шестнадцатого элемента массива, тоже может быть записано различными или *(16+array).

При работе на компьютере первый приводится ко второму, т. е. индексное выражение становится адресным. Для ранее рассмотренных примеров array[16] и 16[array] преобразуются в *(ar-ray+16).

Для доступа к начальному элементу массива, т. е. к элементу с нулевым индексом, можно применять просто значение указателя array или ptr. Любое из присваиваний

*array = 2;

array[0] = 2; *(array+0) = 2; *ptr = 2;

ptr[0] = 2;

*(ptr+0) = 2;

присваивает начальному элементу массива значение 2, но быстрее всего выполнятся присваивания *array = 2 и *ptr = 2, так как в них не требуется выполнять операции сложения.

//Pascal ABC.NET v3.1 сборка 1172

//For

Var
 ar:array[1..5] of integer;
 i:integer;
 r:real;
begin
 for i:=1 to 5 do
  begin
   readln(ar[i]);
   r:=r+ar[i];
  end;
 r:=r/i;
 writeln(r);
end.

//while

Var
 ar:array[1..5] of integer;
 i:integer;
 r:real;
begin
 while i<>5 do
  begin
   i:=i+1;
   readln(ar[i]);
   r:=r+ar[i];
  end;
 r:=r/i;
 writeln(r);
end.

//repeat

Var
 ar:array[1..5] of integer;
 i:integer;
 r:real;
begin
 repeat
   i:=i+1;
   readln(ar[i]);
   r:=r+ar[i];
 until i=5;
 r:=r/i;
 writeln(r);
end.
 

Пример ввода:
1
2
1
2
1
Пример вывода:
1.4