Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > PascalABC.NET
Войти
Регистрация
Восстановить пароль
Правила Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день  
Другие темы раздела
PascalABC.NET Вычислить значение выражения https://www.cyberforum.ru/ pascalabc-net/ thread1282139.html
Дано натуральное число n. Вычислить: 1)(1+\frac1{a})(1+\frac1{2a})...(1+\frac1{na}) 2)a(a-n)(a-2n)...(a-nn) Если можно, помогите пожалуйста. 		PascalABC.NET Выписать тройки чисел строки, одно из которых равно сумме двух
Здравствуйте, форум. Помогите, пожалуйста, решить задачу. Даны строки чисел, цифр в текстовом файле. Некоторые числа, разбросанные по строке, образуют тройки, где одно из них равно сумме двух других. В строке может быть от 0 до нескольких троек. Надо выписать только тройки в виде а=b+c, сохраняя строчность файла. Pascal ABC.Net. Пример строк и попытки программы приводятся
PascalABC.NET Чтение текстового файла и заполнение массива символами из него Добра всем! Такая проблема возникла , так как не силен в Паскале: Есть текстовый файл ,который заполнен текстом следующим образом - Аршавин 9321233333 Михалыч 9321234666 Бубнов 9321231111 Букин 9321231211 Яабкин 9321231676 ---------------Тут должно быть 25 символов (с пробелами после Фамилии имею ввиду) Ривалдо 9321231555... https://www.cyberforum.ru/ pascalabc-net/ thread1281796.html PascalABC.NET Найти индексы минимального элемента массива. Вычислить значение его отрицательных элементов https://www.cyberforum.ru/ pascalabc-net/ thread1281635.html
Создать массив с элементами {a}_{kn}=n f(k)+sin(k)g(n) , где k,n=1,2,3,4; f(k)=sin{k}^{2}cos{k}^{3}-sink+5.2 \ ;\\g(n)=2sin n sin(2n-1.5)cos(2n+1.5)-6 Вывести его на экран в виде таблицы. Найти индексы минимального элемента массива. Вычислить значение его отрицательных элементов.
PascalABC.NET Ребятки
http://s013.***********/i324/1410/bf/4e60ef24b27c.jpg http://s010.***********/i311/1410/a9/978da2a84ef3.jpg Добавлено через 2 минуты Задание 		PascalABC.NET Вычислить значение выражения https://www.cyberforum.ru/ pascalabc-net/ thread1281555.html
Заранее спасибо, друзья! С любовью, Оля!!) {\huge S = \sum_{z=4}^{8}\left(\frac{2 + y^{\frac{1}{z}}}{e^y + \frac{1}{1 + z^2}}\prod_{x=3}^{7}\:\frac{\arcsin \left(1 - \frac{1}{2x} \right)}{ 1 + \sqrt{ y^2 + \sqrt{ \frac{1}{x^2+z^2} } }}\right)} где y = 0.74 OlgaVictorovna, попрошу перечитать всё же правила форума. Особенно правила: 3.4. "Избегайте использования слишком большого количества...
PascalABC.NET Составить программу с использованием базовых алгоритмов для работы с одномерными массивами При помощи случайных чисел сформировать два массива A и B, содержащих 15 элементов. Третий массив сформировать по формуле S_i=\sqrt{\left|x_i^3-y_i^2 \right|} Найти индексы максимального и минимального элементов третьего массива. На экран вывести исходные массивы, сформированный массив и индексы максимального и минимального элементов. https://www.cyberforum.ru/ pascalabc-net/ thread1281466.html PascalABC.NET Отсортировать массив по неубыванию
Создать вектор А,используя генератор случайных чисел.Количество элементов массива n=98.Отсортировать полученный массив.Тип элементов массива-целый.Метод сортировки-выбором.Тип сортировки-по не уменьшению.
PascalABC.NET Вычислить значение определенного интеграла https://www.cyberforum.ru/ pascalabc-net/ thread1281297.html
Вычислите значение определённого интеграла.Для постройки таблицы трассировки принять n=5. Вот что есть: program lab_3; var k,n:integer; x,y:real; Function Fun1(x:real; n:integer):real; begin if n=0 then Fun1:=x else 		PascalABC.NET Анимация: Переместить и уменьшить прицел Наро как сделать анимацию??? Вот например... мне нужно переместить и уменьшить прицел... А как не пойму( https://www.cyberforum.ru/ pascalabc-net/ thread1281250.html
PascalABC.NET Расположить по возрастанию n-минимальные элементы матрицы на главной диагонали по возрастанию
Путем перестановки элементов квадратной матрицы размерностью n*n из действительных чисел добиться того,что бы её n-минимальные элементы располагались на её главной диагонали по увеличению(сортировка вставкой). 		PascalABC.NET Найти произведение минимального и максимального элементов массива https://www.cyberforum.ru/ pascalabc-net/ thread1281015.html
Создать массив с элементами akn=n f (k) + sin (k) g (n), где k,n=1,2,3,4; f(k)=9,2\cos {k}^{2} -\left|\sin \frac{k}{1,1} \right| g(n)=12,4\sin \left|\frac{n}{2,1} \right|-8,3\cos 1,2n Вывести его на экран в виде таблицы. Найти произведение минимального и максимального элементов массива. Помогите, пожалуйста, с массивами, я их плохо понимаю.
Эксперт Pascal/Delphi
2385 / 1297 / 1492
Регистрация: 29.08.2014
Сообщений: 4,661
23.10.2014, 12:14 0

Вычислить значение функции y при значениях аргумента, заданных в массиве - PascalABC.NET - Ответ 6757098

23.10.2014, 12:14. Показов 1584. Ответов 1
Метки (Все метки)
Лучший ответ Сообщение было отмечено neriul как решение

Решение

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=20;
var
  x,y:array[1..20] of real;
  i,z:integer;
  ok:boolean;
begin
  ok:=false;
  writeln('Введите массив X');
  z:=1;
  for i:=1 to N do begin
    repeat
      write('x[',i,']=');
      readln(x[i]);
    until x[i]>0;  
    y[i]:=0.5*ln(x[i]);
    if (y[z]<y[i]) and (trunc(y[i])<>0) and (trunc(y[i]) mod 3=0) then begin
      z:=i;
      ok:=true;
    end;  
  end;
  Writeln('   I       X            Y');
  for i:=1 to N do writeln(i:4,'  ',x[i]:10:4,'  ',y[i]:10:4);
  write('Индекс:');
  if ok then writeln(z) else writeln('не найден');
end.
Добавлено через 13 минут
Цитата Сообщение от Joy Посмотреть сообщение
x,y:array[1..20] of real;
лучше заменить на
Pascal
1

x,y:array[1..N] of real;


Вернуться к обсуждению:
Вычислить значение функции y при значениях аргумента, заданных в массиве PascalABC.NET
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 23.10.2014, 12:14
Готовые ответы и решения:

Вычислить значения функции при значениях аргумента, заданных в массиве
4. Задан массив, состоящий из 5 элементов. Вычислить значения функции у = х^2 при значениях...

Вычислить значения функции y = -0,5 ln (x) при значениях аргумента, заданных в массиве X
Дан массив X, размером 5. Вычислить значения функции y = -0,5 ln (x) при значениях аргумента,...

Вычислить значение функции при заданных значениях аргумента
Как решать системы такого типа? Помогите решить,знающие люди.

Вычислить значения функции y=2Cos(x) при значениях аргумента, заданных в массиве
Сформировать одномерный массив N случайных чисел из интервала (-10; 10). Предусмотреть...

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 23.10.2014, 12:14
Помогаю со студенческими работами здесь

Вычислить значения функции при значениях аргумента, заданных в одном массиве, и поместить их в другой массив
Задан целочисленный массив Х размером 5 элементов. Элементы массива Х вводятся с...

Используя интерполяционную формулу Ньютона, вычислить значение функции при заданных значениях аргумента с точностью до 0.001
Нужно написать програму которая будит используя интерполяционную формулу Ньютона вычеслять значение...

Используя интерполяционную формулу Ньютона, вычислить значение функции при заданных значениях аргумента с точностью до 0.001
Нужно написать программу которая будет используя интерполяционную формулу Ньютона вычислять...

Массив: Вычислить значения функции при значениях аргумента, заданных в массиве X, и поместить в массив Y.
1. Задан массив*X*из 5 элементов. Вычислить значения функции**при значениях аргумента, заданных в...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru