Написать процедуру, которая возводит максимальное из двух переданных ей чисел в квадрат - Pascal ABC

  1. Написать процедуру, которая возводит максимальное из двух переданных ей чисел в квадрат, а минимальное число увеличивает в 2 разаДобавлено через 2 часа 8 минут Ну пожалуйста кто нибудь помогите мне неразумной с этой задачей...((


textual

Код к задаче: «Написать процедуру, которая возводит максимальное из двух переданных ей чисел в квадрат - Pascal ABC»

procedure Nyshka(var a, b: double);
begin
  if a > b
    then begin
      a := a * a;
      b := b * 2
    end
    else if b > a
      then begin
        b := b * b;
        a := a * 2
      end
end;

СДЕЛАЙТЕ РЕПОСТ

13   голосов, оценка 3.692 из 5



Похожие ответы
  1. Добрый день. Знаю, что такое уже было на вашем форуме, но оно было не полностью, а как доделать я не сильно знаю. Задача: Написать программу перевода целого числа a из цифрового формата в прописной. a < 1012 Пример: a = 123 ⇒ cто двадцать три. Вот код, который я обнаружил на этом сайте:

  1. Написать программу формирования ОПЗ и расчета полученного выражения. Разработать удобный интерфейс ввода исходных данных и вывода результатов. Работу программы проверить на конкретном примере Сам пример со значениями которые должны получиться: (a– b)/(c+d)*e , где а=0.3 b=6.7 c=8.4 d=9.6 e=1.2 Результат должен получиться -0.429. Помогите пожалуйста используя динамический массив заранее спасибо

  1. Написать программу, которая по введенному значению аргумента вычисляет значение функции, заданной в виде графика.

  1. Помогите, пожалуйста, с программой Даны натуральное число n, целые числа а1,…,аn (последовательности идущих подряд членов), состоящие из степеней пятерки. Определить процедуру, позволяющую распознавать степень пятерки. Программу оформить в виде диалога. Выход из программы – нажатием Esc.

  1. Даны натуральные k, m. Написать процедуры для вывода следующих фигур: а) k - строк, m - столбцов, б) k - строк, m – половина разности длины двух любых соседних строк.

  1. Написать программу для построения графика функции. y=sqrt(2x+6)

  1. Нужна срочная помощь в написании данных программ на Pascal ABC. Спасибо! 1.Вывести на экран массив из n случайных положительных и отрицательных чисел, n вводится с клавиатуры. Сформировать и вывести на экран второй массив, каждый элемент которого получается сложением элемента первого массива на его максимальное значение. 2.Вывести на экран массив из 10 случайных положительных и отрицательных чисел. Сформировать и вывести на экран второй массив, состоящий из четных элементов первого массива, нечетные заменяются на 1. 3.Вывести на экран массив из n случайных положительных и отрицательных чисел, n вводится с клавиатуры. Найти разницу между максимальным и минимальным элементами массива. 4.Значения элементов массива a из 10 целых чисел вводятся с клавиатуры. Создать второй массив, состоящий из НОМЕРОВ отрицательных элементов массива a.

  1. Написать программу, которая по введенному значению аргумента вычисляет значение функции , заданной в виде графика. Параметр R задается константой.

  1. В программе ввести индекс,значение которого увеличивается после каждого действия оператора.