Вопрос школьника по предмету Информатика
1.Составить программу табуляции функции f(x) на отрезке [a;b] шагом h.Параметры a,b и h вводит пользователь с клавиатуры.
f(x) = x/cosx.
2.Найти значение выражения,используя цикл с параметром.Предусмотрен ввод с клавиатуры значений всех переменных.
Дано натуральное n вычислить значение выражения:
y = ( 1 — 1/2) * ( 1 — 1/4) ·…· (1-1/2n).
Ответ учителя по предмету Информатика
Var
A,B,H:real;
Begin
Write(‘A = ‘);ReadLn(A);
Write(‘B = ‘);ReadLn(B);
Write(‘H = ‘);ReadLn(H);
Repeat
WriteLn(A/Cos(A));
A:=A+H;
Until A>B;
End.
Var
N:integer;
Y:real;
Begin
Y:=1;
Write(‘N = ‘);ReadLn(N);
For N:= 1 to N do
Y:=Y*(1-1/(N*2));
Write(‘Y = ‘,Y);
End.
Похожие вопросы от пользователей
Помогите перевести на английский:
1.не хочешь ли ты принять участие в работе кружка
2.все должны выучить этот отрывок
3.интересно,выступал ли кто нибудь из вашей группы на вчерашнем собрании
4.он спрашивал можешь ли ты рассказать что нибудь об этом городе
5.посмотри на себя в зеркало.почему ты такая бледная?
6.он обещал написать о себе,когда приедет в город
7.я много купался в море,когда мы жили на юге
8.завтра мы собираемся в останию.Ты присоеденишься к нашей группе?