паскаль программа

← →
студент (2008-01-29 11:52) [0]

сижу на экзамене. помогите пожалуйста написать программу которая проверяет упорядочены ли комплексные числа в файле комплексных чисел. пожалуйста, вы последняя надежда

← →
Palladin © (2008-01-29 11:53) [1]

умри достойно

← →
Сергей М. © (2008-01-29 11:54) [2]

> помогите пожалуйста написать программу

Чем же тебе помочь ?

← →
Семеныч (2008-01-29 11:56) [3]

А как упорядочиваются комплексные числа? Скажем, 1+2i больше или меньше, чем 2+1i ?

← →
clickmaker © (2008-01-29 11:58) [4]

> [3] Семеныч (29.01.08 11:56)

думаю, меньше
сначала упорядочиваем по действительной части, потом по мнимой
как фамилия и имя

← →
homm © (2008-01-29 12:00) [5]

> [4] clickmaker © (29.01.08 11:58)
> думаю

А для решения задачи нужно знать.

← →
студент (2008-01-29 12:01) [6]

клик прав. так и естклик прав. так и есть

← →
umbra © (2008-01-29 12:13) [7]

а разве комплексные числа упорядочены?

← →
студент (2008-01-29 12:13) [8]

напишите плиз её :(

← →
clickmaker © (2008-01-29 12:14) [9]

> [7] umbra © (29.01.08 12:13)
> а разве комплексные числа упорядочены?

вообще-то, нет )
смысл имеет только равенство, когда и действ. и мнимая части равны

← →
DrPass © (2008-01-29 12:14) [10]

Со времен "Операции Ы" поменялась техническая база, вместо раций - КПК с ЖПРСом, но принципы списывания остались те же...

← →
Сергей М. © (2008-01-29 12:16) [11]

> напишите плиз её

Написать и помочь написать - две разные разницы.

← →
Германн © (2008-01-29 12:46) [12]

> студент (29.01.08 12:13) [8]
>
> напишите плиз её :(
>

В субботу вернусь из командировки, обязательно напишу. Не волнуйся.

← →
Riply © (2008-01-29 12:53) [13]

> [1] Palladin © (29.01.08 11:53)
> умри достойно

+1 :)

> [3] Семеныч (29.01.08 11:56)
> А как упорядочиваются комплексные числа? Скажем, 1+2i больше или меньше, чем 2+1i ?

А это исходя из того правила сравнения, которое мы определили :)

> [0] студент (29.01.08 11:52)

Комплексные числа сопоставимы натуральному ряду. (Счетное множество)
Может плясать отсюда ?

← →
Leonid Troyanovsky © (2008-01-29 12:57) [14]

> Riply © (29.01.08 12:53) [13]

> Комплексные числа сопоставимы натуральному ряду. (Счетное
> множество)

R^2, AFAIK.
А иначе, они б были значительно менее полезны.

--
Regards, LVT

← →
Григорьев Антон © (2008-01-29 12:59) [15]

> Riply © (29.01.08 12:53) [13]
> Комплексные числа сопоставимы натуральному ряду. (Счетное
> множество)

Чего-чего?!!!!!!! :-o :-o :-o

Берём Подмножество комплексных чисел - множество всех действительных чисел на отрезке [0;1]. Это классический пример множества мощности континуума, т.е. всё множество комплесных чисел никак не может быть счётным.

← →
Riply © (2008-01-29 13:06) [16]

> [14] Leonid Troyanovsky © (29.01.08 12:57)
> [13] Riply © (29.01.08 12:53)
> Комплексные числа сопоставимы натуральному ряду.

Неудачно выразилась. Имелось ввиду с целыми действительной и мнимой частями.

← →
Virgo_Style © (2008-01-29 13:13) [17]

Да, простор для фантазии... Будь моя воля, я б вообще длину вектора сравнивал %-))

← →
Игорь Шевченко © (2008-01-29 13:30) [18]

> Будь моя воля, я б вообще длину вектора сравнивал %-))

С шириной вектора

← →
morgoth © (2008-01-29 16:33) [19]

интересно, сдал или в магазин побежал

← →
Style © (2008-01-29 16:36) [20]

> интересно, сдал или в магазин побежал

надеюсь за веревкой и мылом?

