|
|
| Другие темы раздела | |
|
Turbo Pascal В квадратной матрице A поменять местами два столбца с заданными номерами
https://www.cyberforum.ru/ turbo-pascal/ thread1416505.html Здравствуйте уважаемые программисты ! Помогите мне пожалуйста с задачей . В квадратной матрице A поменять местами два столбца с заданными номерами; сформировать диагональную матрицу C из сумм элементов столбцов матрицы A ;если среди элементов главной диагонали C нет равных , найти ее след , в противном случае вычесть из C единичную матрицу . |
Turbo Pascal Построить алгоритм, составить и отладить программу для нахождения произведения ряда var i:integer; n,p,u:real; begin i:=2; p:=1; u:=exp((-4)*ln(10)); repeat n:=n+(1/exp((2)*ln(i))); P:=p*(1-n); until n<u; Writeln('P = ',p); |
| Turbo Pascal Вывести на экран монитора условное графическое изображение фотоэлемента солнечного 1. Очистить экран монитора и при необходимости установить нужный цвет фона. 2. Вывесты одно или несколько условных графических изображений электрических компонентов с произвольным цветом, размером и начальным положением. 3.Скопировать изображение с экрана монитора в буфер. 4.Удалить изображение с экрана монитора. 5. Скопировать изображения из буфера на екркан монитора в другое место. ... https://www.cyberforum.ru/ turbo-pascal/ thread1416296.html | Turbo Pascal Определить недостающий "end;" в коде Где-то нехватает end; немогу понять где program divkarssaistits_saraksts_bez_BR; uses crt; const MaxSize = 15; type Count = 0..MaxSize; StdElement = record https://www.cyberforum.ru/ turbo-pascal/ thread1416280.html |
|
Добавить элементы второй последовательности в нужные места первой, чтобы она осталась неубывающей Turbo Pascal Пусть даны неубывающая последовательность действительных чисел и произвольная последовательность действительных чисел. Требуется указать те места, на которые нужно вставлять элементы второй последовательности в первую последовательность так, чтобы новая последовательность оставалась возрастающей. вот программа она только объединяет последовательности,но не выводит места. uses crt; const... |
Turbo Pascal Построение графика функции на заданном интервале 1. Очистить экран монитора и при необходимости установить требуемый цвет фона. 2. Выбрать размещение системы координат в соответствии с левым и правым интервалом и в соответствии с минимальным и максимальным значением функции, которыемогут быть достигнуты на этоминтервале. 3. Построить горизонтальную и вертикальную координатные оси. 4. Подписать названия координатных осей. 5.... https://www.cyberforum.ru/ turbo-pascal/ thread1416260.html |
|
Turbo Pascal В массиве из N чисел - радиусов окружностей, выделить те, для которых площади окружностей S >= 100
https://www.cyberforum.ru/ turbo-pascal/ thread1416203.html В массиве из N чисел( N и числа вводятся с клавиатуры и представляют собой r окружностей) выделить те,для которых площадь S>=100 и подсчитать их количество k |
Turbo Pascal Сформировать три матрицы по правилам Сформировать матрицы A,B,C: а(i,j)={5, j=2; y, j не равно 2}; b(i,j)={3j, i=5; 2, i не равно 5}; c(i,j)={i/j, j не равно 1, 0, j=1} и выполнить (A+B)^T*C |
| Turbo Pascal Сформировать матрицу по правилу Сформировать матрицу B размерности 4*4 следующим образом: b(i,j)=i^2/10+9, i>j; i/7, j<=i https://www.cyberforum.ru/ turbo-pascal/ thread1416166.html |
Turbo Pascal Стек - прокомментировать каждую строку
https://www.cyberforum.ru/ turbo-pascal/ thread1416145.html type pitem = ^item; item = record data: integer; prev: pitem end; var top, p: pitem; n, k: integer; |
|
Закрасить область, образованную двумя дугами эллипса, сплошным белым цветом Turbo Pascal Program P3; uses crt,graph; var d,m:integer; Begin d:=detect; initgraph(d,m,'c:\tp\bgi'); cleardevice; setbkcolor(3); setcolor(4); |
Turbo Pascal Заменить во введенной строке символов все строчные буквы на заглавные
https://www.cyberforum.ru/ turbo-pascal/ thread1416089.html Здравствуйте! Помогите пожалуйста написать программу на паскале, срочно надо. Заранее спасибо! Программа, заменяющая во введенной строке символов все строчные буквы на ЗАГЛАВНЫЕ |
|
0 / 0 / 0
Регистрация: 03.04.2015
Сообщений: 3
|
|
| 09.04.2015, 11:10 | 0 |
Поменять местами соседние элементы массива, стоящие на чётных местах с элементами, стоящими на нечётных местах - Turbo Pascal - Ответ 745658909.04.2015, 11:10. Показов 3097. Ответов 5
Метки (Все метки)
Ответ
Напишите пожалуйста начало
Вернуться к обсуждению: Поменять местами соседние элементы массива, стоящие на чётных местах с элементами, стоящими на нечётных местах Turbo Pascal
0
|
|
| 09.04.2015, 11:10 | |
|
Готовые ответы и решения:
5
Поменять местами соседние элементы, стоящие на четных местах, с элементами, стоящими на нечетных местах. Элементы массива Х[i] стоящие на четных местах переписать в массив Y[i] а стоящие на нечетных местах в Z[i]
Составьте алгоритм, упорядочивающий элементы массива, стоящие на нечётных местах, в возрастающем порядке |
| 09.04.2015, 11:10 | |
| 09.04.2015, 11:10 | |
|
Помогаю со студенческими работами здесь
0
|