PascalABC.NET

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
PascalABC.NET Вычислить значение выражения Написать программу и вычислить: Z =\begin{cases}{a}^{x}+a*k1, & \text{if }x\text{ <0,85} \\\frac{a}{{(k1+x)}^{3}}, & \text{if }x\text{ \geq 0,85}\end{cases} \\k1=\frac{\sqrt{a}}{0.52+a} a=12.4; Значение x задать с клавиатуры. https://www.cyberforum.ru/ pascalabc-net/ thread1630434.html	PascalABC.NET Вычислить значение выражения
PascalABC.NET Найти числа, встречающиеся среди элементов массива X более одного раза https://www.cyberforum.ru/ pascalabc-net/ thread1630207.html Помогите пожайлуста Нужно найти числа, встречающиеся среди элементов массива X более одного раза. Элементы массива вычисляются по формуле X=ii-5i+4, где i = 1, 2, …, 10. Делаю на PascalABC.NET	PascalABC.NET Кузнечики: Определите, какое наибольшее число ходов может продолжаться игра https://www.cyberforum.ru/ pascalabc-net/ thread1629955.html Дорожка вымощена плитками в один ряд,плитки пронумерованы числами от 1 до 1000. На плитках с номерами A<B и C (A<B<C) сидят три кузнечика, которые играют в чехарду по следующим правилам: 1. На одной плитке может находиться только один кузнечик. 2. За один ход один из двух крайних кузнечиков (то есть с плитки А или с плитки С) может перепрыгнуть через среднего кузнечика (плитка B) и встать на...
PascalABC.NET Вывести 20-ое число палиндром из натурального ряда чисел надо написать программу которая выводит 20 число палиндром из натурального ряда чисел.	PascalABC.NET Вычислить среднее геометрическое элементов массива, расположенных после минимального элемента https://www.cyberforum.ru/ pascalabc-net/ thread1629025.html 2. В одно мерном массиве, состоящим из N вещественных элементов, (n<=50) вычеслить среднее геометрическое элементов массива, расположенных после минимального элемента НАДО СДЕЛАТЬ ЧЕРЕЗ ПРОЦЕДУРУ
PascalABC.NET Заменить в третьем столбце матрицы все положительные элементы нулями https://www.cyberforum.ru/ pascalabc-net/ thread1628975.html Срочно, помогите пожайлуста, у меня экзамен, а я не знаю, как делать... 1. Дан массив B(M,N) M<=10, N<= 10. Заменить в третьем столице все положительные элементы нулями ( это надо сделать через процедуру, в этом и проблема... )	PascalABC.NET Принадлежность точки с координатами заштрихованной области Помогите разобраться с заданием. Даны действительные числа x,y. Определить, принадлежит ли точка с координатами x, y заштрихованной части плоскости.
PascalABC.NET Помогите разобраться построчно что делает данная программа помогите разобраться построчно что делает данная программа program z2; uses crt; var n,a,b,c,i,d,j,k,p,l:integer; t:real; BEGIN clrscr; writeln('Введите число n'); readln(n); for i:=n to 2*n do begin https://www.cyberforum.ru/ pascalabc-net/ thread1628716.html	PascalABC.NET Определить номера строк матрицы, не содержащих отрицательных элементов https://www.cyberforum.ru/ pascalabc-net/ thread1628295.html 2.Дана квадратная матрица А размера 6х6. Определить номера строк, не содержащих отрицательных элементов. Для проверки одной строки использовать функцию.
PascalABC.NET Определить сумму и количество четных значений в каждой части массива 1.Заданный массив целых чисел А делится на три части двумя эле-ментами: максимальным и минимальным. Определить сумму и количество четных значений в каждой части массива. Использовать подпрограммы для нахождения индексов минимального и максимального элементов и подсчёта суммы и количества в одной части массива.	PascalABC.NET Подсчитать количество целых чисел в заданных числах а, Ь, с https://www.cyberforum.ru/ pascalabc-net/ thread1628289.html Подсчитать количество целых чисел в заданных числах а, Ь, с.

JuriiMW

5079 / 2651 / 2349

Регистрация: 10.12.2014

Сообщений: 10,028

08.01.2016, 08:35

Вычислить значение выражения - PascalABC.NET - Ответ 8593327

08.01.2016, 08:35. Показов 1226. Ответов 2

Метки (Все метки)

Сообщение было отмечено Памирыч как решение

Решение

Pascal

begin
  var b := 10.3;
  var a : array [1..20] of Integer := (2,4,6,8,0,16,9,5,5,3,11,17,5,9,41,6,1,3,2,8);
  var c := 1;
  var cmax := 22;
  var h := 3;
 
  var S := 0.0;
  while c <= cmax do
    begin
      S += c + b;
      c += h;
    end;
  
  var P := 1;
  for var i := 9 to 20 do
    P *= a[i];
  
  WriteLn('y = ', S, ' + ', P, ' = ', S + P);
end.

Вернуться к обсуждению:
Вычислить значение выражения PascalABC.NET

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

08.01.2016, 08:35

Готовые ответы и решения:

Вычислить значение выражения
Здравствуйте, проверьте пожалуйста, правильно ли реализован алгоритм?! var F,L:real; ...

Вычислить значение выражения
Помогите решить это задание через функции на PascalABC пожалуйста. Задание вот по этой ссылке...

Вычислить значение выражения
Для заданного линейного массива вычислить a-2a+2a-2a+...+2(-1)na

Вычислить значение выражения
Выполнить задание по обработке одномерных массивов, организовав их размещения в памяти ПК...

	08.01.2016, 08:35

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

08.01.2016, 08:35

Помогаю со студенческими работами здесь

Вычислить значение выражения у = 7x + 3z
Написать программу вычисления выражения у = 7x + 3 z. Ниже приведен рекомендуемый вид экрана во...

Вычислить значение выражения
Написать программу и вычислить: Z =\begin{cases}{a}^{x}+a*k1, & \text{if }x\text{ <0,85}...

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

Вычислить значение выражения
Само задание выглядет так: n= min(x+y, y-z)/max (x,y,z)

Наверх