← →
morgoth © (2008-01-29 16:37) [21]

надеюсь за веревкой и мылом?
нет, за цветочками и конфетками

← →
morgoth © (2008-01-29 16:39) [22]

на могилу преподу

← →
TUser © (2008-01-29 17:58) [23]

> Комплексные числа сопоставимы натуральному ряду. (Счетное
> множество)
> Может плясать отсюда ?
>

действитенльные - подмножество, а оно уже несчетное

← →
Студент (2008-02-01 21:18) [24]

Я сделал так (не факт что это вообще будет работать). Препод сказал, что это неправильно...

program complex; type complex = record a, b: real; compf = file of complex; end; var comp:complex; function com(var a,b: complex): boolean; begin If a>b then com:=false; If (a<b) or (a=b) then com:=true; end; begin assign(compf, "complex.cmpl"); reset(compf); while not eof (compf) do begin with comp do begin readln(compf,a,b); com(a,b); end; end; If com=true then writeln("Упорядочены"); If com=false then writeln("Не упорядочены"); end.

Чувствую бредятину написал тут полнейшую...

← →
Palladin © (2008-02-01 21:21) [25]

тебя хоть в туалет выпускают?

← →
Студент (2008-02-01 21:22) [26]

)) я уже не на экзамене, на дом дали.

← →
boa_kaa © (2008-02-01 21:29) [27]

> Студент (01.02.08 21:18) [24]

такууууую бредятину даже с перепуга сложно написать...

← →
ketmar © (2008-02-01 23:28) [28]

это очередная неудачная пятничная шутка?

← →
DrPass © (2008-02-02 00:15) [29]

> Студент (01.02.08 21:22) [26]
> )) я уже не на экзамене, на дом дали.

Это был благотворительный экзамен в воскресной школе, что ли?

← →
Студент (2008-02-07 14:44) [30]

Подскажите где ошибки хоть? =(

← →
ketmar © (2008-02-07 14:49) [31]

>[30] Студент (2008-02-07 14:44:00)
в DNA.

---
Understanding is not required. Only obedience.

← →
KSergey © (2008-02-07 14:58) [32]

1. Структуры сравнивать нельзя.

← →
ketmar © (2008-02-07 14:59) [33]

>[32] KSergey © (2008-02-07 14:58:00)
в принципе — можно, если очень хочется. но не нужно. %-)

---
Understanding is not required. Only obedience.

← →
KSergey © (2008-02-07 15:14) [34]

> ketmar © (07.02.08 14:59) [33]
> в принципе — можно

Ну хорошо, я быть может формально некорректно выразился.

В языке Паскаль знаками =, <, > и <> структуры травнивать нельзя.

Хоть с принципом, хоть без :)

← →
Alien1769 © (2008-02-07 15:15) [35]

> 1. Структуры сравнивать нельзя.

Можно, но как "настучал" Кетмар не нужно !!!

← →
Amoeba © (2008-02-07 19:43) [36]

Любопытно, но не слишком интересно, умер автор вопроса (достойно или нет, не важно) или, все-таки жив.

← →
Студент (2008-02-07 19:56) [37]

Эх... Вот уже неделю не могу услышать ни от кого ответ... :(

← →
Григорьев Антон © (2008-02-07 20:30) [38]

> Студент (07.02.08 19:56) [37]
> Эх... Вот уже неделю не могу услышать ни от кого ответ..
> . :(

Мы тоже так и не услышали, кстати, ответ, по какому критерию упорядочиваются комплексные числа.

← →
Fredy314 © (2008-02-07 21:30) [39]

Сравнивай по длине вектора.

← →
Григорьев Антон © (2008-02-07 21:39) [40]

> Fredy314 © (07.02.08 21:30) [39]
> Сравнивай по длине вектора.

Два числа: 1+0i и 0+1i - какое больше по вашему критерию?

← →
Fredy314 © (2008-02-08 01:23) [41]

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

← →
Marser © (2008-02-08 02:29) [42]

> type
> complex = record
> a, b: real;
> compf = file of complex;
> end;

Читал. Много думал... Никогда пьяным на экзамене не сидел...

← →
Студент (2008-02-10 11:00) [43]

Комплексное число вида a.b
Сравнение идёт следующим образом:
допустим даны a.b и x.y
a>x b>y, a>x b=y, a=b b>y.

← →
palva © (2008-02-10 11:17) [44]

> допустим даны a.b и x.y
> a>x b>y, a>x b=y, a=b b>y.

Это на каком языке написано? А своими словами можно?
> допустим даны a.b и x.y
Ну допустим. Теперь надо написать, что значит a.b > x.y

← →
Студент (2008-02-10 11:32) [45]

a.b и x.y - Это комплексные числа

← →
Студент (2008-02-10 11:34) [46]

http://ru.wikipedia.org/wiki/%D0%9A%D0%BE%D0%BC%D0%BF%D0%BB%D0%B5%D0%BA%D1%81%D0%BD%D0%BE%D0%B5_%D1%87%D0%B8%D1%81%D0%BB%D0%BE

← →
palva © (2008-02-10 11:40) [47]

> a.b и x.y - Это комплексные числа
Это я уже догадался.

← →
korstin © (2008-02-10 11:58) [48]

Ветка еще жива. Что, до сих пор пишет экзамен? :))))))

