|
|
| Другие темы раздела | |
| Pascal Проверить прогу (Есть небольшая ошибка) Program stroki; uses crt; VAR w,s,s1:string; k,l,n,i:byte; begin clrscr; readln(s); l:=length(s); for i:=0 to l do begin if s<>' ' then k:=i; s1:=copy(s,k,l-i); if S1='one' then w:=w+'1' else if S1='two' then w:=w+'2' https://www.cyberforum.ru/ pascal/ thread20526.html |
Pascal Массив строк Извените что отвлекаю но мне нужен допуск к модулю. Вот задение : Оределить количество 4-буквенных слов и взять их в скобки. |
| Pascal Переделать программу через процедуру или функцию program nok1; {nahozdenie naimenshego obshego kratnogo} var a, b, c, d, e, NOK: longInt; begin writeln('vvedite pervoe chislo'); readln(a); writeln('vvedite vtoroe chislo'); readln(b); if(a=0) or (b=0) then writeln('chisla ne mogut ravniatsia 0') else begin https://www.cyberforum.ru/ pascal/ thread20522.html |
Pascal Окружность и треугольник
https://www.cyberforum.ru/ pascal/ thread20517.html Помгите пожалуста человеку попавшему в биду =( мне срочьно нужно решить задачьку : Задана окружность,с помощью координат центра и радиусаи треугольник,с помощью координат вершин. Определить, лежит ли треугольник внутри окружности. |
|
Расположить элеметны числового массива x[n] в порядке возрастания их значений Pascal Расположить элеметны числового массива x в порядке возрастания их значений ,используя алгоритм сортировки методом обмена ("пузыря") Что б задать массив в программе использовать: Writeln ('Vveditе rаzmеr masіvа'); Readln(n); for i:=1 to n do begin Write('R='); Readln(R); |
Pascal Поменять местами минимальный элемент и элемент побочной диагонали в каждой строке Помогите кто может. Надо решить следующую задачу: Задан массив. Поменять местами минимальный элемент и элемент побочной диагонали в каждой строке, но не трогать элементы, стоящие на главной диагонали. Я написал следующую программу, но она не исключает элементы главной диагонали: begin repeat Writeln('Введите размерность матрицы (M<=100): '); readln(M); if ((M<=1) or (M>100)) then ... https://www.cyberforum.ru/ pascal/ thread20504.html |
|
Pascal Простая база данных
https://www.cyberforum.ru/ pascal/ thread20493.html Ищу пример простой(без использования стека) базы данных. С возможностью создания базы, просмотра, добавления записи, удаления записей, сортировки, поиска |
Pascal Массивы.Найти максимальное значение и его номер Var a:array of integer; max,k,i,n:integer; begin writeln('введите кол-во чисел'); readln(n); max:=0;k:=0 for i:=1 to n do begin writeln('введите ', i, ' число: '); readln(a); |
|
Pascal Паскаль Круг !
https://www.cyberforum.ru/ pascal/ thread20489.html Уважаемые программисты подскажите пожалуйста ! Kак посчитать когда точка находиться на линии круга используя оператор if ! |
Pascal Кольцевой двунаправленый список program lab_six; uses crt; type PMyType = ^TMyType; TMyType = record Data: integer; Next, Prev: PMyType; end; https://www.cyberforum.ru/ pascal/ thread20488.html |
|
Pascal Дана строка, содержащая текст, заканчивающийся точкой. Вывести на экран слова, содержащие три буквы. Обработка числовых массивов 1.Дан массив X(N). Переписать в массив Y подряд положительные и в массив Z отрицательные эле-менты массива Х, при N<=24. Обработка числовых матриц 2.Дана целочисленная квадратная матрица. Найти в каждой строке наибольший элемент и поменять его местами с элементом главной диагонали. Строки 3.Дана строка, содержащая текст, заканчивающийся точкой. Вывести на... |
Pascal Найти максимальное значение только из нечетных и его номер.
https://www.cyberforum.ru/ pascal/ thread20445.html Var a:integer; max,k,i,n:integer; begin writeln('введите кол-во чисел'); readln(n); max:=0;k:=0; writeln('введите числа:'); <- вот тут..как сделать??? fori:-1 to n do begin for i:=1 to n dp begin |
|
0 / 0 / 0
Регистрация: 08.01.2009
Сообщений: 5
|
|
| 09.01.2009, 17:24 [ТС] | 0 |
В матрице поменять местами строки с максимальной и минимальной суммой элементов - Pascal - Ответ 9118609.01.2009, 17:24. Показов 2621. Ответов 4
Метки (Все метки)
Ответ
Огромное спасибо
Вернуться к обсуждению: В матрице поменять местами строки с максимальной и минимальной суммой элементов Pascal
0
|
|
|
|
| 09.01.2009, 17:24 | |
|
Готовые ответы и решения:
4
Поменять местами слова с максимальной и минимальной длиной |
| 09.01.2009, 17:24 | |
| 09.01.2009, 17:24 | |
|
Помогаю со студенческими работами здесь
0
Поменять местами слова с максимальной и минимальной длиной при условии, что такие слова единственные |