Заполнить массивы целыми случайными числами из диапазона от 0 до 50 - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Массивы Х(10) и Y(10) заполнить целыми случайными числами из диапазона от 0 до 50. Сформировать массив М таким образом, что М(I)=1, если X(I)>Y(I), в противном случае М(I)=0. Вывести Х,Y,M.

Решение задачи: «Заполнить массивы целыми случайными числами из диапазона от 0 до 50»

textual
Листинг программы
const n=10;
type mas=array[1..n] of byte;
var x,y,m:mas;
procedure vv_mas(var a:mas;s:string;f:boolean);
var i:byte;
begin
 writeln(s);
 for i:=1 to n do
  begin
   if f then a[i]:=random(51);
   write(a[i]:3)
  end; writeln 
end;
procedure mm(var a,b,c:mas);
const yn:array[boolean] of integer=(0,1);
var i:integer;
begin
 for i:=1 to n do c[i]:=yn[a[i]>b[i]]
end; 
begin
 vv_mas(x,'X:',true);
 vv_mas(y,'Y:',true);
 mm(x,y,m);
 vv_mas(m,'M:',false)
end.

Объяснение кода листинга программы

В данном коде происходит следующее:

  1. Создается переменная n со значением 10, которая представляет собой количество элементов в массиве.
  2. Создается тип данных mas, который представляет собой массив целых случайных чисел от 0 до 50.
  3. Создаются три переменные x, y и m, которые представляют собой массивы типа mas.
  4. Создается процедура vv_mas, которая принимает три параметра: var a (массив), s (строка) и f (логическое значение), и выполняет следующие действия: выводит строку s, затем заполняет массив a случайными числами от 0 до 50, если значение f равно true.
  5. Создается процедура mm, которая принимает три параметра: var a, b и c (массивы), и выполняет следующие действия: для каждого элемента массива a сравнивает его со значением массива b и присваивает соответствующий элемент массива c в зависимости от результата сравнения.
  6. Вызываются процедуры vv_mas для массивов x, y и m, а также вызывается процедура mm для массивов x, y и m.
  7. Конец программы.

Оцени полезность:

6   голосов , оценка 4 из 5
Похожие ответы