|
|
| Другие темы раздела | |
| Free Pascal Как представить формулу в паскале? Помогите, не до конца понимаю как записать эту формулу в паскале \sqrt{\left|x \right|}-\prod_{k=1}^{n}\left(\left( \right)\frac{k*ln*x+\frac{3}{7}}{\sqrt{{e}^{\left(k-1 \right)*x}}} \right)+1??? Нужно создать циклический алгоритм и программу для вычисления результатов по формуле(которая выше). Для проверки программы задать X=0,5, n=20. .... a:=sqrt(abs(x)); for k:=1 to n do ... https://www.cyberforum.ru/ free-pascal/ thread1592332.html |
Free Pascal Вводится трехзначное число, из него нужно удалить цифру 4 Здравствуйте! Есть такая задача: "С клавиатуры вводится трехзначное число, из него нужно удалить цифру 4, если такая имеется. Пример ответа должен быть таков: Вводится 145, Результат: 15" Помогите пожалуйста, уже второй день мучаюсь. |
|
Free Pascal Найти произведение всех элементов последовательности, стоящих на нечётных местах (без использования массивов)
https://www.cyberforum.ru/ free-pascal/ thread1591135.html Помогите написать задачу: Дана последовательность 20 целых чисел. Найти произведение всех элементов, стоящих на нечётных местах. (Массивы не использовать). |
Free Pascal Изобразить на экране две точки, движущиеся по окружности с постоянной угловой скоростью в разных направлениях
https://www.cyberforum.ru/ free-pascal/ thread1591063.html Изобразить на экране две точки (круга), движущиеся по окружности с постоянной угловой скоростью в разных направлениях. В центре неподвижно находится жёлтый круг. |
|
Требуется оградить два земельных участка, имеющих форму прямоугольников Free Pascal Требуется оградить два земельных участка,имеющих форму прямоугольников,если для каждого участка заданы его площадь и периметр. Определить длины секций ограды,которые потребуются для каждого участка. (нужно сделать через процедуру). |
Free Pascal Найти площадь выпуклого n-угольника, заданного координатами своих вершин (в порядке обхода по часовой стрелке) uses crt; function plos(x1,y1,x2,y2,x3,y3:real):real; begin //формула через тангенс половинного угла plos:=abs((x1-x3)*(y2-y3)-(x2-x3)*(y1-y3))/2; end; const nmax=100; var x,y:array of real; n,i:byte; s:real; https://www.cyberforum.ru/ free-pascal/ thread1590716.html |
|
Free Pascal Перевод из UTF-8 в CP866
https://www.cyberforum.ru/ free-pascal/ thread1590627.html Нужно сделать функцию, которая переводит текст из кодировки UTF-8 в CP866. То есть с нуля, так-как нельзя использовать стандартные функции. Пользователь вводит текст в UTF-8, а на выходе получает читабельный текст в CP866 |
Free Pascal Необходимо перевести программу с Pascal ABC на free pascal var a, factorial:longint; const c:array of char= ('0','1'); var res:string; d:0..1; k, n, i:byte; begin assign(input, 'input.txt'); assign(output, 'output.txt'); reset(input); rewrite(output); |
| Free Pascal Вычислить и вывести суму элементов массива, расположенных до первого отрицательного числа Вводится массив из 19 действительных чисел. Вычислить и вывести суму элементов, расположенных до первого отрицательного числа; если, отрицательные элементы в массиве отсутствуют, вывести сообщение(что их нет). После этого выводится запрос "Повторить выполнение программы?(Y/N)", если вводится 'Y', то программа повторяется, если 'N', то завершается. https://www.cyberforum.ru/ free-pascal/ thread1590098.html | Free Pascal Сортировка массива методом вставок, в порядке возрастания сумм цифр В данном одномерном массиве нужно провести сортировку методом вставок, в порядке возрастания сумм цифр! Желательно комментарии в строках. Спасибо https://www.cyberforum.ru/ free-pascal/ thread1590018.html |
|
Подошло время сбора урожая. Все жители Солнечного города и его окрестностей приняли участие в субботнике по уб Free Pascal 1. «Помоги Незнайке». В приведенных ниже задачах требуется получить результат двумя способами: по методу Знайки и методу Незнайки, который не умеет ни делить, ни умножать: Подошло время сбора урожая. Все жители Солнечного города и его окрестностей приняли участие в субботнике по уборке яблок. Незнайке было поручено определить, достанется ли каждому участнику субботника по одинаковому количеству... |
Free Pascal Как узнать позицию символов в слове не используя string и массивы? Как узнать позицию символов в слове не используя string и массивы? Например, вводим слово: welcome Потом вводим букву которую нужно найти: e После чего, программа выдаст результат: Позиция буквы e: 2; 7; Как это можно сделать? Помогите пожалуйста, буду очень благодарен. https://www.cyberforum.ru/ free-pascal/ thread1589386.html |
|
0 / 0 / 0
Регистрация: 25.11.2015
Сообщений: 7
|
|
| 27.11.2015, 09:51 [ТС] | 0 |
Скажите пж чего дает ошибку 201? - Free Pascal - Ответ 840167827.11.2015, 09:51. Показов 976. Ответов 7
Метки (Все метки)
Ответ
bormant, Codes, code мне не известны, однако молодец, получилось сжать исходную прогу в 3 раза. Браво!!!!
Вернуться к обсуждению: Скажите пж чего дает ошибку 201? Free Pascal
0
|
|
| 27.11.2015, 09:51 | |
|
Готовые ответы и решения:
7
Найти ошибку (201) Скажите чего не хватает? Скажите, с чего начать? FreePascal выдаёт фатальную ошибку №201 |
| 27.11.2015, 09:51 | |
| 27.11.2015, 09:51 | |
|
Помогаю со студенческими работами здесь
0
Скажите хотя бы с чего начать Не могу найти ошибку, ошибка выполнения 201 Посмотрите код и скажите для чего ,, n = n/10; ,, контролёр G-201, Сопротивление датчиков контролера Geco G-201 Почему то при компиляции FreePascal выдаёт фатальную ошибку №201 Ребят Незнаю что делать при запуске на компилирование выдает ошибку.Кто понимает что не так скажите а если не затруднит исправьте ошибку |