Результати пошуку

Ответ: Turbo Pascal Странно, в принципе, всё должно работать. Приложи исходники и откомпилированную программу, я посмотрю, может что то и подскажу.

Ответ: Поиск фильмов. ed2k://|file|%D0%A8%D0%BE%D0%BA%D0%BE%D0%BB%D0%B0%D0%B4(Chocolat)%20(2000)%20DVDRip.avi|691355648|594BFFF773D5F1D3BD63422E6A23E4E8|h=L2CHS2UXUWP6B2T5QGIPCIO4QP2HWDAE|/ http://depp-site.narod.ru/films.htm

Ответ: Turbo Pascal...

Ответ: Turbo Pascal Только второй вариант и правильный! Я же писал уже тебе по-поводу твоего "первого варианта". Тот код даже не сможет быть скомпилирован, скорее всего будет выдано сообщение о несоответствии типов.

Ответ: Turbo Pascal А вот тут уже я плужу :), только сам рассказывал о приоритете операций, а сам же на этом и попался :). Правильный вариант записи такой: if not (P[i,j] in [3,-3]) Свой первоначальный пост я исправлю.

Ответ: Turbo Pascal Во-первых, после do не нужны точка с запятой, то есть: for i:=1 to 4 do for j:=1 to 2 do ... ; Во-вторых, приоритет операции and выше чем операции сравнения <>, поэтому записанное тобой выражение условия эквивалентно такому, (P[i,j]<>(3 and P[i,j]))<>-3 которое мало...

Ответ: Turbo Pascal Ещё нужны или уже сам разобрался? Могу посоветовать пару книг и дать несколько ссылок по теме

Проверить младший бит: если 1 -- число нечётное, 0 --- число чётное ;) Нет, зачем же, в стандартном модуле System для данной цели есть специальная функция.

Ответ: Turbo Pascal А х там случайно в скобки заключить не надо? :) И пробел перед ln удалить :)

Ответ: Turbo Pascal Чувак, не позорься, это же элементарные задачи, может просто стоит прочитать конспект/учебник и немного пошевелить мозгами?

Ответ: Turbo Pascal Молодец, я тоже догадался почему возникает ошибка :)

Ответ: Turbo Pascal Ты бы не мог скомпилировать этот код и приложить скриншоты работающей программы? :) Только, раз уж твоя программа работает для любых чисел, то ты возьми числа побольше :)

Ответ: Turbo Pascal Да, извини, ты права, даже не знаю как я упустил из виду... Просто наверное сработал стереотип, я бы это программировал немного не так. Так что извини если обидел. В дальнейшем буду более внимательным

Ответ: Turbo Pascal Неа, самый классный код у GH0ST --- самое простое, оригинальное и изящное решение поставленной задачи. Вот только, GH0ST, а зачем там строчка z:=i[0] div 1? "Шоб було"? "Шоб использовать div"? Не решить, если число произвольное, а если заданы ограничения на него, то...

Ответ: Turbo Pascal Итак, продолжим анализ твоего, nilayn, кода :) После запроса ввода числа ты проверяешь, выполняется ли условие задачи, по которому число не должно превышать 1000, и если это условие не выполняется (x>=1000), то выводишь предупреждающее сообщение и запрашиваешь ввод нового...

Ответ: Turbo Pascal Вот же ё, пока писал свой ответ nilayn написал что-то похожее на то, что написал я :). Сейчас буду разбираться в коде nilayn. Кстати, сразу вопрос: а зачем там модуль CRT/WinCRT подключать?

Ответ: Turbo Pascal Мне кажется, что задача всё-таки может быть решена без использования циклов, если принять во внимание ограничения --- число натуральное и не превышает 1000. То есть, это числа 1, 2, 3, ..., 999. Пусть n --- указанное число, k --- количество цифр в нем. Тогда, 1, если...

Ответ: Turbo Pascal Тагрим, пару минут сидел соображал, а на Паскале ли ты это написал? На том месте, где в приведённом тобой фрагменте кода стоит 1, должно, как правильно заметил KoLoB, располагаться условие. Условие представляет собой выражение логического типа, 1 --- это выражение...

Ответ: Turbo Pascal Извини, но как это соотносится с твоими словами о том, что: ?! Через какой-же цикл ты тогда её решил?! В Паскале есть всего три вида циклов: цикл с пред-условием (while...do), цикл с пост-условием (repeat...until) и цикл со счётчиком (for ...to...do). Других вариантов...

Ответ: Turbo Pascal А что такое i? Видимо, ты просто ошибся и там надо было написать count? :) Дальше, если там действительно должна быть переменная count, то какое её первоначальное значение? Почему нет присваивания ей какого-либо значения перед циклом? Допустим, что перед циклом...