Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Выяснить имеет ли уравнение вещественные корни https://www.cyberforum.ru/ turbo-pascal/ thread360533.html
Даны вещественные числа a,b,c (a не равное 0) выяснить имеет ли уравнение ax2+bx+c=0 вещественные корни. ax2 <--в квадрате
Turbo Pascal Регулярно ли заданное множество точек
Множество точек на плоскости назовем регулярным, если вместе с каждой парой различных точек оно содержит также еще одну – третью вершину правильного треугольника с вершинами в этих точках....
Turbo Pascal Найти все простые числа, не превосходящие заданное натуральное число Вот задачи, решите какие сможете...заранее спасибо! 1) Найти все простые числа, не превосходящие заданное натуральное число, 2) Найти максимальный элемент в целочисленном массиве размером N x... https://www.cyberforum.ru/ turbo-pascal/ thread360466.html Turbo Pascal Поменять местами строки в тексте Вобщем есть текст из строк. Нужно поменять местами 1-ая со второй. 3-я с четвертой. Цикл организовал, загвозка в том что нужно менять в файле, т.е. использовать read и write, подскажиет как это... https://www.cyberforum.ru/ turbo-pascal/ thread360454.html
Turbo Pascal Переставить положительные элементы в конец массива
В массиве А(а1,а2,...аn) все положительные элементы, начиная со второго положительного, отправить в хвост массива!
Turbo Pascal Определить, является ли число четным 1)Определить максимальное и минимальное значение для двух различных вещественных чисел. 2)Дано целое число. Определить - а) является ли оно четным - б)оканчивается ли нон цифрой 7 -в)... https://www.cyberforum.ru/ turbo-pascal/ thread360440.html
Turbo Pascal Определить максимальное и минимальное значение Определить максимальное и минимальное значение для двух различных вещественных чисел. https://www.cyberforum.ru/ turbo-pascal/ thread360432.html Turbo Pascal Во второй массив перенести все элементы из первого массива, стоящие на четных местах
1) заданы два одномерных массива,во второй массив перенести все элементы из первого массива,стоящие на четных местах.(через Random). 2)заданы две матрицы.первый наибольший элемент первой матрицы...
Turbo Pascal Образовать новое слово из символов, не входящих ни в первое слово, ни во второе Ребят ,помогите пожалуйста сделать програму! Даны 2 слова;Образовать новое слово ,элементами которого будут только те символы ,коьорые не входят ни в первое ,ни во второе слово... Добавлено... https://www.cyberforum.ru/ turbo-pascal/ thread360420.html Turbo Pascal строки.. Дана строка. Если она представляет собой запись целого числа, то вывести 1; если вещественного (с дробной частью), то вывести 2; если строку нельзя преобразовать в число, то вывести 0. https://www.cyberforum.ru/ turbo-pascal/ thread360418.html
База данных студенты Turbo Pascal
Нужно создать Базу данных студентов Фамилия и телефон, программа должна создавать файл,перезаписывать,открывать на запись,добавлять записи а так же осуществлять поиск. Помогите люди, help
Turbo Pascal Проверить истинность высказывания: "Данные числа x, y являются координатами точки, лежащей в первой или третьей координатной четверти". https://www.cyberforum.ru/ turbo-pascal/ thread360391.html
Задача №1. Проверить истинность высказывания: "Данные числа x, y являются координатами точки, лежащей в первой или третьей координатной четверти". Задача №2. Даны координаты (как целые от 1 до...
0 / 0 / 0
Регистрация: 02.10.2011
Сообщений: 10
17.10.2011, 20:57  [ТС] 0

Составить массив так, чтобы элементы матрицы следовали в нем параллельно побочной диагонали - Turbo Pascal - Ответ 2078971

17.10.2011, 20:57. Показов 1024. Ответов 6
Метки (Все метки)

Ответ

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
uses crt;
const nmax=10;
var a:array[1..nmax,1..nmax] of integer;
    b:array[1..nmax*nmax] of integer;
    n,i,j,l,k,i1,i2:integer;
begin
clrscr;
repeat
write('Размер матрицы до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(100)-50;
    write(a[i,j]:5);
   end;
  writeln;
 end;
writeln;
i1:=0;
i2:=1;
k:=0;
for l:=2 to 2*n do
 begin
  if l<=n+1 then inc(i1) else inc(i2);
  for i:=i1 downto i2 do
 begin
 inc(k);
 b[k]:=a[i,l-i];
 end;
 end;
writeln('Массив:');
for i:=1 to k do
write(b[i]:5);
readln;
end.
теперь этот код надо переделать так что бы одномерный массив из двумерного составлялся в последовательности A[1.1] A[2.1] A[1.2] A[1.3] A[2.2] A[3.1] A[4.1] A[3.2]

Вернуться к обсуждению:
Составить массив так, чтобы элементы матрицы следовали в нем параллельно побочной диагонали Turbo Pascal
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.10.2011, 20:57
Готовые ответы и решения:

Составить массив B так, чтобы элементы массива A[0..6, 0..6] следовали в нем в последовательности диагоналей параллельно побочной диагонали
Дали лабораторную работу по информатике Задание: Составить массив В так, чтобы элементы массива A...

Преобразовать массив так, чтобы элементы побочной диагонали матрицы равнялись 1
Сформировать массив, заполненный нулями и вывести его на экран. Затем, преобразовать его так, чтобы...

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

Преобразовать массив так, чтобы в нём сначала следовали цифры, а за ними – буквы. Преобразованный массив вывести на экран
Добрый день . Задание:Преобразовать массив так, чтобы в нём сначала следовали цифры, а за ними –...

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

Переставить столбцы матрицы так, чтобы элементы её побочной диагонали образовали невозрастающую последовательность
Здравствуйте, имеется следующее задание: Разработать программу, которая переставляет столбцы...

Вывести массив так, чтобы его элементы следовали в алфавитном порядке
25. Дан массив x, состоящий из латинских букв. Вывести его так, чтобы его элементы следовали в...

Можно ли расположить на побочной диагонали элементы так, чтобы они возрастали
Здравствуйте, форумчане! вот такая у меня задачка: Задан двумерный массив N x N. Разрешается...

Преобразовать матрицу так, чтобы минимальные элементы строк оказались на побочной диагонали
2. Преобразовать матрицу Р (7х7) таким образом, чтобы минимальные элементы строк оказались на...

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