|
|
| Другие темы раздела | |
|
Free Pascal Ошибка 205
https://www.cyberforum.ru/ free-pascal/ thread1873327.html Задача по вычислению экспоненты с заданной точность с помощью ряда Тейлора. Программа работает и делает проверку на вводимых значениях x меньше 1e10000, при вводе же этого числа программа прерывает работу из-за ошибки #205. Есть идеи, как сделать так, чтобы программа сделала проверку, а не вылетела при 1e10000? program exp; var a: string; x, e, p, eps: extended; n, c: integer; ... |
Дано натуральное число N. Необходимо разложить его на простые множители Free Pascal Как всегда, Я, как всегда, что то не так. var g:real; x,y,z,m,i,n:integer; a: array of integer; s: string; begin assign(input,'input.txt');reset(input); assign(output,'output.txt');rewrite(output); read(n); |
| Free Pascal Ошибка exitcode 216 Как исправить, все вроде по методичке type point=^spisok; spisok = record fam: string; next: point end; var fst: point; https://www.cyberforum.ru/ free-pascal/ thread1872558.html | Free Pascal Определить, равен ли квадрат этого числа сумме кубов его цифр var x,y,Q:real; c,d,i,n,m,P:integer; a: array of integer; s: string; begin assign(input,'input.txt');reset(input); assign(output,'output.txt');rewrite(output); read(s); Q:=0; https://www.cyberforum.ru/ free-pascal/ thread1872360.html |
|
Free Pascal Проход по массиву const n=4; type TGorod = record name: string; chislen:integer; end; TGorodArr = array of TGorod; procedure sort(var f:file of TGorod); |
Free Pascal Впишите пропущенную строку для вычисления суммы элементов массива Впишите пропущенную строку для вычисления суммы элементов массива a: s:=0; for n:=1 to k do writeln(‘s=’,s); https://www.cyberforum.ru/ free-pascal/ thread1872280.html |
|
Free Pascal Создать одномерный массив, состоящий из отрицательных элементов матрицы, поменять 1 и 2 строки
https://www.cyberforum.ru/ free-pascal/ thread1872125.html Создать новый одномерный массив, состоящий из отрицательных элементов заданной матрицы, поменять 1 и 2 строки. Ввод массива осуществить из присоединенного файла. Матрица: 0.5 -4 3 8 -2.1 1 -0.5 7 0 -3 2 -1 Добавлено через 11 минут Помогите кто-нибудь пожалуйста |
Free Pascal Заяц В нашем зоопарке появился заяц. Его поместили в клетку, и чтобы ему не было скучно, директор зоопарка распорядился поставить в его клетке лесенку. Теперь наш зайчик может прыгать по лесенке вверх, перепрыгивая через ступеньки. Лестница имеет определенное количество ступенек N. Заяц может одним прыжком преодолеть не более К ступенек. Для разнообразия зайчик пытается каждый раз найти новый путь к... |
|
Free Pascal Нужен листинг подпрограмм Паскаль для СР866
https://www.cyberforum.ru/ free-pascal/ thread1871701.html chr, которая возвращает значение символа по его коду ord, которая возвращает код символа pred, которая возвращает предыдущий символ с кодовой таблицы upcasel, которая превращает строчную букву в заглавную (для латиницы) upcasel, которая превращает строчную букву в заглавную (для кириллицы ) unupcasel , которая превращает заглавную букву в строчную (для латиницы) unupcasel , которая... |
Free Pascal Выяснить, является ли число палиндромом Дано целое четырехзначное число. Выяснить, является ли оно палиндромом, то есть таким числом, десятичная запись которого читается одинаково слева направо и справа налево. Формат входных данных Входной файл содержит целое четырехзначное число. Формат выходных данных Выходной файл должен содержать одно слово, "YES", если число является палиндромом, и "NO" в противном случае. Примеры: Вход... https://www.cyberforum.ru/ free-pascal/ thread1871614.html |
|
Составить блок-схему Free Pascal Составить блок-схему Найти значение функции при х=1 y=9.2\cdot \cos x^3-\begin{vmatrix}\sin \frac{x}{1.2-x}\end{vmatrix} Заранее спасибо! |
Free Pascal План выпуска продукции, обеспечивающий ее максимальную стоимость
https://www.cyberforum.ru/ free-pascal/ thread1871349.html Мощность цеха сборки некоторого предприятия составляет М1 изделий вида А или М2 изделий вида Б в сутки. ОТК в сутки может проверить не более К изделий. Составить план выпуска продукции, обеспечивающий ее максимальную стоимость, если стоимость изделия А равна Р1, стоимость изделия Б – Р2 |
|
Модератор
 |
|
| 18.12.2016, 01:11 | 0 |
Переписать один файл в другой, чтобы были удалены лишние пробелы и каждая строка содержала ровно 20 символов - Free Pascal - Ответ 991127118.12.2016, 01:11. Показов 1455. Ответов 16
Метки (Все метки)
Ответ
Строки во FreePascal имеют внутренний формат, отличающийся от формата в TurboPascal. С ними нельзя работать так, как показано в строке 48. Эта операция делается
SetLength(b2, 20);
Вернуться к обсуждению: Переписать один файл в другой, чтобы были удалены лишние пробелы и каждая строка содержала ровно 20 символов Free Pascal
0
|
|
| 18.12.2016, 01:11 | |
|
Готовые ответы и решения:
16
Добавить равномерные пробелы, чтобы строка содержала ровно N символов
В текстовый файл вставить пробелы таким образом, чтобы каждая строка имела длину 80 символов |
| 18.12.2016, 01:11 | |
| 18.12.2016, 01:11 | |
|
Помогаю со студенческими работами здесь
0
В текстовый файл вставить пробелы таким образом, чтобы каждая строка имела длину 80 символов В текстовый файл вставить пробелы таким образом, чтобы каждая строка имела длину 80 символов В текстовый файл вставить пробелы таким образом, чтобы каждая строка имела длину 80 символов Скопировать текстовый файл построчно, чтобы в итоговом файле каждая строка содержала 30 литер кроме ";" Файлы: переформатировать текст, чтобы каждая строка содержала не более 30 литер и заканчивалась точкой
|