BuBuBuuBu
22.03.2022 10:50

Для замены значений переменных в Pascal используется следующая конструкция:

zam:=x;

x:=y;

y:=zam;

Переменная zam используется как временное хранилище значения переменной x. Результатом выполнения трёх перечисленных команд будет обмен значений переменных x и y между собой.

Причиной для замены может быть присвоение какой-то из нескольких переменных максимального (или минимального, или ещё какое-то условие) значения из тех значений, что имеется в наличии. Например, есть переменная max и переменная x. Проверяем условие максимальности из них переменной max и если условие не соблюдается (т.е. max меньше x), то значения этих переменных заменяем меж собой. В Pascal это выглядит так:

………;

……….;

if max
zam:=max;

max:=x;

x:=zam;end;

………..;

………..;

Это фрагмент программы, многоточия обозначают возможные другие команды, не относящиеся непосредственно к нашей теме.

Переменными в Pascal могут быть элементы массива, который объявляется так:

var mas:array[1..20]of integer; Это мы объявили массив целых чисел из 20-ти элементов.

Присваивать значения элементам массива можно в цикле с параметром:

for i:=1 to 20 do begin

writeln(‘Введите значение элемента массива’);

readln(mas[i]);end;

В этом случае значения каждому элементу присваиваем вручную. Можно использовать генератор случайных чисел:

for i:=1 to 20 do

mas[i]:=random(100);

где последняя команда означает, что очередному элементу массива будет присвоено случайное число из диапазона 0...99 (все включительно).

Теперь собственно задание:

Составленная Вами программа должна будет:

1. Присвоить значения элементам массива целых чисел, состоящем из не менее чем 20-ти элементов. Случайным образом или с клавиатуры;

2. Вывести весь массив в окне вывода;

3. Отсортировать элементы массива по возрастанию;

4. Вывести отсортированный массив в окне вывода.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Роннилав
13.09.2022 00:14
uses crt,graph; type mas=array[1..500] of Pointtype; var gd,gm,i,j,k,n:integer;     a:mas; begin randomize; gd:=0; initgraph(gd,gm,''); for i:=1 to 500 do  begin   a[i].x:=random(getmaxX);   a[i].y:=random(getmaxY);   circle(a[i].x,a[i].y,2);  end; k:=0;n:=0; repeat k:=k+1; delay(200); setcolor(0); for i:=1 to 500 do circle(a[i].x,a[i].y,2); for i:=1 to 500 do  begin   if a[i].y>getmaxY-n-10 then a[i].y:=1   else a[i].y:=a[i].y+3;   if a[i].x<0 then a[i].x:=getmaxX   else a[i].x:=a[i].x-1;  end; setcolor(15); for i:=1 to 500 do circle(a[i].x,a[i].y,2); if k mod 20=0 then  begin   n:=n+1;   line(0,getmaxY-n,getmaxX,getmaxY-n);  end; until keypressed; readln end.
0,0(0 оценок)
Ответ:
bosschakalev
02.02.2021 04:25
В позиционной системе каждый разряд стоит на своей позиции.
Например, в 10-ной системе, число 235 означает, что в нем 2 сотни, 3 десятка и 5 единиц.
В 2-ной системе число 10010 означает, что в нем 1 число 2^4 = 16 и
1 число 2^1 = 2. Таким образом, эта запись означает число 16 + 1 = 18.
В непозиционной системе разные единицы могут быть в разных местах, а их значение определяется взаимным расположением.
Самая известная непозиционная система - это римские цифры.
Запись IV означает 5 - 1 = 4, запись VI означает 5 + 1 = 6.
Запись IX означает 10 - 1 = 9, запись XI означает 10 + 1 = 11.
То есть значение значка I означает то +1, то -1, в зависимости от того, стоит он перед или после более старшего значка.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота