Если k> s > m > p, то числа оставить без изменения - Turbo Pascal

  1. ребята, помогите плиз!(( Вводятся действительные числа k, s, m,p. Если k> s > m > p, то числа оставить без изменения, в противном случае каждое число заменить наибольшим из них.


textual

Код:

var
  k,s,m,p,max: real;
begin
  write('Введите k, s, m, p: ');
  readln(k,s,m,p);
  max:=k;
  if s>max then max:=s;
  if m>max then max:=m;
  if p>max then max:=p;
  if not ((k>s) and (s>m) and (m>p)) then
  begin
    k:=max; s:=max; m:=max; p:=max;
  end;
  writeln('k = ',k,'; s = ',s,'; m = ',m,'; p = ',p);
  readln;
end.


Похожие ответы
  1. 1.Составить программу вычисления суммы квадратов чётных чисел из промежутка [a,b].

  1. Cоставить программу табулирования функции y=f(x) на отрезке [a, b] с шагом h=(b-a)/m где m – заданное число. Оператор цикла While. Функция F(x)=xsin(x); a=0 b=3pi m=10

  1. Даны два действительных числа. замените первое число нулём, если оно меньше или равно второму, и оставьте числа без изменения в противном случае. Напишите код программы и составьте блок-схему.

  1. Помогите пожалуйста разработать алгоритм и составить программу вычисления таблицы значений функции, заданной в виде разложения в ряд. Значение функции вычислять с точностью z>0, т.е. вычисление суммы членов ряда необходимо прекратить, когда абсолютная величина очередного члена ряда разложения окажется меньше z: | ак |

  1. Помогите пожалуйста составить программу на языке Turbo Pascal 7.0 вычисления значения интеграла на интервале [a, b] для функции, заданной графически. Значение интеграла вычислить приближённо по итерационной формуле левых прямоугольников: где h=(b-a)/n - величина шага между двумя соседними точками разбиения интервала интегрирования; fi = f(xi) - значение функции в точке xi = a+h(i-1); i = 1, 2, ..., n. Вычисления закончить при выполнении условия |In-I2n| < z, где z>0 - достаточно малое значение, задаваемое пользователем (точность вычислений). Здесь In, I2n - значения интеграла, вычисленные по (1) при количестве интервалов разбиения n и 2n соответственно. Функция:

  1. Помогите решить интересную задачу, в нете искал и не смог найти нормального ответа. ЗАранее Спасибо! Написать подрограмму для логического оператора AND, без использования логических операторов . Напривер a and b .

  1. Добрый вечер. Помогите пожалуйста с задачей Вычислить (2*5! + 3*8!)/(6! + 4!), используя процедуру без параметров. Добавлено через 8 минут P.S. Переделать данную программу. Вместо функции, сделать процедуру без параметров.

  1. помогите с задачей! Составить процедуру для нахождения индексов максимального элемента квадратной матрицы. Применить данную процедуру для двух заданных матриц C(n,n) и P(m,m).

  1. Составить таблицу корней квадратных для чисел от 10 до 50 с шагом 5.Буду очень благодарен.

  1. Составить программу с использованием циклических конструкций While… do… и Repeat… Until… . Составить программу вычисления переменной X от х1 до х2 и Y от y1 до y2 используя вложенную циклическую структуру, где X – переменная внешнего цикла, Y – переменная внешнего цикла. Организовать вывод таблицы значений. заранее безмерное спасибо!!!!!!!!