|
|
Другие темы раздела | |
Free Pascal Написать программу "Лунолет"
https://www.cyberforum.ru/ free-pascal/ thread1497415.html Бодрого дня, господа. Очень нужна ваша помощь. Есть код на QBasic'е. Нужно его "перевести" на Pascal. Подскажите - как это сделать? Я практически не знаком с обоими языками. Я вообще не программист и никогда им не был. Вот под старость лет решил освоить Pascal. Изучаю потихоньку. На просторах нета откопал пару "Лунолетов" - кто постарше, тот поймет. Я "летал" со своим калькулятором с... |
Free Pascal Усовершенствовать решение задачи "Выбор зала" Написала код к этой задаче, но он не проходит половину тестов по времени. (Ссылка на сторонний ресурс удалена) Выбор зала Имя входного файла: hall.in Имя выходного файла: hall.out Ограничение по времени: 1 секунда Ограничение по памяти: 256 мегабайт Для проведения церемонии открытия олимпиады по информатике организаторы осуществляют поиск подходящего зала. Зал должен иметь форму... |
Free Pascal Вычислить количество компонентов массива, значения которых принадлежат отрезку
https://www.cyberforum.ru/ free-pascal/ thread1497161.html Дан массив целых чисел{ai} (i=1, 2, …,n), целые c и d(c < d). Написать программу вычисления количества компонентов массива, значения которых принадлежат отрезку. |
Free Pascal Ошибка Runtime error 201 at., во время выполнения программы
https://www.cyberforum.ru/ free-pascal/ thread1496391.html Во время выполнения программы возникает ошибка: Runtime error 201 at... . Может кто подскажет что не так? PROGRAM BooksLibrary(INPUT, OUTPUT); CONST N = 3; TYPE BookType = RECORD Author: STRING; Title: STRING; Publishing: STRING; |
Free Pascal Не выводится "преобразованный массив" program example_kr4; type vector = array of integer; var i, j, n: word; a: vector; begin randomize; write(‘сколько элементов в массиве?‘); readln(n); n:=n-1; for i:= 0 to n do begin a:=-100 +random(200); |
Free Pascal Определить, какие значения будут иметь переменные Всем привет нужна небольшая помощь. type okr = record r: real; centr: record x,y: real; end; end; var k: okr; x: real; Определить, какие значения будут иметь переменные k.r, k.centr.x, k.centr.y после выполнения следующих операторов: k.r:= 2.5; with k do with centr do y:= 1.8; https://www.cyberforum.ru/ free-pascal/ thread1495376.html |
Free Pascal Подсчет количества единиц сдвигом и позицию первой из них
https://www.cyberforum.ru/ free-pascal/ thread1494905.html Есть двоичная запись числа (где единицы идут только подряд). Хочу выяснить позицию первой единицы и их количество, идущих подряд. Пример 11110000 Позиция первой 4 (начиная с нуля), общее количество также 4 //ch2chislo - двоичная запись числа while ch2chislo<>0 do begin if (ch2chislo and 1)=1 then count:=count+1; |
Free Pascal Чтения из файла в массивы Файл - 123 String text 321 lalal 52 Tri rublja aaa и т.д Мне нужно записать число в первый массив , остальное во второй . Кол-во строк известно. for i:=1 to CountOfStrings do begin |
Free Pascal Усовершенствовать решение задачи "Муравьи-мутанты"
https://www.cyberforum.ru/ free-pascal/ thread1493243.html Всем привет. Написала код к задаче "Муравьи-мутанты", но он не проходит некоторые тесты по времени. Подскажите, пожалуйста, как можно его усовершенствовать? Заранее спасибо. Цикл Интернет-олимпиад для школьников, сезон 2014-2015 Четвертая личная олимпиада, 14 февраля 2015 года Задача A. Муравьи-мутанты Имя входного файла: ant.in Имя выходного файла: ant.out Ограничение по времени: 2... |
Free Pascal Исправить ошибки в коде с динамической матрицей
https://www.cyberforum.ru/ free-pascal/ thread1493179.html Здравствуйте! Помогите разобраться с кодом, вроде всё правильно сделал, но что-то не хочет работать Type Ttype=integer; //тип для элементов массива mas=array of Ttype; //тип для массива var A: ^mas; n,i,j,k,q: integer; begin write('Введите размерность матрицы '); readln(n); |
Реализовать бегущую строку Free Pascal нужно математически решить задачу бегущая строка, помогите |
Free Pascal Найти первый элемент последовательности an, для которого выполняется условие
https://www.cyberforum.ru/ free-pascal/ thread1492465.html Задано действительное число e. Найти первый элемент последовательности an, для которого выполняется условие a(n)-a(n-1)<e, если последовательность создается по следующему закону: an=\sqrt{1/2}*\sqrt{1/2+1/2\sqrt{1/2}}*\sqrt{1/2+1/2*\sqrt{1/2+\sqrt{1/2}}}*...*\sqrt{1/2+1/2*\sqrt{1/2+...+1/2*\sqrt{1/2}}} |
Почетный модератор
64300 / 47595 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
|
|
19.07.2015, 17:41 | 0 |
Не работает программа для определения количества цифр в натуральном числе - Free Pascal - Ответ 788883519.07.2015, 17:41. Показов 802. Ответов 7
Метки (Все метки)
Ответ
А я это и не заметил, тогда нужно убрать поверку на 0 и abs
Вернуться к обсуждению: Не работает программа для определения количества цифр в натуральном числе Free Pascal
1
|
19.07.2015, 17:41 | |
Готовые ответы и решения:
7
Рекурсивная функция для подсчета количества цифр в заданном натуральном числе Формула для определения количества десятичных цифр в числе Составить блок-схему программы определения количества повторений первой цифры в натуральном числе Рекурсия: подсчет количества цифр в заданном натуральном числе |
19.07.2015, 17:41 | |
19.07.2015, 17:41 | |
Помогаю со студенческими работами здесь
0
Составить функцию для определения количества значащих цифр в некотором числе N. Написать рекурсивную процедуру подсчета количества нечетных цифр в заданном натуральном числе Алгоритм определения количества цифр в шестнадцатиричном числе Программа для определения количества цифр для нумерации квартир |