Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Дан двухмерный массив. Определить координаты минимального и максимального элемента https://www.cyberforum.ru/ turbo-pascal/ thread1121079.html
А) Координаты минимального элемента массива. Если элементов с минимальным значением несколько, то должны быть найдены координаты самого нижнего и самого правого из них. Б)Координаты максимального элемента массива. Если элементов с максимальным значением несколько, то должны быть найдены координаты самого верхнего и самого левого из них.
Опишите подпрограмму, которая проверяет если ли в списке хотя бы два одинаковых элемента. Turbo Pascal
Опишите подпрограмму, которая проверяет если ли в списке хотя бы два одинаковых элемента. проблема в следующем когда список состоит из n -ых элементов например 2 2 4 3 5 1 5 3 програма покажет слово есть пробовал сделать бы вы водила повторяющие элементы но он выводит только первые повторяющие элементы в даном случае вывидет только 2 а 5 и 3 не выведит, исправьте програму правильно пожалуйста...
Turbo Pascal Из букв данного слова составить слова https://www.cyberforum.ru/ turbo-pascal/ thread1120919.html
Доброго времени суток, помогите пожалуйста с реализацией такой задачи: есть файл (словарь), пользователь вводит слово из n букв, программа составляет слова из разного кол-ва букв, и если они есть в файле, то выводит их на экран. Заранее спасибо.
Turbo Pascal Получить из заданного множества новое путем исключения трех произвольных элементов 1. Ввести множество, запись или строку с помощью клавиатуры. 2. Вывести на экран монитора исходную запись, множество или строку. 3. Выполнить необходимые преобразования над исходным множеством, записью или строкой, а также выполнить необходимые вычисления. 4. Вывести на экран монитора преобразованное множество, запись или строку, а также вывести результаты вычислений. Задано множество,... https://www.cyberforum.ru/ turbo-pascal/ thread1120916.html
В двухмерном массиве вычислить сумму элементов каждого столбца Turbo Pascal
1. Ввести двухмерный массив поэлементно с помощью клавиатуры или получить его, используя генератор случайных чисел. Двухмерный массив может быть целочисленного или вещественного типа. Количество элементов в двухмерном массиве должна быть не менее десяти. 2. Вывести на экран монитора исходный двухмерный массив в виде таблицы чисел. 3. Выполнить необходимые преобразования над исходным...
Turbo Pascal В одномерном массиве найти минимальный по модулю элемент и все элементы массива поделить на него https://www.cyberforum.ru/ turbo-pascal/ thread1120913.html
1. Ввести одномерный массив поэлементно с помощью клавиатуры или получить его, используя генератор случайных чисел. Одномерный массив может быть целочисленного или вещественного типа. Количество элементов в одномерном массиве должна быть не менее десяти. 2. Вывести на экран монитора исходный одномерный массив в виде строки чисел. 3. Выполнить необходимые преобразования над исходным...
Turbo Pascal Проверить, образуют ли элементы одномерного массива арифметическую прогрессию Дан целочисленный массив размера N, не содержащий одинаковых чисел. Проверить, образуют ли его элементы арифметическую прогрессию. https://www.cyberforum.ru/ turbo-pascal/ thread1120894.html Turbo Pascal Рекурсивное вычисление суммы ряда
Помогите написать программу с рекурсией в паскале , используя рекурсивную функцию (с циклом я сам сделал) Вот текст программы, но она не работает правельно, помогите кто может. Вот еще формула сума (E) cos(x)^(n-1)/(n^2*3^(n-1)); program rec; uses dos,crt; var x,n:integer; an,s,y:real; h,mn,ss,hd:word; function sum(x,n:integer; var i:integer):real;
Turbo Pascal Определить, находятся ли все точки отрезка по одну сторону от плоскости Написать программу определения факта нахождения всех точек отрезка по одну сторону от плоскости. Добавлено через 43 секунды Объясните хоть алгоритм решения этой задачи Добавлено через 1 час 9 минут Людииииииииии! Помоите, пожалуйста. https://www.cyberforum.ru/ turbo-pascal/ thread1120870.html Turbo Pascal Найти в каждом столбце наименьшее значение среди положительных элементов матрицы B, образовав матрицу A https://www.cyberforum.ru/ turbo-pascal/ thread1120861.html
Program matrica; Uses CRT; Const n=12; m=12; k1=-50; k2=50; Type matr =array of integer; Var a:matr; b:matr; i,j:integer;
Turbo Pascal Найти количество чисел, содержащих одинаковые цифры
Всем доброго дня! Помогите, пожалуйста! Нужно создать последовательность по следующей формуле: Ai=ln(i)*cos(2i)+60i и сохранить в файл, округлив до десятитысячных. Найти количество чисел, содержащих две одинаковые цифры в дробной части чисел этой последовательности. С последовательностью разобрался, а вот как делать вторую часть этого задания - ума не приложу...
Turbo Pascal Составить процедуру для определения количества отрицательных элементов в одномерном маассиве используя эту процедуру, установить, в каком из двух заданных одномерных массивов p и b количество отрицательных элементов больше, и вывести его на печать с соответствующим поясняющим текстом. В случае их равенства вывести на печать лишь первые элементы каждого из массивов. вот программа не работает type ODN=array of REAL; var I,N:integer; P,B:ODN; https://www.cyberforum.ru/ turbo-pascal/ thread1120772.html
102 / 70 / 79
Регистрация: 06.02.2014
Сообщений: 211
16.03.2014, 19:48 0

