|
|
Другие темы раздела | |
Turbo Pascal В строке символов определить слова с корнем шалаш В строке символов определить слова с корнем шалаш и найти наибольшую длину этих слов Добавлено через 42 секунды Заранее спасибо https://www.cyberforum.ru/ turbo-pascal/ thread836090.html |
Turbo Pascal Трехзначные числа: вывести на экран числа с одинаковыми цифрами в записи, найти сумму этих чисел Среди трехзначных чисел вывести на экран числа с одинаковыми цифрами в записи, найти сумму этих чисел. Полученное число разбить на цифры и найти сумму этих цифр. Добавлено через 5 минут procedure TForm1.Button4Click(Sender: TObject); begin close; end; |
Turbo Pascal Составить функцию для выборки из компонент заданного вектора наибольшего элемента
https://www.cyberforum.ru/ turbo-pascal/ thread836077.html Составить функцию для выборки из компонент заданного вектора a(a1,a2,...,an) наибольшего элемента. Компонент вектора относятся к величинам целого типа и удовлетворяют условию: 10<=a(i)<1000 (I=1,2,...,n). |
Turbo Pascal Вывести таблицу кодов вывести таблицу кодов символов и соответствующих им символов по 15 символов в строке https://www.cyberforum.ru/ turbo-pascal/ thread836016.html |
Даны три множества X1 = {Т2, Т4, Т6, Т8, Т10}, Х2 = {Т1, Т2, ТЗ, Т4, Т5} и ХЗ = {Т2, ТЗ, Т5, Т7, Т8} Turbo Pascal Даны три множества X1 = {Т2, Т4, Т6, Т8, Т10}, Х2 = {Т1, Т2, ТЗ, Т4, Т5} и ХЗ = {Т2, ТЗ, Т5, Т7, Т8}. Сформировать множество Y = (X2 \ X3) U (Х1 \ ХЗ). На печать вывести Y и его мощность. Исходные множества описать как типизированные константы. Извините, не могу вставить символ поэтому ловите картинку) Проверить выполнение условия: |
Turbo Pascal перевод из 10 СС в 7- или 16-ную program perevodishe; uses crt; const c : array of char = ('0','1','2','3','4','5','6','7','8','9','A', 'B','C','D','E','F'); chara : array of byte =(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15); var flag:boolean; s,sdo,spos:string; a,a2,i,b,dec,f,sa1,osh: integer; mas : array of integer; rrr,sa2:real; procedure razdstr(s:string); https://www.cyberforum.ru/ turbo-pascal/ thread836000.html |
Turbo Pascal Написать программу, которая запрашивает ввод целого числа и выводит на экран сообщение, положительное это число или нет
https://www.cyberforum.ru/ turbo-pascal/ thread835977.html Написать программу, которая запрашивает ввод целого числа и выводит на экран сообщение, положительное это число или нет (0- ни положительное, ни отрицательное число). |
Turbo Pascal Дано двузначное число. Определить, какая из его цифр больше, первая или вторая Дано двузначное число. Определить, какая из его цифр больше, первая или вторая. |
Turbo Pascal Одномерные массивы: Сформируйте новый массив В(N), в котором поменяйте местами максимальный и минимальный элемент массива К(N) Составьте программу нахождения максимального и минимального значения одно-мерного массива К(N) (элементы массива подсчитываются по формуле К(N)=sin(N)*N). Сформируйте новый массив В(N), в котором поменяйте местами максимальный и минимальный элемент массива К(N). https://www.cyberforum.ru/ turbo-pascal/ thread835964.html |
Turbo Pascal Возведение отрицательного числа в степень n
https://www.cyberforum.ru/ turbo-pascal/ thread835929.html Приветствую. Помогите разобраться -- надо возвести число -1 в степень n, как это сделать? Вариант записи exp(n*(ln(-1))) не верен и не работает. |
Увеличить цену на заданное число Turbo Pascal написать программу, которая будет увеличивать цену на заданное число! |
Turbo Pascal Сформировать и вывести на экран целочисленный одномерный массив D(17)
https://www.cyberforum.ru/ turbo-pascal/ thread835901.html 1. Составьте программу формирования и вывода на экран целочисленного одномерного массива D(17) таким образом, чтобы каждый последующий элемент, начиная третьего, был равен сумме двух предыдущих элементов. Первые два элемента задайте с клавиатуры. Определите, является ли сумма кубов элементов массива четырехзначным числом. Помогите плз) |
233 / 215 / 63
Регистрация: 01.09.2012
Сообщений: 2,103
|
||||||
12.04.2013, 20:43 | 0 | |||||
Даны действительные числа х, у, z Вычислить максимум (x.y) + максимум (y.z) + максимум (х z) - Turbo Pascal - Ответ 440435112.04.2013, 20:43. Показов 4755. Ответов 2
Метки (Все метки)
Сообщение было отмечено Alegator как решение
Решение
1.
Вернуться к обсуждению: Даны действительные числа х, у, z Вычислить максимум (x.y) + максимум (y.z) + максимум (х z) Turbo Pascal
1
|
12.04.2013, 20:43 | |
Готовые ответы и решения:
2
Найти максимум из девяти чисел(максимум из трех чисел(максимум из двух чисел) Есть число n и действительные числа а1, а2, …an, найти максимум Отрицательные элементы массива разделить на его максимум. Вывести максимум и преобразованный массив Найти максимум в диагонали матрицы и перевернуть строки, в которых есть этот максимум |
12.04.2013, 20:43 | |
12.04.2013, 20:43 | |
Помогаю со студенческими работами здесь
0
Даны три числа A, B, C, написать программу поиска максимум и минимум Сгенерировать матрицу 5х5 найти максимум в каждой строке и сделать сдвиг каждой строки так чтобы максимум был на 0 позиции!? Умножьте все элементы матрицы на максимум главной диагонали. Вывести максимум главной диагонали Даны два массива, получить новый массив и найти в нем максимум Среди введенных четных чисел найдите максимум (М1), также найдите максимум (М2) среди нечетных чисел Вычислить максимум в последовательности |