← →
Студент (2008-02-10 12:58) [49]

Мне завтра программу эту сдавать.

← →
korstin © (2008-02-10 13:20) [50]

Первая ссылка в гугле:
http://www.allmath.ru/highermath/mathanalis/matan/matan10.htm

Равенство и сравнение комплексных чисел.
Два комплексных числа считаются равными, если у них равны вещественные и мнимые части:
Но вот операции типа «больше» и «меньше» для комплексных чисел не имеют смысла... Совершенно непонятно, что больше... Комплексные числа не упорядочены.

Так что можешь всегда FALSE возвращать :)

← →
Студент (2008-02-10 17:00) [51]

А из тех кто знает паскаль поможет мне? :(

← →
ketmar © (2008-02-10 17:05) [52]

>[49] Студент (2008-02-10 12:58:00)
мы глубоко скорбим.

---
Understanding is not required. Only obedience.

← →
korstin © (2008-02-10 17:25) [53]

> А из тех кто знает паскаль поможет мне? :(

А тут его никто не знает :-D

Комплексные числа всегда не упорядочены. Соответственно, постановка задачи неверна. Если все же настаивать на постановке задачи, тогда
function F: boolean; begin Result := false; end;

← →
Мазут Береговой (2008-02-10 18:56) [54]

Ситуация анекдотичная:
Пришел препод после выходных с большого бодуна принимать экзамен у студентов. Настроения никакого, башка трещит, руки трястся... "Ну...", думает - "сейчас я вам устрою..."
Заходит первый студент. Препод его спрашивает:
- Вы едете в автобусе. И в автобусе очень жарко. Что вы сделаете?
Студент:
- Открою форточку...
Препод:
- Хорошо. Тогда рассчитайте изменения в аэродинамике автобуса после того как вы открыли форточку..
Естесственно, студент не сдал..
Заходит второй студент. Та же история.
Потом заходит студентка.
Препод спрашивает ее
- Вы едете в автобусе. И в автобусе очень жарко. Что вы сделаете?
Студентка:
- Сниму кофточку...
Препод:
- Нет. Вы не понимаете - в автобусе очень жарко..
Студентка:
- Сниму юбку...
Препод:
- Да нет, там очень-очень жарко!
Студентка:
- Сниму лифчик, сниму трусики... Да пусть хоть меня весь автобус использует, но форточку я всё-равно не открою!

[Извините, что ничем не могу помочь]

← →
Студент (2008-02-10 19:02) [55]

Ну плз =(

← →
ketmar © (2008-02-10 19:40) [56]

>[55] Студент (2008-02-10 19:02:00)
нет. умри гордо.

---
Understanding is not required. Only obedience.

← →
Johnmen © (2008-02-10 20:40) [57]

Да пусть уже хоть как-нибудь умрет.

← →
Студент (2008-02-10 22:03) [58]

Сволочи.

← →
ketmar © (2008-02-10 22:04) [59]

>[58] Студент (2008-02-10 22:03:00)
и не говори. сплошняком просто гады. который год смотрю и ужасаюсь.

---
Understanding is not required. Only obedience.

← →
KilkennyCat © (2008-02-10 22:36) [60]

Я готов помочь! Куда ехать?

← →
Студент (2008-02-17 01:17) [61]

← →
Германн © (2008-02-17 01:20) [62]

> студент (29.01.08 11:52)
>
> сижу на экзамене.

Ну сколько можно на нем сидеть???

← →
Германн © (2008-02-17 01:21) [63]

> Мазут Береговой (10.02.08 18:56) [54]

Этого анекдота я не знал. Спасибо!

← →
Студент (2008-02-18 21:55) [64]

program index; type complex = record x,y: real; end; Var u,z: complex; q,i: boolean; fcom: file of complex; function ab(var a: complex): boolean; begin If i= false then z:= u; If (a.x < z.x) or ((a.x = z.x) and (a.y < z.y)) then ab:=true else ab:=false; i:= true; end; begin q:= true; i:= false; assign(fcom, "comp.cmp"); reset(fcom); While not eof(fcom) do begin read(fcom,u); q:= ab(u); If q=false then begin writeln("Комплексные числа не упорядочены"); exit; end; z:= u; end; close(fcom); If q=true then writeln("Комплексные числа упорядочены"); end.

Написал, но всё равно результат всегда один - числа упорядочены. Помогите кто может плиз.

← →
KilkennyCat © (2008-02-18 21:58) [65]

Помогите же студенту! За долготерпение его преподавателей! Я б сам, да я про комплексные знаю лишь их существование... Жалко преподов, ей-богу....

← →
TIF © (2008-02-18 22:04) [66]

надо писать проги на делфе )))

