Дайте объяснение, где что начинается и что это за функция.

uses crt;
const pi=3.14;
var a:array[1..100] of integer;
b:array[1..100] of real;
m:array[1..100,1..100] of real;
x,y,bmin,sr_arif:real; i,j,k,k1,jmin,n,kol:byte;
begin
clrscr;
x:=-1*pi;
k:=0; k1:=0; n:=0;
while x<=pi do
begin
y:=3*cos(5*x)+2*sin(x);
write(' x=',x:7:2);
writeln(' y=',y:7:2);
k:=k+1;
a[k]:= round(y);
x:=x+pi/10;
end;
x:=-1*pi;
while x<=0 do
begin
y:=3*cos(5*x)+2*sin(x);
if y<0 then
begin
k1:=k1+1;
b[k1]:=y;
end;
x:=x+pi/10;
end;

Как это объяснить что где начинается, что такое while x<=pi do и для чего чего вставляют.
Вот текст задания. Протабулировать функцию Y на заданном отрезке и записать в целочисленный одномерный массив A округленные значения этой функции, а в одномерный массив B – отрицательные значения этой функции на первой половине отрезка.
Y=3cos5x + 2sinx [ - π, π ] , h= π/10
В полученном массиве A заменить каждый второй элемент на его модуль, в полученном массиве B заменить минимальный элемент на 1.

Добавлено через 27 секунд
a[k]:= round(y); и еще что это обознаечает.

Добавлено через 21 минуту
begin
if not ODD(i) then a[i]:=abs(a[i]);
write(a[i]:3);
end;
writeln;
и еще что делает if not ODD(i)

0

это означает, что а[k] принимает значение округленного у. round - это округление.

а это значит что "пока х не будет меньше или равен pi цикл будет выполняться". дословный перевод.

Добавлено через 1 минуту
а можно не кусок программы?

1

uses crt;
const pi=3.14;
var a:array[1..100] of integer;
b:array[1..100] of real;
m:array[1..100,1..100] of real;
x,y,bmin,sr_arif:real; i,j,k,k1,jmin,n,kol:byte;
begin
clrscr;
x:=-1*pi;
k:=0; k1:=0; n:=0;
while x<=pi do
begin
y:=3*cos(5*x)+2*sin(x);
write(' x=',x:7:2);
writeln(' y=',y:7:2);
k:=k+1;
a[k]:= round(y);
x:=x+pi/10;
end;
x:=-1*pi;
while x<=0 do
begin
y:=3*cos(5*x)+2*sin(x);
if y<0 then
begin
k1:=k1+1;
b[k1]:=y;
end;
x:=x+pi/10;
end;
readln;

writeln('Massiv A:');
for i:=1 to k do write(a[i]:3);
readln;

writeln('Izmenennii massiv A:');
for i:=1 to k do
begin
if not ODD(i) then a[i]:=abs(a[i]);
write(a[i]:3);
end;
writeln;

writeln('Massiv B:');
for j:=1 to k1 do write(b[j]:7:2);
writeln;
writeln('Izmenennii massiv B:');



bmin:=b[1];
for j:=2 to k1 do
if bmin>b[j] then begin bmin:=b[j];jmin:=j; end;
b[jmin]:=1.00;
for j:=1 to k1 do write(b[j]:7:2);
readln;
writeln('razmernost massiva A k=',k:2);
writeln('razmernost massiva B k1=',k1:2);
if k>k1 then n:=k1 else n:=k;
writeln('razmernost massiva M n=',n:2);
readln;
writeln('Matrica M:');
for i:=1 to n do
begin
for j:=1 to n do
begin
if a[i]<b[j] then m[i,j]:=b[j] else m[i,j]:=a[i];
sr_arif:=sr_arif+m[i,j];
write(m[i,j]:6:2);
end;
writeln;
end;
sr_arif:=sr_arif/sqr(n);
writeln('Srednee arifmeticheskoe=', sr_arif:6:2);
for i:=1 to n do
for j:=1 to n do
if i>j then
if m[i,j]<sr_arif then kol:=kol+1;
writeln('Kol-vo elementov menshih sr_arif =',kol:3);
readln;
end.

Протабулировать функцию Y на заданном отрезке и записать в целочисленный одномерный массив A округленные значения этой функции, а в одномерный массив B – отрицательные значения этой функции на первой половине отрезка.
Y=3cos5x + 2sinx [ - π, π ] , h= π/10
В полученном массиве A заменить каждый второй элемент на его модуль, в полученном массиве B заменить минимальный элемент на 1.
Сформировать двумерный массив M, размерность которого равна минимуму из размерностей одномерных массивов A и B, а значения элементов M(I,J) представляет
наибольший элемент из I-того элемента массива A и J-того элемента массива B.
В полученной матрице M найти среднее арифметическое массива, а также число элементов находящихся под главной диагональю и меньших среднего арифметического.
Вывести на печать все значения исходной функции на отрезке в виде таблицы “ X Y”,
массивы A и B в виде строк до и после изменения, матрицу M, все искомые результаты.

Добавлено через 53 секунды
В полученном массиве A заменить каждый второй элемент на его модуль, в полученном массиве B заменить минимальный элемент на 1.
где расписывается этот кусок программы, а то что то минимума не вижу.
Спасибо

0

делайте, пожалуйста в след. раз текст программы в виде кода.

if not ODD(i) означает тоже самое, что и if i mod 2=0

и на будущее
if odd(i) then означает if i mod 2<>0 then

1

прошу прощения первый раз просто.Посмотрите пожалуйста еще 1 вопрос, где красным выделено

0

вот это тот кусок программы который ты найти не можешь.

0

в полученном массиве B заменить минимальный элемент на 1.
А минимальный элемент k1, что ли обозначен.И почему именно k1 мы же ему вначале программы 0 присвоили..

0

у тебя программа задана была или тебе кто-то сделал? в ней как то не так. и даже мин элемент определяется как макс

0

сделали

Добавлено через 49 секунд
можешь поправить я буду благодарен, вроде ответ выводится...

0

просто знак здесь сейчас поменяли и теперь ищет минимальный элемент.

по поводу почему к1. к1 - это размерность массива В. поэтому мы и ведем отсчет от 1 до к1.

1

и точно спасибо огромное

0