Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 26.09.2019
Сообщений: 6
1

Вычислить значение выражения, значение n вводится с клавиатуры

09.10.2019, 11:45. Просмотров 490. Ответов 1
Метки нет (Все метки)

составить программу для решения задачи. При решении задачи через цикл-"хорошо", через цикл и массив-"отлично". Отметка "отлично" без использования массива ставится при решении несколькими циклами.

Вычислить значение выражения, значение n вводится с клавиатуры. Написать программы с использованием
a)циклa с заданным количеством повторений FOR
b)цикла с постусловием WHILE
c)цикла с предусловием REPEAT

1)сумму S=1+1/2-1/3+...1/n
2)сумму S=1+1/2+1/3+...1/n
3)сумму S=1+1/2+2/3+...(n-1)/n

СРОЧНО
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.10.2019, 11:45
Ответы с готовыми решениями:

Вычислить значение выражения f(x) для значения x, вводимого с клавиатуры. Вывести результат на экран
Помогите решить 3 задание пожалуйста заранее спс. и посоветуйте какую нить литературу для изучения...

Для заданных с клавиатуры значений переменных x и n вычислить значение выражения
Помогите с решением задачи. Для заданных с клавиатуры значений переменных x и n вычислить Z =...

Для заданных с клавиатуры значений переменных x и n вычислить значение выражения
Помогите с решением задачи. Для заданных с клавиатуры значений переменных x и n вычислить

Разработать программу, в которой вычисляется значение выражения. Значение x вводится с клавиатуры
Ребята,помогите пожалуйста!!!!!!

1
1796 / 600 / 437
Регистрация: 15.01.2019
Сообщений: 1,862
09.10.2019, 15:22 2
Программы для задания
2)сумму S=1+1/2+1/3+...1/n

a)цикл с заданным количеством повторений FOR
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
program Project1;
var
  i: integer; // Вспомогательная переменная для организации цикла.
  n: integer; // Переменная для хранения значения вводимого числа.
  s: real;     // Переменная для хранения значения вычисляемой суммы.
begin
  Write('Введите число n: ');
  Readln(n);
  s:= 0;   //  Начальное значение суммы.
  for i:= 1 to n do
    s:= s + 1/i;     // Вычисление суммы.
  Writeln('Сумма ряда: ',s:0:2);
  Readln;
end.
b)цикл с постусловием WHILE
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program Project1;
var
  i: integer; // Вспомогательная переменная для организации цикла.
  n: integer; // Переменная для хранения значения вводимого числа.
  s: real;     // Переменная для хранения значения вычисляемой суммы.
begin
  Write('Введите число n: ');
  Readln(n);
  s:= 0;   //  Начальное значение суммы.
  i:= 1;   //  Начальное значение аргумента.
  while i <= n do
    begin
      s:= s + 1/i;     // Вычисление суммы.
      i:= i + 1;       // Приращение числа.
    end;
  Writeln('Сумма ряда: ',s:0:2);
  Readln;
end.
c)цикл с предусловием REPEAT
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program Project1;
var
  i: integer; // Вспомогательная переменная для организации цикла.
  n: integer; // Переменная для хранения значения вводимого числа.
  s: real;     // Переменная для хранения значения вычисляемой суммы.
begin
  Write('Введите число n: ');
  Readln(n);
  s:= 0;   //  Начальное значение суммы.
  i:= 1;   //  Начальное значение аргумента.
  repeat
    s:= s + 1/i;     // Вычисление суммы.
    i:= i + 1;       // Приращение числа.
  until i > n;
  Writeln('Сумма ряда: ',s:0:2);
  Readln;
end.
Добавлено через 17 минут
Программа для задания
3)сумму S=1+1/2+2/3+...(n-1)/n

a)цикл с заданным количеством повторений FOR
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
program Project1;
var
  i: integer; // Вспомогательная переменная для организации цикла.
  n: integer; // Переменная для хранения значения вводимого числа.
  s: real;     // Переменная для хранения значения вычисляемой суммы.
begin
  Write('Введите число n: ');
  Readln(n);
  s:= 1;   //  Начальное значение суммы.
  for i:= 2 to n do
    s:= s + (i-1)/i;     // Вычисление суммы.
  Writeln('Сумма ряда: ',s:0:2);
  Readln;
end.


b)цикл с постусловием WHILE
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program Project1;
var
  i: integer; // Вспомогательная переменная для организации цикла.
  n: integer; // Переменная для хранения значения вводимого числа.
  s: real;     // Переменная для хранения значения вычисляемой суммы.
begin
  Write('Введите число n: ');
  Readln(n);
  s:= 1;   //  Начальное значение суммы.
  i:= 2;   //  Начальное значение аргумента.
  while i <= n do
    begin
      s:= s + (i-1)/i;     // Вычисление суммы.
      i:= i + 1;       // Приращение числа.
    end;
  Writeln('Сумма ряда: ',s:0:2);
  Readln;
end.


c)цикл с предусловием REPEAT
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program Project1;
var
  i: integer; // Вспомогательная переменная для организации цикла.
  n: integer; // Переменная для хранения значения вводимого числа.
  s: real;     // Переменная для хранения значения вычисляемой суммы.
begin
  Write('Введите число n: ');
  Readln(n);
  s:= 1;   //  Начальное значение суммы.
  i:= 2;   //  Начальное значение аргумента.
  repeat
    s:= s + (i-1)/i;     // Вычисление суммы.
    i:= i + 1;       // Приращение числа.
  until i > n;
  Writeln('Сумма ряда: ',s:0:2);
  Readln;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.10.2019, 15:22

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

Разработать программу, в которой вычисляется значение выражения. Значение x вводится с клавиатуры:
Прошу помощи. Понимаю, что это элементарно

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

С клавиатуры вводится выражение вида с ор с (с-цифра, ор-знак операции). Вычислить значение выражения. Использовать оператор вариантов.
Буду благодарен!=(( 1. С клавиатуры вводится выражение вида с ор с (с-цифра, ор-знак операции)....

Дан многочлен. вычислить его значение в точке х (значение х вводится с клавиатуры)
помогите пожалуйста решить задачку, завтра зачет, а я не могу ее решить=( Дан многочлен. вычислить...


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

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

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