|
|
| Другие темы раздела | |
|
Turbo Pascal Описать функцию InvertStr(S, K, N), возвращающую инвертированную подстроку строки
https://www.cyberforum.ru/ turbo-pascal/ thread608341.html Описать функцию InvertStr(S, K, N) строкового типа, возвращающую инвертированную подстроку строки S, содержащую в обратном порядке N символов строки S, начиная с ее K-го символа. Если K превосходит длину строки S, то возвращается пустая строка; если длина строки меньше K + N, то инвертируются все символы строки, начиная с ее K-го символа. Вывести значения функции InvertStr для данной строки S и... |
Turbo Pascal В круге радиуса R требуется проделать прямоугольное отверстие со сторонами А, В В круге радиуса R требуется проделать прямоугольное отверстие со сторонами А, В. Определите площадь полученной фигуры. |
|
Turbo Pascal Типизированные файлы. Заменить буквы 'p' на 'w' (исправить)
https://www.cyberforum.ru/ turbo-pascal/ thread608293.html программа должна заменить буквы 'p' на 'w' из первого файла и записать во второй.Проблема в том, что программа не работает в типизированных файлах. Программа должна работать с типизированными файлами! var f,g,h:file of string; n:integer; i,j,s:string; begin assign( f,'кек.txt'); assign(g,'дкт.txt'); reset(f); rewrite(g); while not Eof(f) do |
Turbo Pascal Дан массив целых чисел n=25. Удалить, вставить, перенести
https://www.cyberforum.ru/ turbo-pascal/ thread608291.html Исходный массив вывести на экран. Все преобразования производить с исходным массивом. Дан массив целых чисел n=25 заполненный случайным образом числами из промежутка . -Удалить из него все элементы, первая цифра которых четная. - Вставить число k1 после всех элементов, больших заданного числа, а число k2 перед всеми элементами, кратными 3.(k1 и k2 вводить с клавиатуры) - Перенести первые k... |
|
Turbo Pascal Файлы. Удвоить его размер, записав в конце файла все его исходные элементы Дан файл целых чисел. Удвоить его размер, записав в конце файла все его исходные элементы ( в том же порядке). С этой задачей то же самое |
Turbo Pascal Вычислить y=SIN 1+sin 1.1+sin 1.2+...+sin 2
https://www.cyberforum.ru/ turbo-pascal/ thread608271.html Помогите пожалуйста!!!! 2.Вычислить y=SIN 1+sin 1.1+sin 1.2+...+sin 2 HELP!!! |
|
Turbo Pascal Обработка строк с использованием оператора цикла с параметром
https://www.cyberforum.ru/ turbo-pascal/ thread608267.html Привет! Помогите с задачкой! Составить программу, которая печатает заданное слово, начиная с последней буквы... обязательно должна быть решена с использованием оператора цикла с параметром!!! Заранее всем благодарен!!! |
Turbo Pascal Найти все пары натуральных дружественных чисел, меньших заданного Привет, помогите с задачкой. Два натуральных числа называются дружественными, если каждое из них равно сумме всех делителей другого (Само другое число в качестве делителя не рассматривается). Найти все пары натуральных дружественных чисел, меньших 50,000. Задачка сложная, но кто умный догадается как делать.. заранее спасибо! |
|
Turbo Pascal Определить произведение двух самых больших чисел в одномерном массиве
https://www.cyberforum.ru/ turbo-pascal/ thread608265.html разработать функцию для определения произведения двух самых больших чисел размещенных в одномерном массиве. с помощью этой функции определить в каком из двух массивов произведение двух самых больших чисел наименьшее |
Turbo Pascal Типизированные файлы. Напечатать n-ый элемент
https://www.cyberforum.ru/ turbo-pascal/ thread608263.html Привет помогите с задачкой пожалуйста. Дан типизированный файл, элементами которого являются числа. Напечатать n-ый элемент. Который будет вводится с клавиатуры... Заранее благодарен! |
|
Вычислить среднее арифметическое положительных элементов одномерного массива Turbo Pascal срочно помогите, пожалуйста решить...разработать функцию для вычисления среднего арифметического положительных элементов одномерного массива. С помощью этой функции вычислить средн. арифм. положительных элементов 5ой строки матрицы X, имеющей 7 строк и 10 столбцов Добавлено через 23 минуты пожалуйста-пожалуйста.срочно надо) |
Turbo Pascal Числа Фибоначчи. Рекурсия Составить программу решающую разностное уравнение формирующую числа Фибонначи. Числа формируются по след. закону: a(i)=a(i-2)+a(i-1) с начальным условием a1=0, a2=1. Вычисление организовать в рекурсивной процедуре. Счет остановить при таком i, что число ai, не помещяется в двойное слово (4 байта). Вывести на экран и в файл это i, и набор чисел в двоичной форме... https://www.cyberforum.ru/ turbo-pascal/ thread608218.html |
|
0 / 0 / 0
Регистрация: 18.06.2012
Сообщений: 5
|
|
| 0 | |
Массивы. Определить сумму элементов меньших нуля и произведение элементов больших нуля - Turbo Pascal - Ответ 317958918.06.2012, 12:28. Показов 1293. Ответов 3
Метки (Все метки)
Формат вывода массивов: Массив D ......... Массив А ......... Массив C ......... в каждом из массивов определить сумму элементов меньших нуля и произведение элементов больших нуля. Вывод полученых данных осуществить в основной программе. Вернуться к обсуждению: Массивы. Определить сумму элементов меньших нуля и произведение элементов больших нуля Turbo Pascal
0
|
|
|
|
| 18.06.2012, 12:28 | |
|
Готовые ответы и решения:
3
Для элементов побочной диагонали, меньших нуля, найти сумму элементов строки, где этот элемент расположен
Для элементов побочной диагонали, меньших нуля, найти сумму элементов столбца, где этот элемент расположен |
| 18.06.2012, 12:28 | |
|
Помогаю со студенческими работами здесь
0
Подсчитать сумму элементов массива, больших нуля Массив: вычислить произведение и вывести на экран номера отличных от нуля элементов, больших B |