Вопрос по информатике:
Var x,y,z:real;
begin
write ('x=');readln(x);
write ('y=');readln(y);
z:=abs(x)-abs(y)/1+abs(x*y);
writeln('z=',z);
end.
какую подпрограммы-процедуру можно сделать?
Пожаловаться
- 18.01.2018 00:15
- Информатика
- remove_red_eye 11155
- thumb_up 24
Ответы и объяснения 1
Подпрограмму
procedure rez(x,y:real):real;
begin
... rez=xxxxxx'
end;
redln(y);
z:=rez(x,y);
writeln(z);
.....
procedure rez(x,y:real):real;
begin
... rez=xxxxxx'
end;
redln(y);
z:=rez(x,y);
writeln(z);
.....
Пожаловаться
- 18.01.2018 12:42
- thumb_up 41
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы