Люди кто поможет решит задачи? Я уже запарился над ними думать(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');
~IL~, это базовый функционал всех приличных сред разработки, здесь нечем хвастаться. А вот то что Visual Studio на порядок функциональнее - это факт.
на время написания поста у меня было слабо развито понятие "среда разработки" сейчас я разобрался... правда, конечно, не пойму что лучше психологически, быть уверенным и заблуждаться, либо сомневаться, но быть ближе к истине?)))
Diamond00744, это не серьезно. Какие-то 4 неизвестных антивируса детектят эвристикой чего-то невнятное (причем обрати внимание - одно и то же, скорее всего одни и те же базы кроме нормана) - это даже смотреть не стоит . Если касперский + дрвеб + нод32 + аваст ничего не видят - все норм.
Решил зайти в папку с прогой, она увеличилась на 50 кб + обнаружился вирус... Agent какой-то... Удалил. Решил переотправить файл на VirusTotal (старую версию, где обнаружилось 13). В этот раз уже 14.
Группа: Пользователи
Сообщений: 2 213
Регистрация: 8.6.2009
Из: Ростов-на-Дону, Красная зона
Пользователь №: 3 277 Поблагодарили: 554 раз
Решил я скачать этот пример. Попробовал -> понравилось -> скачал. Решил скомпилировать, а он требует файл dmusici.h
Такого файла у меня в DirectX SDK 9 нету, поэтому решил заменить на с подобным названием, не получилось. Можете объяснить что это за файл, и где его взять (Или найдите другой потоковый плеер wav файлов)
недавно написал 2 программки. может быть кому-то понравятся)) правда они не доработаны, но если кому нужен исходник - всегда пожалуйста. player.exe - кидаете в папку с музыкальными файлами, запускаете и вся эта музыка проигрывается (идею подкинул мой друг)).
у меня постоянно возникают ситуации аля "поставил чайник, сел за комп, через час пришёл на кухню и за толщей пара не можешь увидеть где чайник". я написал программку - будильник. вы можете ставить любую музыку, которая у вас есть на этот будильник. пока только в формате мрз и вав. (timer.exe).
Группа: Пользователи
Сообщений: 2 329
Регистрация: 4.12.2008
Из: Москва
Пользователь №: 2 448 Поблагодарили: 273 раз
Я все еще пользуюсь будильником, написанным мной для сайта C&C радио Запущу шутер и рублюсь, а как завоет сигнализация, тут же срываюсь с места и бегом чайник снимать)))
P. S.: Что ни говори, но сигнализация - лучший будильник, вставляет моментально (только не для эпилептиков, конечно).
Нет, он дает дурные привычки типа не надо инициализировать переменные значениями. Дело ваше, я не рекомендую начинать с паскаля. С++ лучше для новичков и профессионалов. Это базовый язык современности.
+1 и переучиваться не придётся. я уже не помню говорил или нет, что наш препод по С++ сказал, что, зная С++ легко освоить любой язык очень быстро. это правда, я проверял))
Школьные компьютеры нужны только для экспериментов
В школе был установлен Delphi. Я там создал формочку типа "отправьте СМС туда-то" и поместил в автозагрузку... Что случилось потом - узнаете в следующей, 197-й серии