|
|
Другие темы раздела | |
Pascal Составить функцию для вычисления вектора Нужен код программы. Заранее спасибо! https://www.cyberforum.ru/ pascal/ thread2217312.html |
Pascal Стек сортировка пузырьком есть код программы, но не могу понять как реализовать сортировку без использование массива и копошение во внутренностях(работать со стеком,как с связным списком) . Вот что смог на придумать,но преподаватель сказал, что так не пойдет, а надо использовать функции push и pop при сортировки. Вообще мыслей нету,как работать с абстрактным типом данных. type pitem = ^item; item = record ... |
Pascal Чтение записей из типизированного файла Здравствуйте. Пытаюсь реализовать чтение записей из типизированного файла. Использую массив, дабы потом провести сортировку по одному из признаков. Все записи файла почему-то записываются в одну переменную. (скорее всего из-за её длины), но как тогда иначе работать? Ведь другие переменные просто берутся из памяти. type info=record fio:string; //Фамилия, Имя, Отчество number:integer;... https://www.cyberforum.ru/ pascal/ thread2216800.html |
Pascal Упорядочить первую треть массива по возрастанию, последнюю по убыванию
https://www.cyberforum.ru/ pascal/ thread2216741.html Здравствуйте дорогие друзья, нужна помощь в работе, условия таковы:создать массив в котором n элементов, упорядочить первую треть массива по возростанию, последнюю по спаданию. Найти произведение в этих частях |
Pascal Объединение всех элементов массива и разделение элементов массива оператор в паскале для объединения всех элементов массива и для разделения элементов массива |
Pascal Процедуры в Паскаль
https://www.cyberforum.ru/ pascal/ thread2216587.html Дана программа вычисления функции: var x,a,q:real; k:byte; begin clrscr; writeln('Enter x='); readln(x); writeln('Enter a='); readln(a); k:=0; |
Pascal Обработка файлов Дана программа вычисления значения выражения: Program L1; var x,y:integer; A,M,tg:real; begin writeln('Enter x,y'); readln(x,y); tg:=sin(sqr(x))/cos(sqr(x)); A:=sqrt((x+y-tg*(sqr(x)))/(exp(ln(y)*9)+exp(ln(x)*4)-cos(x*y))); M:=(abs(cos(x)+100-sqr(y)))/(A-y+1*3); https://www.cyberforum.ru/ pascal/ thread2216584.html |
Создание программы для поиска суммы и количества нечетных элементов двумерного массива Pascal помогите написать код в паскаль программы для поиска суммы и количества нечетных элементов двумерного массива размерами 5 строк 5 столбцов, и чтобы сам массив вводить с помощью клавиатуры. |
Pascal Программа, реализующая метод градиента (градиентный спуск)
https://www.cyberforum.ru/ pascal/ thread2216369.html Необходимо написать (исправить) программу, реализующая градиентный метод. Блок-схема представлена на рисунке. Program lb1; Uses crt; var x1,y1, y,p,x,k,al: real; const m=6600; taucp=80; t0=9; lambda=0.069; |
Pascal С погрешностью 0.0001 методом простой итерации уточнить корни уравнений ln(x)- x +1.8 = 0
https://www.cyberforum.ru/ pascal/ thread2216211.html Задание: С погрешностью 0.0001 методом простой итерации уточнить корни уравнений ln(x)- x +1.8 = 0 и e^x+x*x=0 Процедурный тип и относящиеся к нему подпрограммы должны быть описаны в отдельном модуле. Модуль я создала, но основная программа не хочет работать. Помогите пожалуйста program prtip; uses crt, MOD1; var x1,x2:real; begin |
Pascal Заполнить двумерный массив по заданному правилу Даны двовимирний массив А значения элементов которого задаются формулой. Вывести таблицу на экран, согласно своего варианта и выполнить над ней указанные действия. Вариант 1. Где i, j = 1..5 |
Pascal Укажите наибольшее из таких чисел a, при вводе которых алгоритм печатает сначала 4, потом 7
https://www.cyberforum.ru/ pascal/ thread2215921.html Получив на вход число a, этот алгоритм печатает два числа, k и m. Укажите наибольшее из таких чисел a, при вводе которых алгоритм печатает сначала 4, потом 7. var a, m, k, p: integer; begin readln(a); k:=0; m:=0; p:=a mod 10; while a>0 do |
0 / 0 / 0
Регистрация: 26.03.2018
Сообщений: 5
|
|
26.03.2018, 16:37 [ТС] | 0 |
Сгенерировать массив m из 10 элементов - Pascal - Ответ 1225012526.03.2018, 16:37. Показов 2451. Ответов 2
Метки (Все метки)
Ответ
Сгенерировать массив m из 10 элементов. Каждый элемент –
случайное целое число от 0 до 20. Сгенерированный массив вывести на экран в виде таблицы из двух строк по пять элементов в каждой. а) найти сумму всех элементов; б) вывести на экран номера тех элементов, значения которых четны; в) найти произведение всех элементов; г) найти сумму a[1]*a[2]+a[2]*a[3]+a[3]*a[4]+......a[9]*a[10]; д) вывести на экран a[1], a[1]*a[2], a[1]*a[2]*a[3],....a[1]*a[2]*....a[10]; е) вывести на экран номера и значения максимального и минимального элементов массива; ж) образовать новый массив z из 10 элементов случайных чисел от 0 до 20, вывести его на экран в таблице из 2 строк, и сложить поэлементно с массивом m. Вывести массив – результат сложения на экран в таблице из двух строк. Вернуться к обсуждению: Сгенерировать массив m из 10 элементов Pascal
0
|
26.03.2018, 16:37 | |
Готовые ответы и решения:
2
Сгенерировать и вывести массив. Создать дополнительный массив состоящий только из чётных элементов исходного Сгенерировать одномерный массив A в диапазоне [-20; 20] и сформировать новый массив B из отрицательный элементов массива Сгенерировать массив из 50 элементов между -20 и 80 Сгенерировать массив без повторения элементов |
26.03.2018, 16:37 | |
26.03.2018, 16:37 | |
Помогаю со студенческими работами здесь
0
Сгенерировать одномерный массив из элементов двумерного Сгенерировать массив из N элементов, используя процедуру Сгенерировать одномерный массив, имеющий 2n + 1 различных элементов Сгенерировать массив, состоящий из различных элементов массива A |