X   Сообщение сайта
(Сообщение закроется через 3 секунды)



 

Здравствуйте, гость ( Вход | Регистрация )

2 страниц V   1 2 >
Открыть тему
Тема закрыта
> Вопрос по Паскалю, фри помощь
Minato
Minato
Topic Starter сообщение 24.11.2010, 22:28; Ответить: Minato
Сообщение #1


Старожил
******

Группа: Banned
Сообщений: 1378
Регистрация: 24.8.2010
Из: Оренбург
Поблагодарили: 267 раз
Репутация:   37  


Всем добрый вечер. Требуется помощь по Турбо паскалю, интересует двумерный массив. Блин я плохо разбираюсь, если кто за "free" может написать прогу буду очень благодарен.
Здание: Найти сумму элементов массива 6х6, находящихся над главной диагональю

Готовлюсь к олимпиаде, одномерный массив понимаю, а с двумерным никак.


--------------------
Бан за кидок трудового народа.
0
Вернуться в начало страницы
 
Ответить с цитированием данного сообщения
tyz091191
tyz091191
сообщение 24.11.2010, 22:33; Ответить: tyz091191
Сообщение #2


Бывалый
****

Группа: User
Сообщений: 304
Регистрация: 22.2.2009
Из: Рязань
Поблагодарили: 82 раза
Репутация:   18  


хех, вспоминаю первый курс)))
Вернуться в начало страницы
 
Ответить с цитированием данного сообщения
Dinamitt
Dinamitt
сообщение 24.11.2010, 22:33; Ответить: Dinamitt
Сообщение #3


Старожил
******

Группа: Active User
Сообщений: 1342
Регистрация: 7.9.2009
Поблагодарили: 624 раза
Репутация:   97  


Minato, литературы кругом достаточно. Зачем идти на олимпиаду если не понимаете? dead.gif
Вернуться в начало страницы
 
Ответить с цитированием данного сообщения
Minato
Minato
Topic Starter сообщение 24.11.2010, 22:39; Ответить: Minato
Сообщение #4


Старожил
******

Группа: Banned
Сообщений: 1378
Регистрация: 24.8.2010
Из: Оренбург
Поблагодарили: 267 раз
Репутация:   37  


к олимпиадам готовятся, а во время подготовки возникают проблемы. Ну у меня там вообще отдельный случай, в общем не надо говорить, "не понимаешь не лезь тогда"


--------------------
Бан за кидок трудового народа.
Вернуться в начало страницы
 
Ответить с цитированием данного сообщения
rus-xp
rus-xp
сообщение 24.11.2010, 22:41; Ответить: rus-xp
Сообщение #5


клоновод
*****


Группа: Banned
Сообщений: 647
Регистрация: 19.4.2009
Поблагодарили: 147 раз
Репутация:   23  


Type
Vector = array [1..6] of integer;
Matrix= array [1..12] of vector;
Var m: matrix;

i, j, sum: integer;  
begin

sum:=0;
   for i :=1 to 6 do  
      for j :=1 to 12 do
         readln ( a [ i , j ]);
for i :=1 to 6 do  
begin
   for j :=1 to 12 do
      write ( a [ i , j ]:5);
   writeln;
end;

if i<j then
  sum:=sum+m[i,j];

writeln("Summa =",sum);
end.


Давно в с++ ушел. Но должно работать(не проверял)

Сообщение отредактировал rus-xp - 24.11.2010, 22:44


--------------------
бан за клоноводство и обман администрации форума
Вернуться в начало страницы
 
Ответить с цитированием данного сообщения
Stinker007
Stinker007
сообщение 24.11.2010, 22:42; Ответить: Stinker007
Сообщение #6


кидала
******

Группа: Banned
Сообщений: 1740
Регистрация: 2.1.2009
Поблагодарили: 351 раз
Репутация:   46  


dll.gsu.by правда не знаю, есть ли доступ не студентам, там файлы по всем темам и куча заданий.

