Подпрограммы: Определить значение z = min (a,b) * min (b/a, b-a)

@Дэрианна · Регистрация: 04.10.2009

Студворк — интернет-сервис помощи студентам

Помогите пожалуйста человеку который нифига не разбирается в Паскали.... Плииииизззззззз

ПОДПРОГРАММЫ

ЦЕЛЬ РАБОТЫ:
• изучить такие понятия как подпрограмма, функция, процедура, формальные и фактические параметры, параметры-значения и параметры-переменные;
• научиться составлять пользовательские функции и процедуры и использовать их в основной программе.

Вариант 15
1. Определить значение z = min (a,b) * min (b/a, b-a), где min (x, y) – минимальное из чисел x, y. При решении задачи определить и использовать функцию min.
2. Заполнить матрицу случайными числами. Развернуть матрицу на 90o против часовой стрелки. Манипуляции с матрицей выполнить в виде процедуры.

@EvgeniiSp · 15.11.2009, 20:54

1. Определить значение z = min (a,b) * min (b/a, b-a), где min (x, y) – минимальное из чисел x, y. При решении задачи определить и использовать функцию min.

Pascal

program EvgeniiSp;
var
 z: real;
 a, b: integer;
 
function min(x,y: real): real;
 begin
  if x >= y 
   then min:=y
   else min:=x;
 end;
 
begin
 write('a = ');
 readln(a);
 write('b = ');
 readln(b);
 z:=min(a,b)*min(b/a,b-a);
 writeln('z = ',z:4:2);
end.

@Дэрианна 0 / 0 / 0 Регистрация: 04.10.2009 Сообщений: 55
		1
	Подпрограммы: Определить значение z = min (a,b) * min (b/a, b-a) 15.11.2009, 20:27. Показов 1469. Ответов 1 Метки нет (Все метки) Помогите пожалуйста человеку который нифига не разбирается в Паскали.... Плииииизззззззз ПОДПРОГРАММЫ ЦЕЛЬ РАБОТЫ: • изучить такие понятия как подпрограмма, функция, процедура, формальные и фактические параметры, параметры-значения и параметры-переменные; • научиться составлять пользовательские функции и процедуры и использовать их в основной программе. Вариант 15 1. Определить значение z = min (a,b) * min (b/a, b-a), где min (x, y) – минимальное из чисел x, y. При решении задачи определить и использовать функцию min. 2. Заполнить матрицу случайными числами. Развернуть матрицу на 90o против часовой стрелки. Манипуляции с матрицей выполнить в виде процедуры. 0

Опции темы

Подпрограммы: Определить значение z = min (a,b) * min (b/a, b-a)

Решение