Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 02.08.2016 00:36
- Информатика
- remove_red_eye 2718
- thumb_up 35
Ответы и объяснения 2
begin
readln(a);
readln(b);
for x:=a to b do
begin
if x > 10 then
writeln(exp(x) + ln(x / 6))
else if x < 5 then
writeln(sqrt(abs(x - 23) / 67))
else
wrtieln(sin(pi/4));
end;
end.
- 02.08.2016 20:03
- thumb_up 38
// Внимание! Если программа не работает, обновите версию!
begin
var (a,b):=ReadInteger2('Введите a и b:');
var Y:real;
for var x:=a to b do begin
if x<5 then
Y:=Sqrt(Abs((x-23)/67))
else if x>10 then Y:=Exp(x)+Ln(x/6)
else Y:=Sin(Pi/4);
Writeln(x:5,y:20:9)
end
end.
Пример
Введите a и b: -6 12
-6 0.657902592
-5 0.646459935
-4 0.634811054
-3 0.622944381
-2 0.610847222
-1 0.598505602
0 0.585904072
1 0.573025487
2 0.559850726
3 0.546358365
4 0.532524262
5 0.707106781
6 0.707106781
7 0.707106781
8 0.707106781
9 0.707106781
10 0.707106781
11 59874.747851001
12 162755.484566184
- 03.08.2016 18:07
- thumb_up 38
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.