Язык программирования Pascal. Регулярные типы данных. Васильев В.В - 14 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

14
if f then
writeln('Объединение интервалов является интервалом
(',d:4:1,',',e:4:1,')')
else
writeln('Объединение интервалов не является интервалом ');
readkey;
End.{Interval}
В следующей задаче предлагается преобразовать массив, циклически
сдвинув его элементы .
Задача 7. Преобразуйте массив Х из 70 случайных вещественных чисел
по указанному дальше правилу, воспользовавшись массивом Y как вспомога-
тельным. Элементы массива Х циклически сдвиньте на k позиций влево.
♣ Введем константу n , хранящую количество элементов массива. Вве -
денное число k может оказаться больше n, поэтому в качестве k (числа сдви-
гаемых позиций) возьмем остаток от целочисленного деления n на k.
Сформируем нужным образом вспомогательный массив y , а затем переда-
дим его значения массиву x . Для этого первые n-k значений массива x присво-
им элементам массива y с номерами k+1,...,n. Первым k элементам массива y
присвоим значения элементов массива x с номерами n-k+1,...,n. ♣
Program Go;
Uses crt;
Const n=70;
Type mas1=array[1..n] of real;
Var i,g1,g2,k:integer; x,y:mas1;
Begin
Textbackground(7); Textcolor(blue); Clrscr;
{Ввод границ варьирования значений}
write('Введите нижнюю границу диапазона:'); readln(g1);
write('Введите верхнюю границу диапазона:'); readln(g2);
{Генерация одномерного массива}
randomize;
for i:=1 to n do x[i]:=(random*(abs(g2-g1)))+g1;
writeln;
{Вывод элементов массива по 10 элементов в строке }
writeln('Сгенерированный вектор:');
for i:=1 to n do
begin
write(x[i]:7:2,' ');
if i mod 10 = 0 then writeln
end;
{Ввод k}
write('Введите величину сдвига k:');readln(k);
k:=k mod n;

Страницы