Определить, сколько чисел натурального ряда необходимо сложить, чтобы их сумма превысила число 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

@Высокий · 24.04.2011, 18:54

1.

Pascal

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

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

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.

24.04.2011, 18:59

Сообщение от чертик

Как это можно решить через оператора цикла?Нужно очень срочно помогите пожалуйста....
Задание3
напишите программу вычисления функции Y=f(X) на отрезке [A,B] с шагом Н. На каждом шаге выведете на экран дисплея значения переменных X и Y.
Вычисляемая функция Y=X+1+sin(X-1)
A=0, B=4П, H=П/6

Pascal

  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.

чертик
		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

Опции темы

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

Решение