Найти max{min(a,b),min(c,d)}.a,b,c,d– целые числа. free pascal
10-11 класс
|
помогите, пожалуйста :(
var a,b,c,d:integer;
function max (const x,y:integer):integer;
begin
if (x>y) then max:=x else max:=y;
end;
function min (const x,y:integer):integer;
begin
if (x<y) then min:=x else min:=y;
end;
begin
readln (a,b,c,d);
writeln (max(min(a,b),min(c,d)));
end.
Другие вопросы из категории
Выберите один ответ:
отображение, хранение, обработка, передача, подготовка, сбор
отображение, хранение, сбор, подготовка, передача, обработка
сбор, подготовка, передача, обработка, хранение, отображение
сбор, отображение, подготовка, хранение, передача, обработка
Задача №1. Даны два числа а и в. Составить программу в результате, которой переменные меняются своими значениями. ( например. а=2, в=7, тогда а=7, в=2).
Задача №2. Составить программу вычисления общего сопротивления параллельного соединения, если известны R1, R2, R3.
Я уже три раза перерешивала,у меня все три раза с ошибкой(((
массив заполнить случайными числами в интервале от -3 до 10.
вывести на экран массив в виде таблицы и кол-во нечетных элементов
Читайте также
Z=min(3,x)+min(x,y)-min(y,5)
цикла (do ...while, while, for). В алгоритме и программе массивов не использовать.
Я здесь набросал все ,что мог, помогите доработать, написать до конца все эти операторы в одну программу,не получается.
#include <iostream>
#include <cstdlib>
#include <conio.h>
#include <math.h>
using namespace std;
int main()
{
float a,z,xn,xk,dx,R,max,min; float count=0,x;
a = 2.94;xn = 1.5;xk = 5.5;dx = 0.4;
while (xn <= xk)
for (x >= xn; x <= xk; x+=dx, dx = dx + 0.4)
{
do
{
z = a*pow((a*x*x*x*x*x*x*x/cos(a*a*a)+1,31),(1/5));
printf("X = %10f, Z = %10f \n", x, z);
dx = dx + 0.4;
}
while (x <= xk);
return 0;
}
{
max = x;min = z;
if (x > max) max = x;
if (z < max) min = z;
if (count > 2) count = 0;
if (count == 2) printf("X = %10f, Z = %10f \n", x, z);
count=0;
}
cout<<"max="<<max<<"\t min="<<min<<"\n";
cout<<"R="<<min-max<<"\n";
system("PAUSE");
return 0;
}
E,иначе из числа взять корень степени, равной второй цифре числа
если есть умеющте напишите,пожалуйста,программу в Паскале
Дан массив А1,.......Аn. найти максимальный и минимальный элементы и поменять их местами. Вот задача которую я делал:
program zadacha;
const
k=50;
var
a:array[1..k] of integer;
n,i:1..k;
c,v,max,min,prom:integer;
begin
for i:=1 to n do begin (здесь выскакивает ошибка о проверки диапазона)
a[i]:=random(50);
write(a[i],' ');
end;
max:=a[1];
min:=a[1];
for i:=1 to n do begin
if a[i]>max then begin
max:=a[i];
c:=i;
end;
if a[i]<min the begin
min:=a[i];
v:=i;
end;
end;
writeln('max=',max,'min=',min);
prom:=max; (вот с этой строчки и до конца помогите решить)
max:=min;
min:=prom;
writeln;
writeln('Полученный массив');
for i:=1 to n do
write(a[i], ' ');
readln;
end.