• Добро пожаловать на компьютерный форум Tehnari.ru. Здесь разбираемся с проблемами ПК и ноутбуков: Windows, драйверы, «железо», сборка и апгрейд, софт и безопасность. Форум работает много лет, сейчас он переехал на новый движок, но старые темы и аккаунты мы постарались сохранить максимально аккуратно.

    Форум не связан с магазинами и сервисами – мы ничего не продаём и не даём «рекламу под видом совета». Отвечают обычные участники и модераторы, которые следят за порядком и качеством подсказок.

    Если вы у нас впервые, загляните на страницу о форуме и правила – там коротко описано, как задать вопрос так, чтобы быстро получить ответ. Чтобы создавать темы и писать сообщения, сначала зарегистрируйтесь, а затем войдите под своим логином.

    Не знаете, с чего начать? Создайте тему с описанием проблемы – подскажем и при необходимости перенесём её в подходящий раздел.
    Задать вопрос Новые сообщения Как правильно спросить
    Если пришли по старой ссылке со старого Tehnari.ru – вы на нужном месте, просто продолжайте обсуждение.

Недавнее содержимое от Zont

  1. Z

    Помогите найти ошибку, Pascal abc

    program az; var s, s2:String; i:Integer; ch:Char; begin writeln ('ââåäèòå çàïèñü:'); readln (s); s2:=s[1]; for i:=2 to length(s)-1 do if s[i]='-' then for ch:=succ(S[i-1]) to pred(S[i+1]) do s2:=s2+ch else s2:=s2+s[i]; s2:=s2+S[i+1]; writeln (s2); end. так правильнее все...
  2. Z

    Помогите найти ошибку, Pascal abc

    Ну может быть. Просто мало ли человек, который вводит ряд, не знает точный порядок символов, и соответственно программа должна ему выдать, что не было ошибки. Короче не суть, все это доп. заморочки, все и так отлично (:
  3. Z

    Помогите найти ошибку, Pascal abc

    У нас задача восполнить недостающий символ. А если он будет восполняться таким образом, нарушая алфавит, что же в этом хорошего?) Я думала будет выдавать "xyz", таким образом показывая, что нет пропущенного символа в ряду. Спасибо, Владимир (:
  4. Z

    Помогите найти ошибку, Pascal abc

    Хм...и правда. Но может быть препод их потребовал, дабы удостовериться в знании этой темы. ps теперь, когда случай x-y-z, выдает xyyz (:
  5. Z

    Помогите найти ошибку, Pascal abc

    Спасибо. Такой вариант даже не рассматривала. В принципе, не хотите рассказать, что именно необходимо подправить? (: Чисто для себя интересно.
  6. Z

    Помогите найти ошибку, Pascal abc

    Не ожидала, что Вы ответите в 8 утра! $% И очень обидно, что не прочитала Ваши пояснения. То, что мне и нужно было. program az; var s, s2:String; i:Integer; ch:Char; begin writeln ('введите строку:'); readln (s); s2:=s[1]; for i:=2 to length(s)-1 do if s[i]='-' then for...
  7. Z

    Помогите найти ошибку, Pascal abc

    Во-первых, Владимир, хочу сказать большое спасибо, что все-таки отозвались и потратили на меня свое время. Во-вторых, программа выдает много ошибок о неправильном присвоении типов. Я пыталась изменить. Но в любом случае Ваш вариант слишком сложен для меня. ( в плане сложности решения) Я видать...
  8. Z

    Помогите найти ошибку, Pascal abc

    program az; var s, s1, s2:String; i:Integer; ch:Char; begin writeln ('Ââåäèòå ñòðîêó:'); readln (s); s2:=s[1]; for i:=2 to length(s)-1 do begin if s[i]='-' then for ch:=chr(i) to succ(s[i]) do s2:=s1+ch else s1:=s2+s[i]; writeln (s2); end; end. У меня стало выводить точку О_О ура :D
  9. Z

    Помогите найти ошибку, Pascal abc

    Ооох :( Конечно же сейчас сама посижу еще. Я не понимаю функцию (если это я вообще правильно называю) char Если можете пояснить сейчас, то... (: Если завтра ждать помощи, то во сколько? В 11-12 дня я уезжаю в универ.
  10. Z

    Помогите найти ошибку, Pascal abc

    Ох Спасибо, что откликнулись (: Ну у меня тут куча друзей кидают Вам "реши да напиши" на паскале. У всех у них тоже авс. Так что в принципе пишите на чем угодно, мне лишь бы суть понять, переделать под себя всегда смогу (: Мне завтра надо сдавать готовый отчет по всем программам :( Я просто...
  11. Z

    Помогите найти ошибку, Pascal abc

    Помогите найти ошибку, Pascal abc Я уже просила помощи, но так никто и не откликнулся. Оказалось, что программа не так трудна как кажется. Задание: Напишите функцию, превращающую сокращенную запись вида a-z в строке s1 в эквивалентный полный список abcd..xyz в s2. Допускаются буквы на двух...
  12. Z

    Пожалуйста, помогите с задачей

    Пожалуйста, помогите с задачей Напишите функцию, превращающую сокращенную запись вида a-z в строке s1 в эквивалентный полный список abcd..xyz в s2. Допускаются буквы на двух регистрах и цифры. (Учесть варианты a-b-c, a-z0-9; начальные или конечные символы "-" воспринимаются буквально)...
Назад
Сверху