Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
urbic
130 / 121 / 124
Регистрация: 27.09.2012
Сообщений: 491
1

Вычислить значение суммы используя все виды циклов

28.05.2014, 12:23. Просмотров 349. Ответов 4
Метки нет (Все метки)

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

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

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

Вычислить 10!, используя все три вида циклов
Вычислить 10!, используя все три вида циклов.(Цыклы) Массивы...

Рекурсия: нахождение суммы цифр целого числа, не используя операторы циклов
Подскажите пожалуйста как описать рекурсивную функцию целого типа которая будет...

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

4
Svager
396 / 375 / 406
Регистрация: 14.09.2013
Сообщений: 1,204
28.05.2014, 15:53 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
var s:real;
    x,k,n,step:integer;
begin
 write('n=');
  readln(n);
 write('x=');
  readln(x);
 s:=0;step:=1;
  for k:=1 to n do
   begin
    step:=step*x;
    s:=s+((step+3)/(2*k));
   end;
 writeln('S = ',s:0:2);
end.
Добавлено через 1 минуту
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
var s:real;
    x,k,n,step:integer;
begin
 write('n=');
  readln(n);
 write('x=');
  readln(x);
 s:=0;step:=1;k:=1;
  while k<=n do
   begin
    step:=step*x;
    s:=s+((step+3)/(2*k));
    inc(k);
   end;
 writeln('S = ',s:0:2);
end.
Добавлено через 3 минуты
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
var s:real;
    x,k,n,step:integer;
begin
 write('n=');
  readln(n);
 write('x=');
  readln(x);
 s:=0;step:=1;k:=0;
  repeat
   inc(k);
   step:=step*x;
   s:=s+((step+3)/(2*k));
  until k=n;
 writeln('S = ',s:0:2);
end.
1
urbic
130 / 121 / 124
Регистрация: 27.09.2012
Сообщений: 491
28.05.2014, 19:20  [ТС] 3
Скажите откуда переменная n?
0
Svager
396 / 375 / 406
Регистрация: 14.09.2013
Сообщений: 1,204
28.05.2014, 21:08 4
urbic, ну это у вас на рисунке t , то есть кол-ство итераций
0
urbic
130 / 121 / 124
Регистрация: 27.09.2012
Сообщений: 491
28.05.2014, 21:16  [ТС] 5
Спасибо
0
28.05.2014, 21:16
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.05.2014, 21:16

Вычислить значение функции двумя видами циклов
Составить 2 программы с циклом: 1. Цикл с предусловием 2. Цикл с постусловием

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

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


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

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

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