← →
Студент (2008-02-18 22:53) [67]

Задали на паскале...

← →
KilkennyCat © (2008-02-18 23:42) [68]

Аминь.

← →
Узурап Мамуматкулович (2008-02-19 00:58) [69]

>[67] Студент 18-Feb-2008, 22:53
>Задали на паскале...

Требуй на delphi. Еще месяца два сможешь протянуть.
Потом еще несколько гениальных выдумок - и кончился весенний призыв.

← →
Германн © (2008-02-19 01:11) [70]

> Узурап Мамуматкулович (19.02.08 00:58) [69]

> Требуй на delphi. Еще месяца два сможешь протянуть.

Если это было правдой

> студент (29.01.08 11:52)
>
> сижу на экзамене.

,то за такое время он точно заработает геморрой! :)

← →
Германн © (2008-02-19 01:18) [71]

> Студент (18.02.08 21:55) [64]

> Написал, но всё равно результат всегда один - числа упорядочены.

Ничего не перепутал? Результат - "числа упорядочены"?

← →
korstin © (2008-02-19 01:25) [72]

О господи. Что это за экзамен, что это за ВУЗ?

← →
Узурап Мамуматкулович (2008-02-19 02:27) [73]

>[70] Германн(c) 19-Feb-2008, 01:11
>
>,то за такое время он точно заработает геморрой! :)

Для студента призыв страшнее геморроя. :)

← →
Узурап Мамуматкулович (2008-02-19 02:28) [74]

>[72] korstin(c) 19-Feb-2008, 01:25
>О господи. Что это за экзамен, что это за ВУЗ?

Не так надо.
Надо так: "Что это за сиудент?"

← →
Узурап Мамуматкулович (2008-02-19 02:29) [75]

>[74] Узурап Мамуматкулович 19-Feb-2008, 02:28

сорри.
"сиудент" читать как "студент"

← →
Германн © (2008-02-19 02:32) [76]

> Узурап Мамуматкулович (19.02.08 02:27) [73]
>
> >[70] Германн(c) 19-Feb-2008, 01:11
> >
> >,то за такое время он точно заработает геморрой! :)
>
> Для студента призыв страшнее геморроя. :)
>

Для "такого" студента, как правило, призыв полезней геморроя. Имхо.

← →
Узурап Мамуматкулович (2008-02-19 04:06) [77]

>[76] Германн(c) 19-Feb-2008, 02:32
>
>> Узурап Мамуматкулович (19.02.08 02:27) [73]
>>
>> >[70] Германн(c) 19-Feb-2008, 01:11
>> >
>> >,то за такое время он точно заработает геморрой! :)
>>
>> Для студента призыв страшнее геморроя. :)
>>
>
>Для "такого" студента, как правило, призыв полезней
>геморроя. Имхо.

