Вопрос по информатике:
Составить программу на языке pascal abc. По алгоритму (Алгоритм приложен)
Пожаловаться
- 13.06.2017 22:07
- Информатика
- remove_red_eye 2616
- thumb_up 26
Ответы и объяснения 1
Var a,x,y:real;
procedure st(a,x:real; var y:real);
begin
end;
begin
write('a, x, y: ');
readln(a,x,y);
if x=0
then y:=1
else if x>0 then st(a,x,y) else st(1/a,-x,y);
writeln('y = ',y);
end.
Пример:
a, x, y: 1 2 3
y = 3
procedure st(a,x:real; var y:real);
begin
end;
begin
write('a, x, y: ');
readln(a,x,y);
if x=0
then y:=1
else if x>0 then st(a,x,y) else st(1/a,-x,y);
writeln('y = ',y);
end.
Пример:
a, x, y: 1 2 3
y = 3
Пожаловаться
- 14.06.2017 22:31
- thumb_up 10
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы