Форум: "Прочее";
Текущий архив: 2008.01.27;
Скачать: [xml.tar.bz2];
ВнизПожалуйста помогите с Pascal Найти похожие ветки
← →
Дмитрий (2007-12-17 13:30) [0]помогите решить 3 задачи в Pascal PLEASE:
1)Даны символьные файлы f и g. Записать в файл n все начальные совпадающие компоненты файлов f и g.
2)Даны натуральное n, символы s1, s2, . . . , sn. Преобразовать последовательность s1, s2, . . . , sn, удалив каждый символ * и повторить каждый символ отличный от *.
← →
SergeyIT © (2007-12-17 13:33) [1]Зачеты?
← →
tesseract © (2007-12-17 13:33) [2]Раньше шпаргалками пользовались, теперь интренетом......
← →
{RASkov} © (2007-12-17 13:37) [3]> [0] Дмитрий (17.12.07 13:30)
Вы когда учиться будете!?
А вообще форум смени, я не вижу в твоих вопросах - вопросов касающих делфи...
← →
ыы (2007-12-17 15:05) [4]а волшебное слово?
← →
БарЛог © (2007-12-17 15:18) [5]> помогите решить 3 задачи в Pascal PLEASE:
лол. а задач то - две! :)
← →
oldman © (2007-12-17 15:22) [6]
> 1)Даны символьные файлы f и g. Записать в файл n все начальные
> совпадающие компоненты файлов f и g.
> 2)Даны натуральное n, символы s1, s2, . . . , sn. Преобразовать
> последовательность s1, s2, . . . , sn, удалив каждый символ
> * и повторить каждый символ отличный от *.
1) А что такое "символьный файл" по русски? И что такое "начальные совпадающие компоненты" для символьных файлов?
2) А зачем дано n?
← →
ProgRAMmer Dimonych © (2007-12-17 16:00) [7]> Дмитрий (17.12.07 13:30)
> помогите решить 3 задачи в Pascal PLEASE:
Про то, что их две, уже сказали :) Наверное, третья задача - как заставить людей с этого форума решить первые две задачи.
> 1)Даны символьные файлы f и g.
Второй файл, наверное, действительно очень плохой. :)
> Записать в файл n все начальные совпадающие компоненты файлов f и g.
Начальные компоненты - это биты, байты, символы, строки, блоки?
> 2)Даны натуральное n, символы s1, s2, . . . , sn. Преобразовать
> последовательность s1, s2, . . . , sn, удалив каждый символ
> * и повторить каждый символ отличный от *.
Теряюсь в догадках, зачем, действительно, дано n? Я пропустил декабрьскую программерскую революцию? Или XIV съезд ЦК ППЯВУ (Партии Программистов на Языках Высокого Уровня) постановил не пользовать String и ему подобные?
И вообще - вторая задача - как минимум детская, в таком варианте. Как, впрочем, и первая (обе после уточнения условия). Вот если бы ещё стоял вопрос: решить за время меньше линейного (O(3), например) - тогда да. :)
← →
boa_kaa © (2007-12-17 16:29) [8]
> БарЛог © (17.12.07 15:18) [5]
>
> > помогите решить 3 задачи в Pascal PLEASE:
> лол. а задач то - две! :)
Третья задача - понять, что требовалось в первых двух :)
← →
GEN++ (2007-12-17 16:38) [9]У меня сын принес из института задание по лин. алгебре.
В заголовке задания написано:
Отчет о выполнения задания сдать на листах
ВЫРВАННЫХ ИЗ ТЕТРАДИ или листах
формата А4, скрепленных степлером
ч/с так написано, если бы сам не видел -подумал бы что "баян"
← →
Дмитрий (2007-12-17 19:03) [10]Если все такие умные, почему никто не помог????Для кого нибудь они может и детские, а я немогу их решить, и поэтому это написано в теме для НАЧИНАЮЩИХ!!!!попрошу ещё раз:КТО НИБУДЬ ПОМОГИТЕ С ЗАДАЧАМИ!!!!!Пожалуйста!!!!!!
← →
Kolan © (2007-12-17 19:11) [11]> НАЧИНАЮЩИХ!!!!попрошу ещё раз:КТО НИБУДЬ ПОМОГИТЕ С ЗАДАЧАМИ!
> !!!!Пожалуйста!!!!!!
Не ори, кишки простудишь. Как решал показывай, помочь поможем, просто делать никто не будет.
← →
turbouser © (2007-12-17 19:14) [12]
> Kolan © (17.12.07 19:11) [11]
> просто делать никто не будет.
Еще бы знать что именно делать :)
Если в 1-м задании телепатическим способом можно угадать что именно надо делать,
то во 2-м совсем темный лес.
← →
БарЛог © (2007-12-17 19:14) [13]> Как решал показывай...
Зашел, значится, я на делфимастер...
← →
Плохиш © (2007-12-17 19:20) [14]
> то во 2-м совсем темный лес.
Да ладно, всё понятно :-)
> Дмитрий (17.12.07 19:03) [10]
Тут не служба поддержки дармоедов...
← →
ProgRAMmer Dimonych © (2007-12-17 19:40) [15]> Дмитрий (17.12.07 19:03) [10]
> Если все такие умные, почему никто не помог????Для кого
> нибудь они может и детские, а я немогу их решить, и поэтому
> это написано в теме для НАЧИНАЮЩИХ!!!!попрошу ещё раз:КТО
> НИБУДЬ ПОМОГИТЕ С ЗАДАЧАМИ!!!!!Пожалуйста!!!!!!
Странно. У меня почему-то это написано в теме "Прочее". По поводу сложности: не знаю. Знаю половину учителей информатики нашего города (ну, штук 8 :)) - они подобные задачи, и даже сложнее, дают после того, как проходят соответствующую тему, в качестве первой задачи для самостоятельного решения - и люди, с трудом находя нужные буквы на клавиатуре, управляются за урок решить таких штук пять.
Нет, выход есть: пиши, по какой такой плохой книжке учишься программировать, что не знаешь, как работать со строками и файлами - может быть книжку поругаем, задачу решить поможем, а так только тебя можем поругать. Или, действительно, то, что есть выкидывай.
P.S. для Дмитрий. И незачем так орать (С)
> БарЛог © (17.12.07 19:14) [13]
> > Как решал показывай...
> Зашел, значится, я на делфимастер...
+5
> Плохиш © (17.12.07 19:20) [14]
> > то во 2-м совсем темный лес.
> Да ладно, всё понятно :-)
Почти. Непонятно, что всё-таки называется "компонентом символьного файла", но если принять за непоколебимую истину, что задача действительно примитивна до ужаса, то наверное речь идёт о строках. Опять же полностью писать программу за автора никто здесь не станет. Если бесплатно :)
> > Дмитрий (17.12.07 19:03) [10]
> Тут не служба поддержки дармоедов...
Грубо, но ёмко. Жму руку, одобряю.
← →
Real © (2007-12-18 00:19) [16]
> > помогите решить 3 задачи в Pascal PLEASE:
> лол. а задач то - две! :)
Ковбой в салуне: "Я люблю три вещи: курить и стрелять!" (с) Городок
← →
Kostafey © (2007-12-18 01:02) [17]Ладно, народ, чел. учится школе.
Тут же добрая половина или профессиональные программисты
или как минимум студенты профильных специальностей.
Традиции форума нужно просто подсказать, мол не принято так,
чтобы вот так все и сделали за тебя, но при определенном
упорстве человек может найти здесь подсказку.
Дмитрий, давай сначала уточним задачу:
> 1)Даны символьные файлы f и g. Записать в файл n все начальные
> совпадающие компоненты файлов f и g.
Что такое компоненты? Это слова?
> 2)Даны натуральное n, символы s1, s2, . . . , sn. Преобразовать
> последовательность s1, s2, . . . , sn, удалив каждый символ
> * и повторить каждый символ отличный от *.
Т.е. есть сторока. Каждый ее символ, не являющийся *
нужно написать давжды , а являющийся * удалить?
← →
Германн © (2007-12-18 01:39) [18]
> Kostafey © (18.12.07 01:02) [17]
Добрый ты человек, Костя. Пока ещё добрый, но и это уже хорошо.
← →
Palladin © (2007-12-18 12:23) [19]
> Ладно, народ, чел. учится школе.
Ну вот когда правильно сосчитает сколько же у него задач, тогда уже можно и к программированию переходить... :)
← →
Petr V. Abramov © (2007-12-18 12:29) [20]> Palladin © (18.12.07 12:23) [19]
программисту необязательно знать математику.
это только тупым бухгалтерам надо, деньги считать.
← →
Плохиш © (2007-12-18 12:36) [21]
> Petr V. Abramov © (18.12.07 12:29) [20]
"Программист" должен знать уметь набрать на клавиатуре только буковки www.delphimaster.ru
← →
Skyle © (2007-12-18 12:40) [22]
> Дмитрий (17.12.07 13:30) [0]
Будьте так галантерейны и приведите здесь оригинальные формулировки заданий (от преподавателя) и примеры входных и выходных данных, как, по вашему пониманию, должно всё происходить.
← →
Плохиш © (2007-12-18 12:42) [23]
> Skyle © (18.12.07 12:40) [22]
Вот и начали на "слабо" разводиться :-D
← →
Skyle © (2007-12-18 12:42) [24]
> Плохиш © (18.12.07 12:42) [23]
>
> > Skyle © (18.12.07 12:40) [22]
>
> Вот и начали на "слабо" разводиться :-D
Скучно просто... :)
← →
Kleyster (2007-12-18 15:31) [25]
> Что такое компоненты? Это слова?
Сдается мне, что раз файлы символьные, то компоненты - символы
> Т.е. есть сторока. Каждый ее символ, не являющийся *нужно
> написать давжды , а являющийся * удалить?
Ну почему же опять строка? Вроде у человека написано "символы"
Исходя из постоянно встречающегося слова "символ", мне представляется логичным, что вопрошающий товарищ со своим классом до строк еще не добрался. Посему всеобщее недоумение по поводу формулировки задач у меня вызывает недоумение.
← →
Дмитрий (2007-12-18 15:32) [26]Все выше перечисленные задачи - оригиналы(от преподавателя)!!!
Я и сам не могу понять в чём задание!!!Спросил у учителя, он говорит - РАЗБЕРАЙСЯ!!!
Вот третья задача:
3)Даны символы s1, s2, . . . sn. Изв. что символ s1 отличен от пробела и что среди s2, s3, s4,....sn имеется хотя бы один пробел. Рассм. s1, . . . , sn - символы, предшествующие первому пробелу (n заранее неизвестно). Удалить из неё все символы не явл. буквами(латинскими).
Пожалуйста НАРОД помогите!!!!ЖЕЛАТЕЛЬНО С ПОЯСНЕНИЯМИ!!!!!БУДУ ОЧЕНЬ БЛАГОДАРЕН!!!!
← →
SergeR © (2007-12-18 15:37) [27]
> Дмитрий (18.12.07 15:32) [26]
Честно прочитал задание 5 раз. Голова заболела....
← →
Kolan © (2007-12-18 15:37) [28]> )Даны символы s1, s2, . . . sn. Изв. что символ s1 отличен
> от пробела и что среди s2, s3, s4,…sn имеется хотя бы
> один пробел. Рассм. s1, . . . , sn — символы, предшествующие
> первому пробелу (n заранее неизвестно). Удалить из неё все
> символы не явл. буквами(латинскими).
Двумя циклами.
1. Первым циклом находишь позицию первого пробела и запоминаешь её.
2. Вторым идещь от начала и до запомненой на шаге 1 позиции и в еще одну строку копируешь только те символы, которые НЕ латинские буквы.
Либо на шаге 2 можно удалять из строки.
← →
Плохиш © (2007-12-18 15:38) [29]
> Спросил у учителя, он говорит - РАЗБЕРАЙСЯ!!!
Прям так и говорит?
> БУДУ ОЧЕНЬ БЛАГОДАРЕН!!!!
Остался открытым вопрос, как будет выражаться благодарность, какими действиями?
← →
Skyle © (2007-12-18 15:38) [30]
> Kolan © (18.12.07 15:37) [28]
А одним можно?
← →
Kolan © (2007-12-18 15:38) [31]> [27] SergeR © (18.12.07 15:37)
>
> > Дмитрий (18.12.07 15:32) [26]
>
> Честно прочитал задание 5 раз. Голова заболела…
Имхо обычно такие задачи формулируются типа — удалить все латинские буквы до первого пробела, а тут видимо еще в задание входит понять че надо…
← →
Kolan © (2007-12-18 15:39) [32]> А одним можно?
Да :), действительно нах. два сразу идем и копируем/удаляем пока не найдем пробел…
← →
Плохиш © (2007-12-18 15:40) [33]
> Kolan © (18.12.07 15:37) [28]
Где в задании говориться про строки?
← →
oldman © (2007-12-18 15:41) [34]Ладно уж...
Известно, что строка может рассматриваться как одномерный массив.
1. Ищем первый пробел.
2. Выкусываем кусок строки от 1 до пробела.
3. Перебираем кусок как массив и выкидываем все не латинские буквы.
ЗЫ: Задача 2 решается аналогичным способом.
ЗЗЫ: Строковые функции сам знаешь, или вслух читать?
← →
oldman © (2007-12-18 15:42) [35]
> n заранее неизвестно
Да... Для строки символов это критично...
:)))
← →
Kolan © (2007-12-18 15:42) [36]> Где в задании говориться про строки?
Ну а где лежат символы? В массиве array of Char? Если так, то какая разница?
> 34] oldman © (18.12.07 15:41)
Хех не один я ступил, что можно сразу все сделать:)
← →
boriskb © (2007-12-18 15:43) [37]> [31] Kolan © (18.12.07 15:38)
> > [27] SergeR © (18.12.07 15:37)
> >
> > > Дмитрий (18.12.07 15:32) [26]
> >
> > Честно прочитал задание 5 раз. Голова заболела…
>
> Имхо обычно такие задачи формулируются типа — удалить все
> латинские буквы до первого пробела, а тут видимо еще в задание
> входит понять че надо…
Да да.
Об этом уже не раз говорили здесь
Цикл уже запущен и прошла не одна итерация.
Сам цикл.
Из слабых учеников получаются слабые учителя
Слабые учителя воспитывают слабых учеников.
Вперед - в светлое будущее!
← →
Плохиш © (2007-12-18 15:45) [38]
> Kolan © (18.12.07 15:42) [36]
> > Где в задании говориться про строки?
>
> Ну а где лежат символы?
Где угодно, к примеру, в файле, списке.
← →
oldman © (2007-12-18 15:46) [39]
> Kolan © (18.12.07 15:42) [36]
> Хех не один я ступил, что можно сразу все сделать:)
Обычно такие задачи даются именно на строковые функции.
Главное написать не коротко и быстро, а наваять как можно больше извращений.
Можно ведь и первый пробел искать перебором :)))
← →
Kolan © (2007-12-18 15:51) [40]> Можно ведь и первый пробел искать перебором :)))
Им и искать, и сразу выбиратьvar
GivenString, ResultString: string;
I: Integer;
begin
GivenString := "as1dfs2d3f sdfsdf";
ResultString := "";
I := 1;
while GivenString[I] <> " " do
begin
if not (GivenString[I] in ["A"…"Z", "a"…"z"]) then
ResultString := ResultString + GivenString[I];
I := I + 1;
end;
ShowMessage(ResultString);
end;
Страницы: 1 2 вся ветка
Форум: "Прочее";
Текущий архив: 2008.01.27;
Скачать: [xml.tar.bz2];
Память: 0.56 MB
Время: 0.006 c