0 / 0 / 0
Регистрация: 05.09.2014
Сообщений: 38
1

Оператор цикла с предусловием - решить уравнение

28.09.2014, 21:42. Показов 2166. Ответов 4

Author24 — интернет-сервис помощи студентам
Если не сложно, можете помочь 2 уравнения
Оператор цикла с предусловием - решить уравнение


Оператор цикла с предусловием - решить уравнение
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.09.2014, 21:42
Ответы с готовыми решениями:

Оператор цикла с предусловием: табулирование функции
При табулировании функции y=cos(x+a) на отрезке c шагом h определить сумму значений y,...

Оператор цикла с предусловием и постусловием. PascalABC
Вычислить разность кубов N(нечетных, натуральных чисел). Помогите решить пожалуйста, как выглядит...

Используя оператор цикла с предусловием вычислить значения переменной S при n=4
Используя оператор цикла с предусловием, вычислить значения переменной S при n=4. Начальное...

Подсчитать произведение чисел от 1 к n, исключая простые числа. Выполнить оператор цикла с предусловием WHILE
Подсчитать произведение чисел от 1 к n, исключая простые числа. Выполнить оператор цикла с...

4
Эксперт Pascal/Delphi
2386 / 1298 / 1492
Регистрация: 29.08.2014
Сообщений: 4,661
29.09.2014, 06:54 2
это не уравнения, это таблица значений функции при различных значениях аргумента.
п.1.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
const
  a=0.8;
  b=4.5;
var
  x:real;
begin
   x:=0.8;
  repeat  
    write('Y(',x:0:2,')='); 
    if x<1 then writeln(ln(x)/ln(10)+7*x*x*x:0:4);
    if x=1 then writeln(2*a*sin(x)+5*a:0:4);    
    if x>1 then writeln((a*sqr(x)+b)/(sqr(x)-1):0:4);    
    x:=x+0.2;
  until x>2;
end.
Добавлено через 2 минуты
п.2.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
const t=2.2;
var
  x:real;
begin
   x:=0.25;
  repeat  
    write('Y(',x:0:2,')='); 
    if x<0.5 then writeln((5*sqr(x)+1)/sqrt(x)+t:0:4);
    if x=0.5 then writeln(sqrt(x)+t+1/x:0:4);    
    if x>0.5 then writeln(cos(x)+t*sqr(x):0:4);    
    x:=x+0.25;
  until x>1.5;
end.
0
Почетный модератор
64299 / 47594 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
29.09.2014, 07:27 3
Вроде написано
Оператор цикла с предусловием
0
Эксперт Pascal/Delphi
2386 / 1298 / 1492
Регистрация: 29.08.2014
Сообщений: 4,661
29.09.2014, 07:44 4
Лучший ответ Сообщение было отмечено rodan1217 как решение

Решение

сорри погорячился с repeat
п.1.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
const
  a=0.8;
  b=4.5;
var
  x:real;
begin
   x:=0.8;
  while x<2 do begin
    write('Y(',x:0:2,')='); 
    if x<1 then writeln(ln(x)/ln(10)+7*x*x*x:0:4);
    if x=1 then writeln(2*a*sin(x)+5*a:0:4);    
    if x>1 then writeln((a*sqr(x)+b)/(sqr(x)-1):0:4);    
    x:=x+0.2;
  end;
end.
Добавлено через 1 минуту
и п.2.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
const t=2.2;
var
  x:real;
begin
   x:=0.25;
  while x<=1.5 do begin  
    write('Y(',x:0:2,')='); 
    if x<0.5 then writeln((5*sqr(x)+1)/sqrt(x)+t:0:4);
    if x=0.5 then writeln(sqrt(x)+t+1/x:0:4);    
    if x>0.5 then writeln(cos(x)+t*sqr(x):0:4);    
    x:=x+0.25;
  end;
end.
1
0 / 0 / 0
Регистрация: 05.09.2014
Сообщений: 38
30.09.2014, 23:16  [ТС] 5
Спасибл бльшое
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.09.2014, 23:16
Помогаю со студенческими работами здесь

Подсчитать произведение чисел от 1 к n, исключая простые числа. Выполнить оператор цикла с предусловием repeat
Подсчитать произведение чисел от 1 к n, исключая простые числа. Выполнить оператор цикла с...

Оператор цикла с предусловием
Найти наибольшее положительное целое число n, для которого выполняется условие: -4n+84\vec{n}+3\geq...

Оператор цикла с предусловием
Ребята, помогите кто чем может) Заранее спасибо) 1) Найти все двузначные числа, сумма квадратов...

Оператор цикла с предусловием
Помогите, пожалуйста, с задачами, буду признателен! 1) Найти остаток от деления данного целого...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru