Составить программу в среде Turbo Pascal для решения следующей задачи: «Вычислить все значения и найти количество элементов больших 10, для у=а(х+1), если а=2, шаг=1 и х€[-5;15]».
Составить программу в среде Turbo Pascal для решения следующей задачи: «Вычислить все значения и найти количество элементов больших 10, для у=а(х+1), если а=2, шаг=1 и х€[-5;15]».
Гость
Ответ(ы) на вопрос:
Гостьconst
a=2;
step=1;
x0=-5;
x1=15;
var
i, count: integer;
function y(x: integer): integer;
begin
y:=a*(x+1);
end;
begin
for i:=x0 to x1 do
begin
writeln('f(', i, ') = ', y(i));
if y(i)>10 then inc(count)
end;
writeln('Количество f(x)>10: ', count)
end.
Не нашли ответ?
Похожие вопросы