Модераторы: Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> [Delphi] Массив данных, составить программу вычисления 
V
    Опции темы
CIBRAIKER
Дата 25.8.2010, 22:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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



Доброго времени суток! Попалось задание по Паскалю, а программер из меня никакой, помогите кот чем сможет, плюсик в репу не пожалею, зарание спасибо.  smile 

Задание: Дан массив NxM. Составить программу вычисления.
Сколько рядков содержат значения К, вывести на экран номера этих рядков.
--------------------
Что такое майонез - это драйвер для борьща!    
PM MAIL ICQ   Вверх
Данкинг
Дата 25.8.2010, 23:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

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



Не помню синтаксиса Паскаля, да и нет у меня его компилятора. Могу примерно накидать:
Код

var
 mas: array [1..n,1..m] of integer;
 k,x,y:integer;
begin
 for y:=1 to n do
  for x:=1 to m do
   if mas[y,x]=k then
    begin
    writeln(x);
    break;
    end;
end;

Если что не так - сильно меня не материть. smile 

Это сообщение отредактировал(а) Данкинг - 25.8.2010, 23:20


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
CIBRAIKER
Дата 26.8.2010, 00:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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



О, класс, нуна проверить...
ЗЫ: есть ещё какие-нибудь варианты, но что б со 100% уверенностью в синтаксисе?
--------------------
Что такое майонез - это драйвер для борьща!    
PM MAIL ICQ   Вверх
Keeper89
Дата 26.8.2010, 00:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

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



Цитата(Данкинг @  25.8.2010,  23:20 Найти цитируемый пост)
Не помню синтаксиса Паскаля

Цитата(CIBRAIKER @  25.8.2010,  22:55 Найти цитируемый пост)
а программер из меня никакой

Ну хотя бы запустить надо суметь smile



--------------------
PM MAIL WWW   Вверх
Данкинг
Дата 26.8.2010, 00:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

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



Цитата(CIBRAIKER @  26.8.2010,  01:13 Найти цитируемый пост)
ЗЫ: есть ещё какие-нибудь варианты, но что б со 100% уверенностью в синтаксисе? 

Цитата(Keeper89 @  26.8.2010,  01:19 Найти цитируемый пост)
Ну хотя бы запустить надо суметь

Если программа хотя бы раз не запущена, то на 100% быть уверенным в правильности её работы нельзя. smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
THandle
Дата 26.8.2010, 11:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

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



Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!

Добавлено через 1 минуту и 57 секунд
Данкинг, у тебя ж никакие данные не введены, так не заработает)

Вот полная программа:

С выводом массива:
Код


program Project1;

const
  M = 5;
  N = 5;
var
  K: Integer;
  I, J: Integer;
  A: Array [1..M, 1..N] of Integer;

begin
  Randomize;
  for I := 1 to M do
  begin
    for J := 1 to N do
    begin
      A[I, J] := Random(10);
      Write(A[I, J], ' ');
    end;
    WriteLn;
  end;
  Write('Enter K: ');
  ReadLn(K);
  for I := 1 to M do
    for J := 1 to N do
      if A[I, J] = K then
      begin
        WriteLn('K in line ', I);
        Break;
      end;
  ReadLn;
end.



Или без вывода:

Код


program Project1;

const
  M = 5;
  N = 5;
var
  K: Integer;
  I, J: Integer;
  A: Array [1..M, 1..N] of Integer;

begin
  Randomize;
  for I := 1 to M do
    for J := 1 to N do
      A[I, J] := Random(10);
  Write('Enter K: ');
  ReadLn(K);
  for I := 1 to M do
    for J := 1 to N do
      if A[I, J] = K then
      begin
        WriteLn('K in line ', I);
        Break;
      end;
  ReadLn;
end.

PM   Вверх
Данкинг
Дата 26.8.2010, 11:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

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



Цитата(THandle @  26.8.2010,  12:29 Найти цитируемый пост)
Данкинг, у тебя ж никакие данные не введены, так не заработает)

Ну так понятно, что не введены, я подразумевал, что массив уже заполнен. smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
CIBRAIKER
Дата 26.8.2010, 13:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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



Цитата(THandle @  26.8.2010,  10:29 Найти цитируемый пост)
Для домашних заданий, курсовых, существует "Центр Помощи".
 Понятненько, бум знать. smile 

Цитата(THandle @  26.8.2010,  10:29 Найти цитируемый пост)
Вот полная программа:
О, а оказывается она не такая уже и сложная, если посидеть и поразбираться в ней, осталось только в компилятор запихнуть. smile 

--------------------
Что такое майонез - это драйвер для борьща!    
PM MAIL ICQ   Вверх
CIBRAIKER
  Дата 8.9.2010, 15:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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



Спасибо, работает. THandle +1.   smile 
--------------------
Что такое майонез - это драйвер для борьща!    
PM MAIL ICQ   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Центр помощи"

ВНИМАНИЕ! Прежде чем создавать темы, или писать сообщения в данный раздел, ознакомьтесь, пожалуйста, с Правилами форума и конкретно этого раздела.
Несоблюдение правил может повлечь за собой самые строгие меры от закрытия/удаления темы до бана пользователя!


  • Название темы должно отражать её суть! (Не следует добавлять туда слова "помогите", "срочно" и т.п.)
  • При создании темы, первым делом в квадратных скобках укажите область, из которой исходит вопрос (язык, дисциплина, диплом). Пример: [C++].
  • В названии темы не нужно указывать происхождение задачи (например "школьная задача", "задача из учебника" и т.п.), не нужно указывать ее сложность ("простая задача", "легкий вопрос" и т.п.). Все это можно писать в тексте самой задачи.
  • Если Вы ошиблись при вводе названия темы, отправьте письмо любому из модераторов раздела (через личные сообщения или report).
  • Для подсветки кода пользуйтесь тегами [code][/code] (выделяйте код и нажимаете на кнопку "Код"). Не забывайте выбирать при этом соответствующий язык.
  • Помните: один топик - один вопрос!
  • В данном разделе запрещено поднимать темы, т.е. при отсутствии ответов на Ваш вопрос добавлять новые ответы к теме, тем самым поднимая тему на верх списка.
  • Если вы хотите, чтобы вашу проблему решили при помощи определенного алгоритма, то не забудьте описать его!
  • Если вопрос решён, то воспользуйтесь ссылкой "Пометить как решённый", которая находится под кнопками создания темы или специальным флажком при ответе.

Более подробно с правилами данного раздела Вы можете ознакомится в этой теме.

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Poseidon, Rodman

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


 




[ Время генерации скрипта: 0.0753 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.