Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 20.06.2009, 23:30   #1
Doholyan
Форумчанин
 
Регистрация: 26.04.2009
Сообщений: 270
По умолчанию Массивы логические!!!!

Господа!
обзясните как работают логические масивы!
не могу их понят!!!
Намекните...как с ними работают.
Для чего они!
Doholyan вне форума Ответить с цитированием
Старый 20.06.2009, 23:56   #2
sheka
Босс
Форумчанин
 
Аватар для sheka
 
Регистрация: 03.06.2009
Сообщений: 125
По умолчанию

это типа
b:array[1..5] of boolean; ???

если да, то смотри:
p: array [1..8,1..8] of boolean;
например, на шахматную доску, на которой находятся фигуры, надо рандомно поставить еще одну.
но чтобы не поставить на занятое проверяешь стоит ли там уже фигура
if p[i,j]=false(не занято) then ставить фигуру.
такиз примеров много.

Две одинаковые вложенные ошибки называются четной ошибкой и ошибкой не являются.
Ася 255507394. Отзывы здесь.
sheka вне форума Ответить с цитированием
Старый 21.06.2009, 01:12   #3
Doholyan
Форумчанин
 
Регистрация: 26.04.2009
Сообщений: 270
По умолчанию

sheka!!!
уважаемый посмотри вроде как слепил таккую вот га...но))
вроде работает...Правель? меня терзают сомнения!!!



Program Whilee;
uses Crt;
const max=10;
type per=1..10;
mas=array[1..max]of integer;
logik=array[per]of boolean;
var n,i,j,s:integer;
masA,masB:mas; {ЇҐаҐ¬Ґ**лҐ „‚“• ¬*ббЁў®ў}
bool:logik;
bolean:boolean;
begin
ClrScr;
write('‚ўҐ¤ЁвҐ Є®«-ў* ¬*ббЁў®ў: ');
readLn(n);
{ЇҐаўл© ¬*ббЁў}
for i:=1 to n do
begin
write('¬*ббЁўЂ= ');
readln(masA[i]);
end;
{ўв®а®© ¬*ббЁў}
writeln;
for j:=1 to n do
begin
write('¬*ббЁў‚= ');
readLn(masB[j]);
end;
{ба*ў*Ґ*ЁҐ}
for s:=1 to n do
begin
writeln('¬*ббЁўЂ:':19,'¬*ббЁў‚:':25 );
writeLn(MasA[s]:17,masB[s]:25);
if ((masA[s])=(masB[s])) then
bool[s]:=true;
end;
{ўўлў®¤ «®ЈЁзҐбЄ®Ј® ¬*бЁў*}
for i:=1 to n do
writeLn(bool[i]);

end.

надеюсь коментария будут кирилицой!

с уважением Дмитрий!
Doholyan вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Логические выражения. C#(ConsoleAppl) Doublefaced Помощь студентам 9 05.04.2009 21:10
логические функции JESSIE1000005 Помощь студентам 2 28.03.2009 19:26
Логические подстановки в формулах/функциях vprima Microsoft Office Excel 5 16.02.2009 16:42
Логические формулы, обработка RomanovAV Помощь студентам 5 30.04.2008 19:34