Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Для n точек плоскости найти расстояние от начала координат до каждой из них https://www.cyberforum.ru/ pascal/ thread2355009.html
Разработать алгоритм и программу с единственным циклом для обработки одномерных массивов. При заданных координатах X1,X2,...Xn; Y1,Y2,..Yn для n точек плоскости XOY найти Rk от начала координат до каждой из них (координатами k-й точки являются Xk, Yk).
Pascal Считая т текстовым файлом, ответить на следующие
Считая t текстовым файлом, ответить на следующие вопр: а) эквивалентны ли типы text и fail of char; б) Кроме текстовых файлов, какие еще файлы могут делиться на строки? Обязательно ли все строки файла должны быть одинаковой длины? Могут ли в файле быть пустые строки в) Если при записи в t надо закончить строку, то как это сделать? Какие действия влечет за собой выполнение оператора...
Pascal Определить содержимое файла f, после выполнения следующих операторов: https://www.cyberforum.ru/ pascal/ thread2354933.html
Var f: file of integer; i: integer; Определить содержимое файла f, после выполнения следующих операторов: а) rewrite(f); if eof(f) then write(f,1) else write(f,2); if eof(f) then write(f,3) else write(f,4); б) rewrite(f); for i:=3 downto 1 do write(f,sqr(i));
Pascal Найти сумму n первых четных по номеру членов геометрической прогрессии с первым членом b и знаменателем q Найти сумму n первых парных по номеру членов геометрической прогрессии с первым членом b и знаменателем q. Помогите пожалуйста, буду благодарен. https://www.cyberforum.ru/ pascal/ thread2354840.html
Pascal Заменить каждую первую букву в слове заглавной.
Запросить у пользователя строку S, содержащую несколько слов, разделенных символом пробела. Сформировать из нее строку S1, заменив каждую первую букву в слове заглавной. Вывести на чистый экран строки S и S1, рядом их длину.
Pascal Метод наименьших квадратов (МНК) Здравствуйте, прошу вашей помощи, нужно составить алгоритм решения задачи для аппроксимации точек степенной функцией (полиномом) произвольной степени m. составить программу на языке Pascal, содержащую: ввод исходных точек из файла данных, формирование матрицы Грамма, решение системы линейных алгебраических уравнений методом Гаусса, вывод результатов и проверку. program kvadrat; uses... https://www.cyberforum.ru/ pascal/ thread2354600.html
Pascal Программа на турбо паскале https://www.cyberforum.ru/ pascal/ thread2354573.html
Ребят, помогите написать программу на турбо паскале. Не разбираюсь в массивах. Желательно уже полностью с началом и с концом
Массив из больших чисел Pascal
Добрый const n = 5;var p: boolean; var a:array of longint; index : integer; {$I-} procedure generate (l,r:integer); var i,v:integer;
Pascal Напишите программу, вычисляющую функцию 1+x+x^2+x^3.+x^n Подскажите пожалуйста, никак не могу догадаться как сделать такую программу, с помощью цикла for 1+x+x^2+x^3...+x^n https://www.cyberforum.ru/ pascal/ thread2354522.html Pascal Решение системы линейных алгебраических уравнений методом Гаусса https://www.cyberforum.ru/ pascal/ thread2354497.html
Здравствуйте, прошу помощи в решении в паскале методом Гаусса 13x1 + x2 + 0.4x3 + 0.6x4 + 0.11x5 = 7.6 3x1 + 10x2 - 0.6x3 + 3x5 = 8.7 x1 - 2.1x2 + 4.9x3 + 2.8x4 = 9.2 1.1x1 - x2 + 18x4 - 3x5 = 5.5 x1 + x2 + x3 + x4 + 5x5 = 4.2
Pascal Численное интегрирование методом трапеции
Здравствуйте, прошу помощи в решении уравнения в паскале I=\int_{\pi /6}^{\pi /2}\frac{\cos ^3(x)}{\sin x}\operatorname{d}x
Pascal Решение нелинейных уравнений модифицированным методом Ньютона https://www.cyberforum.ru/ pascal/ thread2354483.html
Здравствуйте, прошу помощи в решении в паскале При решении задач нестационарной теплопроводности в плоской неограниченной пластине необходимо определять корни μ характеристического уравнения ctg μ = μ / Bi, где Bi = α*l/λ – критерий Био, α – коэффициент конвективного теплообмена, Вт/м2*К; l – линейный размер (полутолщина пластины), м; λ – коэффициент теплопроводности материала...
71 / 68 / 46
Регистрация: 02.12.2015
Сообщений: 890
Записей в блоге: 1
0

Найти разность элементов массива - Pascal - Ответ 13078673

20.11.2018, 19:45. Показов 7651. Ответов 4
Метки (Все метки)

Author24 — интернет-сервис помощи студентам
Есть такое задание:
Программа на Pascal которая заполняет массив из 10 случайных целых чисел на промежутке от -10 до 5 вычисляет разность элементов массива. Правильно я сделал? Диапазон я верно указал?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses crt;
var
  // создаем массив
  massiv:array[1..10] of integer;
  raznost,i:integer;
  
begin
  clrscr;
  randomize;
  // 
  for i:=1 to 10 do 
    massiv[i]:= random(-10,5);
  Writeln('Вывод массива');
  raznost := 0;
  for i := 1 to 10 do begin
      write(massiv[i] + '  ');
      raznost := raznost - massiv[i]; 
    end;
  Writeln('raznost = ' + raznost);
end.


Вернуться к обсуждению:
Найти разность элементов массива Pascal
0
Лучшие ответы (1)
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.11.2018, 19:45
Готовые ответы и решения:

Найти сумму элементов массива с четными индексами, и разность элементов с нечетными
ДАН МАССИВ A НАЙТИ СУММУ ЭЛЕМЕНТОВ С ЧЕТНЫМ НОМЕРОМ И РАЗНОСТЬ С НЕ ЧЕТНЫМ. ВОЗНИКЛА ПРОБЛЕМА С...

Найти разность модулей сумм положительных и отрицательных элементов массива
Дан массив A(N), в котором есть положительные и отрицательные элементы. Найдите R = |S1| - |S2|,...

Напечатать разность с каждым из элементов массива
Реализовать в виде модуля набор подпрограмм для выполнения над обыкновенными дробями вида P/Q (где...

Разность max и min элементов массива
Подскажите пожалуйста как решать задачу: Дан упорядоченный по возрастанию массив и дано число...

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

Найдите разность наибольшего и наименьшего элементов массива
Написать программы и составить блок схемы к задачам: 2. Задайте массив из 10 элементов с...

Вычислить разность между суммами нечётных и чётных элементов массива
Завтра надо сдать 2 задачи, помогите плиииз. 1.Вычислить разность между суммами нечётных и чётных...

Найти разность элементов побочной диагонали матрицы
Ввести квадратную матрицу и найти разность элементов побочной диагонали. Помогите как сделать или...

поиск суммы элементов двумерного массива, имеющих заданную разность индексов
помогите пожалуйста решить задачку через массив.:( Составить программу поиска суммы элементов...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru