Обратная связь

Если у вас возникают какие-либо вопросы, оставляйте их в комментариях под любой статьей.

  • petanisimov

    У вас что-то там сломалось
    overflow-y вообще лучше, по-моему, отключать, если не нужен

    • Александр Жебанов

      Думается, в задачах Proc8° и Proc9 нужно включить проверку на правильность ввода(по условию задач вводить нужно целое положительное число K и входные параметры целого типа, лежащие соответственно в диапазоне 0–9 и 1-9)…

  • good for you

    Как отмечать то, что цифры включительны или нет?

  • ding657

    If23. Даны целочисленные координаты трех вершин прямоугольника, стороны которого параллельны координатным осям. Найти координаты его четвертой вершины.

    По-моему так проще

    program exp;

    var x1,x2,x3,x4,y1,y2,y3,y4:integer;

    begin

    writeln(‘Введите координаты 3 точек’);

    read(x1,y1,x2,y2,x3,y3);

    if x2=x3 then x4:=x1

    else x4:=x3;

    if y1=y2 then y4:=y3

    else y4:=y1;

    writeln(‘Координаты четвертой вершины: (‘, x4, ‘;’, y4,’)’ );

    end.

  • Николай

    Proc7. Описать процедуру InvertDigits(K), меняющую порядок следования цифр целого положительного числа K на обратный (K — параметр целого типа, являющийся одновременно входным и выходным). С помощью этой процедуры поменять порядок следования цифр на обратный для каждого из пяти данных целых чисел.

    я начинающий программист самоучка. Не могу понять. В описании процедуры procedure InvDigits(var inv_k: integer); входных параметров нет только выходные (var inv_k: integer) как она работает? Я пытался его написать так: InvDigits(k: integer; var k: integer); но так не работает.

    • У процедуры только входные данные, это у функции надо задавать два формата: входных и выходных файлов. Почитайте статью про функции и процедуры более внимательно, там написано про это.

      • Омар Шайхалиев

        можете посоветовать ресурс или книгу чтобы развиваться после этого сайта.

  • Роман Александрович

    Помогите пожалуйста.Навигация у вашего сайта хромает.Вот я сейчас вкратце опишу свою ситуацию: прошел все уроки во вкладке «Введение в Паскаль».Что изучать дальше, опишите пожалуйста полный последовательные курс, или расскажите как пользоваться сайтом, чтобы изучать все по порядку и не запутаться.Спасибо

    • Суть в том, что у нас всего тут 13 уроков(в введении первые 11 добавлены). Видимо, вы не прошли один урок про циклы и другой про функции. Вы можете найти их с помощью поиске. Ничего больше так и не добавили мы: ни строк, ни массивов, — ничего в общем.
      Так что вы уже практически переросли этот сайт 🙂

  • Andrew

    Что за шрифт?

  • Дмитрий Тарбаев

    Было бы неплохо слегка подправить шаблон сайта: разделить его на 2 колонки и сдвинуть блок с комментариями. Так сайт будет смотреться аккуратнее 🙂

  • Дмитрий Тарбаев

    Было бы неплохо слегка подправить шаблон сайта: разделить его на 2 колонки и сдвинуть блок с комментариями. Так сайт будет смотреться аккуратнее 🙂

  • Дмитрий Тарбаев

    Было бы неплохо слегка подправить шаблон сайта: разделить его на 2 колонки и сдвинуть блок с комментариями. Так сайт будет выглядеть аккуратнее 🙂

  • Максим

    Было бы неплохо добавить в каждый пример пример (да, вот так). Для самопроверки. Чтобы не приходилось каждую буковку проверять (я понимаю, что программисту придется это делать, но с такими вот однотипными задачами в большом количестве — либо не проверять вообще, либо тратить много времени на это, что вообще бесполезно, так как ошибки бывают крайне редко). Сделать такое очень просто. Вот показали решение задачи. А в конце пишите, какие значения вводили Вы и что у вас вышло. К примеру: a — 4, b — 7, c — 5, P = 16. Пользователь сайта написал программу, ввёл ваши значения, получил такой же ответ — всё правильно понял, ошибок не сделал.

    • Максим

      Даже так: добавляете комментарий с вводимыми значениями напротив write(‘Введите x: ‘) и комментарий с выводимыми значениями напротив write(‘Y = ‘,y).

  • Новые уроки или задачи планируются?

  • LloyBall

    Помогите написать код программы по такому заданию: Дано целое число N (>0). Найти сумму 1^1 + 2^2 + … + N^N . Для вычисления степени использовать функцию Power(число, степень) подключить библиотеку Math).

    • alen_marzz

      Просто используйте функцию power в цикле. Функции модуля math входят в набор стандартных для компилятора pascalabc, поэтому никак дополнительно объявлять конструкцию не нужно.

  • Татьяна Карпова

    Алёна — зайка!

  • Максим Борисов

    Здравствуйте, как начать с 1-ого урока?

  • Rushan Sufiyanov

    в for 24 исправьте
    21. строка ( x := x * x;) убрать
    22. строка
    sum_factorial := sum_factorial + z * (power(x, i) / factorial);

  • Максим Суровцев

    Помогите пожалуйста) пытаюсь решить эту задачу, надо посчитать количество гласных букв в строке (ввод капсом), не могу понять что не так, и как исправить https://uploads.disquscdn.com/images/b54241d2c7fd8483a411e1f83b45989d475fcd713a7e64735ab959188a7dcdba.png

  • Дмитрий Заборов

    Народ, помогите сделать, используя while и repeat: вычислить минимальное из положительных значений функции и соответствующее значение аргумента.

  • Ублюдки Тв

    https://uploads.disquscdn.com/images/378607e886ac4ad68001b256d0d59205ad6a67c8d527fd959c92c72a72895db4.gif
    Помогите написать алгоритм по этой блок-схеме

  • Сергей

    Пишу программу по расшифровке метеокода
    мне нужно чтобы в случае если вводится определенное слово то на экран выводился определенный текст
    а мне паскаль пишет что неправильное выражение
    помогите пожалуйста
    Program RasshifrovkakodaMETAR; {ÏÐîãðàììà ïîìîãàþùàÿ ðàñøèôðîâàòü êîäû òèïà METAR}
    var ab:string;
    begin
    Write(‘Âåäèòå ïîñëåäîâàòåëüíî ïàðàìåòðû êîäà’);
    readln(ab);
    If ab:=’metar’ then writeln(‘ðåãóëÿðíàÿ ñâîäêà’); {В этой строчке выдает ошибку:неверное выражение}
    end.

    Помогите исправить

    • alen_marzz

      Ну, вы присваиваете, а не сравниваете. Будьте внимательнее

  • FPS Сounter

    Помогите, только начал учить Pascal. Что я делаю не правильно?(Простой калькулятор)
    program calcmod;
    var a, b, c, d: real;
    begin
    writeln (‘Введите значение A’);
    readln (a);
    writeln (‘Введите действие’, d);
    readln (d);
    writeln (‘Введите значение B’);
    readln (b);
    if d=D then
    writeln (‘Знак сложения’, a+b);
    else d=E then
    writeln (‘Действие отнятия ‘, a-b);
    else d=F then
    writeln (‘Действие деления’, a/b);
    else
    d=G;
    writeln (‘Действие умножения’, a*b);
    writeln (c);
    end.

    • FPS Сounter

      const
      D=+
      E=-
      F=/
      G=*

    • alen_marzz

      Ох, давайте по порядку:
      Во-первых, вы не можете задавать константе оператор в явном виде. Для того, чтобы задать символ, используйте кавычки.
      Во-вторых, если вы используете в качестве константы символ, то тогда и переменная d должна иметь соответствующий тип.
      В-третьих, разберитесь с переменной c (если бы вы работали не с нетовским паскалем, то вывод неинициализированной переменной вызвал бы indefined behaviour. В нем же они вроде бы проинициализированы нулевыми значениями).
      В-четвертых, у вас проблемы с условиями. Прежде всего после else должно быть слово if (ну, или elif вместо, если паскаль это поддерживает. Точно я уже не помню.) Далее вам следует вспомнить про отсутствие точки с запятой перед else. И напоследок подумайте о том, нужно ли вам последнее условие d = G.
      Желаю удачи 🙂