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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> [Delphi] Двумерные массивы. 
V
    Опции темы
AlexArs
Дата 26.10.2006, 09:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: 5
Всего: 5
Помогите решить задачу по делфи!!! 

Составить и отладить программу решения следующей задачи на тему «Двумерные массивы»:
Задан целочисленный двумерный массив размера 3х4. Вывести на экран массив в виде матрицы, состоящей из трех строк и четырех столбцов, и выполнить задание:

Найти сумму элементов первой и третьей строк матрицы.

Прикрепите пожалуйста исходник!! Буду очень благодарен!! 


Это сообщение отредактировал(а) alexeis1 - 28.10.2006, 22:41
--------------------
Тихоокеанский Государственный Экономический Университет
PM MAIL WWW ICQ   Вверх
Guedda
Дата 26.10.2006, 10:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Подрывник
****


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

Репутация: 6
Всего: 78
Код

program Slojenie;

{$APPTYPE CONSOLE}

uses
  Windows;

var
  Massive : array[0..2, 0..3] of Integer; //это, собственно, массив
  i,j : Integer;
  Sum : Integer;

procedure Zapolnenie;
begin
  for i := 0 to 2 do
    for j := 0 to 3 do begin
      Writeln('Введите элемент матрицы, находящийся в ячейке [' + IntToStr(i + 1) + '][' + IntToStr(j + 1) + ']');
      Read(Massive[i,j]);
    end;
end;

begin
  Zapolnenie;
  Writeln;
  Writeln('Вывод матрицы');
  for j := 0 to 3 do begin
    for i := 0 to 2 do begin
      Write(IntToStr(Massive[i,j]));
    end;
    Writeln;
  end;
  Writeln;
  for i := 0 to 2 do
    Sum := Sum + Massive[i,0] + Massive[i,2];
  Writeln('Сумма первой и третьей строки равно: ');
  Writeln(IntToStr(sum));
  Readln;
end.


Присоединённый файл ( Кол-во скачиваний: 7 )
Присоединённый файл  Massive.dpr 0,77 Kb


--------------------
Ll 2
PM MAIL WWW ICQ Skype GTalk   Вверх
AlexArs
Дата 26.10.2006, 11:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: 5
Всего: 5
Требовония к задаче:
1. Язык Delphi.
2. Графическая оболочка.

Guedda 
Прога непашет!
--------------------
Тихоокеанский Государственный Экономический Университет
PM MAIL WWW ICQ   Вверх
Palladin
Дата 26.10.2006, 22:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 3
Всего: 17
Прогу Гуедда не тестил, поэтому написал свою smile 
Код

program Slojenie;

{$APPTYPE CONSOLE}

uses
  Windows;

var
  a: array[0..2, 0..3] of Integer;
  i,j : Integer;
  S,s1,s2: Integer;

begin
for i:=0 to 2 do
for j:=0 to 3 do
begin
Writeln('A[',i,j,']= ');
Readln(a[i,j]);
end;
i:=0; s1:=0; s2:=0; s:=0;

for j:=0 to 3 do
s1:=s1+a[i,j];

i:=2;

for j:=0 to 3 do
s2:=s2+a[i,j];

for j := 0 to 3 do begin
for i := 0 to 2 do begin
Write(a[i,j]);
end;
Writeln;
end;

Write('Summa pervoe stroki ravna: ',s1);
Write('Summa vtoroy stroki ravna: ',s2);
s:=s1+s2;
write('Summa 1-oy i 3-ey stroki ravna: ',s);
Readln;
end.




--------------------
Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]
PM MAIL   Вверх
AlexArs
Дата 26.10.2006, 23:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: 5
Всего: 5
RooR, 
мне в графическом приложении надо а не в консольном , но все равно спасибо!!
--------------------
Тихоокеанский Государственный Экономический Университет
PM MAIL WWW ICQ   Вверх
Kuvaldis
Дата 27.10.2006, 00:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


механик-вредитель
***


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

Репутация: 32
Всего: 61
AlexArs, 
Например, так

Это сообщение отредактировал(а) Kuvaldis - 27.10.2006, 00:30

Присоединённый файл ( Кол-во скачиваний: 5 )
Присоединённый файл  Matrix.zip 5,10 Kb


--------------------
Помни - когда ты спишь, враг не дремлет
Спи чаще и дольше, изматывай врага бессоницей
PM MAIL ICQ   Вверх
AlexArs
Дата 27.10.2006, 07:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: 5
Всего: 5
Kuvaldis
большое спасибо!!!
все пашет!!!
--------------------
Тихоокеанский Государственный Экономический Университет
PM MAIL WWW ICQ   Вверх
Guedda
Дата 27.10.2006, 08:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Подрывник
****


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

Репутация: 6
Всего: 78
Цитата(AlexArs @  26.10.2006,  12:47 Найти цитируемый пост)
1. Язык Delphi.

Delphi = это не язык, а среда разработке. А язык называется Object Pascal, на котором Дельфя основана  smile 

А программа моя работает... А про интерфейс ты ничего и не говорил... Поэтому я и сделал консольное приложение. Извиняюсь  smile 


--------------------
Ll 2
PM MAIL WWW ICQ Skype GTalk   Вверх
AlexArs
Дата 28.10.2006, 14:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: 5
Всего: 5
Guedda, 
Извини но прога точно не работала у меня , не компилировалась!
--------------------
Тихоокеанский Государственный Экономический Университет
PM MAIL WWW ICQ   Вверх
Ripper
Дата 28.10.2006, 21:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Lonely soul...
**


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

Репутация: 6
Всего: 23
Guedda, говорили вроде что начиная с какой то (вроде с 7) версии это уже как бы язык...хм...
хотя слухи


--------------------
"Он знает: надо смеяться над тем, что тебя мучит, иначе не сохранишь равновесия, иначе мир сведет тебя с ума" - Над кукушкиным гнездом
PM MAIL ICQ   Вверх
DarlkElfTen
Дата 28.10.2006, 21:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: 1
дык по моему это пазор не напсиать такого простого алгоритма....
антиреспект..хотя..
а тее зачем нада было?

ЗЫ:
Цитата

это не язык, а среда разработке. А язык называется Object Pascal, на котором Дельфя основана  

апсалютно точно..так бесит когда умники говорят на вопорс: "на каком яязыке пишешь?" - "Дэлфи"..надуф грудь..)
--------------------
"Две башни"
PM MAIL ICQ   Вверх
Alexeis
Дата 28.10.2006, 22:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 23
Всего: 459
Модератор: Прекращаем оффтоп. Обсуждайте сам язык в другой теме (тем таких немало уже). Ближе к теме, пожалуйста.

Это сообщение отредактировал(а) alexeis1 - 28.10.2006, 22:38


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
AlexArs
Дата 29.10.2006, 03:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: 5
Всего: 5
DarlkElfTen, 
Прога в универ нужна была, эта единственная которую я не сделал, с массивами напряг, не нашел толковой литературы!!!

Тему можно закрывать!!!
--------------------
Тихоокеанский Государственный Экономический Университет
PM MAIL WWW ICQ   Вверх
Alexeis
Дата 29.10.2006, 13:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 23
Всего: 459
Цитата(AlexArs @  29.10.2006,  03:10 Найти цитируемый пост)
Тему можно закрывать!!! 

Для этого нужно ее пометить решеной ("Пометить как решённый")


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Центр помощи"

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


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

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

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

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




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


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

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