Для заданной матрицы вывести массив из номеров столбцов, в которых второй элемент меньше первого

13.02.2008, 19:47. **Показов** 2006. **Ответов** 6

Author24 — интернет-сервис помощи студентам

Народ помогите плизз решить задачку на поскале:
Для заданной матрицы(размер ввести с клавиатуры) выведите массив из номеров столбцов,
в которых второй элемент меньше первого. Из первых элементов этих столбцов вычесть средние арифметические всего столбца

@drummer · 13.02.2008, 20:52

Вродь так

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
var i,j,k,n,m:longint;
    a:array[1..100,1..100] of longint;
    num:array[1..100] of longint;
    sr:real;
 
begin
    readln(n,m);
    for i:=1 to n do
       for j:=1 to m do
          read(a[i,j]);
    k:=0;
    for i:=1 to m do
      if a[1,i]>a[2,i]
         then
             begin
                  inc(k);
                  num[k]:=i;
             end;
    writeln;
    for i:=1 to k do
       write(num[i],' ');
    writeln;
    for i:=1 to k do
      begin
          sr:=0;
          for j:=1 to n do
             sr:=sr+a[j,num[i]];
          sr:=sr/n;
          writeln(a[1,num[i]]-sr:0:4);
      end;
 
end.

14.02.2008, 19:56

а оператор longint что делает ,просто мы такой не проходили!!

@Lord_Voodoo · 14.02.2008, 20:48

Сообщение от Гость

а оператор longint что делает ,просто мы такой не проходили!!

вообще-то longint - это тип данных

14.02.2008, 20:52

чет не работает!!
а знаешь как делать через внешний файл?
типа :
var
...............
f:text;
begin
assign(f,'G:\pos\labs.txt');
reset(f);
writeln('Исходная матрица');
..................
.......
...
......и.т.д.

а в файле labs.txt пишем:
1 5 7 2 3 4 5 1 4 и так далее в зависимости от размера матрицы!

вот тока у меня не получается( не хочет запускаться)
тыкаешь Run а на экране ничего не меняется!!!

@Lord_Voodoo · 14.02.2008, 20:53

Сообщение от SanSimeon

чет не работает!!
а знаешь как делать через внешний файл?
типа :
var
...............
f:text;
begin
assign(f,'G:\pos\labs.txt');
reset(f);
writeln('Исходная матрица');
..................
.......
...
......и.т.д.

а в файле labs.txt пишем:
1 5 7 2 3 4 5 1 4 и так далее в зависимости от размера матрицы!

вот тока у меня не получается( не хочет запускаться)
тыкаешь Run а на экране ничего не меняется!!!

сырцы покажи, может и увижу, что не так

14.02.2008, 21:09

спасиб!! все сделал, довел до ума!!!

Новые блоги и статьи Все статьи Все блоги /
Образование и практика Igor3D 21.03.2025 Добрый день А вот каково качество/ эффективность ВУЗовского образования? Аналитическая геометрия изучается в первом семестре и считается довольно легким курсом, что вполне справедливо. Ну хорошо,. . .	Lazarus. Таблица с объединением ячеек. Massaraksh7 21.03.2025 Понадобилась представление на экране таблицы с объединёнными ячейками. И не одной, а штук триста, и все разные. На Delphi я использовал для этих целей TStringGrid, и то, кривовато получалось. А в. . .	Async/await в Swift: Асинхронное программирование в iOS mobDevWorks 20.03.2025 Асинхронное программирование долго было одной из самых сложных задач для разработчиков iOS. В течение многих лет мы сражались с замыканиями, диспетчеризацией очередей и обратными вызовами, чтобы. . .	Колмогоровская сложность: Приёмы упрощения кода ArchitectMsa 20.03.2025 Наверное, каждый программист хотя бы раз сталкивался с кодом, который напоминает запутанный лабиринт — чем дальше в него погружаешься, тем сложнее найти выход. И когда мы говорим о сложности кода, мы. . .	PostgreSQL в Kubernetes: Подготовка кластера и настройка Mr. Docker 20.03.2025 Когда доходит до контейнеризации баз данных и особенно таких требовательных к ресурсам системах как PostgreSQL, многие команды до сих пор колеблются, прежде чем перенести их в контейнерную. . .
C++26: Индексирование пакетов и метапрограммирование bytestream 20.03.2025 Эволюция C++ продолжается стремительными темпами – каждый новый стандарт приносит функциональность, о которой мы мечтали годами. Звучит слишком громко? Если вы когда-либо боролись с вариадическими. . .	Состояние гонки в C#: подводные камни многопоточного программирования UnmanagedCoder 20.03.2025 Что такое состояние гонки? Это ситуация, когда результат программы непредсказуемо меняется в зависимости от порядка выполнения потоков. Проще говоря, два или более потока пытаются одновременно. . .	Next.js для разработки React: преимущества серверного рендеринга Reangularity 20.03.2025 Next. js решает классическую проблему React-приложений: медленную первоначальную загрузку и плохую индексацию поисковиками. Вместо того чтобы заставлять браузер пользователя выполнять всю работу по. . .	JUnit или TestNG: Выбираем Java-фреймворк для тестирования Javaican 20.03.2025 История тестовых фреймворков в Java началась в конце 90-х, когда Кент Бек и Эрих Гамма разработали JUnit - инструмент, который перевернул представление разработчиков о модульном тестировании. JUnit. . .	Разбиваем монолит на два микросервиса и реализуем CI/CD ArchitectMsa 20.03.2025 Когда команда растет, а функциональность монолита расширяется, поддерживать и развивать такую систему становится все труднее. Разработчики начинают тратить много времени на разбор сложных. . .

SanSimeon

	Для заданной матрицы вывести массив из номеров столбцов, в которых второй элемент меньше первого 13.02.2008, 19:47. Показов 2006. Ответов 6 Метки нет (Все метки) Народ помогите плизз решить задачку на поскале: Для заданной матрицы(размер ввести с клавиатуры) выведите массив из номеров столбцов, в которых второй элемент меньше первого. Из первых элементов этих столбцов вычесть средние арифметические всего столбца

Гость
	14.02.2008, 19:56
	а оператор longint что делает ,просто мы такой не проходили!!

@Lord_Voodoo Почетный модератор 8784 / 2537 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	14.02.2008, 20:48
	Сообщение от Гость а оператор longint что делает ,просто мы такой не проходили!! вообще-то longint - это тип данных 0

SanSimeon
	14.02.2008, 20:52
	чет не работает!! а знаешь как делать через внешний файл? типа : var ............... f:text; begin assign(f,'G:\pos\labs.txt'); reset(f); writeln('Исходная матрица'); .................. ....... ... ......и.т.д. а в файле labs.txt пишем: 1 5 7 2 3 4 5 1 4 и так далее в зависимости от размера матрицы! вот тока у меня не получается( не хочет запускаться) тыкаешь Run а на экране ничего не меняется!!!

@Lord_Voodoo Почетный модератор 8784 / 2537 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	14.02.2008, 20:53
	Сообщение от SanSimeon чет не работает!! а знаешь как делать через внешний файл? типа : var ............... f:text; begin assign(f,'G:\pos\labs.txt'); reset(f); writeln('Исходная матрица'); .................. ....... ... ......и.т.д. а в файле labs.txt пишем: 1 5 7 2 3 4 5 1 4 и так далее в зависимости от размера матрицы! вот тока у меня не получается( не хочет запускаться) тыкаешь Run а на экране ничего не меняется!!! сырцы покажи, может и увижу, что не так 0

Гость
	14.02.2008, 21:09
	спасиб!! все сделал, довел до ума!!!

Опции темы