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

Puporev

Почетный модератор

64303 / 47598 / 32743

Регистрация: 18.05.2008

Сообщений: 115,181

05.12.2009, 14:36

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

05.12.2009, 14:36. Показов 1878. Ответов 1

Метки (Все метки)

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

Решение

Pascal

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

Заказать работу у эксперта

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)
Напишите пожалуйста код

	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<=60).Вычислить произведение минимального и максимального...

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

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

Наверх