Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 29.12.2015
Сообщений: 22

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

29.12.2015, 13:28. Показов 657. Ответов 5
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Нужно написать программу и составить блок-схему, блок-схему можно от руки нарисовать. Во вложении есть картинка, там на выбор: или либо первую задачу, либо вторую

Задача 1.

Написать программу и вычислить:

https://www.cyberforum.ru/cgi-bin/latex.cgi?<br />
Y=\begin{cases}z^{0.3}+0.5d & \text{, if } z\,>\,1.6\\\\ \frac dz+(z+a)^3 & \text{, if } z\leq 1.6\end{cases}<br />

https://www.cyberforum.ru/cgi-bin/latex.cgi?<br />
d=\frac{\cos (a+3)}{39};\qquad a=12.56<br />

Значение z задать с клавиатуры.

Задача 2.

Составить программу и вычислить:

https://www.cyberforum.ru/cgi-bin/latex.cgi?<br />
P=\sqrt{|S|\,}+\frac{S^2}x+\frac{e^x}{bm}-\sum_{j=1}^5 (c_j+b);\qquad S=\sum_{i=1}^{10}A_i<br />

m=5.5; b=0.264; x=1.2; c0=15; ck=35; h=5; A(10)=-0.5, 4.2, 0.67, 12.7, 101, 55, 11.4, 0.4, -12, 2.8.

для организации цикла при вычислении суммы с участием cj использовать оператор цикла repeat..until.
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
29.12.2015, 13:28
Ответы с готовыми решениями:

Вычислить значение выражения, значение n вводится с клавиатуры
составить программу для решения задачи. При решении задачи через цикл-&quot;хорошо&quot;, через цикл и массив-&quot;отлично&quot;. Отметка...

Вычислить значение выражения
Помогите решить 1,3 и 4 вырианты. Буду очень благодарен!!!!

Вычислить значение выражения
программа в паскале

5
25 / 25 / 38
Регистрация: 21.10.2013
Сообщений: 79
05.01.2016, 20:19
Pascal
1
2
3
4
5
6
7
8
9
10
11
var
z,d,a,Y:real;
begin
writeln ('Введите z');
readln(z);
a:=12.56;
d:=cos(a+3)/39;
if z>1.6 then Y:=power(z,0.3)+0.5*d;
if z<=1.6 then Y:=d/z+power((z+a),3);
writeln(Y,2,4);
end.
Добавлено через 10 минут
writeln(Y:2:4);

Добавлено через 19 минут
Ну можно и так
Pascal
1
2
3
4
5
6
7
8
9
10
11
var
z,d,a,Y:real;
begin
writeln ('Введите z');
readln(z);
a:=12.56;
d:=cos(a+3)/39;
if z>1.6 then Y:=power(z,0.3)+0.5*d
else Y:=d/z+power((z+a),3);
writeln(Y:2:4);
end.
1
0 / 0 / 0
Регистрация: 22.12.2016
Сообщений: 2
22.12.2016, 19:17
А можно решение 2-ой задачи?))
0
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
22.12.2016, 20:04
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
const m=5.5;
      b=0.264;
      x=1.2;
      c0=15;
      ck=35;
      h=5;
      n=10;
      a:array[1..n] of real=(-0.5,4.2,0.67,12.7,101,55,11.4,0.4,-12,2.8);
var s,s1,p:real;
    i,c:integer;
begin
s:=0;
for i:=1 to n do
s:=s+a[i];
s1:=0;
c:=c0;
while c<=ck do
 begin
  s1:=s1+c+b;
  c:=c+h;
 end;
p:=sqrt(abs(s))+s*s/x+exp(x)/b/m-s1;
write('P=',p:0:2);
end.
0
0 / 0 / 0
Регистрация: 22.12.2016
Сообщений: 2
22.12.2016, 20:31
Спасибо большое, но, для организации цикла при вычислении суммы с участием cj нужно использовать оператор цикла repeat..until.
0
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
22.12.2016, 20:32
Ну так переделайте.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
22.12.2016, 20:32
Помогаю со студенческими работами здесь

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

Вычислить значение выражения
Подскажите в чем ошибка? Никак не могу разобраться с функциями и процедурами:cry: Program Primer; Var s,t,f:real; Function h...

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

Вычислить значение выражения
Только это надо в виде цикла, а 3*x*x*x+4*x*x*x*x+...я и сам могу))) z=(x+2x^2+3x^3+4x^4+5x^5)*1/x^2 пожалуйстаааа)

Вычислить значение выражения
Вычислить 1)a=(23+32+43)/(93+3*5*6); 2)f=sin2a; 3)x=(-b+1/a)/(2/b);


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами
8Observer8 20.02.2026
Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
Конвертировать закладки radiotray-ng в m3u-плейлист
damix 19.02.2026
Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI
Eddy_Em 18.02.2026
Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru