Заказы "Сделайте все за меня"

[MakentoIII]

Например, вычислить сумму ряда S и функцию Y.

Общий член ряда выражается по формуле , выражение n-ого члена через (n-1)-ый равно . Шаг изменения X определяется H=(XM-X0)/M, где XM, X0 – диапазон изменения X, а M – число разбиений - может любым.

PROGRAM PRIMER1;

VAR

S, A, X, Y, X0, XM: REAL;

K, N, M: INTEGER;

BEGIN

WRITE (‘Введите интервал изменения значения X’);

READLM (X0, XM);

WRITE (‘Введите количество точек M на этом отрезке’);

READLN (M);

WRITE (‘Введите число элементов ряда’);

READLN (K);

X := X0;

H := (XM-X0)/M;

REPEAT

S := 1;

A := 1;

FOR N := 1 TO K DO

BEGIN

A := A*X/N;

S := S+A;

END;

Y := ESP (X);

WRITELN (‘S = ’, S:8:5, ‘’:3, ‘Y = ’, Y:8:5);

X := X+H;

UNTIL X>=XM;

END.

вот пример этава задания ток нада с маим условием

!

Предупреждение:

Artur88: читаем 1 пост темы по вставке кодов в сообщение

[Ф@РТОВЫЙ]

program SumY;var i,n,f,M:integer;X,Y,S,A,X0,XM,H:real;begin WRITE (‘Введите интервал изменения значения X’); READLN (X0, XM); WRITE (‘Введите количество точек M на этом отрезке’); READLN (M); WRITE (‘Введите число элементов ряда’); READLN (n); X := X0; H := (XM-X0)/M; while X < XM do beginS := 0;f := 1;for i := 1 to n do begin  f := f * (2 * i - 1) * (2 * i);  A := exp(2 * i * ln(2 * X)) / f;  if i mod 2 = 0 then A := A * -1;  S := S + A;end;Y := ESP(X);writeln('X=', X:8:5, ' Y=', Y:8:5, ' S=', S:8:5);X := X + H; end; readlnend.

вот вроде переделал...

P.S. сильные сомнения по поводу существования функции ESP возможно это опечатка и нужная функция exp ? Так же у Вас в условии не указана функция Y возможно Вам вообще нужно другое вычесление для Y

Изменено 17 октября, 2009 пользователем Лорд Дмитрий

[Тролль]

Конечно, условие задачи сочинял пьяный сапожник

Но неясной функцией должна быть 1-cos(2*x) - это ее разложение в ряд Маклорена.

P.S. MakentoIII

Нельзя ли писать на русском языке? В "памагите плс оч нада и по вазможности как можно падробнее" пять грамматических ошибок, не считая сокращений слов - режет глаз.

Изменено 18 октября, 2009 пользователем Тролль

[MakentoIII]

Извините я просто привык так писать=)

а за решение спасибо проканало и всё сдал

через пару деньков абрашусб ешё спасибо вам ребята

!

Предупреждение:

Artur88: "аброщаться" здесь не надо.

Стараемся писать правильно (хотяб перед отправкой сообщения - вставьте его в ворд)

[Форматцевт]

MakentoIII:

Извините я просто привык так писать=)

извините, но есть правила форума, кои рекомендованы к прочтению и исполнению оных :rolleyes: Изменено 19 октября, 2009 пользователем Indomito

[ts@ndr]

Если кому не трудно, нужна програмулина на Visual Basic которая будет считать суму элементов двумерного массива, елементы генерируюся автоматически.

Задача вроде не трудная на паскале и сам бы написал, а вот с VB разбираться попросту некогда. Заранее СПС!

[Ф@РТОВЫЙ]

ts@ndr: какой VB вам нужен? старый VB или VB.NET ?

вот пример под старый: удалить из проекта форму, создать стандартный модуль, вставить код

sub main Randomize Timer dim a(0 to 9, 0 to 9) as integer dim i as integer, j as integer dim sum as long for i = 1 to 9for j = 1 to 9  a(i, j) = int(Rnd * 50)next next for i = 1 to 9for j = 1 to 9  sum = sum + a(i, j)next next msgbox sumend sub

для VB.NET будут небольшие изменения, впринципе переделать несложно

[ts@ndr]

Лорд Дмитрий спасибо, этого вполне достаточно )

[leksev]

Привет всем.Если не трудно то помогите написать прогу на паскале.Задание на использование массивов.Нужно вычислить среднее арифметическое положительных элементов

с чётными индексами и произведение отрицательных с нечётными индексами в массиве D(n),n<=25.Вывести массив,среднее арифметическое,произведение.

[Ф@РТОВЫЙ]

leksev:

