Запустите Кумир. Введите текст программы рисования ромбов. Нажмите «Обычное выполнение», убедитесь, что ромбы нарисованы. Измените программу так, чтобы она рисовала ряд квадратов со стороной 2 клетки. Результат может выглядеть примерно так:
var a: array[1..n] of integer; b: array[-5..11] of integer; i, j, m: integer;
begin //Заполнение массива и подсчет кол-ва каждого из интервала // от -5 до 11 writeln('Исходный массив'); for i := 1 to n do begin a[i] := random(17) - 5; inc(b[a[i]]); write(a[i]:4); end; writeln; //Сортировка и вывод массива writeln('Отсортированный массив'); for i := 1 to n - 1 do begin for j := i + 1 to n do begin if a[i] > a[j] then begin m := a[i]; a[i] := a[j]; a[j] := m; end; end; end; for i := 1 to n do write(a[i]:4); writeln;
//Вывод количества чисел из интервала
for i := -5 to 11 do begin writeln('Число:', i:4, ' кол-во: ', b[i]:4); end; end.
Запись файла любого типа и использование диска на компьютере с Windows XP или более поздней версией.Диск: CD-R, CD-RW, DVD-R, DVD-R DL, DVD+R, DVD+R DL, DVD-RW, DVD+RW или DVD-RAMФормат: файловая система LFSЗапись файла любого типа и использование диска на любом компьютере, где могут быть установлены версии Windows, более ранние, чем Windows XP.Диск: CD-R, CD-RW, DVD-R, DVD-R DL, DVD+R, DVD+R DL, DVD-RW, DVD+RW или DVD-RAMФормат: MasteredЗапись файла любого типа и использование диска на компьютере с Windows Vista или более поздней версией.Диск: CD-R, CD-RW, DVD-R, DVD-R DL, DVD+R, DVD+R DL, DVD-RW, DVD+RW, DVD-RAM, BD-R или BD-REФормат: файловая система LFS или MasteredЗапись музыки или изображений и использование диска на некоторых обычных проигрывателях компакт-дисков, DVD-дисков или дисков Blu-ray, воспроизводящих МР3-файлы и цифровые изображения.Диск: CD-R, CD-RW, DVD-R, DVD+R, DVD-RW или DVD+RWФормат: MasteredЗапись музыки и изображений и использование диска на любом компьютере, где могут быть установлены версии Windows, более ранние, чем Windows XP.Диск: CD-R, CD-RW, DVD-R, DVD+R, DVD-RW или DVD+RWФормат: MasteredВозможность многократного добавления и стирания одного или множества файлов (как в случае использования USB-устройства флэш-памяти) и использование диска на компьютерах с Windows XP или более поздней версией.Диск: CD-R, CD-RW, DVD-R, DVD-R DL, DVD+R, DVD+R DL, DVD-RW, DVD+RW или DVD-RAMФормат: LFSВозможность многократного добавления и стирания одного или множества файлов (как в случае использования USB-устройства флэш-памяти) и использование диска на компьютерах с Windows 7.Диск: CD-R, CD-RW, DVD-R, DVD-R DL, DVD+R, DVD+R DL, DVD-RW, DVD+RW, DVD-RAM, BD-R или BD-REФормат: файловая система LFSНахождение диска в устройстве записи компьютера, копирование на него файлов, например, для резервного храненияДиск: CD-R, CD-RW, DVD-R, DVD-R DL, DVD+R, DVD+R DL, DVD-RW, DVD+RW, DVD-RAM, BD-R или BD-REФормат: файловая система LFS
n = 20;
var
a: array[1..n] of integer;
b: array[-5..11] of integer;
i, j, m: integer;
begin
//Заполнение массива и подсчет кол-ва каждого из интервала
// от -5 до 11
writeln('Исходный массив');
for i := 1 to n do
begin
a[i] := random(17) - 5;
inc(b[a[i]]);
write(a[i]:4);
end;
writeln;
//Сортировка и вывод массива
writeln('Отсортированный массив');
for i := 1 to n - 1 do
begin
for j := i + 1 to n do
begin
if a[i] > a[j] then begin
m := a[i];
a[i] := a[j];
a[j] := m;
end;
end;
end;
for i := 1 to n do write(a[i]:4);
writeln;
//Вывод количества чисел из интервала
for i := -5 to 11 do
begin
writeln('Число:', i:4, ' кол-во: ', b[i]:4);
end;
end.
Тестовое решение:
Исходный массив
9 4 6 1 8 -5 9 0 -1 0 7 7 -1 -3 -1 -2 7 3 11 4
Отсортированный массив
-5 -3 -2 -1 -1 -1 0 0 1 3 4 4 6 7 7 7 8 9 9 11
Число: -5 кол-во: 1
Число: -4 кол-во: 0
Число: -3 кол-во: 1
Число: -2 кол-во: 1
Число: -1 кол-во: 3
Число: 0 кол-во: 2
Число: 1 кол-во: 1
Число: 2 кол-во: 0
Число: 3 кол-во: 1
Число: 4 кол-во: 2
Число: 5 кол-во: 0
Число: 6 кол-во: 1
Число: 7 кол-во: 3
Число: 8 кол-во: 1
Число: 9 кол-во: 2
Число: 10 кол-во: 0
Число: 11 кол-во: 1