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

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

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

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 07.02.2015, 10:36   #1
Paulesius
Новичок
Джуниор
 
Регистрация: 05.02.2015
Сообщений: 6
По умолчанию Решить выражение на ABC Pascal

Дорого времени суток всем читающим данное сообщение. Помогите написать программу решения данных выражений(вариант 4) на ABC Pascal во вложенном файле.Заранее огромное спасибо за помощь.
Изображения
Тип файла: jpg Безымянный.jpg (56.1 Кб, 119 просмотров)
Paulesius вне форума Ответить с цитированием
Старый 07.02.2015, 17:23   #2
Paulesius
Новичок
Джуниор
 
Регистрация: 05.02.2015
Сообщений: 6
Печаль

Люди программисты ну помогите пожалста!!!! В математике и программировании полный ноль,поэтому без вашей помощи не справлюсь!!!!
Paulesius вне форума Ответить с цитированием
Старый 07.02.2015, 18:02   #3
FPaul
Форумчанин
 
Регистрация: 25.01.2015
Сообщений: 472
По умолчанию

Код:
program v4a;

const
  L = 100.0;
  m = 1.8;
  g = 9.8;
var
  t: real;
begin
  t := sqrt((2 * L * (4 + m)) / (3 * g * (2 - m)));
  writeln(t: 8: 4);
end.
Код:
program v4b;

const
  t = ln(sin(Pi / 4));

  function power(a, n: real): real;
  begin
    power := exp(ln(a) * n);
  end;

var
  y: real;
begin
  y := sqrt(4 + (1 / t)) + power((1 - (1 / t)), 1 / 7) + power(2, t);
  writeln(y: 8: 4);
end.
FPaul вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Pascal. Арифметическое выражение. Решить квадратное уравнение и посчитать выражение, используя вычисленные корни. dauletsergazin Паскаль, Turbo Pascal, PascalABC.NET 4 13.11.2017 11:55
Решить уравнение на Pascal ABC Paulesius Помощь студентам 6 07.02.2015 10:28
Помогите пожалуйста решить задачу Pascal ABC Camelion Помощь студентам 0 04.12.2014 20:22
помогите решить задачу Pascal ABC массивы aunt Sveta Помощь студентам 12 11.03.2011 16:09