|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
06.02.2011, 19:51 | #1 (permalink) | ||
Новичок
Регистрация: 06.02.2011
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Найти сумму квадратов первых n натуральных чисел (n вводится с клавиатуры). A(N) Найти среднее геометрическое элементов массива A ai>0, N≤50 P (N,N) Найти в каждой строке наибольший элемент и поменять его местами с элементом главной диагонали. Отпечатать полученную матрицу в общепринятом виде N≤ 15
|
||
06.02.2011, 19:51 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Вот топики, которые схожи с вашей темой Три задачи в Паскале Три задачи на Паскале |
06.02.2011, 20:46 | #2 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
А что, попытаться самостоятельно решить эти дурацкие школьные задачки - совсем желания нет? Ну да, вывалить на форум - оно, конечно, проще. Но у нас подобное не очень поощряется.
|
08.02.2011, 12:06 | #3 (permalink) |
Banned
Регистрация: 25.01.2011
Сообщений: 27
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
1 программа:
Код:
Uses Crt; Var a,i,n:longint; begin wRITELN('Вводим кол-во цифр сумму цифр сумму которых вы которых вы вы хотите найти'); Readln(n); a:=0; For i:=1 to n do a:=a+sqr(i); Writeln(a); Readkey; End. |
08.02.2011, 17:09 | #5 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Показываю, что требуется: Код:
До: 2 14 6 7 28 1 12 8 0 6 3 36 75 18 2 9 После: 14 2 6 7 1 28 12 8 0 6 36 3 9 18 2 75 Красным цветом выделены максимальные элементы строк, которые надлежит найти и которые требуется заменить элементами главной диагонали и наоборот. |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
09.02.2011, 15:19 | #7 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Ладно, тут задачка с подковыркой - желательно избежать появления очень больших чисел. Потому выложу своё решение:
Код:
Var N:Byte; A:Array[1..50] of Real; S:Real; i:Integer; BEGIN Write('N= '); ReadLn(N); Randomize; S:=0; For i:=1 to N do begin A[i]:=(Random+0.1)*90; Write(A[i]:8:3); S:=S+Ln(A[i]); end; WriteLn; WriteLn('Geometric mean is ',Exp(S/N):8:3); ReadLn; END. |
12.02.2011, 05:29 | #8 (permalink) | |
Banned
Регистрация: 25.01.2011
Сообщений: 27
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Цитата:
Vladimir_S. |
|
12.02.2011, 09:56 | #9 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,794
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Для массивов:
Размер - количественная величина, указывающая на общее число элементов. Размерность - величина, указывающая на значение одного параметра (число строк или число столбцов)
__________________
Убить всех человеков! |
12.02.2011, 14:28 | #10 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
MrПрограМист, подскажите, пожалуйста, что мне с Вами делать? Сколько можно повторять слова о недопустимости выкладывания неотлаженных программ? Всё как об стенку горох - опять под видом решения выложен абсолютно неверно работающий код! Ведь вот казалось бы - я Вам показал в (#5) на примере, как должен выглядеть результат работы программы. Напомню:
Код:
До: 2 14 6 7 28 1 12 8 0 6 3 36 75 18 2 9 После: 14 2 6 7 1 28 12 8 0 6 36 3 9 18 2 75 Теперь посмотрим, что дает с этим же примером Ваша так называемая программа: Код:
До: 2 14 6 7 28 1 12 8 0 6 3 36 75 18 2 9 После: 14 14 6 7 28 28 12 8 0 6 36 3 75 18 2 75 К тому же - по-прежнему, несмотря на неоднократные указания, реализован крайне неудобный полностью слепой (без подсказок) ввод исходных данных. Просто из ослиного упрямства? Самоутверждаться изволите? Вот теперь мне придется заняться этой идиотской задачей, что совершенно не входило в мои планы. Но репутацию форума надо поддерживать. Так всё-таки - не посоветуете, что с Вами делать? Сразу гнать в три шеи или еще дать (последний) шанс? |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|