Школьная скамья

[lucas15@mail.ru]

Господа, кто-нибудь поможет решить школьную программу?

Решить задачи по обработке массивов:
1) Дан числовой массив A (N). Удалить отрицательные элементы массива, уплотнив массив.
2) Для произвольного числа N построить массив A (N, N) целых чисел, вида:
n n-1 n-2…. 1
0 n n-1 2
0 0 n 3
0 0 0 n



Решить задачу по обработке строковых данных с использованием подпрограмм:
а) Дано число в восьмеричной системе счисления. Используя подпрограмму перевести его в десятичную систему счисления.

Решить задачу по обработке записей:
Кулинарная книга содержит перечень блюд с необходимым набором продуктов. Вывести на экран для заданного блюда - его продукты.

Решить задачу по обработке файлов данных с использованием динамической памяти (указателей):
Создать файл вещественных чисел. Разместить элементы файла в динамической памяти в односвязном линейном списке. Найти среднее арифметическое положительных элементов списка.

[Poma][a]

1) Дан числовой массив A (N). Удалить отрицательные элементы массива, уплотнив массив.

Обсуждалось очень много раз!

Для произвольного числа N построить массив A (N, N) целых чисел, вида:

Не совсем понял правило заполнения..

Решить задачу по обработке файлов данных с использованием динамической памяти (указателей):

Не умею! Каюсь..

а) Дано число в восьмеричной системе счисления. Используя подпрограмму перевести его в десятичную систему счисления.

Напишите как сделать это на бумажке, тогда я Вам помогу

Кулинарная книга содержит перечень блюд с необходимым набором продуктов. Вывести на экран для заданного блюда - его продукты.

Опишите тип запись и массив записи, тогда я Вам помогу (внимание! я так понимаю что вводим мы так :

1 // Кол-во рецептов в книге
бутерброд "Завтрак студента" // название
Хлеб, майонез // необходимые продукты
пельмени // то что ищем

)
Вывод :

Ничего не найдено!

Так?

[alexander13]

Сообщение от Poma][a

...
Не совсем понял правило заполнения..
...

    for (i = 0; i < N; i++)
        for (j = 0; j < N; j++)
            a[i][j] = (j < i) ? 0 : N - j;

[Poma][a]

Спасибо! А можно вот это :

(j < i) ? 0 : N - j;

на паскале? Просто не очень понятен это пикантный момент

[alexander13]

Извиняюсь, ошибся малость, невнимательно посмотрел на условие. Надо все же так

    for (i = 0; i < N; i++) 
        for (j = 0; j < N; j++) 
            a[i][j] = (j < i) ? 0 : N - j + i;

И картинка там будет такая


Upd.
На паскале.. ну как.. если я еще не совсем забыл паскаль, то

if (j < i) then
   a[i, j] := 0
else
   a[i, j] := N - j + i;

Upd. 2
Вот.

[BDA]

Poma][a,

a[i][j] = (j < i) ? 0 : N - j + i;

будет

if j < i then
  a[i, j] := 0
else
  a[i, j] := N - j + i;

lucas15@mail.ru, где же Ваши наработки?

[lucas15@mail.ru]

Сообщение от Poma][a

Напишите как сделать это на бумажке, тогда я Вам помогу

Опишите тип запись и массив записи, тогда я Вам помогу

Меня устроит любая возможная запись...

[Poma][a]

alexander13, BDA, спасибо!
Могу предложить такой вариант (не проверял)

Ord(j>=1) * (N- j + 1)

[Вадим Мошев]

Сообщение от Poma][a

Спасибо! А можно вот это : на паскале? Просто не очень понятен это пикантный момент

(j < i) ? 0 : N - j;

Это так называемый арифметический условный оператор. Он присваивается какой-то переменной.

Синтаксис такой:
<ИмяПеременной> = <Логическое выражение> ? <Значение, если выражение истинно> : <Значение, если выражение ложно>

Пример:

a = (k > 0) ? 'Hello' : 'GoodBye';

если число k будет больше нуля, то переменная a будет иметь значение 'Hello'. В противном случае, она будет иметь значение 'GoodBye'