|
|
| Другие темы раздела | |
|
Turbo Pascal Массив: в каждом из массивов найти разность между максимальным и минимальным элементом
https://www.cyberforum.ru/ turbo-pascal/ thread608347.html сформировать с помощью генератоа случайных чисел массивы H(8), P(12), C(11). Числа в массивах должны лежать в диапазоне от -10 до +15. Вывести массивы на экран. Формат вывода массивов: Массив D ......... Массив F ......... Массив C ......... в каждом из массивов найти разность между максимальным и минимальным элементом. Полученные разности вывести в основной программе. |
Массивы. Определить сумму элементов меньших нуля и произведение элементов больших нуля Turbo Pascal сформировать с помощью генератоа случайных чисел массивы D(4,9), A(4,5), C(4,7). Числа в массивах должны лежать в диапазоне от -15 до +55. Вывести массивы на экран. Формат вывода массивов: Массив D ......... Массив А ......... Массив C ......... в каждом из массивов определить сумму элементов меньших нуля и произведение элементов больших нуля. Вывод полученых данных осуществить в... |
|
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 требуется проделать прямоугольное отверстие со сторонами А, В. Определите площадь полученной фигуры. https://www.cyberforum.ru/ turbo-pascal/ thread608304.html |
|
Типизированные файлы. Заменить буквы 'p' на 'w' (исправить) Turbo Pascal программа должна заменить буквы '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 Файлы. Удвоить его размер, записав в конце файла все его исходные элементы Дан файл целых чисел. Удвоить его размер, записав в конце файла все его исходные элементы ( в том же порядке). С этой задачей то же самое https://www.cyberforum.ru/ turbo-pascal/ thread608276.html |
Вычислить y=SIN 1+sin 1.1+sin 1.2+...+sin 2 Turbo Pascal Помогите пожалуйста!!!! 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. Задачка сложная, но кто умный догадается как делать.. заранее спасибо! https://www.cyberforum.ru/ turbo-pascal/ thread608266.html |
|
Определить произведение двух самых больших чисел в одномерном массиве Turbo Pascal разработать функцию для определения произведения двух самых больших чисел размещенных в одномерном массиве. с помощью этой функции определить в каком из двух массивов произведение двух самых больших чисел наименьшее |
Turbo Pascal Типизированные файлы. Напечатать n-ый элемент
https://www.cyberforum.ru/ turbo-pascal/ thread608263.html Привет помогите с задачкой пожалуйста. Дан типизированный файл, элементами которого являются числа. Напечатать n-ый элемент. Который будет вводится с клавиатуры... Заранее благодарен! |
|
0 / 0 / 0
Регистрация: 06.11.2012
Сообщений: 31
|
|
| 18.12.2012, 15:38 | 0 |
Дан файл целых чисел. Создать два новых файла, в первый записать чётные числа исходного, во второй - нечётные - Turbo Pascal - Ответ 387745718.12.2012, 15:38. Показов 9135. Ответов 11
Метки (Все метки)
Ответ 
Сообщение от Dani
Прога работает хорошо!!!спасибо кто ее сделал! Вернуться к обсуждению: Дан файл целых чисел. Создать два новых файла, в первый записать чётные числа исходного, во второй - нечётные Turbo Pascal
0
|
|
| 18.12.2012, 15:38 | |
|
Готовые ответы и решения:
11
|
| 18.12.2012, 15:38 | |
| 18.12.2012, 15:38 | |
|
Помогаю со студенческими работами здесь
0
Дан файл вещественных чисел. Создать два новых файла, первый из которых содержит элементы исходного файла Дан файл вещественных чисел. Создать два новых файла, первый из которых содержит элементы исходного файла с нечетными но
Создать два новых файла, первый содержит отрицательные числа исходного файла, а второй - положительные |