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



 

Здравствуйте, гость (

| Вход | Регистрация )

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


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

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


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


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


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


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


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


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


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

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

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


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


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


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

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


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


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


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


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


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


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


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


for i :=1 to 6 do

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


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


Свернуть

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

  Тема Ответов Автор Просмотров Последний ответ
Открытая тема (нет новых ответов) Вопрос - платное размещение баннеров на сайте
10 WGN 3184 14.12.2020, 14:20
автор: Peterson
Открытая тема (нет новых ответов) Вопрос по рекламе в "инстаграме"
Только активные аккаунты могут создавать или редактировать рекламу
8 Zubkov 16052 17.1.2020, 17:49
автор: Forumacc
Горячая тема (нет новых ответов) Тема имеет прикрепленные файлыВопрос-ответ о работе форума
307 dos1k 43322 9.11.2019, 17:59
автор: heks
Открытая тема (нет новых ответов) Жена логопед, собрался ей приводить клиентов. Встал вопрос, куда приводить.
В теме перечисление доступного мне продвижения, но с чего начать?
9 memeplex 3726 16.2.2019, 15:45
автор: zyzy
Открытая тема (нет новых ответов) Предлагаю размещение качественных ссылок на форумах и сервисах вопрос ответ
21 ПроФФи 5019 2.3.2018, 20:56
автор: ShowPrint


 



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