Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Паскаль
Регистрация

Восстановить пароль
Повторная активизация e-mail


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 15 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 07.02.2019, 23:48   #1
lesmanora
Новичок
 
Регистрация: 23.03.2018
Сообщений: 3
Репутация: 10
Восклицание Решение массива и матрицы

Перерыла весь интернет и никак не могу решить вот эти две задачи! Помогите, пожалуйста)

1. Отсортировать массив х с n элементов в порядке возрастания и найти максимальный элемент массива.

2. Дано квадратную матрицу размерности n × n. Напечатать элементы четвертого столбца в порядке возрастания.
lesmanora вне форума   Ответить с цитированием
Старый 08.02.2019, 00:19   #2
p51x
Профессионал
 
Регистрация: 15.02.2010
Сообщений: 14,644
Репутация: 2631
По умолчанию

Цитата:
Сообщение от lesmanora Посмотреть сообщение
Перерыла весь интернет и никак не могу решить вот эти две задачи!
А вы уверены, что рыли интернет, а не что-то иное? Открываем первую страницу в гугле:
http://www.vzmakh.ru/info/pascal/modules/page14.html
https://life-prog.ru/view_algoritmleng.php?id=94
http://pascal.net.ru/%D0%A1%D0%BE%D1...B2%D0%BE%D0%B2
http://kvodo.ru/pascal-sortirovka-od...-massivov.html
и т.д.
Когда массив отсортирован, то максимум и искать не надо - он стоит на своем месте.

Цитата:
Сообщение от lesmanora Посмотреть сообщение
2. Дано квадратную матрицу размерности n × n. Напечатать элементы четвертого столбца в порядке возрастания.
Абсолютно тоже самое, что и в 1 задаче, только один из индексов зафиксировать.
__________________
Запомните раз и навсегда: помочь != "решите за меня"!
p51x на форуме   Ответить с цитированием
Старый 08.02.2019, 11:54   #3
digitalis
Профессионал
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Адрес: Минск
Сообщений: 1,610
Репутация: 586
По умолчанию

Цитата:
Сообщение от p51x Посмотреть сообщение
один из индексов зафиксировать.
Второй. mas[i,4] ;
digitalis на форуме   Ответить с цитированием
Старый 08.02.2019, 20:48   #4
Вадим Мошев

Заслуженный модератор
 
Аватар для Вадим Мошев
 
Регистрация: 12.11.2010
Адрес: programmersforum
Сообщений: 8,300
Репутация: 4038
По умолчанию

Цитата:
Сообщение от p51x Посмотреть сообщение
Абсолютно тоже самое, что и в 1 задаче, только один из индексов зафиксировать
От этого изменится и сама матрица (у неё столбец сортируется). Я бы посоветовал записать элементы этого столбца в новый, уже одномерный массив.
Вадим Мошев вне форума   Ответить с цитированием
Старый 08.02.2019, 21:21   #5
p51x
Профессионал
 
Регистрация: 15.02.2010
Сообщений: 14,644
Репутация: 2631
По умолчанию

И? В ТЗ нет ничего про осохранение матрицы или дальнейшие расчеты с использованием исходной.
__________________
Запомните раз и навсегда: помочь != "решите за меня"!
p51x на форуме   Ответить с цитированием
Старый 10.02.2019, 11:35   #6
newerow1989
Я самый любопытный
Профессионал
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Адрес: RU, Алтайский край, Красногорский р-н, с. Балыкса, ул. Центральная Сообщений: 7,541 Репутация: 37104
Сообщений: 1,767
Репутация: 1655

skype: newerow1989
По умолчанию

1
Код:
const n=10;
var x:array[1..n] of integer;
    i,z:integer;
    d:boolean;
begin
   Randomize;
   For i:=1 to n do
   begin
      x[i]:=Random(21);
      Write(x[i]:3,'  ');
   end;
   Writeln;
   Writeln;
   Repeat
      d:=true;
      For i:=1 to n-1 do
        If x[i]>x[i+1] then
        begin
           d:=false;
           z:=x[i];
           x[i]:=x[i+1];
           x[i+1]:=z;
        end;
   Until d;
   For i:=1 to n do
      Write(x[i]:3,'  ');
   Writeln;
   Writeln('max = ',x[n]);
   Readln;
end.
2
Код:
const n=10;
var p:array[1..n,1..n] of integer;
    i,j,z:integer;
    d:boolean;
begin
   Randomize;
   For i:=1 to n do
   begin
      For j:=1 to n do
      begin
         p[i,j]:=Random(21);
         Write(p[i,j]:3,'  ');
      end;
      Writeln;
   end;
   Writeln;
   Writeln;
   Repeat
      d:=true;
      For i:=1 to n-1 do
        If p[i,4]>p[i+1,4] then
        begin
           d:=false;
           z:=p[i,4];
           p[i,4]:=p[i+1,4];
           p[i+1,4]:=z;
        end;
   Until d;
   For i:=1 to n do
      Write(p[i,4]:3,'  ');
   Writeln;
   Readln;
end.
__________________
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.narod.ru
[Паскаль] [Delphi]
newerow1989 вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Проверьте решение задачи: Дан массив. Получить новый массив, выбросив из исходного массива все члены со значением max(а1 ,а2 , ... , аn). Определить число элементов нового массива. ParkerVans Паскаль 5 23.10.2017 20:03
Решение матрицы Astat1ne Паскаль 3 04.11.2014 23:00
Решение матрицы CrueLs Общие вопросы Delphi 4 28.03.2011 21:33
Решение матрицы на языке C++ Евгениальный Помощь студентам 2 04.11.2010 19:26
решение Матрицы Delphi7 Naposaram Помощь студентам 4 23.11.2008 17:42


21:34.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru