IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Задачка с множествами
ilua_great
сообщение 13.06.2008 13:27
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 28
Пол: Мужской
Реальное имя: Илья

Репутация: -  0  +


Вообшем есть задача на множества:

Цитата
Дано произвольное множество целых чисел M в интервале 1..255 и массив 10х10, содержащий значения также в интервале 1..255. Удалить из исходного множества все элементы, входящие в массив.

И есть недоделаное решение:

program zzz3;
USES
CRT;
VAR
m1:array[1..255] of integer;
m2:array[1..20,1..20] of integer;
i,j :integer;
BEGIN
ClrScr;
randomize;
writeln('MASSIV 10x10');

for I:=1 to 10 do
Begin
writeln;
for J:=1 to 10 do
Begin
m2[I,J]:=round(random(505-255));
write(m2[I,J]:4,' ');
End;
End;

writeln;
writeln;
writeln('POSLEDOVATELNOST');
writeln;

for I:=1 to 10 do
begin
m1[i]:=round(random(505-255));
write(m1[i]:5);
end;
readkey;
END.


Вообшем прошу не помогать советами о том что и как сделать, а если не сложно исходный код готовой задачи. Т.к. сам в этом слабо соображаю, а надабы срочно give_rose.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
Closed Topic Открыть новую тему 
Ответов
Alеx J'Root
сообщение 13.06.2008 16:15
Сообщение #2


Новичок
*

Группа: Пользователи
Сообщений: 22
Пол: Мужской

Репутация: -  -3  +


2 volvo: читай мою подпись. Блин, ты такой смешной... прям как ребёнок. "Первое лицо.... второе лицо" lol.gif Если у администации будут вопросы почему у меня два аккаунта (первый я уже не использую), то отвечать на них я буду администрации!!!!

Ещё заметил такую странность, что ты все время ждёшь, пока кто-нибудь выложит решение на заданную задачу, а ты потом найдёшь там ошибку и исправишь её.... smile.gif))

Цитата
1) массив и множество - совершенно разные вещи, и если ты этого не знаешь - учи матчасть.

Если ты не умеешь читать, я не виноват.
Цитата
Только тут не множества получились, а массивы )))


--------------------
P.S. это лично моё мнение :)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
andriano
сообщение 14.06.2008 9:21
Сообщение #3


Гуру
*****

Группа: Пользователи
Сообщений: 1 168
Пол: Мужской
Реальное имя: Сергей Андрианов

Репутация: -  28  +


Цитата(Alеx J'Root @ 13.06.2008 17:15) *
Ещё заметил такую странность, что ты все время ждёшь, пока кто-нибудь выложит решение на заданную задачу, а ты потом найдёшь там ошибку и исправишь её.... smile.gif))
Ты недостаточно внимателен.
На форуме принято, что спрашивающий кроме условия задачи выкладывает свой (неверный/недоделанный) вариант решения. Так что если кто-то чего-то и ждет, то именно этого.
И это правильно, т.к. в конечном счете цель форума - повышение квалификации выпускников, а не ее снижение. (очевидно, что если помочь человеку разобраться, он будет знать больше, а если сделать за него задание - то меньше)
В то же время ты явно демонстрируешь:
1. Либо невнимательность, либо нежелание следовать традициям форума.
2. Уровень квалификации вряд ли достаточный для того, чтобы давать ответы.
3. Довольно задиристый норов и сомнительные моральные принципы (последнее - судя по странным манипуляциям с аккаунтом).
Не пора ли перестать искать (или выдумывать) чужие недостатки и переключиться на самоанализ?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


Closed Topic Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 17.08.2025 13:46
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"