Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
0 / 0 / 0
Регистрация: 10.10.2016
Сообщений: 53
1

Сколько слагаемых необходимо взять что бы сумма 2+4+6... оказалась больше 100

12.10.2016, 11:01. Просмотров 1231. Ответов 10
Метки нет (Все метки)


Написать программу , которая находит сколько слогаемых необходимо взять что бы сумма 2+4+6... оказалась больше 100 (Тема массивы )
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.10.2016, 11:01
Ответы с готовыми решениями:

Найти сколько слагаемых необходимо, чтобы сумма 2+4+6+… оказалась больше 100
Найти сколько слагаемых необходимо, чтобы сумма 2+4+6+… оказалась больше 100.

Найти сколько слагаемых необходимо, чтобы сумма ряда оказалась больше 100
сколько слагаемых необходимо, чтобы сумма ряда 2,4,6,8...n оказалась больше 100

Сколько слагаемых должно быть в сумме, чтобы сумма оказалась больше 5
помогите пожалуйста написать программу Сколько слагаемых должно быть в сумме 1+1/2+1/3+...+1/n ,...

Сколько слагаемых должно быть в сумме, чтобы эта сумма оказалась больше 3.7
задача 1 сколько слагаемых должно быть в сумме 3 +1 / 4 +1 / 5 + .+1 / n чтобы эта сумма оказалась...

10
Модератор
62884 / 46920 / 32338
Регистрация: 18.05.2008
Сообщений: 113,701
12.10.2016, 11:08 2
Цитата Сообщение от Gander Посмотреть сообщение
(Тема массивы )
Это Вы заблуждаетесь, просто цикл с пред- или с постусловием.
0
4252 / 2038 / 2092
Регистрация: 10.12.2014
Сообщений: 7,852
12.10.2016, 11:11 3
Зачем нужны массивы в данной задаче? Ну всяко прикидывал! Не могу понять… ;–(
Pascal
1
2
3
4
5
6
7
begin
  var k := 0;  var a := 2;  var s := 0;
  repeat
    k += 1; s += a; a += 2;
  until s >= 100;
  WriteLn(k);
end.
0
0 / 0 / 0
Регистрация: 10.10.2016
Сообщений: 53
12.10.2016, 11:23  [ТС] 4
Препод сказал делать через массивы ещё добавил что через двумерный массив (
0
Модератор
62884 / 46920 / 32338
Регистрация: 18.05.2008
Сообщений: 113,701
12.10.2016, 11:32 5
Gander, Вы все перепутали, препод про какое-то другое задание говорил, не смешите народ и не позорьте препода, вот зайдет он на форум, мало Вам не покажется.
0
0 / 0 / 0
Регистрация: 10.10.2016
Сообщений: 53
12.10.2016, 12:23  [ТС] 6
Уточнил , и всё ровно препод сказал делать через массив ! пояяснив тем что через цикл мы это умеем делать
0
Эксперт Pascal/Delphi
2359 / 1278 / 1484
Регистрация: 29.08.2014
Сообщений: 4,602
12.10.2016, 12:48 7
может лучше квадратное уравнение решить?
n2+n-100=0
n1=10, n2=-11

Добавлено через 1 минуту
т.е. 10 слагаемых надо

Добавлено через 6 минут
вообще я эту задачу видел в теме оператор цикла с предусловием, и решение такое:
Pascal
1
2
3
4
5
6
var
  i,s:integer;
begin
  while s<=100 do begin i:=i+1;s:=s+i*2;end;
  write(i);
end.
ну никак не массив
0
0 / 0 / 0
Регистрация: 10.10.2016
Сообщений: 53
12.10.2016, 15:55  [ТС] 8
Ну вот а препод сказал делать именно через массив
0
Эксперт Pascal/Delphi
2359 / 1278 / 1484
Регистрация: 29.08.2014
Сообщений: 4,602
12.10.2016, 17:02 9
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
var
  i,s:integer;
  a:array[1..20] of integer;
begin
  while s<=100 do begin i:=i+1;s:=s+i*2;a[i]:=i*2;end;
  writeln('count=',i,'; sum=',s);
  writeln('array elements:');
  for s:=1 to i do write(a[s],' '); 
end.
0
0 / 0 / 0
Регистрация: 10.10.2016
Сообщений: 53
24.10.2016, 13:07  [ТС] 10
Да , вот только препод говорит надо было делать как-то так :
a[1]:=2
a[2]:=a[1]+2
a[i]:=a[-1]+2
s=s+a[i];
Только я вот не понимаю куда это всунуть что бы работало
P.s вместо "i:=i+1;s:=s+i*2;a[i]:=i*2 " надо моё впихнуть
0
Модератор
62884 / 46920 / 32338
Регистрация: 18.05.2008
Сообщений: 113,701
24.10.2016, 13:12 11
Pascal
1
2
3
4
5
6
7
8
9
n:=1;
a[n]:=2;
s:=2;
while s<=100 do
 begin
  n:=n+1;
  a[n]:=a[n-1]+2;
  s:=s+a[n];
 end;
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.10.2016, 13:12

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

Определить, сколько чисел необходимо, чтобы их сумма оказалась больше заданного числа
Написать программу, которая находит сколько чисел необходимо, чтобы сумма 5+(2*5) + (3*5) +...(N*5)...

Найти, сколько слагаемых необходимо, чтобы сумма 2+4+6+… оказалась больше 100
Найти, сколько слагаемых необходимо, чтобы сумма 2+4+6+… оказалась больше 100.

Сколько слагаемых должно быть в сумме, чтобы эта сумма оказалась больше 5
Сколько слагаемых должно быть в сумме 1+1/2+1/3+1/4+...+1/n, чтобы эта сумма оказалась больше 5 ?...

Определить, сколько слагаемых должно быть в сумме, чтобы сумма оказалась больше или равной N
Доброго времени суток. Задача: Сколько слагаемых должно быть в сумме 1 + 1/2 + 1/3 + …+ 1/k,...

сколько слагаемых должно быть в сумме 1+1/2+1/3+.+1/N, чтобы сумма оказалась больше L. L вводится пользователем , L принадлежит промежутку [1;2]
Cколько слагаемых должно быть в сумме 1+1/2+1/3+...+1/N, чтобы сумма оказалась больше L. L вводится...

Сколько надо взять слагаемых в частичной сумме ряда, чтобы она превысила 100?
Ребят, посодействуйте пожалуйста: Известно, что гармонический ряд 1 + 1/2 + 1/3 + … + 1/n + …...


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

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

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