Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/9: Рейтинг темы: голосов - 9, средняя оценка - 5.00
чертик
1

Определить, сколько чисел натурального ряда необходимо сложить, чтобы их сумма превысила число 119

24.04.2011, 17:48. Просмотров 1719. Ответов 2
Метки нет (Все метки)


Как это можно решить через оператора цикла?Нужно очень срочно помогите пожалуйста....
Задание1.
Определить, сколько чисел натурального ряда необходимо сложить, чтобы их сумма превысила число 119
Задание2
Составить таблицу стоимости порций сыра весом 50,100,150,...,1000г. (цена 1кг-9000рублей)
Задание3
напишите программу вычисления функции Y=f(X) на отрезке [A,B] с шагом Н. На каждом шаге выведете на экран дисплея значения переменных X и Y.
Вычисляемая функция Y=X+1+sin(X-1)
A=0, B=4П, H=П/6
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.04.2011, 17:48
Ответы с готовыми решениями:

Сколько членов ряда 1/2 + 2/3 + 3/4 + ... нужно сложить, чтобы сумма превысила 9?
1. Сколько членов ряда 1/2 + 2/3 + 3/4 + ... нужно сложить, чтобы сумма превысила 9? 2....

сколько чисел натурального ряда необходимо сложить, чтобы их сумма превысила число 119
Как это можно решить через оператора цикла? Определить, сколько чисел натурального ряда необходимо...

Какое количество первых чётных натуральных чисел надо сложить, чтобы их сумма превысила 10000
Какое количество первых чётных натуральных чисел надо сложить, чтобы их сумма превысила 10000,...

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

2
247 / 247 / 135
Регистрация: 09.04.2011
Сообщений: 524
24.04.2011, 18:54 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

1.
Pascal
1
2
3
4
5
6
7
8
9
10
uses crt;
var i,n: integer;
begin clrscr;
n:=1;
for i:=2 to 256 do begin
n:=n+i;
if n >=119 then break end;
writeln('Íóæíî ñëîæèòü ',i,' ÷èñåë');
readkey
end.
Добавлено через 13 минут
2.
Pascal
1
2
3
4
5
6
7
8
9
10
uses crt;
var k,n: real;
begin clrscr;
while n < 1000 do begin
n:=n+50;
k:=9000/(n / 1000);
writeln(n,' ãðàìì ñûðà ñòîèò ',k:8:2,' ðóáëåé.');
end;
readkey
end.
Добавлено через 6 минут
3.
Pascal
1
2
3
4
5
6
7
8
9
10
uses crt;
var x, y: real;
begin clrscr;
while x <= 4*pi do begin
y:=x+1+sin(x-1);
writeln('y = ',y:7:4,'    x = ',x:7:4,';');
x:=x+pi/6;
end;
readkey
end.
0
ka2na4ei
24.04.2011, 18:59 3
Цитата Сообщение от чертик Посмотреть сообщение
Как это можно решить через оператора цикла?Нужно очень срочно помогите пожалуйста....
Задание3
напишите программу вычисления функции Y=f(X) на отрезке [A,B] с шагом Н. На каждом шаге выведете на экран дисплея значения переменных X и Y.
Вычисляемая функция Y=X+1+sin(X-1)
A=0, B=4П, H=П/6
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
  var 
a,b,h:real;
  begin
a:=0;
b:=4*Pi;
h:=pi/6;
  while a<=b do begin
                    writeln('При x=',a,' y=',a+1+sin(a-1):8:2);
                    a:=a+h
                    end;
readkey;
  end.
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.04.2011, 18:59

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

Сколько чисел нужно сложить, чтобы сумма стала положительна?
2. Задана арифметическая прогрессия: -3,5; -3,1;... Сколько чисел нужно сложить, чтобы сумма стала...

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

Сколько элементов нужно сложить, чтобы сумма превысила заданное число?
5. Дана последовательность, состоящая из дробей: 1/1, 4/2, 7/3, 10/4,... Какое минимальное...

Сколько членов последовательности чисел Фибоначчи нужно сложить, чтобы сумма превысила 1000
Не силен в программировании MathCAD Задание: Сколько членов последовательности чисел Фибоначи...


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

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

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