"правильный" студент слово "полезно" воспринимает плохо и болезнено.

Интересно, а как его одногрупники? Сдали экзамен или нет?
Вот в моем городе один ВУЗ сделал правильный маркетинговый ход, построив один из своих корпусов напротив военкомата. Наверное, студентов очень стимулирует. :)

← →
Германн © (2008-02-19 05:28) [78]

>
>
> "правильный" студент слово "полезно" воспринимает плохо
> и болезнено.
>

Все мы, как правило, воспринимаем уколы плохо и "болезненно".
Но некоторые становятся после таких уколов сильными. Ну как, например, Ёжка!

← →
Alien1769 © (2008-02-19 10:07) [79]

> Написал, но всё равно результат всегда один - числа упорядочены.
> Помогите кто может плиз.

И ШО ОНА ТАКИ ЗАПУСКАЕТСЯ НА ВЫПОЛНЕНИЕ ?

← →
БарЛог © (2008-02-19 11:01) [80]

В армии научат :)

← →
KilkennyCat © (2008-02-19 12:39) [81]

В армии учат только извлечению корня. Зато - любого.

← →
KilkennyCat © (2008-02-19 12:48) [82]

program index; type complex = record x,y: real; end; Var u, z: complex; q, i: boolean; fcom: file of complex; begin q := true; i := false; assign(fcom, "comp.cmp"); reset(fcom); while not eof(fcom) do begin read(fcom,u); if not(i) then z := u; q := (a.x < z.x) or ((a.x = z.x) and (a.y < z.y)); i := true; if not q then begin writeln("Комплексные числа не упорядочены"); exit; end; z := u; end; close(fcom); if q then writeln("Комплексные числа упорядочены"); end.

Это твой код, только по-человечески. Теперь ищи ошибки и объясни, нафига i.
function ab(var a: complex): boolean;
begin

end;

← →
KilkennyCat © (2008-02-19 12:53) [83]

program index; type complex = record x,y: real; end; Var u, z: complex; q: boolean; fcom: file of complex; begin q := true; assign(fcom, "comp.cmp"); reset(fcom); while not eof(fcom) do begin read(fcom,u); z := u; q := (a.x < z.x) or ((a.x = z.x) and (a.y < z.y)); if not q then exit; z := u; end; close(fcom); if q then writeln("Комплексные числа упорядочены") else writeln("Комплексные числа не упорядочены");; end.

еще человечнее, алгоритм Студента сохранен.

← →
KilkennyCat © (2008-02-19 12:55) [84]

не заметил еще лишнее присваивание, итог:

program index; type complex = record x,y: real; end; Var u, z: complex; q: boolean; fcom: file of complex; begin q := true; assign(fcom, "comp.cmp"); reset(fcom); while not eof(fcom) do begin read(fcom,u); z := u; q := (a.x < z.x) or ((a.x = z.x) and (a.y < z.y)); if not q then exit; end; close(fcom); if q then writeln("Комплексные числа упорядочены") else writeln("Комплексные числа не упорядочены");; end.

и стоило ради этого выделять функцию?

идем дальше. program index; type complex = record x,y: real; end; Var u: complex; q: boolean; fcom: file of complex; begin assign(fcom, "comp.cmp"); reset(fcom); while not eof(fcom) do begin read(fcom, u); q := (a.x < u.x) or ((a.x = u.x) and (a.y < u.y)); if not q then exit; end; close(fcom); if q then writeln("Комплексные числа упорядочены") else writeln("Комплексные числа не упорядочены");; end.

ню вот. осталось спросить, что такое а?

program index; type complex = record x, y: real; end; Var u: complex; q: boolean; fcom: file of complex; begin assign(fcom, "comp.cmp"); reset(fcom); while (not eof(fcom)) or q do begin read(fcom, u); q := (a.x < u.x) or ((a.x = u.x) and (a.y < u.y)); end; close(fcom); if q then writeln("Комплексные числа упорядочены") else writeln("Комплексные числа не упорядочены");; end.

:-0

До чего дошёл прогресс -
Труд физический исчез,
Да и умственный заменит
Механический процесс.

← →
Студент (2008-02-19 20:11) [89]

