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

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

> 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 минут (с учетом времени набора текста), - это нормально.
Я, причем понимаю еще, если бы ты покаялся, сказал бы, что вообще историк и нафига историку программирование - не знаешь.

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