Перейти к содержимому


Фотография
- - - - -

TURBO Pascal


  • Авторизуйтесь для ответа в теме
Сообщений в теме: 28

#1 САМОСРАН

САМОСРАН

    Местный

  • Новичок
  • PipPipPipPip
  • 498 сообщений
  • 46 тем
  • Регистрация:16 Июл 2010
  • Пол:Мужчина
  • Город:Москва

Отправлено 15 Февраль 2011 - 14:30

Здравствуйте, есть тут кто работал в среде Turbo Pascal (7.1)? Если кто сможет, помогите написать лаб. работу (написание алгоритмов) матем. примеров.
  • 0
да

#2 Furius

Furius

    Продвинутый

  • Участник
  • PipPipPip
  • 205 сообщений
  • 24 тем
  • Регистрация:07 Июн 2006
  • Пол:Мужчина
  • Город:Калуга

Отправлено 15 Февраль 2011 - 16:05

Так чего не получается-то?
  • 0
перво-наперво, что я вобью в свою голову, так это никогда не ставить в подпись ссылку на внешние ресурсы. иначе меня забанит злой админ.

#3 disfox

disfox

    Мастодонт

  • Жильцы
  • PipPipPipPipPipPipPipPip
  • 2 788 сообщений
  • 36 тем
  • Регистрация:06 Окт 2007
  • Пол:Мужчина
  • Город:где то на просторах нашей Родины

Отправлено 15 Февраль 2011 - 17:19

скорее просто лень делать. а потом плачут когда приходят на работу почему их не берут...
  • 0
Above us only sky

#4 Kwyjibo

Kwyjibo

    Житель

  • Новичок
  • PipPipPipPipPipPip
  • 821 сообщений
  • 38 тем
  • Регистрация:28 Фев 2007

Отправлено 15 Февраль 2011 - 19:14

ааа жесткач, на нем до сих пор учат
  • 0
Bart: "Kwyjibo. Uh...a big, dumb, balding North American ape."

#5 Интернет контактович

Интернет контактович

    Новичок

  • Новичок
  • Pip
  • 81 сообщений
  • 25 тем
  • Регистрация:02 Дек 2010
  • Пол:Мужчина
  • Город:калуга

Отправлено 15 Февраль 2011 - 22:34

я могу помочь)
  • 0

#6 Gremlinus

Gremlinus

    Новичок

  • Новичок
  • Pip
  • 93 сообщений
  • 13 тем
  • Регистрация:11 Дек 2010
  • Пол:Мужчина
  • Город:Калуга

Отправлено 17 Февраль 2011 - 11:13

я могу помочь)


Задачу в студию! Тряхнем стариной :)
  • 0

#7 UMike

UMike

    Мастодонт

  • Жильцы
  • PipPipPipPipPipPipPipPip
  • 2 538 сообщений
  • 84 тем
  • Регистрация:14 Май 2004
  • Пол:Мужчина
  • Город:Калуга

Отправлено 18 Февраль 2011 - 16:49

begin
  asm
	  int 19h
  end;
end.
на все времена
  • 0

Люблю короткие пОсты ;) Your Mike


#8 danny

danny

    Новичок

  • Новичок 80 lvl
  • Pip
  • 17 сообщений
  • 3 тем
  • Регистрация:05 Мар 2011
  • Пол:Мужчина

Отправлено 05 Март 2011 - 16:35

Могу помочь. Озвучь задание.
  • 0

#9 САМОСРАН

САМОСРАН

    Местный

    Топикстартер
  • Новичок
  • PipPipPipPip
  • 498 сообщений
  • 46 тем
  • Регистрация:16 Июл 2010
  • Пол:Мужчина
  • Город:Москва

Отправлено 06 Март 2011 - 14:12

Вообщем надо расписать математические примеры/уравнения на языке Паскаля. Например такого типа:

Изображение

http://s009.radikal....057b5734132.jpg
  • 0
да

#10 .Trror

.Trror

    Житель

  • Участник
  • PipPipPipPipPipPip
  • 817 сообщений
  • 94 тем
  • Регистрация:17 Апр 2010

Отправлено 17 Март 2011 - 14:30

:consored: дык этож ваще школьные задачки)))))
  • 0

#11 kostik

kostik

    Специалист ЦТО

  • Жильцы
  • PipPipPipPip
  • 410 сообщений
  • 10 тем
  • Регистрация:08 Янв 2005
  • Пол:Мужчина
  • Город:Msk-Klg

Отправлено 17 Март 2011 - 14:51

Человек простит написать, че сложного? Или все такие специалисты, что школьные задачи не решаемы? Ну для первой задачки: [codebox]Var x,y: integer; begin ReadIn(x); If x < 0 Then Begin y = - (x * x); End; Else Begin If x < 2 Then Begin y = x; End; Else Begin y = 2; End; End; WriteIn(y); end;[/codebox] Мог ошибиться в синтаксисе, поправишь. Остальные задачи уж другие пусть, лень писать.
  • 0
Никто не может быть таким безумным,
чтобы хотеть войны вместо мира,
ибо, когда мир, то дети хоронят отцов,
а когда война, то отцы хоронят детей.
Геродот.

#12 Boryan

Boryan

    Местный

  • Участник
  • PipPipPipPip
  • 670 сообщений
  • 77 тем
  • Регистрация:03 Янв 2011
  • Пол:Мужчина

Отправлено 17 Март 2011 - 16:54

:rolleyes:

Сообщение отредактировал Boryan: 17 Март 2011 - 16:54

  • 0
26"Asus VK266H_AeroCool X-Predator_AeroCool V12XT-800_Gigabyte GA-X58A-UD5_Core_I7 930@4.2Ghz_OCZ Platinum 1.6Ghz-12GB_Gainward Phantom GF GTX 580 3Gb_HDD ALL: 7TB

#13 САМОСРАН

САМОСРАН

    Местный

    Топикстартер
  • Новичок
  • PipPipPipPip
  • 498 сообщений
  • 46 тем
  • Регистрация:16 Июл 2010
  • Пол:Мужчина
  • Город:Москва

Отправлено 17 Март 2011 - 16:56

kostik, спасибо большое! ^_^
  • 0
да

#14 kostik

kostik

    Специалист ЦТО

  • Жильцы
  • PipPipPipPip
  • 410 сообщений
  • 10 тем
  • Регистрация:08 Янв 2005
  • Пол:Мужчина
  • Город:Msk-Klg

Отправлено 17 Март 2011 - 17:48

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

#15 Sloth

Sloth

    Абориген

  • Участник
  • PipPipPipPipPipPipPip
  • 1 971 сообщений
  • 48 тем
  • Регистрация:05 Дек 2004
  • Пол:Мужчина
  • Город:Калуга

Отправлено 18 Март 2011 - 11:59

Если дашь конструкцию CASE, завтра третью напишу с утра.

Даже интересно было бы посмотреть решение именно на этой задачи ... :rolleyes:
  • 0

#16 kostik

kostik

    Специалист ЦТО

  • Жильцы
  • PipPipPipPip
  • 410 сообщений
  • 10 тем
  • Регистрация:08 Янв 2005
  • Пол:Мужчина
  • Город:Msk-Klg

Отправлено 18 Март 2011 - 12:28

Даже интересно было бы посмотреть решение именно на этой задачи ... :rolleyes:

А че смотреть? Взял и сделал бы, человеку помог бы ;)
  • 0
Никто не может быть таким безумным,
чтобы хотеть войны вместо мира,
ибо, когда мир, то дети хоронят отцов,
а когда война, то отцы хоронят детей.
Геродот.

#17 Sloth

Sloth

    Абориген

  • Участник
  • PipPipPipPipPipPipPip
  • 1 971 сообщений
  • 48 тем
  • Регистрация:05 Дек 2004
  • Пол:Мужчина
  • Город:Калуга

Отправлено 18 Март 2011 - 13:00

А че смотреть? Взял и сделал бы, человеку помог бы ;)

Имею мнение, что условия задачи поставлены неверно :rolleyes:
  • 0

#18 kostik

kostik

    Специалист ЦТО

  • Жильцы
  • PipPipPipPip
  • 410 сообщений
  • 10 тем
  • Регистрация:08 Янв 2005
  • Пол:Мужчина
  • Город:Msk-Klg

Отправлено 18 Март 2011 - 16:45

Имею мнение, что условия задачи поставлены неверно :rolleyes:

