http://compression.ru/download/sources/huff/mastrukov_huff.rar http://ishodniki.ru/list/info.php?cat=6&id=1620&show=cpp_arhiv
помогите по паскалю, задача Вот условие: Напиши те процедуру convert, преобразовать получающую один параметр date (дата), типа string, содержаший значение календарной даты. В форме мм/дд/гг. Например: 14 декабря 1960 будет изображен как 12.14.02. Задача процедуры convert состоит в преобрзование полученого значения в форме месяц день год. Так результат только что приведенной даты 12.14.02 должно стать декабрь 14,2002 (предполагается что все даты относятся к 21 веку)
А в чем проблема собственно? Возьми мануал по паскалю, и почитай по словам procedure, string, array, val
последний раз писал на паскале лет 5 назад, ну попробую вспомнить: PHP: procedure convert(date: string; var result: string); var mm, dd, yy : string; i, err : integer; months : array[1..12] of string[20]; begin months[1] := 'январь'; ... months[12] := 'декабрь'; mm := date[1]+date[2]; dd := date[4]+date[5]; yy := date[7]+date[8]; val(mm, i, err); result := months[i] + ' ' + dd + ',20' + yy; end; var result : string; begin convert('12.14.02', result); writeln(result); end.
Ууу,ребята... Сессия...Программирование...Делфи... На понедельник надо будет принести лабары,в которых никто не шарит. Точнее шарит препод,который ничего не объясняет,а сейчас сидеть читать учебники времени совсем нет. Полный завал... Вот задачи. Очень безумно буду благодарен,если спасёте меня 1.Задана матриця елементів розмірністю nхn. Отримати обернену матрицю. 2.Фрагмент тексту зчитується з певного текстового файлу. Сформувати інший текст, який містить всі речення вихідного тексту, які закінчуються знаками питання або оклику. 3.Дано фрагмент тексту. Сформувати список, який містить довжини кожного речення вихідного тексту. Заборонити можливість виділення розміру шрифта в момент відкриття вікна діалогу налаштування властивостей шрифтів. 4.При натисненні на кнопку підрахувати загальну кількість слів в тексті, що вводиться користувачем. Заборонити можливість виділення стилю шрифта в момент відкриття вікна діалогу налаштування властивостей шрифтів. 5.Виконати попередні індивідуальні завдання (робота з текстом- задачі 3,4), використовуючи головне меню та діалоги відкриття та збереження файлів,забезпечити можливість збереження та відкриття файлів в форматі RTF. Ну кто чем может помочь!? Очень выручите!Спасибо большое заранее.
А ты не обнаглел, друже (укр.)? даже перевести было влом. "в момент открытия окна диалога согласования *** шрифтов". Чего? каких шрифтов? это классика- и в сети валом на всех языках. даже гугль заюзать лень. п.с. все вам, ***, плохо объясняют...
млин деж ты учишся что матрицу сформировать не можешь? a:array[1..n,1..n]; randomize; for i:=1 to n begin for j:=1 to n begin a[i,j]:=random(10); end; end;
Прощу прощения. Гуглить не успел ещё. За перевод забыл( В момент открытия окна диалога настройки свойства шрифтов. Ну так если это действительно так. По лабам вообще инчего не объсняют.
1.Задана матриця елементіов размерностью nхn. Получить обратную матрицу. 2.Фрагмент текста считывается из определенного текстового файла. Сформировать другой текст, который содержит все предложения исходного текста, которые заканчиваются знаками вопроса и восклицания. 3.Дано фрагмент текста. Сформировать список, содержащий длины каждого предложения исходного текста. Запретить возможность выделения размера шрифта в момент открытия окна диалога настройки свойств шрифтов. 4.При нажатии на кнопку подсчитать общее количество слов в тексте, вводимую пользователем. Запретить возможность выделения стиля шрифта в момент открытия окна диалога настройки свойств шрифтов. 5.Выполнить предварительные индивидуальные задания (работа с текстом-задачи 3,4), используя главное меню и диалоги открытия и сохранения файлов, обеспечить возможность сохранения и открытия файлов в формате RTF. Это всё делфи.
Гугл предлагает купить обратную матрицу ( Или там какие то огромнные программы,которые не работают...
Delphi. Сделайте пожалуйста процедуру сортировки матрицы, среда крайний срок сдачи else отчислят. Авто ввод и все такое сделано, только саму процедуру (исходник) http://upwap.ru/454509 условия в исходнике.
кто-нибудь может максимально решить и максимально подробно обьяснить решение? Вторая задача: Дана последовательность Mj литерных матриц 20*30. Нужно найти число матриц Mk, что для некоторой матрицы Mi, k > i, выполняется следующее условие: Ф(Mi) > i + 10. Где функция Ф возвращает число упорядоченных столбцов матрицы в которых есть хотя бы один символ цифры. Третья задача: Дано бинарное дерево. Нужно посчитать число четных чисел, лежащих ниже заданного уровня.
Вот еще задачка) на Pascal'e Пусть дан текст. Определите содержит ли он символы отличающиеся от букв и пробелов.
Code: // a =97 // z = 122 // 0 = 48 // 9 = 57 // а = 225 // я = 255 делай цикл и проверяй ord(буква) http://bestaccounts.org/