Постройте график функции на отрезке [-10;10] с шагом 0,2. Обратите внимание на точки, в которых значение функции не существует. Разместите график на отдельном листе. в Excel y=(x^2-6x+4)/(3x-2)
Не понимаю про какие точки идет речь. Точка только есть где х делиться на 0 но в расчетах не указал
процедуру с параметрами, обеспечивающую перестановку двух заданных строк матрицы
написан на PascalABC.NET
но должно работать в TurboPascal
}
PROGRAM A5;
const
rows = 5;
cols = 8;
type
matrix = array [1..rows,1..cols] of integer;
var
AR : matrix;// рабочая матрица
i,j:byte;// счетчики
k1,k2:byte;// номера строк
// обмен строк матрицы местами
procedure SwapRows(row1:byte; row2:byte; var m:matrix);
var i,j:byte;
ax:integer;
begin
for i:=1 to cols do begin
ax := m[row1,i];
m[row1,i] := m[row2,i];
m[row2,i] := ax;
end;
end;
// выравнивание по правому краю - пробелы перед числом
function trailSpace(num:byte; len:byte):string;
var s:string;
i:byte;
begin
s := ''+num;
i := s.Length;
while (i<len) do begin
s := ' ' + s;
i := i+1;
end;
trailSpace := s;
end;
// вывод матрицы на экран
procedure displayMatrix(var m:matrix);
var i,j:byte;
begin
for i:=1 to rows do begin
write('Строка ', i, ': ');
for j:=1 to cols do begin
write();
write(trailSpace(AR[i,j], 4) );
end;
writeln(' ');
end;
end;
BEGIN
// заполнение массива и вывод его на экран
randomize();
for i:=1 to rows do
for j:=1 to cols do
AR[i,j] := random(256);
writeln('Начальный массив');
displayMatrix(AR);
// ввод данных
writeln(' ');
write('введите номер строк которые следует поменять местами: ');
readln(k1, k2);
if (k1<=rows) and (k2<=rows) then begin
SwapRows(k1, k2, AR);
writeln('Результат');
displayMatrix(AR);
end else
writeln('Номера строк должны быть меньше ', rows);
END.
a:
INPUT n
IF n < 1 OR INT(n) <> n OR n > 1000 THEN GOTO a
DIM a(n)
h=30000
FOR i = 1 TO n
b:
INPUT a(n)
IF a(n) < 1 OR INT(a(n)) <> a(n) OR a(n) > 30000 THEN GOTO b
IF INT ((a(n) - 4 ) / 10) = ((a(n) - 4) / 10) AND a(n) < h THEN h = a(n)
NEXT i
PRINT h
END
или:
n - количество чисел
i - цикловая переменная
a - натурально число
min - минимальное число, оканчивающееся на 4
Язык програмирования: Паскаль
var
n,i,a,min: integer;
begin
readln(n);
min := 30001;
for i := 1 to n do
begin
readln(a);
if (a mod 10 = 4) and (a < min) then
min := a;
end;
writeln(min)
end.