|
|
|
| Другие темы раздела | |
|
Turbo Pascal Определить, есть ли в массиве строка, в которой ровно два отрицательных элемента
https://www.cyberforum.ru/ turbo-pascal/ thread145907.html Дан двумерный массив размерностью nхm, заполненный случайными числами.Определить,есть ли в данном массиве строка, в которой ровно два отрицательных элемента. Помогите пож. решить!!!! |
Turbo Pascal Определить содержит ли текст символы, отличные от букв и пробела памагите переделать паскалевчкую задачку в делфи Дан текст, определить содержит ли он символы, отличные от букв и пробела. вот то што в паскале вышло var s: string; i: integer; f:boolean; |
|
Turbo Pascal дороботать нада
https://www.cyberforum.ru/ turbo-pascal/ thread145851.html Дан текст, определить содержит ли он символы, отличные от букв и пробела. вот то што я сделал Program Laba3; Uses Crt; Const myset = ; Var |
Turbo Pascal Вывести индексы тех элементов массива, значения которых больше заданного числа А Дан массив целых чисел, состоящий из 10 элементов. Заполнить его с клавиатуры. Помогите пожалуйста решить задачу!!! Дан массив целых чисел, состоящий из 10 элементов. Заполнить его с клавиатуры.Найти: -сумму элементов, имеющих нечетное значение; -вывести индексы тех элементов, значения которых больше заданного числа А; -определить,есть ли в данном массиве положительные элементы, кратные к(к... https://www.cyberforum.ru/ turbo-pascal/ thread145842.html |
|
Пронормировать матрицу Turbo Pascal 1.Пронормировать матрицу (10,12), то есть разделить каждый элемент на максимальный в своей строке У меня получилось как-то так : PROGRAM TEST; VAR MAS:ARRAY OF REAL; I,J:INTEGER; MA:REAL; BEGIN FOR J:=1 TO 12 DO BEGIN WRITELN ('VVESTU MAS'); |
Turbo Pascal Заполнить массив размерностью 7х7 по правилу: 1 0 0 0 0 0 1 0 1 0 0 0 1 0 0 0 1 0 1 0 0 0 0 0 1 0 0 0 0 0 1 0 1 0 0 0 1 0 0 0 1 0 1 0 0 0 0 0 1 ПОМОГИТЕ ТОВАРИЩИ!!! У МЕНЯ НИЧЕГО НЕ ВЫХОДИТ!!! А СКОРО СДАВАТЬ!!! ПРОШУ ПОМОГИТЕ!!! https://www.cyberforum.ru/ turbo-pascal/ thread145818.html |
| Turbo Pascal Метод Конечных разностей Дан однородный шар радиуса R при температуре равной нулю. Начиная с момента времени t=0, температура окружающей среды растет линейно со временем T=bt, где b постоянная. Теплообмен между поверхностью шара и окружающей средой происходит по закону Ньютона, нагревание - равномерно. по этому примеру Program teploobmen; Type mas=array of real; var TT,TX :mas;... https://www.cyberforum.ru/ turbo-pascal/ thread145792.html |
Одномерный массив:серия. Лишний ноль. Turbo Pascal Говорил что не надо делать с массивом. А вот и надо. Дело в том, что после каждой серией надо вставить 0. Прога работает, но также вставляет в самом начале 0. Я понимаю что за 0 отвечает write(0:2); Помогите пож-та uses crt; var i,j,n,k:Integer; a,b,c:Arrayof Integer; begin clrscr; readln(n); k:=0; |
|
Turbo Pascal Найти номера наиболее и наименее удаленных друг от друга точек в массиве +4 задачи.
https://www.cyberforum.ru/ turbo-pascal/ thread145719.html Любая на выбор, помогите пожалуйста решить!!!! 12. Задан массив действительных чисел. Определить, сколько раз меняется знак в данной последовательности чисел, запомнить номера позиций, в которых происходит смена знака. 40. Дана последовательность целых чисел а1, а2,..., аn.Указать пары чисел ai, aj, таких, что ai + Eaj = т. 54. В массивах А и В хранятся коэффициенты двух многочленов... |
Turbo Pascal Кривая дракона порядка n. С 1 и 0.
https://www.cyberforum.ru/ turbo-pascal/ thread145675.html Кривые дракона, показанные на рис.73 могут быть построены с помощью следующего рекурентного метода. Каждой кривой ставится в соответсвие последовательность, состоящая из нулей и единиц(будем называть её двоичной формулой), где единица соответствует повороту кривой налево, а нуль-повороту направо. Кривая дракона первого порядка имеет двоичную формулу 1(рис. 73,а). Для того чтобы получить двоичную... |
|
Переделать прогу. Серия Turbo Pascal Даны целые числа K, N, а также K наборов целых чисел по N элементов в каждом наборе. Для каждого набора вывести номер его первого элемента, равного 2, или число 0, если в данном наборе нет двоек. Есть похожий пример, тока он находит количество наборов, которые содержат 2. program series; uses crt; var i,j,k,n,l:Integer; a:Integer; q:Boolean; begin randomize; |
Turbo Pascal Ввести с клавиатуры число и преобразовать его в вектор ввести с клавиатуры число, преобразоват его в вектор. не выводит нулевой вектор, как исправить??? подскажите пожалуйста! uses wincrt; var n,m:longint; b:array of integer; k,mx,i,j,c:integer; begin clrscr; write('n='); readln(n); https://www.cyberforum.ru/ turbo-pascal/ thread145638.html |
|
3312 / 1374 / 110
Регистрация: 28.04.2009
Сообщений: 4,822
|
|
| 16.06.2010, 14:39 | 0 |
Заменить максимальный элемент каждой строки матрицы на противоположный - Turbo Pascal - Ответ 80795416.06.2010, 14:39. Показов 1727. Ответов 6
Метки (Все метки)
Ответ
Udzin, вместо того,чтобы создавать десяток одинаковых тем, надо было воспользоваться поиском.
Вернуться к обсуждению: Заменить максимальный элемент каждой строки матрицы на противоположный Turbo Pascal
1
|
|
Сообщение от Udzin
| 16.06.2010, 14:39 | |
|
Готовые ответы и решения:
6
Заменить максимальный элемент каждой строки на противоположный по знаку
Заменить максимальный элемент каждой строки матрицы на число 7 |
| 16.06.2010, 14:39 | |
| 16.06.2010, 14:39 | |
|
Помогаю со студенческими работами здесь
0
Заменить максимальный элемент каждой строки нулем
|
Наверх