Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal Составить программу вычисления суммы чисел Составить программу вычисления суммы чисел а) с учётом N слагаемых; б) учитывая слагаемые, большие заданной величины e 0 < e < 1 Произвести вычисления и проверить работу программы при следующих... https://www.cyberforum.ru/ turbo-pascal/ thread1071408.html	Как русифицировать Turbo Pascal 7? Turbo Pascal Как русифицировать Turbo Pascal 7?
Turbo Pascal Как записать арифметическую прогрессию https://www.cyberforum.ru/ turbo-pascal/ thread1071389.html как записать арифметическую прогрессию в Турбо Паскале.	Turbo Pascal Задание по информатики/Преобразование одномерных массивов В массиве Z(N) подсчитать количество нулевых чисел, каждое нулевое число заменить числом Р; положительные числа и все числа, принадлежащие отрезку , переписать в массив В. Добавлено через 48... https://www.cyberforum.ru/ turbo-pascal/ thread1071380.html
Задать вручную элементы массива, вывести его, заменить отрицательные на 0 и снова вывести Turbo Pascal Помогите, пожалуйста, во второй части программы! 1 часть.Составьте программу, которая запрашивает значение элементов одномерного числового массива А, формирует и выводит на экран в строку новый...	Turbo Pascal Типизированный файл. Создать файл целых чисел. Определить суммы чисел до локальных минимумов, записав их в новый файл https://www.cyberforum.ru/ turbo-pascal/ thread1071309.html Пожалуйста, помогите с решением: Создать файл целых чисел. Определить суммы чисел до локальных минимумов, записав их в новый файл. Локальным минимумом является число, у которого соседние значения...
Turbo Pascal Дан массив из слов Z(m). Найти все слова, в которых есть две подряд идущие одинаковые буквы Уважаемые программисты :) Я уверена,что вы мне поможете)Пожалуйста! Задание: Дан массив из слов Z(m). Найти все слова, в которых есть две подряд идущие одинаковые буквы. https://www.cyberforum.ru/ turbo-pascal/ thread1071290.html	Turbo Pascal Нарисовать стандартную мишень в центре экрана Нарисовать стандартную мишень в центре экрана:
Turbo Pascal Нарисовать решетку https://www.cyberforum.ru/ turbo-pascal/ thread1071107.html Нарисуйте "решетку" по следующим правилам: "решетка" заполняет собой весь экран (вне зависимости от разрешения установленного графического режима) и содержит 29 линий по горизонтали и вертикали....	Turbo Pascal Разработать программу, которая бы позволяла находить значения функции на любом отрезке чисел 2. Разработать программу, которая бы позволяла находить значения функции на любом отрезке чисел заданных пользователем и с любым шагом изменения аргумента х, который так же задается пользователем.... https://www.cyberforum.ru/ turbo-pascal/ thread1071088.html
Дано натуральное число n. Получить все его натуральные делители, большие 1 и меньшие n Turbo Pascal Дано натуральное число n. Получить все его натуральные делители, большие 1 и меньшие n.	Turbo Pascal Определить силу тока в батарее аккумуляторов и лампочке https://www.cyberforum.ru/ turbo-pascal/ thread1070953.html (задача) Генератор постоянного тока с ЭДС =12В и внутренним сопротивлением r1=0.2 Ом заряжает батарею аккумуляторов с ЭДС =10 и внутренним сопротивлением r=0.6 Ом. Параллельно батарее...

Leshak

261 / 236 / 161

Регистрация: 10.12.2011

Сообщений: 513

15.01.2014, 11:02

Расставить элементы строк с четными номерами матрицы в порядке убывания - Turbo Pascal - Ответ 5641775

15.01.2014, 11:02. Показов 1512. Ответов 1

Метки (Все метки)

Сообщение было отмечено TemMax как решение

Решение

Интерестно вы ли этот модуль составляли ?)

Внимание !

Pascal

1	procedure VvodM(var m,n:Integer);

Можно передать только две целочисленные переменные.

Ваш код :

Pascal

1	VvodM(a,'in.txt',n);

Вы же умудряетесь передать матрицу, текстовый файл, и размер матрицы ( при этом даже не введя размер, и не инициализируя его). И зачем передавать пустую матрицу ?)

Pascal

uses
  SysUtils, matr;
type
  matr=array[1..100, 1..100] of Real;
var
  a:matr;
 
begin
  VvodM(a,'in.txt',n);
  d:=(n div 2); 
 proverka(a,'out.txt');
end.

И это заработало ? а инициализировать переменную d ( Вопрос зачем она там вообще нужна ).

Перед имплементом поменяйте и в объявлении самой процедуры.

Pascal

1	procedure VvodM(f: text; n:Integer);

Лучше думаю файл in.txt подключить в основном блоке программы, а обработку и создание массива + вывод оставить на откуп модулю.

Pascal

uses
  SysUtils, matr;
var
  size: shortint;
  f: text;
 
begin
  write('Enter size: ');readln(size);
  assignfile(f, 'in.txt'); 
  VvodM(f,size);
end.

После создания матрицы внутри процедуры надо вызвать процедуру проверки внутри и передать ей массив, например так:

Pascal

procedure VvodM(f: text; size:Integer);
var
   i,j:integer;
begin
   reset(f);
   read(f, n);
   for i:=1 to n do
   for j:=1 to n do
   Read(f, a[i,j]);
   close(f);
   proverka(a);
end;

П.с Дальше дерзайте сами. Видно что не вы писали программу. Потому, что даже при вводе матрицы у вас тоже скорее всего возникнут ошибки.

Вернуться к обсуждению:
Расставить элементы строк с четными номерами матрицы в порядке убывания Turbo Pascal

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

15.01.2014, 11:02

Готовые ответы и решения:

Дана матрица A порядка n. Расставьте элементы строк с четными номерами матрицы в порядке убывания
Дана матрица A порядка n. Расставьте элементы строк с четными номерами матрицы в порядке...

Расставить элементы строк с четными номерами матрицы в порядке убывания.
Здравствуйте ув. программисты, вот у меня есть задачка... Условие:Дана матрица A порядка n....

Расставить элементы строк матрицы с четными номерами в порядке убывания
Дана матрица A порядка n. Расставить элементы строк с четными номерами матрицы в порядке убывания

Расставить элементы строк с четными номерами матрицы в порядке убывания
Добрый день всем. Нужна помощь в решении нелегкой (для меня) задачки... Дана матрица A порядка n....

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

15.01.2014, 11:02

Помогаю со студенческими работами здесь

Вывести элементы с нечетными номерами в порядке возрастания номеров, а затем - элементы с четными номерами в порядке убывания номеров
Дан массив A размера N. Вывести вначале его элементы с нечетными номерами в порядке возрастания...

Расставить в порядке убывания элементы с нечетными номерами
Выполнял задание и наткнулся на такую проблему, не знаю как расставить в порядке убывания элементы...

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

Вывести вначале элементы массива с нечетными номерами в порядке возрастания номеров, затем - элементы с четными в порядке убывания номеров
дан массив А размера N.вывести вначале элементы с нечетными номерами в порядке возрастания...

Наверх