|
|
Другие темы раздела | |
Turbo Pascal Элементы массива X[N] с четными индексами увеличить на третий, а с нечетными – уменьшить на первый элемент
https://www.cyberforum.ru/ turbo-pascal/ thread1801473.html Элементы массива X с четными индексами увеличить на тре- тий, а с нечетными – уменьшить на первый элемент. Помогите пожалуйста с масивами этими) я в них ничего не понимаю. Напишите программу. Буду очень признателен вам) |
Turbo Pascal Найти произведение максимального и минимального элементов массива Дан массив A (a1, a2, …, aN). Найти произведение максимального и минимального элементов массива A. Напечатать значение этого произве- дения и номера максимального и минимального элементов. Помогите пожалуйста с масивами этими) я в них ничего не понимаю. Напишите программу. Буду очень признателен вам) |
Turbo Pascal Дано натуральное число n. Вычислить заданное произведение
https://www.cyberforum.ru/ turbo-pascal/ thread1801441.html Ребят, помогиет пожалуйста! В общем я новичек и мне трудно дается написание программ) Дано натуральное число n. Вычислить: (1+1/1^2)(1+1/2^2)(1+1/n^2) За ранее спасибо) |
Turbo Pascal Размер кучи в TP70
https://www.cyberforum.ru/ turbo-pascal/ thread1801397.html Добрый день. Программе, написанной на ТР70, не хватает динамической памяти. Стал копаться, вставил в программу строчку: writeln(memavail,' ',maxavail); На одном компьютере показывает количество свободной памяти 50Кб, на другом всего 20Кб. autoexec.nt и config.nt совпадают. Куда еще копать? |
Turbo Pascal показывает неправильную 256 цветную палитру Turbo Pascal При отображении 256 цветного графического файла, в моей программе. Программа находясь в 256 цветном графическом режиме, правильно отображает структуру изображения, но цветовая палитра совершенно не та. Как заставить программу отображать правильную 256 цветную палитру. Может нужна какая-то перекодировка цветов, хотябы как бы она называлась? |
Turbo Pascal Как выйти из графического режима обратно в текстовой Можно подсказать, как мне выйти из графического режима обратно в текстовой? https://www.cyberforum.ru/ turbo-pascal/ thread1801062.html |
Turbo Pascal Как сделать чтоб программа не воспринимала Заглавные буквы Помогите пожалуйста , есть прога для проверки слов перевертышей. Когда вводишь все маленькие либо большие буквы, то все нормально. А когда первая заглавная, а последняя маленькая, то пишет что слово не перевертыш. Как исправить? Код программы: program p3; var s: string; {объявление переменных} i,l: byte; begin readln(s); {считывание строки} l := length(s); {вычисление... https://www.cyberforum.ru/ turbo-pascal/ thread1800586.html |
Turbo Pascal Ошибка Invalid floating point operation Задание: Составить алгоритм для программы по вычислению значения у для произвольных 10 значений x в диапазоне от 7 до 15. y=\sqrt{sin(x)-\left|{sin(x)}^4{}\right|}*3\lg {e}^{x}/\sqrt{\ln(x) } Код: uses crt; var a,b,y,x:real; i:integer; |
Turbo Pascal Правильный цикл в паскале
https://www.cyberforum.ru/ turbo-pascal/ thread1799689.html господа помогите составить правильный цикл в паскале. надо подобрать такие значения а и с, чтобы отношение b/c было -1,33. я что-то попытался сделать, но не получается. спасайте) begin writeln('найти а и с'); var а,с,b,n:real; begin n:=0.000001; a:=0; b:=1/(314*c); c:=0; if b/c=-1.3333 then writeln('наше b=', b, 'наше c', c) else begin |
Turbo Pascal Считывание чисел из файла и вывод их на экран Решил поэксперентировать с Турбо Паскалем. Захотел чтоб числа считывались с файла и выводились на экран. Program fl; uses crt; function Dec (n:integer):string; const m:array of char= ('0','1'); var d:0..1; s:string; begin s:=' '; https://www.cyberforum.ru/ turbo-pascal/ thread1799642.html |
Turbo Pascal Программа составления вектора из фиксированного набора чисел Прошу помощи или подсказки в написании программы, которая бы из 2000 (фиксированно) чисел от 1 до 20 (возможен и другой близкий диапазон значений) составляла бы вектор, сумма всех элементов которого равнялась бы 40000 (fixed). Пишу программу на матлабе, но задача больше для программистов, поэтому и обращаюсь сюда. В идеале числа должны выбираться случайно из набора 1-20 или любого... |
Turbo Pascal Ошибка 215. Арифметическое переполнение
https://www.cyberforum.ru/ turbo-pascal/ thread1797149.html Приветствую знатоки. Возникла проблема, прошу посмотреть у кого время есть. Работа программы заключается в создании 100 точек произвольного цвета в произвольных местах. Далее эти точки сдвигаются в одном из 4 направлений либо с клавиатуры либо в произвольных направлениях. При запуске программы с клавиатуры все работает ок. При запуске в свободных направлениях происходит арифметическое... |
0 / 0 / 0
Регистрация: 30.06.2016
Сообщений: 14
|
|
0 | |
Переписать в массив Y положительные и в массив Z отрицательные элементы массива X - Turbo Pascal - Ответ 950448401.09.2016, 13:59. Показов 1374. Ответов 1
Метки (Все метки)
Переписать в массив Y положительные и в массив Z отрицатель-
ные элементы массива X[N]. Помогите пожалуйста с масивами этими) я в них ничего не понимаю. Напишите программу. Буду очень признателен вам) Вернуться к обсуждению: Переписать в массив Y положительные и в массив Z отрицательные элементы массива X Turbo Pascal
0
|
01.09.2016, 13:59 | |
Готовые ответы и решения:
1
Переписать подряд в массив Y положительные и в массив Z отрицательные элементы массива X(N). Переписать подряд в массив Y положительные и в массив Z отрицательные элементы массива X(N) Переписать в массив X подряд положительные элементы массива P, а в массив Y — отрицательные Если сумма элементов массива > 0, переписать в массив В положительные элементы, иначе – отрицательные |
01.09.2016, 13:59 | |
01.09.2016, 13:59 | |
Помогаю со студенческими работами здесь
0
Переписать в массив Z все положительные элементы массива Y, а в массиве R - все отрицательные Переписать в массив В все положительные элементы массива А, а в С все отрицательные Дан одномерный массив A из N элементов. Переписать положительные элементы массива в массив B, а отрицательные в массив C Переписать сначала отрицательные, а затем положительные элементы массива В в массив C |