program masiv;var D:array[1..25] of integer;i,n,s,p,k:integer;begin write('n (1-25) = '); readln(n); write('D = '); for i := 1 to n do beginD[i] := Trunc(Random * 100) - 50;write(D[i]:5); end; writeln; s := 0; k := 0; p := 1; for i := 1 to n do beginif i mod 2 = 0 then begin  if D[i] > 0 then begin	s := s + D[i];	k := k + 1;  end;end else begin  if D[i] < 0 then	p := p * D[i];end; end; writeln('Средние = ', (s / k):0:2); writeln('Произведение = ', p); readlnend.

[leksev]

Лорд Дмитрий ,спасибо тебе очень выручил.

[MakentoIII]

язык Паскаль

Задание. Формирование элементов одномерного массива с последующим упорядочиванием.

Постановка задачи. По заданному условию сформировать одномерный массив (вектор), вывести на печать и произвести операции по обработке полученных компонент массива.

Условие. Определить среднее арифметическое наименьших элементов массивов А и С.

язык Паскаль

Задание. Работа с двумерными массивами-матрицами.

Постановка задачи. Для конкретного варианта составить программу, которая работает с любым допустимым набором данных. Входную информацию и результаты счёта вывести на печать, снабдив их соответствующими заголовками

условие Дана матрица из 3 строк и 7 столбцов, соответствующая учетной ведомости материалов: первый элемент каждого столбца должен соответствовать количеству поступившего материала, второй элемент—израсходованную его часть, а третий — остаток. Отпечатать номера тех столбцов, в которых третий элемент не равен разности двух элементов, и число таких столбцов.

Помогите пожалуйста

[Тролль]

MakentoIII:

Задания элементарны, основное - оформление ввода-вывода, особенно во второй задаче. Тренироваться в работе на клавиатуре как-то неинтересно, а решать в этих задачах практически нечего.

Вот первая:

var i,m,n:integer; d,e:real; a,c:array[1..100]of real;begin write('Length of A? '); readln(m);write('Values of A ? '); for i:=1 to m do read(a[i]); readln;write('Length of C? '); readln(n);write('Values of C ? '); for i:=1 to n do read(c[i]); readln; writeln('A'); for i:=1 to m do write(a[i]:8:3); writeln;writeln('C'); for i:=1 to n do write(c[i]:8:3); writeln;d:=a[1]; for i:=1 to m do if a[i]<d then d:=a[i];e:=c[1]; for i:=1 to n do if c[i]<e then e:=c[i];writeln('The average of the minimums: ',(d+e)/2:10:3); readlnend.

Во второй считать совсем нечего, только печатать на клавиатуре - "снабжать заголовками" вводимые и выводимые данные. Надеюсь, справишься сам.

P.S. Обнаружил, что в одном месте написал a вместо c. Извиняюсь... Исправил.

Изменено 25 октября, 2009 пользователем Тролль

[Ф@РТОВЫЙ]

Нужен алгоритм для перевода палитры ARGB в CMYK и алгоритм обратного перевода.

Обе палитры представлены структурами из 4 безнаковых однобайтовых полей (в эти поля пишется компонент цвета)

Язык реализации - любой (кроме асма и совсем древности), но предпочтителен C#

[Lion HC]

A из ARGB нас совсем не интерисует, потому что это - прозрачность.

Преобразовать RGB в CMY очень просто:

C = 255-R;M = 255-G;Y = 255-B;

А если пользоваться, при печати, еще и черной краской, то надо вычесть перекрывающиеся цвета:

K = min(C,M,Y); // функцию min напишыте самиC -= K;M -= K;Y -= K;

Алгоритм сам вывел, но его нодо проверить :sm(100):

[baysun]

Кто нить может подскажет програмульку, позволяющую мне запрограмировать ход выполнения програм. У меня спутниковый интернет Sat Gate, использую ускоритель Slonax. Исходящий GPRS.

Допустм я хочу закачать какой либо большой файл. На Sat Gate самая малая цена с 3 часов до 7 часов утра по Москве (если я конечно правильно понимаю таблицу). Сам ноут включиться к сожалению не может. Поэтому, завожу будильник на 3 утра, и проснувшись жму кнопку включения ноута - и опять спать. Ноут загружается и автоматом должен после полной загрузки:

1. Примерно через 2-3 минуты, запустить соединение сотового телефона (GPRS).

2. Через секунд 30 Запустить SLONAX (ускоритель спутникового инета)

3. Через минуту-две запустить Flash Get.

Должна начать закачка фала, причём, чтоб, система следила что инет есть и слон работает. А таже чтоб отключилось всё это в 6:10 (ну сдесь уже можно запрограмировать сам Flash Get)

[Ф@РТОВЫЙ]