Ну а подробнее если?
  • 0
Никто не может быть таким безумным,
чтобы хотеть войны вместо мира,
ибо, когда мир, то дети хоронят отцов,
а когда война, то отцы хоронят детей.
Геродот.

#19 Sloth

Sloth

    Абориген

  • Участник
  • PipPipPipPipPipPipPip
  • 1 971 сообщений
  • 48 тем
  • Регистрация:05 Дек 2004
  • Пол:Мужчина
  • Город:Калуга

Отправлено 18 Март 2011 - 20:31

Ну а подробнее если?

1. Пожалуй самое главное, ни где не сказано, что Х - целое, т.е. глядя на формулы/условия вполне резонно предположить, что Х может быть дробным;
2. Следует из 1-го, оператор case не подходит для работы с условными диапазонами в том виде, в котором они обозначены в задаче (при условии, что Х - дробное). Если же Х - целое, то диапазоны в условиях теряют смысл, там остается только по одному числу;
3. Это я уж совсем придераюсь :blush: Интервал действия Х от 1 включительно до 5 включительно. Однако при значении Х=5, значение Y остается неизвестным ...

Как-то так ... :ku:

З.Ы. Это я, типа, сумничал ....

Сообщение отредактировал Sloth: 18 Март 2011 - 20:32

  • 0

#20 vadimkaa

vadimkaa

    Житель

  • Жильцы
  • PipPipPipPipPipPip
  • 1 081 сообщений
  • 34 тем
  • Регистрация:07 Фев 2007
  • Пол:Мужчина
  • Город:in the middle of nowhere

Отправлено 19 Март 2011 - 14:16

1. Пожалуй самое главное, ни где не сказано, что Х - целое, т.е. глядя на формулы/условия вполне резонно предположить, что Х может быть дробным;

Ого, новый тип данных - "дробный"? :)

2. Следует из 1-го, оператор case не подходит для работы с условными диапазонами в том виде, в котором они обозначены в задаче (при условии, что Х - дробное).

case trunc(X) of
	1: {...}
	2: {...}
	{...}
else:
	{...}
end;

3. Это я уж совсем придераюсь :blush: Интервал действия Х от 1 включительно до 5 включительно. Однако при значении Х=5, значение Y остается неизвестным

Это уже по делу. В условии действительно надо было полуоткрытый интервал указать для области определения X.

З.Ы. Это я, типа, сумничал ....

Типа того, да.

Сообщение отредактировал vadimkaa: 19 Март 2011 - 14:17

  • 0

Автор выражает благодарность алфавиту за предоставленные буквы


#21 Sloth

Sloth

    Абориген

  • Участник
  • PipPipPipPipPipPipPip
  • 1 971 сообщений
  • 48 тем
  • Регистрация:05 Дек 2004
  • Пол:Мужчина
  • Город:Калуга

Отправлено 19 Март 2011 - 17:12

case trunc(X) of
	1: {...}
	2: {...}
	{...}
else:
	{...}
end;

Красиво :blush:

Сообщение отредактировал Sloth: 19 Март 2011 - 17:12

  • 0

#22 kostik

kostik

    Специалист ЦТО

  • Жильцы
  • PipPipPipPip
  • 410 сообщений
  • 10 тем
  • Регистрация:08 Янв 2005
  • Пол:Мужчина
  • Город:Msk-Klg

Отправлено 21 Март 2011 - 09:39

Да у них задачи на понимание материала, а не жизненные. Поэтому даже самый умный препод ВУЗа не решит эту задачу так, как дано в условии ее. Так что пофиг на "дробный" тип данных.
  • 0
Никто не может быть таким безумным,
чтобы хотеть войны вместо мира,
ибо, когда мир, то дети хоронят отцов,
а когда война, то отцы хоронят детей.
Геродот.

#23 kostik

kostik

    Специалист ЦТО

  • Жильцы
  • PipPipPipPip
  • 410 сообщений
  • 10 тем
  • Регистрация:08 Янв 2005
  • Пол:Мужчина
  • Город:Msk-Klg

Отправлено 21 Март 2011 - 12:43

Мне больше интересно вторая задачка, есть красивое решение? Я синтаксис и возможности вообще не помню.
  • 0
