Модераторы: volvo877, Snowy, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Экзамен по Паскалю, массивы и case of 
:(
    Опции темы
Neo007
Дата 24.4.2006, 17:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Такое дело: на этой неделе экзамен намечаеться по паскалю. И я вроде бы всё разобрал, тока вот с массивами у меня каша выходит...с двумерными.
На экзамене типо должно быть задание такое: дана программа состоящая из двумерных массивов, и кучи циклов. И я должен нарисовать картинку которая получиться. 
Подскажите какие нибудь примеры на которых можно потренироваться. Или же ссылку на сайт где есть такие задания.
И ещё такой вопрос: если у меня дана такая прога:
Код
var i, j, k, m, s      :integer;
label CASEPOINT;
begin
k:=17;
m:=k mod 3; //<-----эта запись означает что надо делить 17 на 3 без остатка?
CASEPOINT: case m of
2, 5 : begin m:=m+10; S:=0; goto CASEPOINT end; //<----- запись 2,5 означает что если у меня m не равно 2 или 5 то я пропускаю эту строчку?
1, 10: begin m:=m+15; S:=10; end; //<----- запись 1,10 означает что если у меня m не равно 1 или 10 то я пропускаю эту строчку?

else begin m:=m-2; goto CASEPOINT; end;
end;
writeln( 'm=', m, ' S=', S);
i:=10; S:=0;
for j:=1 to 5 do
begin
    if i>5 then i:=i+2 else i:=i+1;
    for k:=1 to 5 do
    begin
    i:=i+3;
    S:=S-1;
    end;
end;
writeln( 'i=', i, ' S=', S);
end.


Я правильно всё понял? обьясните если нет...и если можно похожие задачки привидите. Хочу потренироваться.     

Это сообщение отредактировал(а) Snowy - 24.4.2006, 17:17
PM MAIL   Вверх
Snowy
Дата 24.4.2006, 17:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: нет
Всего: 484
Цитата(Neo007 @  24.4.2006,  17:02 Найти цитируемый пост)
m:=k mod 3; //<-----эта запись означает что надо делить 17 на 3 без остатка?
Это означает, что ты получаешь остаток от деления на 3

Цитата(Neo007 @  24.4.2006,  17:02 Найти цитируемый пост)
2, 5 : begin m:=m+10; S:=0; goto CASEPOINT end; //<----- запись 2,5 означает что если у меня m не равно 2 или 5 то я пропускаю эту
Правильнее сказать наоборот: если у тебя m = 2 или 5, то строчка выполняется.
Хотя остаток от деления не может быть равен 5.

Цитата(Neo007 @  24.4.2006,  17:02 Найти цитируемый пост)
1, 10: begin m:=m+15; S:=10; end; //<----- запись 1,10 означает что если у меня m не равно 1 или 10 то я пропускаю эту строчку?
Аналогично предыдущей.
Опять же - остаток от деления не бывает 10.

Цитата(Neo007 @  24.4.2006,  17:02 Найти цитируемый пост)
else begin m:=m-2; goto CASEPOINT; end;
Это вас в школе учат использовать goto?
Если хочешь стать программистом, забудь goto, как страшный сон. Учись строить грамотные конструкции. 
PM MAIL   Вверх
Neo007
Дата 24.4.2006, 19:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Спасибо за совет. 
И если кто может дайте ссылку где можно попрактиковаться с двумерными массивами. 
Или приведите задачку в пример. 
PM MAIL   Вверх
karataev
Дата 27.4.2006, 01:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 56
Регистрация: 28.1.2006
Где: Россия, Нижний Но вгород

Репутация: нет
Всего: нет
Можешь попрактиковаться вообще с решением разных задач, распределенных по темам, тут: http://fformula.net 
PM MAIL WWW ICQ   Вверх
rena
Дата 8.5.2006, 17:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
 smile нужно найти количество  прямоугольников в двумерном массиве
Пример 
### . . .?? . .+.
### .= .?? . .+.
### . . . . . . .+.
 . . . . .??? . . . .
??? . . . . . . .==
??? . . .#### ..
ответ : # прямоугольников :2
? прямоугольников :3
+ прямоугольников :1
= прямоугольников :2 
PM MAIL   Вверх
Palladin
Дата 22.6.2006, 06:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 17
Цитата(rena @ 8.5.2006,  17:50)
smile нужно найти количество  прямоугольников в двумерном массиве
Пример 
### . . .?? . .+.
### .= .?? . .+.
### . . . . . . .+.
 . . . . .??? . . . .
??? . . . . . . .==
??? . . .#### ..
ответ : # прямоугольников :2
? прямоугольников :3
+ прямоугольников :1
= прямоугольников :2

Ну и что здесь сложного??? или задачу эту решать ненадо???? smile  


--------------------
Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi"
THandle
Rrader
volvo877

Запрещается!

1. Обсуждать и делится взломанными компонентами или программным обеспечением

2. Публиковать ссылки на варез

3. Оффтопить

  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

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

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


 




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


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

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