|
|
| Другие темы раздела | |
| Turbo Pascal Системы счисления.Ошибки в программе Кто-нибудь!Люди добрые!Помогите пожалуйста! Есть код программы,который переводит из любой СС в любую. Но переводит только положительные и отрицательные. Как это исправить?Помогите пожалуйста! Вот код: uses crt; var cs1,cs2,res,change:integer; TD:string; {функция перевода Dec числа в любую сс} function FromDec(n,r:longint):string; https://www.cyberforum.ru/ turbo-pascal/ thread862878.html |
Turbo Pascal Определить количество натуральных двухзначных чисел, сумма цифр которых равна целому числу n Здравствуйте, помогите пожалуйста написать программы на языке паскаль.Заранее благодарю. 1) определить количество натуральных двухзначных чисел, сумма цифр которых равна целому числу n(0=<n=<27). Эх, Temnota, в одной теме должна быть только одна задача, название темы должно быть информативным, отражать суть задания. Читайте правила |
| Turbo Pascal Записать слова в текстовый файл в порядке невозрастания количества различных букв Дан файл, содержащий русский текст. Найти в тексте N<=2000 слов, содержащих наибольшее количество различных букв. Записать найденные слова в текстовый файл в порядке невозрастания количества различных букв. Для каждого слова вывести также это количество. Все найденные слова должны быть разными. https://www.cyberforum.ru/ turbo-pascal/ thread862860.html |
Turbo Pascal Запись данных в файл в виде таблицы
https://www.cyberforum.ru/ turbo-pascal/ thread862803.html Я хотела,чтобы данные из 1-ого пуска записывались в виде таблицы..но у меня почему-то программа вылетает,может кто подскажет? program kursovik; uses crt; type baza=record fam:string; pol:char; god:string; zarp:string; end; label god1,zarp1; |
|
В двухмерном массиве упорядочить элементы Turbo Pascal В двухмерном массиве упорядочить элементы каждого нечетного столбца по убыванию, четного - по возрастанию. |
Turbo Pascal Файлы: организовать перенос информации из одного файла в другой Нетипизированные файлы организовать перенос информации из одного файла в другой. https://www.cyberforum.ru/ turbo-pascal/ thread862750.html |
|
Turbo Pascal Файлы: объединить два файла
https://www.cyberforum.ru/ turbo-pascal/ thread862745.html Даны два файла:раздел книги-жанр(фантастика, романы и тд), книги(название,год выпуска,автор,жанр). Создать процедуры заполнения,вывода. P.S:Нужно объединить два файла. |
Turbo Pascal Из 5 введенных натуральных чисел указать то в двоичной записи которого больше всего 1 Из 5 введенных натуральных чисел указать то в двоичной записи которого больше всего 1. |
| Turbo Pascal По заданному номеру клетки выдать номера всех клеток имеющих с ней общую сторону Клетки шахматной доски пронумерованы от 1 до 64 по строкам слева напрпаво и снизу вверх.По заданному номеру клетки выдать номера всех клеток имеющих с ней общую сторону. https://www.cyberforum.ru/ turbo-pascal/ thread862722.html |
Turbo Pascal Некорректное движение линии
https://www.cyberforum.ru/ turbo-pascal/ thread862721.html program my_time; uses Dos,crt,graph; var gd,gm:integer; h,hv,s,ms:word; cx,cy:integer; x,y,x1,y1:integer; xx,yy:integer; begin |
|
Составить программу ,определяющую по номеру места Turbo Pascal В плацкартном вагоне 54 места ,которые разделены еа 10 купе. Составить программу ,определяющую по номеру места:а)верхнее или нижнее б)боковое или нет в)номер купе в котором оно находится. |
Turbo Pascal Меньшее из двух значений переменных вещественного типа X,Y заменить на X2+Y2 1) Меньшее из двух значений переменных вещественного типа X,Y заменить на X2+Y2. В случае их равенства заменить оба нулями. 2) Составить программу для определения наибольшей площади фигур. Одна фигура является квадратом (площадь S1), а другая - кругом (площадь S2). Квадрат задан длиной стороны, а круг - радиусом. Результат вывести в виде ПЛОЩАДЬ КРУГА = ... или ПЛОЩАДЬ КВАДРАТА=... 3)... https://www.cyberforum.ru/ turbo-pascal/ thread862694.html |
|
0 / 0 / 0
Регистрация: 18.03.2013
Сообщений: 10
|
|
| 0 | |
Вывести наибольшее из целых чисел К, для которых сумма 1+1/2+.+1/K будет меньше А, и саму эту сумму - Turbo Pascal - Ответ 454591012.05.2013, 20:59. Показов 2759. Ответов 1
Метки (Все метки)
2) Дано число А(>1). Вывести наибольшее из целых чисел К, для которых сумма 1+1/2+.....+1/K будет меньше А, и саму эту сумму. Вернуться к обсуждению: Вывести наибольшее из целых чисел К, для которых сумма 1+1/2+.+1/K будет меньше А, и саму эту сумму Turbo Pascal
0
|
|
| 12.05.2013, 20:59 | |
|
Готовые ответы и решения:
1
Вывести наибольшее из целых чисел К,для которых сумма 1+2+...+К будет меньше или равна N, и саму эту сумму.
Вывести наибольшее из целых чисел, для которого заданная сумма будет меньше заданного числа, и саму эту сумму
|
| 12.05.2013, 20:59 | |
| 12.05.2013, 20:59 | |
|
Помогаю со студенческими работами здесь
0
Вывести наименьшее из целых чисел N, для которых сумма 1 + 1/2 + ... + 1/N будет больше A, и саму эту сумму.
Вывести наименьшее из целых чисел N, для которых сумма 1+1/2+...+1/N будет больше А, и саму эту сумму.
|