Получить u=min(a,b), v=min(ab,a+b), min(u+v, 3.14) - Turbo Pascal

  1. даны действительные числа а,в. Получить u=min(a,b) , v=min(ab,a+b) , min(u+v, 3.14)


textual

Код:

Var
  a,b,u,v,p: Real;
Function Min(x,y: Real): Real;
begin
  If x<y Then
  Min:=x
  Else
  Min:=y;
end;
BEGIN
Write('A= ');
Readln(a);
Write('B= ');
Readln(b);
u:=Min(a,b);
v:=Min(a*b,a+b);
p:=Min(u+v,3.14);
Writeln('u= ',u:5:5);
Writeln('v= ',v:5:5);
Writeln('p= ',p:5:5);
Readln
END.


Похожие ответы
  1. Условие: Разработать программу для реализации указанного действия над целыми числами без знака (longint) в десятичной системе счисления. Написать две программы: 1) с использованием массивов, т.е. число представить в виде массива цифр, произвести необходимые действия, из массива цифр получить новое число и результат вывести в виде нового числа; 2) без использования массивов. Задание: Из двух чисел получить новое путем замены четных цифр первого числа на наибольшую цифру второго числа (231, 73 → 731)

  1. В детском саду готовятся к Новогоднему празднику. Дед Мороз, известный всем своей незаурядностью, придумал для детей новый конкурс. У Деда Мороза имеется мешок с N фишками. Каждый раз Дед Мороз выбирает из группы двоих детей, каждый из которых извлекает из мешка Деда Мороза одну фишку. Ребенок, который извлек фишку с большим номером, получает от Деда Мороза конфеты в количестве, равном числу, написанному на его фишке, второй ребенок не получает ничего. После вручения конфет фишка с большим номером остается у ребенка, а фишка с меньшим номером возвращается обратно в мешок. Игра продолжается до тех пор, пока в мешке находится не менее двух фишек. Из пяти фишек были вытянуты фишки с числами 5 и 4, было получено 5 конфет (фишка выделена цветом), фишка с числом 4 была возвращена в мешок. Деду Морозу необходимо определить максимальное количество конфет, которое могут получить игравшие дети. Ваша задача – помочь Дедушке в этом нелегком вопросе. Входные данные Первая строка входного файла содержит одно целое число N (2 ≤ N ≤ 1000), которое определяет число фишек в мешке Деда Мороза. Вторая строка входного файла содержит ровно N различных целых чисел Ai (1 ≤ Ai ≤ 32767). Числа в строке разделяются одиночными пробелами. Ai – число, написанное на i-й фишке. Выходные данные Единственная строка выходного файла содержит одно целое число – максимально возможное количество конфет, которые могут получить игравшие дети. input.txt 2 7 3 7 output.txt 5 2 5 3 4 7 19

  1. Дано предложение.получить предложение,в котором самое длин.слово записано наоборот

  1. Получить последовательность dk, dk-1, ..., d0 десятичных цифр числа 100!-2^100, , т. е. такую целочисленную последовательность, в которой каждый член di удовлетворяет условию 0≤di≤9 и, дополнительно, dk∙10k+ dk-1∙10k-1+…+ d0=100!-2^100

  1. Даны числа А1,..,А10;B1,..,B20.Получить матрицу С i,j,(i=1,..,20;j=1,..,10) Для которой Сi,j=A/(1+Bi). Ребят,помогите!

  1. 4. Дан действительный массив размерностью n*m, в которой не все элементы равны нулю. Получить новый массив путем деления всех элементов данного массива на ее больший по модулю элемент.

  1. Получить матрицу: 1 0 ... 0 1 0 1 ... 1 0 ............. 0 1 ... 1 0 1 0 ... 0 1

  1. Дано натуральное число N. Получить последовательность b1...bn, Где i= 1,2,3,4...,n. Значение bi равно: Сделать динамическим списком! Помогите, не получается

  1. Pascal1 2 3 type food = (broad, butter, milk, meat, fish, salt, cheese, saucers, sugar, tea, cafe); assort = set of food; shop = array [1..20] of assort;Описать процедуру Nal(sh, A), которая по информации из массива Sh типа shop (Sh(i) – это множество продуктов, имеющихся в i-м магазине) присваивает параметру A типа assort множество всех продуктов, которые есть во всех магазинах. Есть следующий код:Pascal1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 uses crt; type food = ( broad,butter,milk,meat,fish,salt,cheese,saucers,sugar,tea,cafe);     assort = set of food;     shop = array[1..20] of assort; procedure nal(sh:shop; a:assort);  var  i,m,p,j:integer;  begin   writeln('vvedite kol-va magazinov');   readln(m);   for j:=1 to m do begin     writeln('vvedite kol-vo productov');     readln(p);     writeln('vvedite productu,imeushiesya v magazine: broad,butter,milk,meat,fish,salt,cheese,saucers,sugar,tea,cafe');     for i:=1 to p do readln(sh[i]);     for i:=1 to p do      if sh[i] in shop then       readln;   End.

  1. Дано натуральное число n. Получить все простые делители этого числа.