Вопрос № 151173: Увожаемые Эксперты, помогите решить задачу на Pascal'е... сидел думал, никак не придумал в каком направлении мыслить даже... короч задание таково: "Описать функцию Card(S), подсчитывающую количество элементов во множестве S типа М. Тип М ...
Вопрос № 151216: Найти найбольшие елементы каждого ряда матрици Х(20х20) и записать их в массив У. ЗАранее спс) ...Вопрос № 151218:
Нарисовать элипс не используюоператоров Circle , Ellips, Arc, секторов, дугБ тоесть с помощью линий . Ф-ия элипса (X^2/a^2)-(y^2/b^2)=1 Спс)...Вопрос № 151242: Дано ряды S1, S2 и символ С. Перед каждым вводом символу С в ряд S1 вставить ряд S2. Буду очнь признателен)...Вопрос № 151247: Уважаемые Эксперты помогите пожалуйста решить задачу X=(tg^2(cos(75°)+sin(П/5)/2))+(|a|
^|b|^0,2)))/((|a|+0,7)^0,2+a^2+√(a+b)) Y=(cos(x+a+b)-sin^2*(x+a)^3))/(log2(x+a+1,4)-e^(-|x|+0,2))) a=0,3 b=4 Правда вот не знаю не...
Вопрос № 151.173
Увожаемые Эксперты, помогите решить задачу на Pascal'е... сидел думал, никак не придумал в каком направлении мыслить даже... короч задание таково: "Описать функцию Card(S), подсчитывающую количество элементов во множестве S типа М. Тип М объявляется глобальным и совместным по пристваиванию с типом Byte. например, Card([5,6,21])=3."
p.s. Жду вашего ответа... с Ув. к вам Димон
Отправлен: 20.11.2008, 10:04
Вопрос задал: ZzDIMONzz (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Зенченко Константин Николаевич
Здравствуйте, ZzDIMONzz!
Set (зарезервированное слово) Объявление множества (набора). Синтаксис: Set Of тип Замечания: Исходный тип набора должен быть порядковым
с не более, чем 256 возможными значениями. Порядковые значения верхнего и нижнего пределов исходного типа должны быть между в диапазоне от 0 до 255.
Удачи!
Приложение:
--------- Итерация от человека, рекурсия — от Бога (Питер Дойч)
Ответ отправил: Зенченко Константин Николаевич (статус: Профессор) Украина, Киев Тел.: +380979536619 Адрес: Украина г.Киев ---- Ответ отправлен: 20.11.2008, 11:04
Как сказать этому эксперту "спасибо"?
Отправить SMS
#thank 236094 на номер 1151 (Россия) | Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Вопрос № 151.216
Найти найбольшие елементы каждого ряда матрици Х(20х20) и записать их в массив У.
Отвечает: SHERRY
Здравствуйте, Шпак Олександр Олександрович!
Код:
const n = 20; {размерность матрицы} var ms: array [1..n, 1..n] of integer; {матрица Х} rez: array [1..n] of integer; {массив У} i,j: integer; {переменные-индексы} begin randomize; {думаю Вы не захотите каждый
раз вводить все элементы матрицы вручную} {инициализация генератора случайных чисел} for i:=1 to n do {начинаем заполнять массивы} begin for j:=1 to n do begin ms[i,j] := random(100); {генерируем элемент матрицы Х из промежутка [0;100) } write(ms[i,j]:3); {выводим его на экран} if j=1 then rez[i] := ms[i,j] {если это первый элемент в рядке матрицы Х, то посчитаем его максимальным}
{и запишем в массив У} else {иначе сравним на предмет б0льшего элемента} if ms[i,j] > rez[i] then rez [i] := ms[i,j]; end; writeln; {переход на следующую строку на экране} end; writeln; for i:=1 to n do {выводим результат работы (массив У)} write(rez[i]:3); readln; end.
Если будут вопросы или уточнения, отписывайтесь в мини-форуме или ЛС. Best regard's!
--------- Самурай без меча подобен самураю с мечом, только без меча..
Ответ отправил: SHERRY (статус: Студент)
Ответ отправлен: 20.11.2008, 19:40
Как сказать этому эксперту "спасибо"?
Отправить SMS
#thank 236135 на номер 1151 (Россия) | Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Вопрос № 151.218
Нарисовать элипс не используюоператоров Circle , Ellips, Arc, секторов, дугБ тоесть с помощью линий . Ф-ия элипса (X^2/a^2)-(y^2/b^2)=1
Отвечает: Зенченко Константин Николаевич
Здравствуйте, Шпак Олександр Олександрович!
Программа в приложении, рисует элипс с помощью процедур PutPixel(первый вариант) и LineTo(второй вариант). Удачи!
Приложение:
--------- Итерация от человека, рекурсия — от Бога (Питер Дойч)
Ответ отправил: Зенченко Константин Николаевич (статус: Профессор) Украина, Киев Тел.: +380979536619 Адрес: Украина г.Киев ---- Ответ отправлен: 20.11.2008, 20:08
Как сказать этому эксперту "спасибо"?
Отправить SMS
#thank 236138 на номер 1151 (Россия) | Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Вопрос № 151.242
Дано ряды S1, S2 и символ С. Перед каждым вводом символу С в ряд S1 вставить ряд S2.
* Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи.
(полный список тарифов)
** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
*** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.
