3 года назад

Даны различные действительные числа x, y, z, d. Найти max (min (x, y), min (x, z), min (z, d)). Решить в Делфи 7

1 ответ:

0 0

Var
    x, y, z, d: real;

function min(a, b: real): real;
begin
    if a < b then
        min := a
    else min := b;
end;

function max(a, b: real): real;
begin
    if a > b then
        max := a
    else max := b;
end;

begin
    readln(x, y, z, d);
    writeln(max(min(x, y), max(min(x, z), min(z, d))));
end.

Читайте также

Дана: квадратная матрица Найти: наибольшее и наименьшее значения главной диагонали.

Рау [17]

uses crt;
var
a:array [1..1000,1..1000] of integer;
i,j,max,min,k:integer;
begin
clrscr; randomize;
write ('Введи количество столбцов/строк матрицы: ');read(k);
for i:=1 to k do
begin
for j:=1 to k do
begin
a[i,j]:=random(100)-50;
write (a[i,j]:4);
end;
writeln;
end;
max:=1; min:=1;
for i:=2 to k do
if a[i,i]>max then max:=a[i,i]

else
if a[i,i]<min then min:=a[i,i];
writeln('Наибольшее значение главной диагонали: ',max);
write('Наименьшее значение главной диагонали: ',min);
end.

0 0

2 года назад

Прочитать ещё 2 ответа

Человек ,группа людей животное или техническое устройство , способное выполнять определённый набор команд - это 1) исполнитель

Электричка [7]

Человек ,группа людей животное или техническое устройство , способное выполнять определённый набор команд - это ИПОЛНИТЕЛЬ.
Ответ:1)

0 0

4 года назад

Прочитать ещё 2 ответа

Дана матрица A[1..n,1..m] целых чисел. Напишите программу, которая переставит столбцы матрицы А таким образом, чтобы элементы по

UjeanKlerk

//PascalABC.Net 3.2
var m, n: integer;
a: array of array of integer;

procedure zam(a1, b1: integer);
begin
for var i:=0 to n-1 do
begin
a[i][a1]+=a[i][b1];
a[i][b1] :=a[i][a1]-a[i][b1];
a[i][a1]-=a[i][b1];
end;
end;

procedure sortSelekt ();
var max: integer;
begin
for var i:=0 to m-1 do
begin
max:=i;
for var j:=i to m-1 do
if a[n-1][max]<a[n-1][j] then max:=j;
if i<>max then zam (i, max);
end;
end;

procedure printMAS ();
begin
for var i:=0 to n-1 do
begin
for var j:=0 to m-1 do write (a[i][j]:4);
writeln;
end;
end;

begin
n:=readinteger('n =');
m:=readinteger('m =');
setLength (a, n);
for var i:=0 to n-1 do
a[i]:=arrRandom (m, -99, 99);

writeln ('Первоначальная случайная матрица: ');
printMAS();
sortSelekt ();
writeln ('Измененная матрица: ');
printMAS();
end.

0 0

4 года назад

Задание: разработать алгоритм и изобразить его в виде блок-схемы. Пользователь вводит с клавиатуры N чисел. Определить номер мак

Пётр Рыбаков [21]

//Блок-схема во вложении
//Pascal ABC.NET v3.0 сборка 1111

Var
a,i,n,max,maxi:integer;
begin
readln(n);
for i:=1 to n do
begin;
readln(a);
if abs(a)>max then
begin;
max:=abs(a);
maxi:=i;
end;
end;
write('Максимальный по модулю элемент был введен ',maxi,'-м');
<span>end.

</span>

0 0

1 год назад

Помогите с кодом на С++

skordr

#include <bits/stdc++.h>

using namespace std;

int main()
{
    string s;
    cin >> s;
    string t;
    cin >> t;
    if (s[0] == '-' && t[0] == '-')swap(s,t);
    else if (s[0] == '-'){cout << 1; return 0;}
        else if (t[0]=='-'){cout << 2; return 0;}
    if (s.length() > t.length()){cout << 2; return 0;}
    if (s.length() < t.length()){cout << 1; return 0;}
    if (s > t){cout << 2; return 0;}
    if (s < t){cout << 1; return 0;}
}

0 0

4 года назад