Вычислить значение функции

@Алека · Регистрация: 26.02.2014

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

Всем привет!!! пожалуйста помогите!!!! Составить программу вычислений функции с постоянными параметрами. По указанию преподавателя вывод результата осуществить форматным или бесформатным способом. Следует учитывать, что некоторые параметры могут быть заданы в градусной или радианной мерах. В первом случае ее следует перевести в радианную меру, используя формулу Х=Х*(3.14/180).
задачи и решения на языке паскаль
при a=19.78, b=1, x=3.413, y=1.789 .

@Puporev · 26.02.2014, 20:43

А что решить-то?

@Алека · 26.02.2014, 20:48 **[ТС]**

Составить программу вычислений функции с постоянными параметрами. По указанию преподавателя вывод результата осуществить форматным или бесформатным способом. Следует учитывать, что некоторые параметры могут быть заданы в градусной или радианной мерах. В первом случае ее следует перевести в радианную меру, используя формулу Х=Х*(3.14/180).
задачи и решения на языке паскаль
при a=19.78, b=1, x=3.413, y=1.789 .
я составила но там ошибка! Может я неправильно составила программу !!!

Pascal
1
2
3
4
5
6
7
8
9
program ecep1;
const
a=19.78;
b=1;
x=3.413;
y=1.789;
var e:integer;
z:=((x+b/(sqr(x)+2*x*b+sqr(b)))+(a*ln(x+y)/sqr(e)+y));
end.

@Puporev · 26.02.2014, 20:52

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
program ecep1;
const
a=19.78;
b=1;
x=3.413;
y=1.789;
var e,z:real;
begin
write('e=');
read(e);
z:=((x+b/(sqr(x)+2*x*b+sqr(b)))+(a*ln(x+y)/sqr(e)+y));
write('z=',z:0:3)
end.

@Алека · 26.02.2014, 20:55 **[ТС]**

Спасибо большое!!! я там еще одну решила ! там надо а матрица в вектор умножить!!! я Правильно составила программу????

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
25
26
27
28
program ecep1;
const n=3; m=4;
var a:array [1..n,1..m] of real;
    b:array [1..m] of real;
    c:array [1..n] of real;
    i,j:integer;
    begin
     writeln ('Ìàòðèöà A');
 for i:=1 to n do begin
  for j:=1 to m do begin
   a[i,j]:=random*10;
   write (a[i,j]:6:2);
  end;
  writeln;
 end;
 writeln ('Âåêòîð b');
 for j:=1 to m do begin
  b[j]:=random*10;
  writeln (b[j]:6:2);
 end;
 writeln ('Âåêòîð c=A*b');
 for i:=1 to n do begin
  c[i]:=0; {c[i] - ñóììà}
  for j:=1 to m do
   c[i]:=c[i]+A[i,j]*b[j];
  writeln (c[i]:6:2);
 end;
end.

@Puporev · 26.02.2014, 21: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
25
26
27
28
29
30
31
32
33
34
35
program ecep1;
uses crt;
const n=3;
      m=4;
var a:array [1..n,1..m] of real;
    b:array [1..m] of real;
    c:array [1..n] of real;
    i,j:integer;
begin
writeln ('Ìàòðèöà A');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random*10;
    write (a[i,j]:6:2);
   end;
  writeln;
 end;
 writeln ('Âåêòîð b');
 for j:=1 to m do
  begin
   b[j]:=random*10;
   writeln (b[j]:6:2);
  end;
 writeln;
 writeln ('Âåêòîð c=A*b');
 for i:=1 to n do
  begin
   c[i]:=0; {c[i] - ñóììà}
   for j:=1 to m do
   c[i]:=c[i]+A[i,j]*b[j];
   writeln (c[i]:6:2);
  end;
end.

@Алека · 26.02.2014, 21:07 **[ТС]**

о спасибо вам большое!! вы очень мне помогли!!!!

Новые блоги и статьи Все статьи Все блоги /
Семь 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. На борту пять. . .	Символьное дифференцирование igorrr37 13.02.2026 / * Программа принимает математическое выражение в виде строки и выдаёт его производную в виде строки и вычисляет значение производной при заданном х Логарифм записывается как: (x-2)log(x^2+2) -. . .	Камера 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. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .

@Алека 0 / 0 / 0 Регистрация: 26.02.2014 Сообщений: 5

	Вычислить значение функции 26.02.2014, 20:12. Показов 1253. Ответов 6 Метки нет (Все метки) Всем привет!!! пожалуйста помогите!!!! Составить программу вычислений функции с постоянными параметрами. По указанию преподавателя вывод результата осуществить форматным или бесформатным способом. Следует учитывать, что некоторые параметры могут быть заданы в градусной или радианной мерах. В первом случае ее следует перевести в радианную меру, используя формулу Х=Х*(3.14/180). задачи и решения на языке паскаль при a=19.78, b=1, x=3.413, y=1.789 . 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	26.02.2014, 20:43
	А что решить-то? 0

@Алека 0 / 0 / 0 Регистрация: 26.02.2014 Сообщений: 5
	26.02.2014, 21:07 [ТС]
	о спасибо вам большое!! вы очень мне помогли!!!! 0

Вычислить значение функции

Решение