baysun: Запуск программ по времени умеют большинство оргнайзеров, смысл что-то писать самому? Запуск компа по времени настраивается в биосе.

Lion HC: Спасибо, вечером проверю :blush2:

[baysun]

Скачал прорамку nncron191.

Прога интересная, но она зараза на висте не запускается

[Ф@РТОВЫЙ]

baysun: поищите программу под висту

P.S. поиск софта в разделе "Где скачать"

Lion HC: :) не правильно считает((

Что заметил, согласно GIMP и Photoshop:

значения RGB это 3 числа от 0x00 до 0xFF (от 0 до 255)

значения CMYK это 4 числа от 0x00 до 0x64 (от 0 до 100)

следовательно простым вычитанием тут не обоитись

И вот еще, изменения в палитре RGB не всегда отображаются изменением в палитре CMYK

Может у кого то есть реальные формулы для перевода RGB в CMYK?

И вот еще вопрос появился. Возможно понадобится перевод в оттенки серого. Как известно в палитре RGB оттенком серого считается цвет с компонентами R == G == B

Вопрос: будет ли нормальный цветопереход, если просто записать в компоненты R G и B их среднее арифметическое?

[Lion HC]

Я то думал, что в CMYK также до 255, а они взяли в процентах... значит должно работать так:

C = 100-R*100/255;M = 100-G*100/255;Y = 100-B*100/255;

Просто CMY и RGB цвета-антагонисты. Например, чтобы получить жолтый цвет, вы на мониторе заставляете пиксель излучать лучи красного и зеленого диапазозна. А на бумаге получается наоборот. Лучи не излучаются, а поглащаются фарбой. Чтобы на белом аркуше (который отражает все лучи, излучаемые источником света) получить жолтый цвет - нужно поглотить синий спектр, что и делает жолтая краска...

Чтобы получить красный на дисплее нужно излучить красные лучи: RGB = FF 00 00

А на бумаге нужно поглотить синий и зеленый спектр - что и делают желтая и фиолетовая(M) краска: CMY = 0% 100% 100%

И со средним арифметическим всё должно работать ИМХО.

[Lion HC]

в CMYK К - черная краска blacK

её можно получить, смешав все - Cyan, Magenta, Yellow. Каждая из етих красок поглощает соответственно красный, зеленый, синий. Следовательно из видимого спектра вычетаются все цвета - получается черный. Но на практике получается не черный, а темно серый цвет. И вот для чистоты цветопередачи придумали заменять процент смешаных трёх цветов Cyan, Magenta, Yellow на один черный...

CMY: 50% 50% 30% == CMYK: 20% 20% 0% 30%

Я уверен в етом на 100% но надо проверить :D

[KOT2s]

to Лорд Дмитрий:

Может у кого то есть реальные формулы для перевода RGB в CMYK?

Вот, наиболее понятная, русскоязычная информация по цветовым моделям RGB, CMY, CMYK ссылка. В самом низу страницы найдете формулы RGB to CMYK и обратно...

будет ли нормальный цветопереход, если просто записать в компоненты R G и B их среднее арифметическое?

Э-э-э... не правильный подход.... Для перевода из "цветного" RGB в "оттенки серого" RGB надо пользоваться показателем "яркость"

Яркостm Y формируется из RGB сигнала по следующей формуле:

Y = 0.299R + 0.587G + 0.114B, а после чего по логике следует R=G=B=Y... и еще материал ссылка

Если интересно - то смежную информацию можно почитать у нас на Форуме «справочный топик. Печатное ремесло» см. глава 1

Изменено 27 октября, 2009 пользователем KOT2s

[Ф@РТОВЫЙ]

Lion HC, KOT2s: благодарю

[Pathfinder]

Задача по матлабу: найти точки экстремумов на 3-х мерном графике.

Я пишу

 clcu = -1 : 0.1 : 1 ;v = -1 : 0.1 : 1 ;[x,y] = meshgrid( u, v );z=(sin(x).^2+cos(y).^2).^(x.*y);mesh(x,y,z);zMax=max(z)

он мне выводит

zMax = Columns 1 through 81.2181	1.1574	1.1877	1.2748	1.3443	1.3844	1.3842	1.3376 Columns 9 through 161.2472	1.1272	1.0000	1.1272	1.2472	1.3376	1.3842	1.3844 Columns 17 through 211.3443	1.2748	1.1877	1.1574	1.2181 

Помогите, пожалуйста!

[leksev]

Если у кого-нибудь есть немного времени то помогите составить прогу на паскале.

Задание такое:Текст состоит из из слов отделёных одним или несколькими пробелами.Слово-это последовательность любых символов кроме пробела.Напечатать самое длиное слово текста.