Лабораторные работы

[MaxMelnikov]

Помогите пожалуйста решить:

Желательно до утра .
Спасибо!

[Arigato]

Нет, но это уже просто шедевр! Такой наглости я еще тут не видел. Даже перепечатать задачу не смогли, а дали нам скан с практически нечетаемым шрифтом.
Решайте сами.

[MaxMelnikov]

Странно, мне всё читаемо. Я думал что в таком виде задача понятней.
Ну извините, я больше не буду так делать))
Вот условие:

Протабулировать функцию:
y=((x-2)(x-4)(x-6)...(x-k))/((x-1)(x-3)(x-5)...(x-k-1))
в диапазоне -5<=x<=5 с шагом 1

k-вводится.
Сомножитель, дающий ноль, при вычисления числителя/знаменателя, пропускать.

[Arigato]

И, где Ваш вариант решения, в чем нам исправлять ошибки? Нам нужен Ваш код.

[MaxMelnikov]

uses crt;
label _exit;
var i,x,k:integer; a:real; c:char;

function onotole(k:integer;var x:integer):real;
var i:byte;a1,a2:integer;
begin
a1 := 1; a2 := 1; i := 2;
while i <= k do begin
a1:=a1*( x-i );
inc(i,2);
end;
i := 2;
while i <= k do begin
if (x-i-1)<>0 then a2:=a2*( x-i-1 );
inc(i,2);
end;
if a2 = 0 then onotole := 0 else onotole := a1/a2;
end;
begin repeat clrscr;
write('Type variable K: '); readln(k); writeln; writeln(' x | y '); writeln('-----------');
for i := -5 to 5 do begin
a := onotole( i,k ); writeln(i:5,'|',a:5:2);
end;
_exit:
writeln; writeln('Repeat? [y\n]');
c := readkey;
until(c='N')or(c='n');
end.

[MaxMelnikov]

Сообщение от Arigato

И, где Ваш вариант решения, в чем нам исправлять ошибки? Нам нужен Ваш код.

А если не знаешь как решать, что писать? Я думал тут свой код необязателен.

Я вобще не люблю функции и процедуры. И плохо их понимаю.
Может кто может предоставить решение без них?

[Викдон]

Что есть протабулировать функцию?

[MaxMelnikov]

Вывести все значения y при данных значениях Х
Примерно это будет выглядеть так:

x y
-5 y(-5)
-4 ...
-3 ...
... ...
3 ...
4 ...
5 ...

Т.е. напротив каждого значения X вывести значение функции