Dinamitt по паскалю книг нормальных нету, одна ахинея написана, пока поймёшь что-то перечитаешь ..... кучу ерунды.

Minato, если сможете получить доступ, то сразу заходите на форум и первый курс этого года, прошлые года обычно удаляются, находите нужную тему и качайте файлик, ну или решайте задачи, там они с подсказками и как-раз подготовитесь.


--------------------
кидала


Поблагодарили: (1)
Вернуться в начало страницы
 
Ответить с цитированием данного сообщения
bitrixoid
bitrixoid
сообщение 24.11.2010, 22:43; Ответить: bitrixoid
Сообщение #7


клоновод
******

Группа: Banned
Сообщений: 1951
Регистрация: 27.4.2009
Поблагодарили: 1118 раз
Репутация:   166  


в общем виде - генерим двойным циклом for рандомный массив, таким же образом и проводим вычисления: если i>j, т.е. номер строчки больше номера стоблца, а значит элемент под этими номерами "выше" главной диагонали, то sum:=sum+array(i,j)

Синтаксиса нифига не помню, задача простейшая. Параолимпиада чтоли?


--------------------
клоновод


Поблагодарили: (1)
Вернуться в начало страницы
 
Ответить с цитированием данного сообщения
rus-xp
rus-xp
сообщение 24.11.2010, 22:43; Ответить: rus-xp
Сообщение #8


клоновод
*****


Группа: Banned
Сообщений: 647
Регистрация: 19.4.2009
Поблагодарили: 147 раз
Репутация:   23  


если есть вопросы, задавай, готов ответить, только в ЛС, не хочу оффтопик создавать.
Программа выдает матрицу, ниже сумму. Хотя наверное стоит сделать рандомным заполнение, замаишься вводить каждый раз 36 элементов.


--------------------
бан за клоноводство и обман администрации форума


Поблагодарили: (1)
Вернуться в начало страницы
 
Ответить с цитированием данного сообщения
Minato
Minato
Topic Starter сообщение 24.11.2010, 22:48; Ответить: Minato
Сообщение #9


Старожил
******

Группа: Banned
Сообщений: 1378
Регистрация: 24.8.2010
Из: Оренбург
Поблагодарили: 267 раз
Репутация:   37  


rus-xp, bitrixoid, Stinker007, спасибо большое
rus-xp, вам вдвойне спасибо, сейчас проверю


--------------------
Бан за кидок трудового народа.
Вернуться в начало страницы
 
Ответить с цитированием данного сообщения
1807
1807
сообщение 25.11.2010, 11:57; Ответить: 1807
Сообщение #10


Участник
***


Группа: User
Сообщений: 160
Регистрация: 27.8.2010
Поблагодарили: 14 раз
Репутация:   3  


for i :=1 to 6 do

2 раза задавать не нужно )


--------------------
Куплю подписи, дорого
Помогу с установкой сапы бесплатно ICQ 9886806
Вернуться в начало страницы
 
Ответить с цитированием данного сообщения
2 страниц V   1 2 >
Открыть тему
Тема закрыта
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0


Свернуть

> Похожие темы

  Тема Ответов Автор Просмотров Последний ответ
Открытая тема (нет новых ответов) Вопрос по поводу цен на сайте
16 WildWeb8 955 13.5.2018, 17:40
автор: genjnat
Открытая тема (нет новых ответов) Вопрос к тем, кто зарабатывает на недвижимости?
Как заработать на недвижке.?
15 Dross 2764 26.4.2018, 18:26
автор: megachange
Открытая тема (нет новых ответов) Вопрос по сетке сайтов
Стоит ли так делать?
10 asskra 1441 12.4.2018, 22:33
автор: Ancitrus
Открытая тема (нет новых ответов) Вопрос по расингу контента
5 gold15 673 2.4.2018, 19:18
автор: mmkulikov
Открытая тема (нет новых ответов) Вопрос по метрике
3 Bel_Ami 732 6.3.2018, 16:48
автор: richif


 



RSS Текстовая версия Сейчас: 27.5.2018, 5:03
Дизайн