Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Помогите с задачей на сортировку

88K
03 июня 2014 года
highddevil
2 / / 03.06.2014
Доброго времени суток Вам!
Задачка у меня такая. Написать прогу на сортировку элементов массива. Задача:
Дан трехмерный массив вещественных чисел A[ijk] из 10 двумерных массивов
A[ijk], i=1..10. В каждом двумерном массиве семь строк j по k=1.. 8 чисел в
каждом.
Заданы два массива по 8 вещественных элементов. Первый – нижний порог для
каждого числа из массива. Второй – верхний порог.
Каждая строчка двумерного массива – день недели. Для каждого дня недели j надо
напечатать в строчку восемь *. Звездочка с номером k окрашена в красный цвет, если
хоть одно число из i-го столбца двумерных массивов A[ijk] для всех i=1..10 либо
меньше нижнего порога, либо больше большего порога с номером j.
Далее вводим день недели и номер столбца i. Печатаем номер двумерного массива
(он обозначается через i=1..10) и число, которое там стоит: 1-5 -е как вещественное,
6-8-е как целое. Те числа, которые не уложились в диапазон, печатаем голубым
(если меньше нижнего порога) и красным (если больше верхнего порога). Остальные
черным. Все по возможности на белом фоне.
Массив A[ijk] можно задать прямо в программе.

Туплю очень, не могу понять, как мне это организовать. Помогите советом пожалуйста, кто как может.
Заранее спасибо
88K
05 июня 2014 года
highddevil
2 / / 03.06.2014
Кое-чего набросал. Подскажите, где не так и чего добавить.

var //Глобальные переменные
A:array[1..10,1..10,1..10] of real;
i,j,k: integer;


begin //Формирование массива A[i,j,k]
for i:=1 to 10 do
for j:=1 to 10 do
for k:=1 to 10 do
end;

function Nedel:String; //Перевод в типы
for i:=1 to 10 do
begin
for j:=1 to 7 do
case k of
1..5: real;
6..8: integer;
else
begin //Печать в цвет
addColorText();
end;
result:='';
end;
end;

function sravnenie(const x,a,b: String):TColor;
var
result:TColor;
begin
result:=ClBlack;
begin
if x<a then result:=clBlue; //Меньше нижнего порога
if x>b then result:=ClRed; //Больше верхнего порога
if (x>=a) and (x<=b) then result:=ClBlack; //Остальные, не вошедшие в диапазон
end;
end;

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог