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

← →
Григорьев Антон © (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. Еще месяца два сможешь протянуть.
Потом еще несколько гениальных выдумок - и кончился весенний призыв.

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

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

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

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

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

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

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

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

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

← →
Узурап Мамуматкулович (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

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

> Узурап Мамуматкулович (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
>> >
>> >,то за такое время он точно заработает геморрой! :)
>>
>> Для студента призыв страшнее геморроя. :)
>>
>
>Для "такого" студента, как правило, призыв полезней
>геморроя. Имхо.

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

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

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

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

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

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

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

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