Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 24.11.2016, 00:31   #1
Cantdie62
 
Регистрация: 24.11.2016
Сообщений: 5
По умолчанию Программирование разветвляющихся процессов

Ввести числа: натуральные m и n и вещественное x. Если частное от деления m на n четное, то вычислить логарифм x по основанию 2 , иначе минус корень пятой степени из x.

Помогите написать прогу, ничего не получается
Cantdie62 вне форума Ответить с цитированием
Старый 26.11.2016, 17:23   #2
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,536
По умолчанию

Чему тут не получаться ? Мой кот Мурзик намурлыкал это за 5 минут:
Код:
program  abc ;
label lab ;
var
  m,n,k : integer ; l2,x,y,tmp : real ;
begin
  l2 := Ln(2) ;
lab:
  Readln (m,n,x) ; k := (m div n) and 1 ;
  tmp := Ln(x) ;
  if k=0 then y := tmp/l2  else y := - Exp(tmp*0.2) ;
  writeln (y) ;
  goto lab
end.
digitalis вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Программирование разветвляющихся алгоритмов Alexei2555 Помощь студентам 4 02.12.2011 23:57
ПРОГРАММИРОВАНИЕ РАЗВЕТВЛЯЮЩИХСЯ АЛГОРИТМОВ mell33 Помощь студентам 0 13.12.2010 13:43
Программирование разветвляющихся алгоритмов в TP. prog-er Помощь студентам 2 12.12.2010 17:00
Задача на программирование разветвляющихся алгоритмов. Repz1992 Помощь студентам 1 28.10.2009 20:35
Программирование разветвляющихся алгоритмов в Delphi7 Rom1k Помощь студентам 5 27.11.2008 14:36