|
|
| Другие темы раздела | |
| Turbo Pascal Найти площадь треугольника, его высоты, радиусы вписанной и описанной окружностей Всем привет! Если можете помогите, плиз!!! Дали решать задачу, если поможете, то спасете мя :) https://www.cyberforum.ru/ turbo-pascal/ thread176132.html |
Не пойму как это сделать... Turbo Pascal Клик на букву "О" О |
|
Turbo Pascal Установить пределы
https://www.cyberforum.ru/ turbo-pascal/ thread176087.html Как определенному четырехугольнику, который двигается по рисунку установить приделы, какая комманда??? подскажите, плиз! Добавлено через 14 минут ну помогите плз!!! |
Turbo Pascal Даны отрезки a,b,c. Определить, можно ли из них составить треугольник.
https://www.cyberforum.ru/ turbo-pascal/ thread176081.html Даны отрезки a,b,c. Определить, можно ли из них составить треугольник. Вывести сообщения типа “можно”, ”нельзя”, ”треугольник превращается в отрезок”. 1)Используя оператор case 2)Используя ператор if |
|
решить уравнение на паскале в виде вложенных циклов Turbo Pascal решить уравнение f=a*x*sin((y*y+2x)/3a). при изменении любых двух аргументов по закону арифметической прогрессии. значения аргументов выбрать самостоятельно из области допустимых значений таким образом, чтобы каждый из аргументов принимал 3...4 значения, в результате чего получить 9...16 значений функции. изменения организовать в виде вложенных циклов: внетренний - с параметром, а внешний - с... |
Turbo Pascal Функция не считает логарифм
https://www.cyberforum.ru/ turbo-pascal/ thread176019.html Не пойму почему функция считает не правильно логарифм: function ln(a : real) : real; var ln : real; begin ln:=a - (a*a)/2 + (a*a*a)/3 - (a*a*a*a)/4+(a*a*a*a*a)/5- (a*a*a*a*a*a)/6+(a*a*a*a*a*a*a)/7-(a*a*a*a*a*a*a*a)/8; writeln('ln(',a,')=',ln); end; |
|
Turbo Pascal Дублирование в цикле
https://www.cyberforum.ru/ turbo-pascal/ thread176011.html program z1; var d:array of integer; i,j,m,n,k,f,l,l1,l2,l3,l4,q: integer; a,a1,a2,a3,a4:array of integer; begin write ('Vvedi kol-vo strok='); readln(n); write ('Vvedi kol-vo stolbcov='); readln(m); |
Turbo Pascal Вставить в строку "215=30" знак арифметического действия,чтобы строка превратилась в верное выражение Вставить в строку "215=30" знак арифметического действия,чтобы строка превратилась в верное выражение. |
|
Turbo Pascal Задана строка s,удалить в этой строке все пробелы и все "о" поменять на "и"
https://www.cyberforum.ru/ turbo-pascal/ thread175997.html Задана строка s,удалить в этой строке все пробелы и все "о" поменять на "и".(строка должна содержать 3 слова) |
Turbo Pascal Получить новый массив путем деления всех элементов массива на наибольший по модулю элемент Дан двумерный массив размерностью 5*5. Получить новый массив путем деления всех элементов массива на наибольший по модулю элемент https://www.cyberforum.ru/ turbo-pascal/ thread175850.html |
|
Turbo Pascal Переменной t присвоить значение true, если в массиве нет нулевых элементов Дан массив из к целых чисел. Переменной t присвоить значение true, если в массиве нет нулевых элементов, и false – в противном случае |
Turbo Pascal Сортировка "вычерпыванием" 1. Ввести последовательность целых чисел х1, х2?,...,хm-1. 2. Организовать матрицу Х состоящую из m пустых (нулевых) строк и n столбцов, где n максимально возможное повторение чисел в исходной последовательности. 3. Просмотреть последовательность х1, х2?,...,хm-1 слева направо, помещая элемент Х в строку с номером i в первый ненулевой столбец. 4. Сцепить строки матрицы Х след.... https://www.cyberforum.ru/ turbo-pascal/ thread175796.html |
|
3067 / 727 / 69
Регистрация: 24.09.2008
Сообщений: 1,531
|
|
| 15.10.2010, 23:37 | 0 |
Считалочка - выбытие игроков, пока не останется три человека - Turbo Pascal - Ответ 103099115.10.2010, 23:37. Показов 8739. Ответов 21
Метки (Все метки)
Ответ
Отлично, значит не зря писал) Я очень рад, спасибо, что протестировали...
Вернуться к обсуждению: Считалочка - выбытие игроков, пока не останется три человека Turbo Pascal
2
|
|
| 15.10.2010, 23:37 | |
|
Готовые ответы и решения:
21
Найти номер человека который останется в живых Повторять n = f(n) до тех пор, пока в n не останется один разряд Рекурсивные функции. Разделение эл. массива, пока не останется 1 элемент Суммировать числа до тех пор, пока не останется 1 число |
| 15.10.2010, 23:37 | |
| 15.10.2010, 23:37 | |
|
Помогаю со студенческими работами здесь
0
Убрать из массива каждое второе число, пока не останется одно
Считалка: удаление каждого пятого элемента в списке, пока не останется 1 элемент Прогонять массив до тех пор, пока в нем не останется нулевых значений |
