|
0 / 0 / 0
Регистрация: 31.10.2008
Сообщений: 7
|
|
| 1 | |
Вычислить значение функции31.10.2008, 11:31. Показов 1624. Ответов 4
Метки нет (Все метки)
2.Вычислить значение функции y=4x-2x+5 для значений x,изменяющихся от -3 до 1 с шагом 0.1 заранее спасибо!
0
|
|
(| 31.10.2008, 11:31 | |
|
Ответы с готовыми решениями:
4
Вычислить значение функции
|
|
4 / 4 / 0
Регистрация: 31.10.2008
Сообщений: 22
|
|
| 31.10.2008, 15:24 | 2 |
|
Просто:
------------------- Код
program func;
var i:real;
a:real;
b:boolean;
begin
readln(a);
i:=-2.9;
b:=false;
while i<=1 do
begin
i:=i+0.1;
writeln('x=',i:0:2,' y=',(2*i+5):0:2);
if a=2*i+5 then b:=true
end;
if b=true then writeln('Yes') else writeln('No');
readln;
end.
Вроде так. а -3 и 1 включительно или нет?
0
|
|
|
4 / 4 / 0
Регистрация: 31.10.2008
Сообщений: 22
|
|
| 31.10.2008, 16:02 | 5 |
|
извиняюсь. не понял.
Первая: --------- Код
program mm;
var a:integer;
c:byte
b:boolean;
begin
readln(a,c);
b:=false;{хоть можно и не писать}
while (a<>0) and (b=false) do
begin
if (a mod 10)=c then b:=true;
a:=a div 10;
end;
if b=true then writeln('Yes') else writeln('No');
readln;
end.
Вторая: ----------- Код
program func;
var i:real;
begin
i:=-2.9;
while i<=1 do
begin
i:=i+0.1;
writeln('x=',i:0:2,' y=',(2*i+5):0:2);
end;
readln;
end.
вроде так.
1
|
|
| 31.10.2008, 16:02 | |
| 31.10.2008, 16:02 | |
|
Помогаю со студенческими работами здесь
5
вычислить значение функции Вычислить значение функции F(x)
Искать еще темы с ответами Или воспользуйтесь поиском по форуму: |
|
