Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Дан масив А(5;5) заменить нулями все ее елементы на главной диагонали №1 Дан масив А(5;5) заменить нулями все ее елементы на главной диагонали №2 Дан масив А(5) найти количество нечетных положительных елементов https://www.cyberforum.ru/ pascal/ thread70484.html Заполнить файл последовательного доступа f целыми числами Pascal
Заполнить файл последовательного доступа f целыми числами, полученными с помощью генератора случайных чисел. Получить в файле g все компоненты файла f, которые делятся на m и не делятся на n.
Pascal Вывести двумерный массив Сформировать и вывести на экран заданный двумерный массив (для заполнения массива использовать формулу), составить блок-схему. a b c d b a b c c b a b d c b a или 1,1 1,2 1,3 1,4 1,2 1,1 1,2 1,3 1,3 1,2 1,1 1,2 https://www.cyberforum.ru/ pascal/ thread70476.html Pascal найти среднее арифметическое строки матрицы А сформировать из них вектор В найти среднее арифметическое строки матрицы А сформировать из них вектор В 1 2,5 4,3 7,2 А= 0,3 -1 0 -0,5 19 4,8 -9,1 5,6 заране спасибо https://www.cyberforum.ru/ pascal/ thread70464.html
Pascal Элементы массива больше, чем среднеарифметическое
Элементы массива больше, чем среднеарифметическое значение всех элементов, занести в другой массив.
Pascal Бегущая строка в Pascal https://www.cyberforum.ru/ pascal/ thread70455.html
Написать программу-заставку «бегущая строка». Строка вводится с клавиатуры. Заставка выполняется до тех пор, пока не будет нажата клавиша «Esc». При нажатии на остальные клавиши необходимо произвольно менять цвет текста.
Pascal Ошибка в модуле https://www.cyberforum.ru/ pascal/ thread70453.html
Помогите исправить ошибку в модуле Unit RGBP; Interface PCXHeader = record Maker : Byte; Version : Byte; Code : Byte; BitsPerPixel : Byte; XLow : Word; YLow : Word;
Написать заставку «Звездное небо» Pascal
Написать заставку «Звездное небо», используя точки и маленькие закрашенные окружности. Выход из заставки по нажатию клавиши «Esc».
Pascal Даны несколько фамилий. Определите,имеется ли среди них заданная. https://www.cyberforum.ru/ pascal/ thread70443.html
Помогите пожалуйста с двумя задачами. 1.Даны три двухбуквенных слога. Составьте из них возможные сочетания. Укажите, какие из них получаются слова. 2.Даны несколько фамилий. Определите,имеется ли среди них заданная.
Pascal Вывести все буквы, входящие в текст не менее двух раз https://www.cyberforum.ru/ pascal/ thread70441.html
Дан текст, заканчивающийся точкой. Вывести все буквы, входящие в текст не менее двух раз. Просьба помочь сделать это :) Мой вариант уж слишком корявый type t_rec=record s1,s2,s3:string; end; var x:t_rec; i,j,k:integer;
Pascal Рассчитать периметр четырехугольника
помогите рассчитать периметр четырехугольника,1)длины сторон вводятся с клавиатуры;2)одна длина задается с клавиатуры,а другая вводится компьютером. это 2 разные задачи
Pascal Матрица, определение столбцов с возрастающими элементами В данной матрице (взять из файла .txt путь к ней E:\mat.txt) определите количество столбцов, у которых элементы в порядке возрастания. https://www.cyberforum.ru/ pascal/ thread70424.html
Почетный модератор
64301 / 47596 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
05.12.2009, 14:36 0

Вычислить y=min(a,b+c)+max(ac,b)+min(a2,c) - Pascal - Ответ 396067

05.12.2009, 14:36. Показов 1869. Ответов 1
Метки (Все метки)

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

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
uses crt;
function Max(x,y:integer):integer;
var mx:integer;
begin
if y>x then mx:=y
else mx:=x;
Max:=mx;
end;
function Min(x,y:integer):integer;
var mn:integer;
begin
if y<x then mn:=y
else mn:=x;
Min:=mn;
end;
var a,b,c,y:integer;
begin
clrscr;
writeln('Введите 3 числа:');
readln(a,b,c);
writeln('Минимум (a,b+c)=',Min(a,b+c));
writeln('Максимум (a*c,b)=',Max(a*c,b));
writeln('Минимум (a^2,c)=',Min(a*a,c));
writeln('Y=',Min(a,b+c)+Max(a*c,b)+Min(a*a,c));
readln
end.


Вернуться к обсуждению:
Вычислить y=min(a,b+c)+max(ac,b)+min(a2,c) Pascal
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.12.2009, 14:36
Готовые ответы и решения:

Найти max и min элементы массива y и сформировать массив z из элементов массива y, находящихся между max и min y. Записать массив z в обратном порядке
Дан массив Х{80 элементов}. Вычислить {y}_{i}=sin\sqrt{{x}_{i}}+{cos}^{2}{{x}_{1}}^{2} Найти...

Записи: выяснить max и min сроки хранения товаров на складе; max и min цену товаров до уценки и после уценки
Торговый склад производит уценку хранящейся продукции. Если продукция хранится на складе дольше п...

Найти max{min(a,b), min(c,d)}
Найти max{min(a,b), min(c,d)}. написать в Паскале.Помогите очень надо до завтра!

Дано x, y, z. Вычислить max(a, min(b, c)
Напишите пожалуйста код

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

Получить t=min(k+n,n/k), v=min(3kn, k+2n2), g=min (t-v, t/v)...
Даны действительные числа k, n. Получить t=min(k+n,n/k), v=min(3kn, k+2n2), g=min (t-v, t/v)

Вычислить произведение min и max элементов массива, и заменить им элемент массива, стоящий перед минимумом
21. Задан одномерный массив F(N) (N&lt;=60).Вычислить произведение минимального и максимального...

написать программу нахождения максимольного среди min(a,b) и min(c,d). Не используя function
В задаче нужно найти max{min(a,b),min(c,d)}. Не пойму как нужно прописать в программе эти...

Max и Min елементы
Помогите пожалуйста решить задачу. В одномерном масиве, состоящим из N елементов вычислить...

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