Программирование, кто на чём? делимся опытом. помогаем новичкам. Опции

[~IL~]

Люди кто поможет решит задачи? Я уже запарился над ними думать(Pascal)

показать офф-топ

1) Даны действительные массивы А(n) и B(n) подсчитать кол-во элементов, которые принадлежат условию: A(1)>B(1)

2) Дан массив A(n,m) требуется определить:
максимальное по величине число
минимальное по величине число
среднее арифметическое элементов столбцов имеющих нечетные номера

первая задача

показать офф-топ

program massiv;
var
n, i, sum: integer;
A, B: array[1..100] of integer;

begin
write('input the size of arrays:'); readln(n);
writeln('input values of A:');
for i := 1 to n
do
begin
write('A[',i,'] = '); readln(A[i]);
end;
writeln('input values of B:');
for i := 1 to n
do
begin
write('B[',i,'] = '); readln(B[i]);
end;
if ((0 < n) and (n < 101))
then
begin
sum := 0;
for i := 1 to n
do
if (A[i] > B[i])
then
sum := sum + 1;
writeln('A[i] > B[i] ', sum,' times')
end
else
writeln('error in size');

readln
end.

во второй задаче не понятно где столбцы - пускай это будут n

показать офф-топ

program massiv;
var
n, m, i, j, sum, tot, min, max: integer;
A: array[1..100, 1..100] of integer;

begin
write('input the size of array (n):'); readln(n);
write('input the size of array (m):'); readln(m);
writeln('input values:');
for i := 1 to n
do
for j := 1 to m
do
begin
write('A[', i, ', ', j, '] = '); readln(A[i, j]);
end;
if ((0 < n) and (n < 101) and (0<m) and (m<101))
then
begin
sum := 0;
tot := 0;
max := A[1, 1];
min := A[1, 1];
for i := 1 to n
do
for j := 1 to m
do
begin
if (A[i, j] > max)
then
max := A[i, j];
if (A[i, j] < min)
then
min := A[i, j];
if (i mod 2 = 1)
then
begin
sum := sum + A[i, j];
inc(tot);
end
end;

writeln('max value = ', max);
writeln('min value = ', min);
writeln('Arithmetic average = ', sum/tot:0:2);
end
else
writeln('error in size');

readln
end.

[~IL~]

~IL~, это базовый функционал всех приличных сред разработки, здесь нечем хвастаться. А вот то что Visual Studio на порядок функциональнее - это факт.

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

[Diamond00744]

Diamond00744, это не серьезно. Какие-то 4 неизвестных антивируса детектят эвристикой чего-то невнятное (причем обрати внимание - одно и то же, скорее всего одни и те же базы кроме нормана) - это даже смотреть не стоит . Если касперский + дрвеб + нод32 + аваст ничего не видят - все норм.

Решил зайти в папку с прогой, она увеличилась на 50 кб + обнаружился вирус... Agent какой-то... Удалил. Решил переотправить файл на VirusTotal (старую версию, где обнаружилось 13). В этот раз уже 14.

http://www.virustotal.com/file-scan/report...df06-1291232614

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

[Dukat863]

Решил я скачать этот пример. Попробовал -> понравилось -> скачал. Решил скомпилировать, а он требует файл dmusici.h

Такого файла у меня в DirectX SDK 9 нету, поэтому решил заменить на с подобным названием, не получилось.
Можете объяснить что это за файл, и где его взять (Или найдите другой потоковый плеер wav файлов)

Заранее спасибо.

[Avenger]

Тут полностью изложено содержимое файла dmusici.h (1961 строка ).

[Dukat863]

Спасибо, помогло (Там-же нашёл ещё header'ы).

[~IL~]

недавно написал 2 программки.
может быть кому-то понравятся))
правда они не доработаны, но если кому нужен исходник - всегда пожалуйста.
player.exe - кидаете в папку с музыкальными файлами, запускаете и вся эта музыка проигрывается (идею подкинул мой друг)).

у меня постоянно возникают ситуации аля "поставил чайник, сел за комп, через час пришёл на кухню и за толщей пара не можешь увидеть где чайник". я написал программку - будильник. вы можете ставить любую музыку, которая у вас есть на этот будильник. пока только в формате мрз и вав. (timer.exe).

[GraYaSDF]

Я все еще пользуюсь будильником, написанным мной для сайта C&C радио
Запущу шутер и рублюсь, а как завоет сигнализация, тут же срываюсь с места и бегом чайник снимать)))

P. S.: Что ни говори, но сигнализация - лучший будильник, вставляет моментально (только не для эпилептиков, конечно).

показать офф-топ

[Dukat863]

показать офф-топ

Хороший будильник (у меня прямо с его срабатыванием торрент скачался!!!)...

[Diamond00744]

А сюда не программирование, а простой формострой можно скидывать?

[IwanS]

Diamond00744, а он имеет какую-то практическую ценность или это просто формочка без функций?

[Avenger]

правда они не доработаны, но если кому нужен исходник - всегда пожалуйста.

О, круто, скинь мне плиз исходники в ЛС.

[Dukat863]

IwanS, (ссылку удалил - Dukat863)

И что я с этим должен делать?

показать офф-топ

Из-за этого вируса даже винты форматируют

[Diamond00744]

Что за...
Опять чтоли?

Тогда нужна помощь) Может ли это наделать UPX?

[Dukat863]

Используй WinRar, а не всякий virUs Packer for eXecutables.

[Diamond00744]

Стоп... зацените результаты:

http://www.virustotal.com/file-scan/report...2d57-1304794510

[Dukat863]

У меня кстати та-же версия что и там.
Лучше запакуй в rar, а не UPX

[Diamond00744]

Dukat863, может, просто он у тебя настроен на "оповещение о догадках"

А ссылку восстанавливаю:

показать офф-топ

http://bit.ly/diamond00744_1

UPD: программу переписал на Delphi, попробуйте. Файл перезалит.

[~IL~]

Нет, он дает дурные привычки типа не надо инициализировать переменные значениями. Дело ваше, я не рекомендую начинать с паскаля. С++ лучше для новичков и профессионалов. Это базовый язык современности.

+1 и переучиваться не придётся.
я уже не помню говорил или нет, что наш препод по С++ сказал, что, зная С++ легко освоить любой язык очень быстро. это правда, я проверял))

[Diamond00744]

Школьные компьютеры нужны только для экспериментов

В школе был установлен Delphi. Я там создал формочку типа "отправьте СМС туда-то" и поместил в автозагрузку... Что случилось потом - узнаете в следующей, 197-й серии