Помогите, пожалуйста, с Паскалем

-VitOS- · 17.10.2013, 21:03

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

2. Определить номер первого из чисел sin x, sin(sin x), sin(sin(sin x)), ... , меньшего по модулю 10^-3.

Vladimir_S · 18.10.2013, 14:08

Цитата:

Сообщение от -VitOS-

Помогите с задачками

Да ну, скучища школьная...

Цитата:

Сообщение от -VitOS-

1. Для заданных с клавиатуры значений переменных x вычислить

Код:

Var
 x,Z:Real;
 i:Byte;
Begin
 Write('x= ');
 Readln(x);
 Z:=1;
 For i:=2 to 10 do Z:=Z*(x+1.0*i)/i;
 Writeln('Z= ',Z:0:5);
 Readln
End.

Цитата:

Сообщение от -VitOS-

2. Определить номер первого из чисел sin x, sin(sin x), sin(sin(sin x)), ... , меньшего по модулю 10^-3.

Код:

Const
 e=0.001;
Var
 x,y:Real;
 i:LongInt;
Begin
 Write('x= ');
 Readln(x);
 y:=Sin(x);
 i:=1;
 While Abs(y)>=e do
  begin
   y:=Sin(y);
   i:=i+1;
  end;
 Writeln('i= ',i);
 Readln
End.

17.10.2013, 21:03	#1 (permalink)
-VitOS- Новичок Регистрация: 17.10.2013 Сообщений: 3 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите, пожалуйста, с Паскалем Помогите с задачками 1. Для заданных с клавиатуры значений переменных x вычислить 2. Определить номер первого из чисел sin x, sin(sin x), sin(sin(sin x)), ... , меньшего по модулю 10^-3. Миниатюры

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

17.10.2013, 21:03
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Дам вам темы в которых возможно есть ответы на интересующие вас вопросы Помогите с Паскалем Помогите с паскалем Помогите с Паскалем Помогите с Паскалем Помогите с Паскалем

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070