Благодарю. Есть над чем подумать :)

> Узурап Мамуматкулович (19.02.2008 00:58:09) [69]

Кончится весенний, начнется осенний.

> Узурап Мамуматкулович (19.02.2008 02:29:15) [75]

А по моему первое более правильно, только буква у лишняя.
Сидент - это тот кто сидит на экзамене.

> [85] KilkennyCat © (19.02.08 12:58)
> ню вот. осталось спросить, что такое а?

Видимо последняя оптимизация должна выглядеть так:

program index;
begin
end.

Кто нибудь объяснит наконец, что такое "упорядоченные комплексные числа"???

> [93] oldman © (20.02.08 10:47)

ИМХО,это комплексные числа, упорядоченные по убыванию или возрастанию.
Сравнивание комплексных чисел, идет с помощью сравнения их квадратов.

А как можно упорядочить векторы?
Если они равные по модулю, но противоположно направлены - они равны или нет?

> @!!ex © (20.02.08 11:34) [94]

а если одно из комплексных чисел отрицательно? Тогда по ходу их нельзя сравнивать с помощью квадратов. Мы кажись ещё в школе их как-то с помощью синусов и косинусов сравнивали, а может и не так. не помню уже. Хотя темка интересная была.

http://allmath.ru/highermath/mathanalis/matan/matan10.htm
Написано что вообще их сравнивать нельзя.

> [96] Washington © (20.02.08 12:07)

Вроде квадрат однозначно указывает, какое из числе больше?
Или я чего то не понимаю?

> @!!ex © (20.02.08 12:52) [98]
> > [96] Washington © (20.02.08 12:07)
>
> Вроде квадрат однозначно указывает, какое из числе больше?
>
> Или я чего то не понимаю?

а) 1^2 = 1. (-1)^2 = 1. Какое из двух чисел большее, если сравнивать их квадраты?

(2+1*i)^2 = 1+4*i
(1+2*i)^2 = -1+4*i
Какой из двух квадратов больше? И какое из чисел, соответственно, больше?

> [92] AndreyV © (20.02.08 10:42)
>
> Видимо последняя оптимизация должна выглядеть так:

program Zachot; begin writeln("Комплексные числа упорядочены или не упорядочены - я не знаю. Поставьте зачет, пожалуйста!"); end.

← →
Студент (2008-02-20 23:55) [101]

Нет, в итоге всё выглядит так:

program index; type complex = record x, y: real; end; Var u, z: complex; i:boolean; q: boolean; fcom: file of complex; begin i:= false; q:= true; assign(fcom, "comp.cmp"); reset(fcom); while (not eof(fcom)) or q do begin read(fcom, u); If i=false then begin z:= u; i:= true; end; q := (z.x < u.x) or ((z.x = u.x) and (z.y < u.y)) or ((z.x = u.x) and (z.y = u.y)); z:= u; end; close(fcom); if q then writeln("Комплексные числа упорядочены") else writeln("Комплексные числа не упорядочены");; end.

Господи, что за бред, извиняюсь...
Студент, ну ты подумай хоть а? Хрен с ним с кодом, ты алгоритм пропиши, а? Хоть своими словами, хоть в Лого...

> begin
> i:= false;
> q:= true;
> assign(fcom, "comp.cmp");
> reset(fcom);
> while (not eof(fcom)) or q do begin
> read(fcom, u);
> If i=false then begin -- оно будет выполнено по-любому, ибо выше присвоено!
> z:= u; - отлично. и потом мы сравним что? то, что только что приравняли?
> i:= true; - и теперь насрать на предыдущую проверку!
> end;
> q := (z.x < u.x) or ((z.x = u.x) and (z.y < u.y)) or
> ((z.x = u.x) and (z.y = u.y));
> z:= u; - это для надежности, я так понимаю.
> end;
> close(fcom);
> if q then writeln("Комплексные числа упорядочены") else
> writeln("Комплексные числа не упорядочены");;
> end.

← →
Узурап Мамуматкулович (2008-02-21 00:27) [105]

>[102] KilkennyCat(c) 20-Feb-2008, 23:58
>Студент, ну ты подумай хоть а?

Зачем?

> Студент (20.02.08 23:55) [101]
Эт ему препод правильное решение дал :)

