Текущий архив: 2008.04.06;
Скачать: CL | DM;
Вниз
паскаль программа Найти похожие ветки
← →
студент (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.
и стоило ради этого выделять функцию?
← →
KilkennyCat © (2008-02-19 12:58) [85]
идем дальше.
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.
ню вот. осталось спросить, что такоеа?
← →
KilkennyCat © (2008-02-19 13:02) [86]
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.
← →
БарЛог © (2008-02-19 13:11) [87]:-0
← →
KilkennyCat © (2008-02-19 15:17) [88]До чего дошёл прогресс -
Труд физический исчез,
Да и умственный заменит
Механический процесс.
← →
Студент (2008-02-19 20:11) [89]Благодарю. Есть над чем подумать :)
← →
Anatoly Podgoretsky © (2008-02-19 20:11) [90]> Узурап Мамуматкулович (19.02.2008 00:58:09) [69]
Кончится весенний, начнется осенний.
← →
Anatoly Podgoretsky © (2008-02-19 20:13) [91]> Узурап Мамуматкулович (19.02.2008 02:29:15) [75]
А по моему первое более правильно, только буква у лишняя.
Сидент - это тот кто сидит на экзамене.
← →
AndreyV © (2008-02-20 10:42) [92]> [85] KilkennyCat © (19.02.08 12:58)
> ню вот. осталось спросить, что такое а?
Видимо последняя оптимизация должна выглядеть так:
program index;
begin
end.
← →
oldman © (2008-02-20 10:47) [93]Кто нибудь объяснит наконец, что такое "упорядоченные комплексные числа"???
← →
@!!ex © (2008-02-20 11:34) [94]> [93] oldman © (20.02.08 10:47)
ИМХО,это комплексные числа, упорядоченные по убыванию или возрастанию.
Сравнивание комплексных чисел, идет с помощью сравнения их квадратов.
← →
oldman © (2008-02-20 11:35) [95]А как можно упорядочить векторы?
Если они равные по модулю, но противоположно направлены - они равны или нет?
← →
Washington © (2008-02-20 12:07) [96]
> @!!ex © (20.02.08 11:34) [94]
а если одно из комплексных чисел отрицательно? Тогда по ходу их нельзя сравнивать с помощью квадратов. Мы кажись ещё в школе их как-то с помощью синусов и косинусов сравнивали, а может и не так. не помню уже. Хотя темка интересная была.
← →
Washington © (2008-02-20 12:10) [97]http://allmath.ru/highermath/mathanalis/matan/matan10.htm
Написано что вообще их сравнивать нельзя.
← →
@!!ex © (2008-02-20 12:52) [98]> [96] Washington © (20.02.08 12:07)
Вроде квадрат однозначно указывает, какое из числе больше?
Или я чего то не понимаю?
← →
Григорьев Антон © (2008-02-20 13:47) [99]
> @!!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
Какой из двух квадратов больше? И какое из чисел, соответственно, больше?
← →
KilkennyCat © (2008-02-20 22:47) [100]> [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.
← →
KilkennyCat © (2008-02-20 23:58) [102]Господи, что за бред, извиняюсь...
Студент, ну ты подумай хоть а? Хрен с ним с кодом, ты алгоритм пропиши, а? Хоть своими словами, хоть в Лого...
← →
KilkennyCat © (2008-02-21 00:00) [103]> 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:22) [104]> KilkennyCat © (21.02.08 00:00) [103]
z - это как бы i-1 число у него должно было получится. Интересная мысль)
← →
Узурап Мамуматкулович (2008-02-21 00:27) [105]>[102] KilkennyCat(c) 20-Feb-2008, 23:58
>Студент, ну ты подумай хоть а?
Зачем?
← →
Washington © (2008-02-21 12:03) [106]
> Студент (20.02.08 23:55) [101]
Эт ему препод правильное решение дал :)
← →
AlexKniga © (2008-02-21 16:03) [107]> ты алгоритм пропиши, а? Хоть своими словами, хоть в ... нами всеми любимой Автошеме
← →
Студент (2008-02-21 23:36) [108]i нужен для того чтобы:
я считываю по 1 числу из файла.
но при проверке требуется 2 числа, поэтому при первом считывании сравниваем 2 числа одинаковых. А при следующих считываниях уже пользуемся предыдущим значением.
← →
Германн © (2008-02-22 00:27) [109]
> 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.
← →
KilkennyCat © (2008-02-22 19:58) [111]> [108] Студент (21.02.08 23:36)
> i нужен для того чтобы:
> я считываю по 1 числу из файла.
> но при проверке требуется 2 числа, поэтому при первом считывании
> сравниваем 2 числа одинаковых. А при следующих считываниях
> уже пользуемся предыдущим значением.
и вместо того, чтобы один раз прочитать перед циклом мы заставляем программу делать каждый раз лишнии движения, плюс усложняем логику... замечательно.
Меня очень интересует, ну просто дико любопытно: наименование факультета и будущая профессия Студента. Если это каким-то образом связано с программированием, то следующий вопрос будет к админам, по поводу айпи адреса. Где находится адрес и сброс бомбы организую сам.
← →
KilkennyCat © (2008-02-22 20:02) [112]
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:51) [118]Учись, студент (с) :)
← →
Студент (2008-02-22 21:53) [119]Учусь... Семестр прошляпил, в итоге не понял темы. Сейчас более менее начал вникать...
← →
boa_kaa © (2008-02-22 22:01) [120]Интересно, почему учиться у нас стыдно и зазорно?
Стоит открыть учебник до сессии и ты "ботан".
А вот приставать к людям с задачей, которую - стоило только учебник посреди семестра открыть или на лекции походить - можно решить за 10 минут (с учетом времени набора текста), - это нормально.
Я, причем понимаю еще, если бы ты покаялся, сказал бы, что вообще историк и нафига историку программирование - не знаешь.
Страницы: 1 2 3 вся ветка
Текущий архив: 2008.04.06;
Скачать: CL | DM;
Память: 0.75 MB
Время: 0.011 c
