Вычислить значение выражения

@KseniyaEgorova · Регистрация: 21.10.2014

Студворк — интернет-сервис помощи студентам

Преподаватель злой очень, из-за того, что я никак не сдам ему эти программы в паскале\\ Помогите, если не трудно, ребят, взамен что угодно просите, главное сделайтеее, сроки сдачи в пятницу эту уже... заранее премного благодарна

@Cyborg Drone · 21.10.2014, 22:40

Не по теме:

Сообщение от KseniyaEgorova

взамен что угодно просите

Это тематический раздел, поэтому Ваше предложение выглядит несколько несуразно: оплата на данном форуме предполагается только в платных разделах. Завтра, как проснусь, напишу Вам решение, если, конечно, кто-либо раньше меня его не напишет. И ещё. Одна тема, один вопрос. Перечитайте правила форума, этим Вы облегчите себе жизнь, в частности, ускорите получение ответов. Да, и преподаватель, скорее всего, не злой, а требовательный: о стране беспокоится, не желает плодить специалистов-троечников. По Вам - так жестоко, по логике вещей - так правильно. До завтра.

@KseniyaEgorova · 22.10.2014, 18:11 **[ТС]**

Спасибо большое, буду очень признательна!

@Joy · 22.10.2014, 19:23

п.1

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
const
  b=-3.14;
  h=1;
var
  y,z,x:real;
function zz(x:real):real;
begin
  if (x>0) and (x<1.5) then zz:=sqr(ln(x+1))/2/b
  else if (x>=1.5) and (x<=pi) then zz:=exp(1/3*ln(sqr(sin(b*x))))
  else zz:=b*x;
end;
begin
  x:=-3;
  repeat
    y:=zz(x);
    y:=b*ln(4*y*y+1)/ln(2)/sqrt(abs(y)+sqr(cos(y)));
    writeln('x=',x:0:4,' y=',y:0:6);
    x:=x+h;
  until x>6;
end.

Добавлено через 20 минут
п.2

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
const
  x=0.981;
  y=0.12;
  z=3.65;
var
  u,p:real;
  i,k:integer;
begin
  u:=0.0;
  for i:=1 to 5 do begin
    p:=1.0;
    for k:=2 to 6 do
      p:=p*exp(abs(x-y))*(1+sqr(sin(2*pi/k)))/
           exp(1/3*ln(1+x*y/(sqr(i-1)+sqr(k-1))));
    u:=u+exp(2/(i+1)*ln(abs(cos(x)+cos(y))))/
       (1+1/(z+z*z/2+z*z*z/3))*p;
  end;
  writeln('u=',u:0:6);
end.

KseniyaEgorova, Проверьте формулы, запросто могу ошибиться

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@KseniyaEgorova 0 / 0 / 0 Регистрация: 21.10.2014 Сообщений: 3

	Вычислить значение выражения 21.10.2014, 22:16. Показов 636. Ответов 3 Метки нет (Все метки) Преподаватель злой очень, из-за того, что я никак не сдам ему эти программы в паскале\\ Помогите, если не трудно, ребят, взамен что угодно просите, главное сделайтеее, сроки сдачи в пятницу эту уже... заранее премного благодарна Миниатюры 0

@KseniyaEgorova 0 / 0 / 0 Регистрация: 21.10.2014 Сообщений: 3
	22.10.2014, 18:11 [ТС]
	Спасибо большое, буду очень признательна! 0