Никто не может быть таким безумным,
чтобы хотеть войны вместо мира,
ибо, когда мир, то дети хоронят отцов,
а когда война, то отцы хоронят детей.
Геродот.

#24 Sloth

Sloth

    Абориген

  • Участник
  • PipPipPipPipPipPipPip
  • 1 971 сообщений
  • 48 тем
  • Регистрация:05 Дек 2004
  • Пол:Мужчина
  • Город:Калуга

Отправлено 21 Март 2011 - 15:01

Мне больше интересно вторая задачка, есть красивое решение? Я синтаксис и возможности вообще не помню.

if ((x + y + z) < 1) and (z < x) and (z < y) then
	z := (x + y) / 2
else
  if x < у then
	x := (y + z) / 2
  else
	y := (x + z) / 2;
Можно как-то так ... :blush:

Сообщение отредактировал Sloth: 21 Март 2011 - 16:23

  • 0

#25 kostik

kostik

    Специалист ЦТО

  • Жильцы
  • PipPipPipPip
  • 410 сообщений
  • 10 тем
  • Регистрация:08 Янв 2005
  • Пол:Мужчина
  • Город:Msk-Klg

Отправлено 21 Март 2011 - 15:32

Мало условий... Первое условие, если "х" окажется меньше всех?
  • 0
Никто не может быть таким безумным,
чтобы хотеть войны вместо мира,
ибо, когда мир, то дети хоронят отцов,
а когда война, то отцы хоронят детей.
Геродот.

#26 Sloth

Sloth

    Абориген

  • Участник
  • PipPipPipPipPipPipPip
  • 1 971 сообщений
  • 48 тем
  • Регистрация:05 Дек 2004
  • Пол:Мужчина
  • Город:Калуга

Отправлено 21 Март 2011 - 16:26

... Первое условие, если "х" окажется меньше всех?

Первое условие, если z меньше всех, что может быть только если сумма трех чисел меньше 1 ... В противном случае, сравниваются x и y ...
  • 0

#27 vadimkaa

vadimkaa

    Житель

  • Жильцы
  • PipPipPipPipPipPip
  • 1 081 сообщений
  • 34 тем
  • Регистрация:07 Фев 2007
  • Пол:Мужчина
  • Город:in the middle of nowhere

Отправлено 21 Март 2011 - 18:55

Да у них задачи на понимание материала, а не жизненные.

А как бы Вы сформулировали жизненную задачу на языке Паскаль для изучающих информатику?

Поэтому даже самый умный препод ВУЗа не решит эту задачу так, как дано в условии ее.

У Вас превратные представления о способностях сограждан. Приведённое мною выше решение предоставит любой студент профильного направления подготовки. Предполагаю, что абсолютное большинство "бауманцев" (вне зависимости от специальности) с заданием справятся на 1 курсе.

Так что пофиг на "дробный" тип данных.

Вам виднее. Вы - эксперт.

Можно как-то так

Лишние скобки, хотя я бы написал также.
  • 0

Автор выражает благодарность алфавиту за предоставленные буквы


#28 Sloth

Sloth

    Абориген

  • Участник
  • PipPipPipPipPipPipPip
  • 1 971 сообщений
  • 48 тем
  • Регистрация:05 Дек 2004
  • Пол:Мужчина
  • Город:Калуга

Отправлено 22 Март 2011 - 00:10

...
Лишние скобки, хотя я бы написал также.

Я как бы не программист, по крайней мере я себя таковым не считаю :rolleyes: Однако, думаю, что читаемость кода - "наше фсё"!

P.S. Тип данных, конечно, вещественный, коль уж ...
  • 0

#29 vadimkaa

vadimkaa

    Житель

  • Жильцы
  • PipPipPipPipPipPip
  • 1 081 сообщений
  • 34 тем
  • Регистрация:07 Фев 2007
  • Пол:Мужчина
  • Город:in the middle of nowhere

Отправлено 22 Март 2011 - 16:31

Однако, думаю, что читаемость кода - "наше фсё"!

Согласен, поэтому и уточнил, что написал бы так же. Даже в четвёртой строке (в условии) поставил бы скобки, чтоб читалось лучше :)
  • 0

Автор выражает благодарность алфавиту за предоставленные буквы





Количество пользователей, читающих эту тему: 0

0 пользователей, 0 гостей, 0 анонимных