|
|
| Другие темы раздела | |
| Free Pascal Найти длины высот треугольника, если заданы координаты вершин треугольника Найти длины высот треугольника, если заданы координаты вершин треугольника. Через функцию https://www.cyberforum.ru/ free-pascal/ thread1622540.html |
Определить номера станков, требующих одинакового времени наладки Free Pascal В некотором цехе имеется определенное количество станков, требующих наладки. Известно время наладки каждого станка.Определить номера станков, требующих одинакового времени наладки. Например, для заданной таблицы ответ можно получить в таком виде: Номер Станка: 1 2 3 4 5 6 7 8 Время наладки: 15 5 7 10 5 15 7 5 15-1,6 5-2,5,8 10- 4 |
| Free Pascal Записать данные в текстовый файл, имя файла программа должна запрашивать :wall: Ребзя, помогите пожалуйста Разработать программу, осуществляющую обработку одномерного массива, предусмотрев ввод-вывод исходного массива и вывод результатов в основной программе, а все необходимые действия по обработке - в процедуре. Обмен данными между процедурой и основной программой обеспечить с помощью списка параметров. Записать эти же данные в текстовый файл. Имя файла программа... https://www.cyberforum.ru/ free-pascal/ thread1622342.html |
Free Pascal Из элементов исходного массива сформировать новый массив по заданному правилу
https://www.cyberforum.ru/ free-pascal/ thread1622265.html Народ, помогите пожалуйссста с заданием, кому не трудно) Дан массив X из 10 элементов. Сформировать массив У, в котором yi =1/(xi+1) +2/(xi+2)+3/(xi+3)+ ... + 12/(xi+12) . Использовать подпрограмму для вычисления одного yi . |
|
Free Pascal Вычислить значение выражения Ребят, добрый вечер) Я здесь новичок, т.к. по учебе начинаю учить паскаль) Вот хотел обратиться за помощью) Может напишет кто как в Паскале написать эту формулу?) f(x,y)=\begin{cases}\frac{x-1}{x+1} & \text{, if } x>y \\\\ xy & \text{, if } x<y\\\\ 3y & \text{, otherwise}\end{cases} |
Free Pascal Подсчет количества повторений символов Доброго вечера Нужна помощь в добавление функции подсчета количества каждого символа в имеющийся код uses crt; var f:text; ws:unicodestring; s,sc:string; i:integer; begin assign(f, 'text.txt'); https://www.cyberforum.ru/ free-pascal/ thread1622074.html |
| Free Pascal Найти и вывести на экран числа, которые встречаются во всех строках матрицы Задана целочисленная таблица Аm,n, строки которой упорядочены по неубыванию. Требуется найти и вывести на экран числа, которые встречаются во всех строках. Если таких чисел нет, вывести соответствующее сообщение. https://www.cyberforum.ru/ free-pascal/ thread1622020.html |
Free Pascal Все элементы, не равные нулю, переписать (сохраняя их порядок) в начало, а нулевые элементы – в конец массива Задан одномерный массив. Все его элементы, не равные нулю, переписать (сохраняя их порядок) в начало массива, а нулевые элементы – в конец массива. Новый массив не заводить. |
| Free Pascal В каждой строке файла найти слова, для которых первая и вторая половина слова являются перестановками Дан текстовый файл f.В каждой строке найти слова,для которых первая и вторая половина слова являются перестановками одних и тех же символов.Результаты выполненных действий сохранить в текстовом файле g https://www.cyberforum.ru/ free-pascal/ thread1621508.html | Free Pascal Прокомментировать каждую строку программы что делает каждая строчка.. самое основное только procedure z3a; const max=100; var a:array of integer; n,i,j,k:byte; s:integer; begin clrscr; https://www.cyberforum.ru/ free-pascal/ thread1620936.html |
|
Free Pascal Требуется написать программу , которая выводит в порядке возрастания все правильные несократимые дроби,знамена Требуется написать программу , которая выводит в порядке возрастания все правильные несократимые дроби,знаменатели которых не превосходят n(n больше либо равно 2, и n меньше либо равно 500) (через функцию) |
Free Pascal Требуется оградить два земельных участка,имеющих форму прямоугольников,если для каждого участка заданы его пло Требуется оградить два земельных участка,имеющих форму прямоугольников,если для каждого участка заданы его площадь и периметр. Определить длины секций ограды,которые потребуются для каждого участка. (нужно сделать через процедуру). Program vadim; procedure ograda(var s,p:real;k:byte); var a,b,d:real; begin writeln(k,' участок'); repeat write('площадь='); readln(s); https://www.cyberforum.ru/ free-pascal/ thread1620732.html |
|
0 / 0 / 0
Регистрация: 19.12.2015
Сообщений: 43
|
||||||
| 0 | ||||||
Найти максимальный элемент среди отрицательных элементов матрицы, расположенных над побочной диагональю - Free Pascal - Ответ 853300123.12.2015, 12:39. Показов 1378. Ответов 9
Метки (Все метки)
Найти максимальный элемент среди отрицательных элементов матрицы, расположенных над побочной диагональю. Программу написал, но почему-то иногда решает правильно, иногда нет. В чем моя ошибка?
Вернуться к обсуждению: Найти максимальный элемент среди отрицательных элементов матрицы, расположенных над побочной диагональю Free Pascal
0
|
||||||
| 23.12.2015, 12:39 | |
|
Готовые ответы и решения:
9
Найти максимальный элемент среди отрицательных элементов матрицы , расположенных над побочной диагональю Найти наибольшее значение из элементов, расположенных над и под побочной диагональю матрицы
|
| 23.12.2015, 12:39 | |
| 23.12.2015, 12:39 | |
|
Помогаю со студенческими работами здесь
0
Найти максимальный и минимальный элемент среди отрицательных элементов массива, расположенных на четных местах Найти максимальный элемент среди стоящих на главной и побочной диагоналях матрицы
|