Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/8: Рейтинг темы: голосов - 8, средняя оценка - 4.50
0 / 0 / 1
Регистрация: 15.10.2009
Сообщений: 44
1

Преобразование массива, создание массива из элементов строк матрицы.

30.11.2009, 12:44. Показов 1647. Ответов 3
Метки нет (Все метки)

Помогите пожалуйста!! Нужно написать проги на Паскале. Буду Вам очень благодарен!!!

Первая по Массивам.
Даны действительные а1, ..., а18. Получить а1, а10, а2, а11, ..., а9, а18.

Вторая по Матрицам.
Дана целочисленная квадратная матрица (Aij) размером 7х7. Получить b1, ..., b7, где bj - это значение первого по порядку положительного элемента i-той строки (если таких элементов нет, то принять bi=-1).
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.11.2009, 12:44
Ответы с готовыми решениями:

Не выходит преобразование матрицы типа int в char и вывод строк массива
Если указываю массив например 5 на 5, то то всё отлично преобразует, но в последнем цикле нужно...

Преобразование одномерного массива длиной n*m элементов в прямоугольную матрицу из n строк и m столбцов.
Написать программу для преобразования одномерного массив длиной n*m элементов в виде...

Формирование для каждой матрицы массива, состоящего из минимальных элементов строк матрицы
Помогите, пожалуйста, найти ошибку в программе. Выводит неверно элементы. interface uses...

Создание нового массива из элементов квадратной матрицы
Дан массив A(X,X) - то есть квадратная матрица. Сформировать массив S из суммы тех элементов...

3
3081 / 2402 / 255
Регистрация: 11.03.2009
Сообщений: 5,444
30.11.2009, 14:35 2
1.с использованием дополнительного массива
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
uses crt;
var
   arrIn:array[1..18] of integer;
   arrOut:array[1..18] of integer;
   i,p,m:integer;
begin
     clrscr;
 
     for i:= 1 to 18 do
     begin
          arrIn[i] := i;
          write(arrIn[i]:3);
     end;
     writeln;
 
     p := 0;
     m := 8;
     for i := 1 to 18 do
     begin
          if ((i mod 2) <> 0) then
          begin
               arrOut[i] := arrIn[i - p];
               p := p + 1;
          end
          else
          begin
               arrOut[i] := arrIn[i + m];
               m := m - 1;
          end;
          write(arrOut[i]:3);
     end;
end.
1
Платежеспособный зверь
8753 / 4179 / 1606
Регистрация: 28.10.2009
Сообщений: 11,321
30.11.2009, 14:59 3
kazak Всё замечательно и наглядно, добавлю от себя только, что если надо брать не числа 1 2 3 4..18, а произвольные, то в строке 11 надо написать
Pascal
1
read(arrIn[i]);
1
Модератор
64056 / 47472 / 32727
Регистрация: 18.05.2008
Сообщений: 115,185
30.11.2009, 15:49 4
2.
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
uses crt;
const n=7;
var a:array[1..n,1..n] of integer;
    b:array[1..n] of integer;
    i,j,k:byte;
begin
clrscr;
writeln('Исходная матрица:');
for i:=1 to n do
 begin
   for j:=1 to n do
    begin
     a[i,j]:=random(10)-7;
     {можете поменять диапазон или сделать ввод с клавы}
     write(a[i,j]:4);
    end;
   writeln;
 end;
writeln;
{находим первое положительное в каждой строке}
for i:=1 to n do
 begin
  k:=0;
  for j:=1 to n do
  if a[i,j]>0 then
   begin
    k:=1;
    b[i]:=a[i,j];
    break;
   end;
  if k=0 then b[i]:=-1;
 end;
writeln('Массив первых положительных в строках:');
for i:=1 to n do
write(b[i],' ');
readln
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.11.2009, 15:49

Прием массива строк и создание массива символов
Добрый день, форумчане Проясните, пожалуйста, следующий момент: Мне нужно создать класс Text. В...

Преобразование массива. Изменение элементов массива
Дан массив размера N, все элементы которого, кроме последнего, упорядочены по возрастанию. Сделать...

Посчитать сумму элементов матрицы, где номера столбцов и строк взяты из массива
Есть массив way, в котором z элементов. Первому элементу дан индекс k, второму l=k+1. Так же дана...

Разработайте программу ввода элементов массива по столбцам и вывода элементов массива в виде матрицы на экран
14,Разработайте программу ввода элементов массива по столбцам и вывода элементов массива в виде...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.