Заменить все элементы массива больше 15 восьмерками, а элементы равные 5 нулями - Turbo Pascal - Ответ 5908411

16.03.2014, 19:48. Показов 4218. Ответов 2
Метки (Все метки)

Лучший ответ Сообщение было отмечено VERNANDOO как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var a: array [1..7] of integer;
    i: integer;
 begin
  randomize;
  writeln('Massive #1');
  for i:= 1 to 7 do begin
    a[i]:=random(31)+5;
    writeln(a[i]);
   end;
  writeln('Massive #2');
  for i:= 1 to 7 do begin
    if a[i]>15 then a[i]:=8;
    if a[i]=5 then a[i]:=0;
    writeln(a[i]);
   end;
  readln;
 end.


Вернуться к обсуждению:
Заменить все элементы массива больше 15 восьмерками, а элементы равные 5 нулями Turbo Pascal
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.03.2014, 19:48
Готовые ответы и решения:

Все отрицательные элементы массива заменить нулями, элементы больше 3 увеличить на 1
Дан массив А={-2;-1;3;0;3;4;5;5;8}. Нужно сформировать новый массив N по следующим правилам: все...

Заменить все элементы матрицы, равные С, нулями
Дан двумерный массив размерностью 5*5. Заменить все элементы массива = С нулями. В случае если...

Все четные элементы массива заменить нулями, остальные элементы максимальными
В одномерном числовом массиве D все четные элементы заменить нулями ,остальные элементы...

Поменять местами первый и последний элементы. Все единичные элементы массива заменить нулями
Люди добрые, помогите плиз с задачками. В массиве Р, размерности 150 150. поменять местами первый...

2
16.03.2014, 19:48
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.03.2014, 19:48
Помогаю со студенческими работами здесь

В одномерном массиве все отрицательные элементы заменить нулями и упорядочить элементы массива по убыванию
В одновимірному масиві всі від’ємні елементи замінити нулями і впорядкувати елементи масиву за...

Заменить нулями в матрице те элементы, для которых имеются равные среди элементов массива А
Условие: Дан массив А=(а1,а2...а10) и матрица В=(n*n). Заменить нулями в матрице те элементы, для...

Заменить нулями в матрице те элементы с четной суммой индексов, для которых имеются равные среди элементов массива
Даны массив А=(а1,а2...а10) и матрица В(n*n). заменить нулями в матрице те элементы с четной суммой...

Заменить все элементы массива равные 7 единицами
2.одномерный массив из 7 элементов заполнить случайным образом числами от -5 до 9 .заменить все...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru