За работу поставили пятерку)))) спасибо большое!!!
Подробнее о работе
Гарантия сервиса Автор24
Уникальность не ниже 50%
Листинг программы на Pascal:
С испоьзованием цикла For
program pr5;
var n,k:integer;
x0,f,x,a,y: real;
begin
write('Введите a ');
read(a);
x0:=-2;
n:=trunc((7-x0)/0.75);
for k:=0 to n do
begin
x:=x0+0.75*k;
y:=x*x*x+5*x*x+2*x-8;
if y<>0 then f:=1/y else f:=a*x;
write('f(',x:8:2,') =',f:8:2);
if trunc(f) mod 2 <> 0 then
writeln(' - целая часть ',trunc(f),' нечетная ')
else
writeln(' - целая часть ',trun
Отсутствует
Трижды протабулировать функцию, используя три различных вида цикла, указав при этом значения функции с нечетной и четной целой частью.
Блок-схема:
С испоьзованием цикла For
С испоьзованием цикла Repeat
С испоьзованием цикла While
Отсутствует
Не подошла эта работа?
Закажи новую работу, сделанную по твоим требованиям
Листинг программы на Pascal:
С испоьзованием цикла For
program pr5;
var n,k:integer;
x0,f,x,a,y: real;
begin
write('Введите a ');
read(a);
x0:=-2;
n:=trunc((7-x0)/0.75);
for k:=0 to n do
begin
x:=x0+0.75*k;
y:=x*x*x+5*x*x+2*x-8;
if y<>0 then f:=1/y else f:=a*x;
write('f(',x:8:2,') =',f:8:2);
if trunc(f) mod 2 <> 0 then
writeln(' - целая часть ',trunc(f),' нечетная ')
else
writeln(' - целая часть ',trun
Отсутствует
Трижды протабулировать функцию, используя три различных вида цикла, указав при этом значения функции с нечетной и четной целой частью.
Блок-схема:
С испоьзованием цикла For
С испоьзованием цикла Repeat
С испоьзованием цикла While
Отсутствует
Купить эту работу vs Заказать новую | ||
---|---|---|
0 раз | Куплено | Выполняется индивидуально |
Не менее 40%
Исполнитель, загружая работу в «Банк готовых работ» подтверждает, что
уровень оригинальности
работы составляет не менее 40%
|
Уникальность | Выполняется индивидуально |
Сразу в личном кабинете | Доступность | Срок 1—5 дней |
130 ₽ | Цена | от 200 ₽ |
Не подошла эта работа?
В нашей базе 51915 Контрольных работ — поможем найти подходящую