 Две задачки |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| Dushka |
 21.06.2010 11:43
Сообщение
#1
|
|
Новичок  Группа: Пользователи Сообщений: 13 Пол: Женский Репутация:  0   |
Учитель по информатике сказал что задачки простые, но для меня они темный лес. Может сможете мне помочь. Заранее благодарна .
1. Найти количество цифр кратных старшей цифре числа 2. В массиве 7*7 расставить строки в порядке возрастания количество четных чисел в их |
   |
 
|
  |
Ответов
| Krjuger |
12.06.2011 18:55
Сообщение
#2
|
|
Профи Группа: Пользователи Сообщений: 652 Пол: Мужской Реальное имя: Алексей Репутация: 20 |
Хех еще 9 дней и был бы ровно год с того момента как вам ответили.Вы более конкретно скажите что не можете описать словами?уж вывод на экран вы должны понимать как производиться в процедуре output.Если в кратце,то функция getodd считает количество НЕчетных чисел в строке и выводит в качестве результата.Функция swap меняет местами 2 строки.
А дальше остновная программа.В цикле проверяем,если количество нечетных в текущей строке больше чем в следующей,то меняем местами. Сообщение отредактировано: Krjuger - 12.06.2011 19:03 |
|
|
|
Сообщений в этой теме
Dushka Две задачки 21.06.2010 11:43
Unconnected Первая:
var i,n,res:integer;
begin
writeln(... 21.06.2010 11:56 Dushka Спасибо большое тебе Unconnected, осталась еще одн... 21.06.2010 12:08 Ozzя
Принципиально - не БУДУ. Ровно до тех пор, пока ... 21.06.2010 12:08 Dushka Запятые, перед "что" и перед "сможе... 21.06.2010 12:15 Unconnected №2:
const m=7;
var mas:array [1..m,1..m] of byte;
... 21.06.2010 12:16 Ozzя
Молодец. Еще тире после "они".
Жду Ваш... 21.06.2010 12:18 Dushka ААААААааааааааааааааааааа, расцеловала бы, большое... 21.06.2010 12:19 Ozzя
Знаю. :(
Dushka
Добрый дедушка Unconnected таки... 21.06.2010 12:20 Dushka Не могу поставить, не нажимается. Почему? 21.06.2010 12:29 Ozzя
Постов - маловато будет. Я поставлю за Вас, ежели... 21.06.2010 12:36 Гость Спасибо и вам:) Возражении не имею! 21.06.2010 12:37 Dushka Я снова вернулась :) , попросили обосновать задач... 12.06.2011 14:50 Dushka Саму суть задач мне бы разжевать :unsure: 14.06.2011 8:09 Krjuger Ну смотри у тебя есть массив 7х7 в нем в произволь... 14.06.2011 10:30 Dushka Так, во вторую задачу вроде как вклинилась, а можн... 15.06.2011 15:18 IUnknown Ну, первую, для начала, надо правильно решить, пре... 15.06.2011 17:19 Unconnected Ну, если задание и правда такое, то вот, лучше поз... 15.06.2011 18:52 IUnknown Это неправильное решение. Введи 5735, и удивись, а... 15.06.2011 19:09 Unconnected Огоо, вот это бы я долго ловил..) Добавил в тот по... 15.06.2011 19:16 Dushka Почему-то результат теперь не показывает. 16.06.2011 13:43 Unconnected var oldest,c:char;
oldestv,r:byte;
begin
r:=... 16.06.2011 15:19
Lapp [code=pas]var oldest,c:char;
oldestv,r:byte;
b... 17.06.2011 3:42 Dushka Мне предлагается все время вводить число :wink: 16.06.2011 16:23 Unconnected Ну так ввела число и энтэр вводи.) 16.06.2011 16:26 Dushka Ввожу, нажимаю и опять ввожу и опять нажимаю .... 16.06.2011 18:39 IUnknown Если у тебя PascalABC - то просто убери последний ... 16.06.2011 20:07 Dushka не помогло :wink: 16.06.2011 20:28 IUnknown Значит, выкини свой старый компилятор и возьми на ... 16.06.2011 20:38 Dushka запустила в делфи, заработало, спасибо, а можно те... 16.06.2011 21:13 Unconnected
Не знаю, мне кажется не подразумевались в условии... 17.06.2011 9:25 Lapp Не знаю, мне кажется не подразумевались в условии ... 17.06.2011 9:40 |
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 4.07.2025 13:24 |