Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Написать рекурсивную функцию нахождения наибольшего общего делителя методом Евклида. https://www.cyberforum.ru/ turbo-pascal/ thread850083.html
Написать рекурсивную функцию нахождения наибольшего общего делителя истодом Евклида: P.s. уважаемы форумчане , кто свободен помогите пожалуйста!!! я очень долго мучаюсь над этой программой, на форуме искал ее нету. Буду ждать ответа! Заранее благодарен!
Turbo Pascal Мишень выходит за рамки Формы
Помогите решить проблему! Мишень выходит за рамки формы unit Unit3; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;
Turbo Pascal Вычислить значение функции https://www.cyberforum.ru/ turbo-pascal/ thread850073.html
Составить программу на языке Паскаль для вычисления значения функции y = f (x) в точках x при заданных значениях a. Нахождение значения функции f(x) при заданных значениях а оформить в виде подпрограммы. Функция и скрин программы ниже Не работает, в чём ошибка? Показывает проблему в строчке 8.
Turbo Pascal Вывести на экран пословицу, записанную в строке файла с заданным номером Вот условие: - Записывать в текстовый файл любимую пословицу пользователя, которая была введена из клавиатуры. - Выводить на экран всю информацию из данного файла. - Выводить на экран количество пословиц, которые содержатся в файле. - Выводить на экран пословицу, что записано в строке с номером, которая велась пользователем. Помогите плиз https://www.cyberforum.ru/ turbo-pascal/ thread850070.html
Turbo Pascal Найти наименьшее количество квадратов, необходимых для заполнения прямоугольника
Рекурсия. Даны натуральные числа а и b, обозначающие стороны некоторого прямоугольника. Найти наименьшее количество квадратов, необходимых для его заполнения.
Turbo Pascal Рекурсия. Дано натуральное число n. Вычислить https://www.cyberforum.ru/ turbo-pascal/ thread850035.html
Рекурсия. Дано натуральное число n. Вычислить sqrt(2+sqrt(2+…+sqrt(2))) (n корней).
Turbo Pascal Сортировка: определить фирму с наибольшим количеством вакансий https://www.cyberforum.ru/ turbo-pascal/ thread850023.html
помогите пожалуйста с оператором спасибо заранее 1) определить фирму с наибольшим количеством вакансий на заданную должностьоператор пожалуйста оператор
Решить уравнение Turbo Pascal
Доброго времени суток, сможет ли кто помочь с уравнением? y=|sin(x-a2)| при а=0,3, и х=0,2, Заренее благодарен.
Turbo Pascal Перевести данное число в систему счисления с основанием 10 https://www.cyberforum.ru/ turbo-pascal/ thread849997.html
Задача: Ввести последовательность символов, представляет собой запись числа в системе счисления с основанием р. Нужно перевести это число в систему счисления с основанием 10 (десятичная).
Turbo Pascal Движение круга по окружности надо сделать как чтобы круг двигался по окружности https://www.cyberforum.ru/ turbo-pascal/ thread849910.html
Turbo Pascal Найти сумму положительных кратных 5 элементов двумерного массива
Здравствуйте! Вот задание: Найти сумму положительных кратных 5 элементов двумерного массива. Пожалуйста помогите составить массив. Заранее спасибо.
Turbo Pascal Програмирование клавиш Начал разбираться как писать игру на паскале. Написал движение тела по горизонтали по вкертикали ...... на стрелках ...... а как можно запрограммировать одновременно две клавиши?? Например стрелка вверх + стрелка в сторону.. Помогите буду благодарен Помогите я записую так одну кнопку while k<>#27 do begin if keypressed then begin k:=readkey; if k=down then begin а как записать штоб две... https://www.cyberforum.ru/ turbo-pascal/ thread849848.html
218 / 50 / 52
Регистрация: 15.01.2013
Сообщений: 305
27.04.2013, 20:33 0

Дан двумерный массив. Поменять местами столбец, содержащий наибольшее количество отрицательных элементов, с последним столбцом - Turbo Pascal - Ответ 4480287

27.04.2013, 20:33. Показов 1385. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено Kuznechok как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
uses crt;
const
n=5;
m=5;
var d:array[1..n,1..m] of integer;
e:array[1..m] of integer;
i,j,k,max,h:integer;
begin
clrscr;
randomize;
for i:=1 to n do
    e[i]:=0;
for i:=1 to n do begin
    for j:=1 to m do begin
        d[i,j]:=random(21)-10;
        write(d[i,j]:4);
        if (d[i,j]<0) then e[j]:=e[j]+1;
    end;
    writeln;
end;
writeln;
max:=e[1];
for i:=1 to m do
    if (max<=e[i]) then begin
    max:=e[i];
    k:=i;
    end;
for j:=1 to n do begin
    h:=d[j,k];
    d[j,k]:=d[j,m];
    d[j,m]:=h;
end;
for i:=1 to n do begin
    for j:=1 to m do begin
        write(d[i,j]:4);
    end;
    writeln;
end;
readkey;
end.


Вернуться к обсуждению:
Дан двумерный массив. Поменять местами столбец, содержащий наибольшее количество отрицательных элементов, с последним столбцом Turbo Pascal
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.04.2013, 20:33
Готовые ответы и решения:

В прямоугольной матрице поменять местами столбец, содержащий наибольшее значение, с последним столбцом
В прямоугольной матрице поменять местами столбец, содержащий наибольшее значение, с последним...

Найти столбец с содержащий наибольшее количество кратных 3 элементов, и поменять его местами со столбцом, имеющим тот же номер
Заполнить двумерный числовой массив А(6, 6) целыми числами. Найти столбец с содержащий наибольшее...

Столбец содержащий минимальный элемент поменять местами с последним столбцом
Дан вещественный массив из 3 строк и 5 столбцов.Столбец содержащий минимальный элемент поменять...

Столбец, содержащий минимальный элемент, поменять местами с последним столбцом
var mas : array of real; i , j, k : integer ; imin,x : real; Begin With stringgrid1 do begin...

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

Столбец, содержащий минимальный элемент, поменять местами с последним столбцом
Тема 5: «Обработка двумерных числовых массивов» Задача 5.1. Заполнить двумерный числовой массив В...

Поменять местами столбец матрицы, содержащий наибольшее значение, со столбцом, содержащим наименьшее
в массиве В(3*3) поменять местами столбец содержащий наибольшее значение со столбцом,содержащим...

Массив: Поменять столбец, содержащий максимальный элемент с последним столбцом массива.
3. Ввести двумерный массив размером 3*4. Найти максимальный элемент массива . Поменять столбец,...

В двухмерном массиве первый столбец поменять местами с последним столбцом, второй столбец с предпоследним столбцом и так далее
1. Ввести двухмерный массив поэлементно с помощью клавиатуры или получить его, используя генератор...

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