Создать программу табулирования функции
для x на промежутке от -2 до 4 с шагом 0,5. (Протабулювати функцию –
означает создать таблицу значений функции в виде:
при х=-2 значения функции у=7
при х=-1,5 значение функции у=…
при х=-1 значение функции у=
при х=4 значения функции у=…)
Обязателен пояснительный текст при вводе и выводе значений величин.ПРОГРАММУ ЗАПИСАТЬ В ТЕКСТОВЫЙ ФАЙЛ ТЕКСТОВОГО ПРОЦЕССОРА WORD
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.