Служба спасения студентов
Служба спасения для студентов (18+)

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

Стоимость
50 руб.
Содержание
Практика
Объем
5 лист.
Год написания

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

Работа пользователя И. Нестеров
  1. Решить задачу[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 -23 48 -9 -34 50 41
Сортировка выбором, по убыванию

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

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

 

Сколько стоит помощь с учебной работой?