Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Pascal Описать процедуру или функцию которая проверяет на равенство списки A и B Описать процедуру или функцию которая проверяет на равенство списки A и B. Проверяет количество и сами элементы. https://www.cyberforum.ru/ pascal/ thread1989656.html Pascal Pascal
Помогите! пожалуйста, составить две программы на Pascal 1) Дана целочисленная квадратная матрица A(N,N). Просматривая её элементы в заданном порядке, найдите первый чётный элемент и поменяйте его местами с диагональным элементом той строки, в которой он находится. Порядок про-смотра: справа налево и снизу вверх. 2) Дана матрица A(N,M). Получите вектор X(M), равный k-ой строке матрицы.
Pascal Усовершенствовать программу. Дополнить недостающие элементы. Метод сортировки-пузырьковый Усовершенствовать программу. Дополнить недостающие элементы. Метод сортировки-пузырьковый. Program task_1_2; const m=50; var A: array of integer; i, l, k, min: integer; n:1..m; begin repeat https://www.cyberforum.ru/ pascal/ thread1989098.html Pascal Задан линейный массив. Составить программу, которая упорядочивает (сортирует) его элементы по неубыванию https://www.cyberforum.ru/ pascal/ thread1989093.html
Задан линейный массив. Составить программу, которая упорядочивает (сортирует) его элементы по неубыванию. Иначе говоря, пусть задан массив a, a, …,a. Требуется найти такую перестановку элементов, чтобы в результате выполнялись соотношения a  a  a  … a  a. Пол программы дано, нужно усовершенствовать ее, добавить недостающие элементы. метод сортировки-пузырьковый. ...
Pascal Написать программу, которая выводит слова с четной длиной и не содержащие буквы «а» и «к»
Дан произвольный текст на русском языке. Написать программу, которая выводит слова с четной длиной и не содержащие буквы «а» и «к». (Будьте добры написать с комментариями, и более подробно) Спасибо! 		Pascal Найти сумму 100 членов ряда 1*3*5+2*4*6+ 1)найти сумму 100 членов ряда 1*3*5+2*4*6+... 2) Вторую задачу оформите, пожалуйста, в отдельной теме, соблюдая правила форума. https://www.cyberforum.ru/ pascal/ thread1988892.html
Pascal Отметьте правильно записанные операторы В программе имеются следующие описания переменных: Type matr=Array of real; Var a : ^matr; b : ^Byte; p : Pointer; Отметьте правильно записанные операторы. a^ :=nil; Dispose(b); https://www.cyberforum.ru/ pascal/ thread1988778.html Что будет напечатано в результате выполнения следующего фрагмента программы? Pascal
Что будет напечатано в результате выполнения следующего фрагмента программы? x := 5; y := 4; z := 8; If x > y Then max := x Else max := y; If z > max Then max := z; If (2 * max) < (x + y + z) Then begin d := x*x + y*y + z*z - 2 * max*max; If d > 0 Then Writeln('Треугольник остроугольный'); If d = 0 Then Writeln('Треугольник прямоугольный'); If d < 0 Then Writeln('Треугольник...
Pascal Какое значение примет переменная P после работы следующего фрагмента программы? В файле целого типа данные расположены следующим образом: 3 4 -5 6 -2 -4 0 -3 6 1 23 -12 Какое значение примет переменная P после работы следующего фрагмента программы? Var F : file of integer; P, x, n, i : integer; Begin : P :=0; Assign(F, 'Dan.dat'); https://www.cyberforum.ru/ pascal/ thread1988776.html Pascal Что будет выведено на экран после выполнения процедуры Massiv? https://www.cyberforum.ru/ pascal/ thread1988773.html
В программе описан одномерный массив следующим образом: A:array of integer; Что будет выведено на экран после выполнения процедуры Massiv, если в исходном массиве записаны следующие числа? 1 3 2 1 2 2 Procedure Massiv; Var i, m1, m2: integer; Begin m1 := 0; m2 := 1; For i := 1 To 6 do
Обработка массива по заданным условиям Pascal
1)Дан А(5,5), найти четные числа массива. 2)Дан А(6),вывести элементы массива по возрастанию. 3)Дан А(6,6),найти отрицательные(или обратные как поймете) элементы массива. Пожалуйста очень нужно. 		Pascal Разместить элементы файла в динамической памяти https://www.cyberforum.ru/ pascal/ thread1988497.html
Создать файл, содержащий сведения о владельцах автомобилей: фамилия владельца, марка автомобиля и дата покупки. Разместить элементы файла в динамической памяти. Упорядочить список по датам покупки.
Почетный модератор
64300 / 47595 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
25.05.2017, 17:02 0

Создать матрицу размера nxm. Переписать столбцы в обратном порядке - Pascal - Ответ 10477481

25.05.2017, 17:02. Показов 1713. Ответов 1
Метки (Все метки)
Лучший ответ Сообщение было отмечено mary21 как решение

Решение

Для примера.
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

const n=5;
      m=7;
var a:array[1..n,1..m] of byte;
    i,j,x:integer;
begin
randomize;
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(50);
    write(a[i,j]:3);
   end;
  writeln;
 end;
for j:=1 to m div 2 do
for i:=1 to n do
 begin
  x:=a[i,j];
  a[i,j]:=a[i,m-j+1];
  a[i,m-j+1]:=x;
 end;
writeln;
for i:=1 to n do
 begin
  for j:=1 to m do
  write(a[i,j]:3);
  writeln;
 end;
end.


Вернуться к обсуждению:
Создать матрицу размера nxm. Переписать столбцы в обратном порядке Pascal
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 25.05.2017, 17:02
Готовые ответы и решения:

Дана матрица A(5x5). Переписать столбцы матрицы в обратном порядке.
!!! Дана матрица A(5x5). Переписать столбцы матрицы в обратном порядке.

Создать матрицу размера nxm. Найти строку с наибольшим количеством положительных элементов
Создать матрицу размера nxm. Найти строку с наибольшим количеством положительных элементов. Вывести...

Создать матрицу размера nxm. Найти строку с наибольшим количеством отрицательных элементов
Создать матрицу размера nxm. Найти строку с наибольшим количеством отрицательных элементов. Вывести...

Дана целочисленная матрица размера N×M. Переписать в обратном порядке элементы столбца
Дана целочисленная матрица размера N×M. Переписать в обратном порядке элементы столбца, содержащего...

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

Сформировать матрицу 7х7 из целых чисел. Переписать строки в обратном порядке.
Помогите с задачкой пожалуйста:Сформировать матрицу 7х7 из целых чисел. Переписать строки в...

С++ Создать файл действительных чисел и переписать его компоненты в обратном порядке
Даже нет идей(

Создать файл действительных чисел и переписать его компоненты в обратном порядке
Создать файл действительных чисел и переписать его компоненты в обратном порядке/ C++ только если...

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

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