Вопрос по информатике:
Помогите решить задачу в Pascal, срочно даю 30+ баллов подробнее на фото
Пожаловаться
- 19.05.2018 04:08
- Информатика
- remove_red_eye 7578
- thumb_up 27
Ответы и объяснения 1
// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var d,f,g,h:real;
Read(d,f,g,h);
var m:=(d-f)/(g+h);
var n,p:real;
if m<0 then n:=Abs(m)
else if m>0 then n:=Sqrt(m)
else n:=d*d;
if d.Between(1,2) then p:=n-d
else p:=1/n;
Writeln('m= ',m,', N= ',n,', P= ',p)
end.
Пример
-1.4 2.7 10 3.06
m= -0.313935681470138, N= 0.313935681470138, P= 3.18536585365854
// Внимание! Если программа не работает, обновите версию!
begin
var d,f,g,h:real;
Read(d,f,g,h);
var m:=(d-f)/(g+h);
var n,p:real;
if m<0 then n:=Abs(m)
else if m>0 then n:=Sqrt(m)
else n:=d*d;
if d.Between(1,2) then p:=n-d
else p:=1/n;
Writeln('m= ',m,', N= ',n,', P= ',p)
end.
Пример
-1.4 2.7 10 3.06
m= -0.313935681470138, N= 0.313935681470138, P= 3.18536585365854
Пожаловаться
- 20.05.2018 22:36
- thumb_up 3
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы