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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> [Pascal] Матрица и алфавит (упорядочить) 
V
    Опции темы
Jam
Дата 20.10.2006, 16:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Нужно сделать матрицу размером 5 на 6 в которой бы упорядочивались по алфавиту буквы и постоянно обновлялись.
Cделайте пожалуйста.
Заранее очень благодарен!
PM MAIL   Вверх
Alexeis
Дата 20.10.2006, 16:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


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

Репутация: 23
Всего: 459
Цитата(Jam @  20.10.2006,  16:39 Найти цитируемый пост)
упорядочивались по алфавиту буквы

Откуда берутся буквы?
Цитата(Jam @  20.10.2006,  16:39 Найти цитируемый пост)
и постоянно обновлялись.

По какому событию?


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

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

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


Шустрый
*


Профиль
Группа: Участник
Сообщений: 72
Регистрация: 15.10.2006
Где: Монголия, Эрдэнэт

Репутация: нет
Всего: нет
Что значит - "и постоянно обновлялись"? И как упорядочить -сначала по строкам или по столбцам? 
PM ICQ   Вверх
Jam
Дата 20.10.2006, 16:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Буквы выводятся по алфавиту а откуда им браться еще? smile Братцы я новичок поэтому вот как могу объясняю.
Ну просто строчки выводились по горизонтали.
abcd...
gh....
...yz
И вот так вот в лево бегали и все это размером 5 на 6.
PM MAIL   Вверх
Alexeis
Дата 20.10.2006, 17:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


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

Репутация: 23
Всего: 459
Цитата(Jam @  20.10.2006,  16:58 Найти цитируемый пост)
И вот так вот в лево бегали

Кто бегал?
Вся матрица целиком? Насколько бегала? На 5, 10, 50 символов?


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

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

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


Новичок



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

Репутация: нет
Всего: нет
Вот в ряд по одно букве чтобы появлялось a,b,c на следующей строке d,e А на сколько это уже как места хватит она же 5 на 6 должна быть.
Ну или что бы вряд примерно поровну было. (весь алфавит) 
PM MAIL   Вверх
Alexeis
Дата 20.10.2006, 20:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


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

Репутация: 23
Всего: 459
Может это?
Код

program a;
var
 ch : Char;
Begin
  for ch := 'a' to 'f' do
  write(ch, ' ');
  writeln;
  for ch := 'g' to 'l' do
  write(ch, ' ');
  writeln;
  for ch := 'm' to 'r' do
  write(ch, ' ');
   writeln;
  for ch := 's' to 'x' do
  write(ch, ' ');
   writeln;
  for ch := 'y' to 'z' do
  write(ch, ' ');
   writeln;
  readln;
end.



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

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

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


Опытный
**


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

Репутация: нет
Всего: 25
alexeis1, еще Delay для красоты вызывать в каждом цикле smile


--------------------
user posted image
PM WWW ICQ   Вверх
Alexeis
Дата 21.10.2006, 01:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


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

Репутация: 23
Всего: 459
Цитата(Hidrag @  20.10.2006,  23:29 Найти цитируемый пост)
еще Delay для красоты вызывать в каждом цикле

Не могу потому как делал консоль... только sleep;


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

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

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


Новичок



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

Репутация: нет
Всего: нет
Да точно так, только их еще надо анимировать чтобы они по одной или строчкой выходили  smile 
PM MAIL   Вверх
Kuvaldis
Дата 21.10.2006, 11:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

Репутация: 32
Всего: 61
Jam, 
Код

var
  i, j : integer;
  letter : char;
begin
  i := 1;

  for letter := 'A' to 'Z' do
  begin
      write(letter : 2);
      for j := 1 to 100000000 do      // delay - задержка перед выводом 
           ;
      if (i = 6) then
         writeln;
      i := (i + 1) mod 7 + 1;
  end;
  writeln;
  readln;

end.


Это сообщение отредактировал(а) Kuvaldis - 21.10.2006, 11:31


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


Новичок



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

Репутация: нет
Всего: нет
Delay ошибку выдает smile 
Я вот так переделал - это грамотно будет или нет?
Код

var
  i, j : integer;
  letter : char;
begin
writeln('Press enter');
readln;
  i := 1;
  for letter := 'A' to 'Z' do
  begin
      write(letter : 2);
      for j := 1 to 1000 do;
            if (i = 6) then
         writeln;
      i := (i + 1) mod 7 + 1;
  end;
  writeln;
  readln;
end.


И покрасить не получается.
А замедлить вывод букв можно?

Модератор: Кнопка код позволяет выбрать тип подсветки из списка

Это сообщение отредактировал(а) alexeis1 - 21.10.2006, 13:13
PM MAIL   Вверх
Alexeis
Дата 21.10.2006, 12:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


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

Репутация: 23
Всего: 459
Да уж точно
Код

for j := 1 to 100000000 do      // delay - задержка перед выводом 
           ;

не самый лучший способ, лучше Delay(200);

Добавлено @ 13:02 
Цитата(Jam @  21.10.2006,  12:58 Найти цитируемый пост)
Delay ошибку выдает

Какую?

Добавлено @ 13:11 
Нужен был модуль CRT.
Код

program a;
Uses Crt;
var
  i, j : integer;
  letter : char;
begin
  clrscr;
  i := 1;
  for letter := 'A' to 'Z' do
  begin
    write(letter : 2);

    Delay(2000);

    if (i = 6)
    then
      writeln;

    i := (i + 1) mod 7 + 1;
  end;
  writeln;
  readkey;
end.




Это сообщение отредактировал(а) alexeis1 - 21.10.2006, 13:00


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

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

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


Новичок



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

Репутация: нет
Всего: нет
alexeis1
Ура все работает!

И еще братцы пара вопросов, как теперь покрасить сие чудо.
И если не сложно кратенькое объяснение этому коду. (что где и зачем)

Пардон за подсветку.


Это сообщение отредактировал(а) Jam - 21.10.2006, 13:44
PM MAIL   Вверх
Alexeis
Дата 21.10.2006, 14:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


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

Репутация: 23
Всего: 459
Jam, попробуй посмотреть справу по 
SetColor или
SetTextColor
Извини не могу сейчас проверить


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

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

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Страницы: (3) Все [1] 2 3 
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Центр помощи"

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


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

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

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

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


 




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


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

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