Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
0 / 0 / 0
Регистрация: 08.09.2015
Сообщений: 1
1

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

30.05.2012, 02:53. Просмотров 951. Ответов 2
Метки нет (Все метки)

Доброго времени суток!

Я извиняюсь, но мне тяжело написать это, т.к. учусь на заочном и работаю. Помогите решить хотябы первые 3 задачи пожалуйста. А то, ничего толком не учат, а хотят денег.

Фото во вложении.

Огромное спасибо!
0
Миниатюры
Вычислить значение выражения  
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.05.2012, 02:53
Ответы с готовыми решениями:

Вычислить значение выражения
Задание 5. Написать программы с использованием: А) процедуры Б) функции Дополнительная...

Вычислить значение выражения
Для любого целого k обозначим количество цифр в его десятичной записи через N(k). Дано натуральное...

Вычислить значение выражения
а2x+e-xcos(bx)/bx-e-xsin(bx)+1 при a=0,5 x=0,3 b=2,9

Вычислить значение выражения
Завтра сдавать уже надо.

2
153 / 95 / 101
Регистрация: 25.02.2012
Сообщений: 232
30.05.2012, 11:27 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
{Пятое задание}
const
  a: array [1..3, 1..3] of real = ((1.2, -3.4, 5.3), (-7.7, 5.1, -7.9), (5.7, -5.0, -4.7));
 
var
  i, j, m, n: integer;
  max: real;
 
begin
  writeln('Исходный массив:');
  max := a[1, 1];
  for i := 1 to 3 do 
  begin
    for j := 1 to 3 do 
    begin
      write(a[i, j]:7);
      if (i = j) and (a[i, j] > max) then begin max := a[i, j]; m := i; n := j end;
    end;
    writeln;
  end;
  
  writeln;
  writeln('Максимальный элемент главной диагонали: a[', n, ',', m, '] = ', max);
  readln
  
end.
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
{ Второе задание }
const
  n = 50;
 
var
  x: array[1..n] of integer;
  i, a, b, s, k: integer;
 
begin
  randomize;
  repeat
    writeln('Введите порог ( a < b ):');
    readln(a, b)
  until a < b;
  writeln('Исходный массив:');
  for i := 1 to n do 
  begin
    x[i] := random(50) - 25; write(x[i]:5);
    if (x[i] >= a) and (x[i] <= b) then begin s := s + x[i]; k := k + 1 end;
  end;
  writeln;
  writeln('Всего элементов, входящих в промежуток [', a, ',', b, ']: ', k, ', их сумма = ', s);
  readln
  
end.
0
0 / 0 / 0
Регистрация: 08.09.2015
Сообщений: 1
30.05.2012, 13:28 3
Спасибо за помощь, может ещё хотя бы первое кто-то поможет решить, тогда хоть 3чку получу
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.05.2012, 13:28

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Вычислить значение выражения
Добрый вечер. Прошу объяснить, как правильно возводить ctg в куб. Буду чрезмерно благодарна. ...

Вычислить значение выражения
Оформить в виде отчёта процесс отладки программы по теме: Циклами со скриншотами; должно быть...

Вычислить значение выражения
Паскаль s=1-(x^2/2)+...+(-1)^n * ((x^2n)/((2*n)!) n=5 если 0,1&lt;=х&lt;=1,6 с шагом х=0,1 Результат...

Вычислить значение выражения
они вроде как лёгкие но я их не понимаю 1) вычислить {x}^{n} +{n}^{x} (x,n-натуральные) заранее...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.