Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/3: Рейтинг темы: голосов - 3, средняя оценка - 5.00
dyuscha
0 / 0 / 0
Регистрация: 07.01.2015
Сообщений: 8
#1

Вычислить значение выражения с помощью цикла while

08.01.2015, 13:54. Просмотров 623. Ответов 5
Метки нет (Все метки)

Написать программу для вычисления заданного выражения и вывода на экран полученного значения, используя заданный циклический оператор:

- 0,3+ 0,5 -0,7+…-3,1

Использовать оператор While

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.01.2015, 13:54
Ответы с готовыми решениями:

Вычислить значение выражения с помощью процедур и функций
Пример. y=Sqrt(sqr(a)+3*b),где a=П(от t=2 до 4)(t+2*x) и b=П(от t=6 до...

Ввести аргумент с помощью клавиатуры, вычислить значение выражения
Пример /(1-x^(2))^3, при -бесконечности<x<=-5/4; ...

Вычислить с помощью цикла for
можно ещё 9 вариант?

Вычислить значение факториала рекурсивно и с помощью цикла
Для приведенных ниже заданий составить два варианта программы с использованием...

С помощью оператора цикла for вычислить y
Помогите пожалуйста арифметическими выражениями и условными операторами и...

5
Geri4
0 / 0 / 2
Регистрация: 15.01.2015
Сообщений: 46
15.01.2015, 12:18 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Var i,sum:real;
begin
sum:=0;
i:=-0.3;
write('virozhenie: ');
while Abs(i)< 3.1 do
begin
write(i);
sum:=sum+i;
if(i<0)then 
begin
i:=Abs(i)+0.02; 
write('+'); 
end
else 
i:=(Abs(i)+0.02)*-1;
end;
write(i);
write('=',sum);
end.
0
dyuscha
0 / 0 / 0
Регистрация: 07.01.2015
Сообщений: 8
15.01.2015, 13:52  [ТС] #3
Спасибо огромное
0
APALoff
1638 / 1067 / 1080
Регистрация: 03.07.2013
Сообщений: 4,507
16.01.2015, 10:54 #4
Приращение аргумента 0.2, а не 0.02

Добавлено через 6 минут
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
Var
  i : Byte;
  sum : real;
Begin
  sum:=0; i:=1;
  While i<=(Round((3.1-0.3)/0.2)+1) do
  Begin
    If Odd(i) then sum:=sum-(i*0.2+0.1) else sum:=sum+(i*0.2+0.1);
    Inc(i);
  end;
  Writeln(sum);
end.
0
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
3758 / 2455 / 2035
Регистрация: 22.11.2013
Сообщений: 6,824
16.01.2015, 12:02 #5
Ещё вариант:
Pascal
1
2
3
4
5
6
7
8
9
var
  e, f, s: Real;
begin
  e:=0.3; f:=-1; {s:=0;}
  while e<3.1+0.1 do begin
    s:=s+e*f; e:=e+0.2; f:=-f;
  end;
  WriteLn('S=',s);
end.
Добавлено через 6 минут
Хм, поправочка, для верхнего значения стоит прибавить полшага, дабы не наступить на погрешности сравнения действительных чисел.
1
Geri4
0 / 0 / 2
Регистрация: 15.01.2015
Сообщений: 46
16.01.2015, 12:08 #6
APALoff, да извиняюсь на скорую руку делал=) это все моя не внимательность)
0
16.01.2015, 12:08
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.01.2015, 12:08

Найти максимальное значение только из нечетных и его номер.с помощью цикла.
помогите пожалуйста.препод злой...все ненравится....Даны N натуральных...

Вычислить выражения с помощью функций.
Скласти програму обчислення значення виразу, використовуючи способи...

Вычислить выражения, используя операторы для организации цикла
Вычислить выражения, используя операторы для организации цикла: ...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru