Лабораторная работа № 12. Поиск и сортировка Вариант 10. Pascal

Стоимость

50 руб.

Содержание

Практика

Объем

5 лист.

Год написания

Купить за 50

Описание работы

Работа пользователя И. Нестеров

Решить задачу[1]. Проверить на 2-3 тестовых наборах

10)           В массиве хранится информация о стоимости 1 килограмма 30 видов конфет. Определить порядковый номер самого дешевого вида конфет. Если таких видов несколько, то должен быть найден номер:
а) первого из них;
б) последнего из них.
Решение.
var a: array[1 .. 30] of real;
min, x, i: integer;
begin
for i := 1 to 30 do
begin
write('a[', i, '] =');
readln(a[i]);
end;
min := 1; x := 1;
for i := 2 to 30 do
begin
   if a[min] > a[i] then
   begin
     min := i; x := i;
   end
   else if a[min] = a[i] then x := i;
end;
writeln('минимальная цена =', a[min], 'первый индекс = ',min);
if x <> min then
   writeln( 'последний индекс =', x )
end.

2) Для заданного массива продемонстрировать его изменение при сортировке его указанным методом. Показывать состояние массива после каждого прохода внешнего цикла. Отсортированный фрагмент выделить цветом
43 -47 9 1 -23 48 -9 -34 50 41
Сортировка выбором, по убыванию

3) Модифицировать программы сортировки, чтобы они выполняли упорядочивание данных по убыванию. Проверить на 2-3 тестовых наборах
Сортировка выбором

4) Модифицировать программы сортировки, чтобы они выполняли упорядочивание: а) вещественных значений; б) строковых значений. Проверить на 2-3 тестовых наборах для каждого типа данных
Сортировка выбором

Купить за 50
Покупая готовую работу, Вы соглашаетесь с Публичной офертой сервиса "Курсар. Магазин готовых работ"