VPF::сложные циклы (Pascal) - Форум программистов

rinov

Дата 7.1.2007, 23:49 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 7.1.2007

Репутация: нет
Всего: нет

нужна помощь в решении одной задачи)

Условие: В данной матрице определить количество столбцов, у котрых элементы расставлены в порядке возврастания

WERITAS

Дата 8.1.2007, 00:09 (ссылка)

(нет голосов)

Загрузка ...

********

Профиль
Группа: Участник
Сообщений: 582
Регистрация: 2.5.2005
Где: Москва

Репутация: нет
Всего: 5

И в чем проблема? Задавай матрицу, считай в цикле кол-во столбцов, удовл. поставленному условию

--------------------

Арт-менеджер клуба, разрешивший концерт Алексея Глызина, уволен с формулировкой "Мудак"

LesnoyChelovek

Дата 8.1.2007, 04:40 (ссылка)

(нет голосов)

Загрузка ...

странник Интернета

Профиль
Группа: Участник
Сообщений: 346
Регистрация: 27.2.2006
Где: Русь

Репутация: нет
Всего: 10

Вот такой вариант:

Код


program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var i,j,s,st,el,r:integer;
    m: array [1..10,1..10] of integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
Write('<==========Vvod matricy==========>');  //Ввод матрицы
Writeln;
Write('Razmer matricy=');
Read(r);
Writeln;

for i:=1 to r do
begin
for j:=1 to r do
begin
writeln;
write('m[',i,',',j,']=');
readln(m[i,j]);
end;
end;

Write('<==========Vvyvod matricy==========>');     //Вывод матрицы
for i:=1 to r do
begin
writeln;
for j:=1 to r do
write(m[i,j]:4);
end;


st:=0;          //Считай столбцы
for j:=1 to r do
begin
el:=1;
s:=m[1,j];
for i:=2 to r do
begin
inc(s);
if s<>m[i,j] then break
else el:=el+1;
if el=r then st:=st+1;
end;
end;

Writeln;
Writeln('<==========Itog==========>');
Writeln('Stolbcy=',st);

readln;
end.

Сама программа здесь.

--------------------

Делай добро и бросай его в воду... оно не утонет.. добром к тебе вернеться.
http://picasaweb.google.com/LesnoyChelovek/Photo

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »