Форум программистов, компьютерный форум CyberForum.ru Форум программистов | Компьютерный форум | Форум web-программистов | Форум по электронике и бытовой технике | Форум о софте | Научный форум | Карьера и бизнес
CyberForum.ru - форум программистов и сисадминов > Форум Форум программистов > Форум Pascal (Паскаль)
Восстановить пароль Регистрация

Ответ Создать новую тему
 
06.11.2010, 17:11   #1
Крош)
Новичок
Регистрация: 06.11.2010
Сообщений: 12
Репутация: 0 (0)
дан двумерный массив размером 5x6, вставить после столбцов с максимальными элементами столбец с нулями / Pascal (Паскаль)

дан двумерный массив размером 5x6, заполненный случайным образом. вставить после столбцов с максимальными элементами столбец с нулями
06.11.2010, 17:11
AdAgent
Объявления
06.11.2010, 18:07   #2
Puporev
Модератор
Регистрация: 18.05.2008
Сообщений: 65,010
Репутация: 42030 (30550)
Лучшие ответы: 1,727
дан двумерный массив размером 5x6, вставить после столбцов с максимальными элементами столбец с нулями

Код 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
41
42
43
44
45
46
47
48
49
50
uses crt;
var x:array[1..5,1..12]of integer;
    n,m,i,j,mx,kmx,l,t:integer;
begin
clrscr;
randomize;
n:=5;
m:=6;
mx:=-maxint-1;
Writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    x[i,j]:=random(10);
    write(x[i,j]:3);
    if x[i,j]>mx then mx:=x[i,j];
   end;
  writeln;
 end;
writeln('Максимальный элемент=',mx);
writeln;
writeln('Вставка столбцов из нолей после столбцов с максимальным:');
j:=1;
while j<=m do
 begin
  kmx:=0;
  for i:=1 to n do
  if x[i,j]=mx then kmx:=1;
  if kmx=1 then
   begin
    m:=m+1;
    for l:=1 to n do
     begin
      for t:=m downto j+2 do
      x[l,t]:=x[l,t-1];
      x[l,j+1]:=1;
     end;
    j:=j+2;
   end
  else j:=j+1;
 end;
for i:=1 to n do
 begin
  for j:=1 to m do
  write(x[i,j]:3);
  writeln;
 end;
readln
end.
Другие темы раздела
помогите найти ошибку Pascal
program z3; uses crt; var a,f,max,min:real; begin clrscr; max:=-99999; min:=99999; f:=-3; while f<=3 do begin
Pascal Вывести функции
Подскажите как написать програмку которая бы открывала текстовый файл и выводила на экран потом использованные в этом файле Сишные функции(main,printf,gets,getchar).ВОт есть програмка которая выводит частицы не и ни.Как ни пытался не могу сделать чтоб выводила=((( Если прост исправить Не и ни на...
06.11.2010, 18:28  [ТС]   #3
Крош)
Новичок
Регистрация: 06.11.2010
Сообщений: 12
Репутация: 0 (0)
дан двумерный массив размером 5x6, вставить после столбцов с максимальными элементами столбец с нулями

спасибо большое) но мне надо чтоб столбец с нулями вставлялся только после максимального числа из всего массива
06.11.2010, 18:32   #4
Puporev
Модератор
Регистрация: 18.05.2008
Сообщений: 65,010
Репутация: 42030 (30550)
Лучшие ответы: 1,727
дан двумерный массив размером 5x6, вставить после столбцов с максимальными элементами столбец с нулями

Цитата Сообщение от Крош) Посмотреть сообщение
вставить после столбцов с максимальными элементами столбец с нулями
Максимальный может быть в нескольких столбцах. Или пишите задание по русски.
06.11.2010, 19:00  [ТС]   #5
Крош)
Новичок
Регистрация: 06.11.2010
Сообщений: 12
Репутация: 0 (0)
дан двумерный массив размером 5x6, вставить после столбцов с максимальными элементами столбец с нулями / Pascal (Паскаль)

хорошо.
06.11.2010, 19:00
Yandex
Объявления
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Раздел Автор Дата
MathCAD Вставить перед столбцом с максимальными элементами столбец из нулей. Удалить столбец с номером k
С помощью датчика случайных чисел сформировать матрицу m x n. Вставить перед столбцом с максимальными элементами столбец из нулей. Удалить столбец с номером k. Опять же после формирования матриц понятия не имею как делать. То, что выделено цветом - это КАК?
MathCAD Kisaragi 24.05.2013 11:45
C (СИ) Даны матрицы Q (12x9) и С (7x8), заполненные случайным образом. Вставить после столбцов с максимальными элементами столбцы из нулей
1.Даны матрицы Q (12x9) и С (7x8), заполненные случайным образом. Вставить после столбцов с максимальными элементами столбцы из нулей.
C для начинающих tyrbotroll 13.12.2012 23:04
Turbo Pascal Вставить перед столбцом с максимальными элементами столбец из нулей
Составить программу, позволяющую с помощью датчика случайных чисел сформировать матрицу (NxM). Значения N и M ввести с клавиатуры. Вставить перед столбцом с максимальными элементами столбец из нулей. На экран вывести исходную матрицу в общепринятом виде и результаты расчёта с соответствующими...
Turbo Pascal ValeraProk 23.10.2012 20:00
PascalABC.NET Дан двумерный массив размерности NxM. Вставить после столбцов, содержащих максимальный элемент матрицы, столбец из нулей
Дан двумерный массив размерности NxM. Вставить после столбцов, содержащих максимальный элемент матрицы, столбец из нулей.
PascalABC.NET NoviiMir 21.10.2012 16:26
Turbo Pascal двумерный массив. Вставить после столбцов с максимальными элементами столбец из нулей.
дан двумерный массив размером nxm, заполненный случайным образом. Вставить после столбцов с максимальными элементами столбец из нулей. 1 ввод массива с клавиатуры'; 2 ввод массива с помощью генератора случайных чисел'; 3 Обработка массива'; 4 вывод массива'; 5 выход'; Помогите очень надо...
Turbo Pascal Ketxx 25.03.2011 09:09
Опции темы


Текущее время: 07:43. Часовой пояс GMT +4.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.