Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 19.08.2016 04:39
- Информатика
- remove_red_eye 14522
- thumb_up 16
Ответы и объяснения 1
var x:integer; y:real;
begin
for x:=-5 to 10 do
begin
y:=cos(x);
writeln(x:3,y:7:3);
end;
end.
Результат:
-5 0.284
-4 -0.654
-3 -0.990
-2 -0.416
-1 0.540
0 1.000
1 0.540
2 -0.416
3 -0.990
4 -0.654
5 0.284
6 0.960
7 0.754
8 -0.146
9 -0.911
10 -0.839
2.
var x,s:real; n,i:integer;
begin
write('x = '); readln(x);
write('n = '); readln(n);
s:=0;
for i:=1 to n do s:=s+sin(i*x);
writeln('s = ',s:7:4);
end.
Пример:
x = 2
n = 5
s = 0.3184
- 20.08.2016 15:30
- thumb_up 36
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.