задачи на Turbo Pascal (массивы, функции и другое)

[MisS_VampiR]

Помогите запрограмировать задания и решить. А то задали в универе. Помогите пожалуйсто кому не сложно. Препад деньги не берет...

Задание набрать в Турбо Паскале 7.1.
Контрольное задание 7
Составить программу для нахождения минимального и максимального элементов массива, а также индексов этих элементов. Ранжировать (упорядочить) одномерный массив п заданному признаку.
(2,56; 9,03; -2,0876; -187,5; 8,088; 12,6; - 0,76; 34,86; 0,2) по возрастанию

Контрольное задание 8
Составить программу вычисления корней квадратных алгебраических уравнений ( используя функцию пользователя.
Примечание: в данных уравнениях значения коэффициентов a,b,c таковы, что дискриминант


Контрольное задание 9
Элементы двумерных массивов выбрать произвольно. Вывести их на печать в формате и с заголовком. Для решения данной задачи использовать подпрограмму типа FUNCTION.
В матрицах У(2,8) и О(4,3) определить среднее значение элементов первого и третьего столбцов матрицы.

Контрольное задание 10
Задать два одномерных массива значений, чтобы величины элементов массивов попадали в заданный интервал на всем его диапазоне (значения выбрать произвольно). Для решения данной задачи применить подпрограмму типа Procedure.
G(8), K(19) Определить количество и произведение элементов
(6;34) меньших 26 в двух заданных массивах.

Контрольное задание 11
Составить программу из 4 модулей.
Модуль 1. Сформировать одномерный массив А (25) значения элементов которого располагаются произвольным образом в диапазоне от -6 до 4. Сформировать из массива А новый массив В, элементы которого по абсолютной величины больше числа 1,5. Записать массивы А и В в файлы параллельного доступа с именами M1.TXT и M2.TXT соответственно.
Модуль 2. Вывести данные из файлов M1.TXT и M2.TXT на экран и принтер в 5 столбцов с заголовками МАССИВ А и МАССИВ В. Массивы должны быть выведены с индексами (индекс изменяется по строке).
Модуль 3. Выполнить сортировку данных в файле M1.TXT по возрастанию, а в файле M2.TXT по убыванию. Для сортировки использовать подпрограмму типа SUB. Сортировать не элементы массивов, а записи в файлах!
Модуль 4. Вывести данные из файлов M1.TXT и M2.TXT на экран и принтер в 6 строк с заголовками ОТСОРТИРОВАННЫЙ МАССИВ А и ОТСОРТИРОВАННЫЙ МАССИВ В.
Массивы должны быть выведены с индексами (индекс изменяется по столбцу).


Для всех заданий: привести распечатку программы и результатов, блок-схему

[Stilet]

Составить программу для нахождения минимального и максимального элементов массива, а также индексов этих элементов. Ранжировать (упорядочить) одномерный массив п заданному признаку.
(2,56; 9,03; -2,0876; -187,5; 8,088; 12,6; - 0,76; 34,86; 0,2) по возрастанию

var a:array[1..9] of real; i,j,max,min:integer;
begin max:=1; min:=1;
 for i:=1 to 9 do begin
  readln(a[i]);
  if a[max]<a[i] then max:=i;
  if a[min]>a[i] then min:=i;
 end; 

 writeln(min:5,a[min]:10,max:5,a[max]:10);

 for i:=1 to 9 do begin
  for j:=1 to 9 do begin
   if a[i]<a[j] then begin
    max:=a[i]; a[i]:=a[j]; a[j]:=max;
   end;
  end; 
 end; 

 for i:=1 to 9 do begin
  writeln(a[i]);
 end;
end.

[Аватар]

привести распечатку программы и результатов

По почте отправить

[MisS_VampiR]

Приветик. Это в паскале? Что мне дальше нужно с этим делать?

Сообщение от Аватар

По почте отправить

кого отправить?

Сообщение от Stilet

var a:array[1..9] of real; i,j,max,min:integer;
begin max:=1; min:=1;
 for i:=1 to 9 do begin
  readln(a[i]);
  if a[max]<a[i] then max:=i;
  if a[min]>a[i] then min:=i;
 end; 

 writeln(min:5,a[min]:10,max:5,a[max]:10);

 for i:=1 to 9 do begin
  for j:=1 to 9 do begin
   if a[i]<a[j] then begin
    max:=a[i]; a[i]:=a[j]; a[j]:=max;
   end;
  end; 
 end; 

 for i:=1 to 9 do begin
  writeln(a[i]);
 end;
end.

Приветик. Это в паскале? Что мне дальше нужно с этим делать?

[Аватар]

Сообщение от MisS_VampiR

кого отправить?

Не кого, а что - распечатку

Что мне дальше нужно с этим делать?

Преподу показать

[MisS_VampiR]

Сообщение от Аватар

По почте отправить

это просто скопировала все задание. Кто ж знал что для строителя такие задания дают.

Сообщение от Аватар

Не кого, а что - распечаткуПреподу показать

а то конец?

Сообщение от Аватар

Не кого, а что - распечаткуПреподу показать

Еще вопрос А то нужно в паскале набрать иль где? И еще то задание или с решением?

[BDA]

Кристина, не пишите несколько сообщений подряд (свои сообщения можно редактировать в течение 24 часов) и четче формулируйте вопросы.

[MisS_VampiR]

Сообщение от BDA

Кристина, не пишите несколько сообщений подряд (свои сообщения можно редактировать в течение 24 часов) и четче формулируйте вопросы.

Хорошо. Буду знать.

[Serge_Bliznykov]

Препад деньги не берет...

зато здесь, на форуме, многие с удовольствием возьмут деньги за написание кода вместо Вас (welcome в раздел фриланс)

[Stilet]

Что мне дальше нужно с этим делать?

Странный вопрос?
А что предполагалось делать с ответами в принципе?