Пожалуйста помогите с 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,&#133sn имеется хотя бы
> один пробел. Рассм. 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 раз. Голова заболела&#133

Имхо обычно такие задачи формулируются типа  удалить все латинские буквы до первого пробела, а тут видимо еще в задание входит понять че надо&#133

← →
Kolan © (2007-12-18 15:39) [32]

> А одним можно?

Да :), действительно нах. два сразу идем и копируем/удаляем пока не найдем пробел&#133

← →
Плохиш © (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]
> > Где в задании говориться про строки?
>
> Ну а где лежат символы?

Где угодно, к примеру, в файле, списке.

> Kolan © (18.12.07 15:42) [36]
> Хех не один я ступил, что можно сразу все сделать:)

Обычно такие задачи даются именно на строковые функции.
Главное написать не коротко и быстро, а наваять как можно больше извращений.
Можно ведь и первый пробел искать перебором :)))

> Можно ведь и первый пробел искать перебором :)))

Им и искать, и сразу выбирать

var GivenString, ResultString: string; I: Integer; begin GivenString := "as1dfs2d3f sdfsdf"; ResultString := ""; I := 1; while GivenString[I] <> " " do begin if not (GivenString[I] in ["A"&#133"Z", "a"&#133"z"]) then ResultString := ResultString + GivenString[I]; I := I + 1; end; ShowMessage(ResultString); end;

> oldman (18.12.2007 15:41:34) [34]

А где в вопросе про одномерный массив.

> Ни одной строковой функции&#133

Да нафих они нужны тут? Искать Pos, делать Copy а потом еще в цикле искать  бррр к томуже  это же по паскалю вопрос&#133

> Ну хорошо если пробел  это не #32

А что это?

> А если в строке не будет пробелов?

Следовательно там и не будет «нелатиских букв до первого прбела».

> > Ну хорошо если пробел — это не #32
> А что это?

А фиг знает например #255 ))

> > А если в строке не будет пробелов?
> Следовательно там и не будет «нелатиских букв до первого
> пробела».

И цикл вылетит с ошибкой

> [14] Плохиш © (17.12.07 19:20)
>
> Тут не служба поддержки дармоедов...

Это ты зря. Всегда найдутся такие.
По непонятной мне причине.
Чтоб никто не усомнился, что они это могут?

Заниженная самооценка?

> [40] Kolan © (18.12.07 15:51)

> И цикл вылетит с ошибкой

А, ну ессно условие должно включать проверку на конец строки
while (GivenString[I] <> " ") or (I <= Length(GivenString)) do

А пробел он и в африке пробел&#133

> А, ну ессно условие должно включать проверку на конец строки
> while (GivenString[I] <> " ") or (I <= Length(GivenString)) do
> А пробел он и в африке пробел…

Собсна в [43] я про Length и намекал, а про пробел уж так...))

А пробел он и в африке пробел&#133

Я с oldman"ом общался, ответ в виде кода для автора  побочный продукт. Или мне надо было ветку завести для этого, а? Делать мне больше нефих как думать о там, что вот я напишу  что-то и какой-то Дмитрий получит ответ ни че не делая&#133 Я хотел объяснить человеку об чем говорю и объяснил&#133

В замен фразы «А пробел он и в африке пробел…» в посте [51] читать: «>Заниженная самооценка?»&#133

> [18] Германн © (18.12.07 01:39)

На добром слове спасибо, но на счет "пока" -
вопрос спорный. Если уж 6,5 лет службы меня
не исправили... :)

> [25] Kleyster (18.12.07 15:31)
> > Что такое компоненты? Это слова?
> Сдается мне, что раз файлы символьные, то компоненты - символы

Соглашусь.

> > Т.е. есть сторока. Каждый ее символ, не являющийся *нужно
>
> > написать давжды , а являющийся * удалить?
>
> Ну почему же опять строка? Вроде у человека написано "символы"
> Исходя из постоянно встречающегося слова "символ", мне представляется
> логичным, что вопрошающий товарищ со своим классом до строк
> еще не добрался. Посему всеобщее недоумение по поводу формулировки
> задач у меня вызывает недоумение.

Массив символов? Пусть так.

Дмитрий, ответ > [40] Kolan © (18.12.07 15:51)
вполне приемлем для задачи 3, но давайте воздержимся
от такого рода ответов.
Подсказывать != давать_готовые_ответы

По задаче 1 считать символы из файла сможешь?
По задаче 2 все понятно?

> По задаче 2 все понятно?

Почитал-почитал тему - и стало мне ещё менее понятнее чем в начале... :)

Пожалуйста помогите с Pascal Найти похожие ветки