> ты алгоритм пропиши, а? Хоть своими словами, хоть в ... нами всеми любимой Автошеме

← →
Студент (2008-02-21 23:36) [108]

i нужен для того чтобы:
я считываю по 1 числу из файла.
но при проверке требуется 2 числа, поэтому при первом считывании сравниваем 2 числа одинаковых. А при следующих считываниях уже пользуемся предыдущим значением.

> i нужен для того чтобы:
> я считываю по 1 числу из файла.
> но при проверке требуется 2 числа, поэтому при первом считывании
> сравниваем 2 числа одинаковых.

Так начинай сравнивать после второго считывания.

← →
Dust (2008-02-22 05:42) [110]

так по какому принцыпу числа то упорядочены должны быть?
Есть предположение, что равные числа должны быть расположены рядом. т.е. надо бы несколько раз пробежать циклом по файлу и выявить не лежат ли в разных кусках файла равные числа ( q := (u.x = z.x) and (u.y = z.y) ).

да, позволил себе исправить несколько ошибок в программе студента, но целиком переписывать не стал (фпадлу)..

program index; type complex = record x, y: real; end; Var u, z: complex; i:boolean; q: boolean; fcom: file of complex; begin i:= false; q:= true; assign(fcom, "comp.cmp"); reset(fcom); while ( (not eof(fcom)) and q ) do //если or то скорее всего получим вылет, как результат чтения за пределами конца файла begin read(fcom, u); if (not i) then begin i := true; z := u; Continue; end q := (z.x < u.x) or ((z.x = u.x) and (z.y < u.y)) or ((z.x = u.x) and (z.y = u.y)); //вот это мне было читать уже фпадлу z := u; end; close(fcom); if q then writeln("Комплексные числа упорядочены") else writeln("Комплексные числа не упорядочены");; end.

> [108] Студент (21.02.08 23:36)
> i нужен для того чтобы:
> я считываю по 1 числу из файла.
> но при проверке требуется 2 числа, поэтому при первом считывании
> сравниваем 2 числа одинаковых. А при следующих считываниях
> уже пользуемся предыдущим значением.

и вместо того, чтобы один раз прочитать перед циклом мы заставляем программу делать каждый раз лишнии движения, плюс усложняем логику... замечательно.

Меня очень интересует, ну просто дико любопытно: наименование факультета и будущая профессия Студента. Если это каким-то образом связано с программированием, то следующий вопрос будет к админам, по поводу айпи адреса. Где находится адрес и сброс бомбы организую сам.

read(fcom, z); while ( (not eof(fcom)) and q ) do begin read(fcom, u); q := (z.x < u.x) or ((z.x = u.x) and (z.y < u.y)) or ((z.x = u.x) and (z.y = u.y)); //вот это мне было читать уже фпадлу z := u; end;

← →
Студент (2008-02-22 21:37) [113]

Факультет прикладной математики и информатики, профессия инженер-программист. IP общий на весь город, желаю удачи с бомбой :)

← →
Проскользнул мимо... (2008-02-22 21:39) [114]

> IP общий на весь город

в таких городах таких институтов НЕ СУЩЕСТВУЕТ!!!

← →
Студент (2008-02-22 21:45) [115]

Я не в своём городе учусь ;)

← →
Проскользнул мимо... (2008-02-22 21:46) [116]

> Я не в своём городе учусь ;)

Ты в деревне учишься... С одним айпишником на всё селение...

А может ты ещё в школе учишься? Домашку по информатике делаешь? Ась?

← →
Студент (2008-02-22 21:49) [117]

Удалено модератором
Примечание: 3 дня

Учись, студент (с) :)

← →
Студент (2008-02-22 21:53) [119]

Учусь... Семестр прошляпил, в итоге не понял темы. Сейчас более менее начал вникать...

Интересно, почему учиться у нас стыдно и зазорно?
Стоит открыть учебник до сессии и ты "ботан".
А вот приставать к людям с задачей, которую - стоило только учебник посреди семестра открыть или на лекции походить - можно решить за 10 минут (с учетом времени набора текста), - это нормально.
Я, причем понимаю еще, если бы ты покаялся, сказал бы, что вообще историк и нафига историку программирование - не знаешь.

паскаль программа Найти похожие ветки