Технический форум - Три задачи на Паскале

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Три задачи на Паскале (http://www.tehnari.ru/f41/t47053/)

ПОМОГИТЕ ПЛИЗ
Найти сумму квадратов первых n натуральных чисел (n вводится с клавиатуры).

A(N) Найти среднее геометрическое элементов массива A ai>0, N≤50

P (N,N) Найти в каждой строке наибольший элемент и поменять его местами с элементом главной диагонали. Отпечатать полученную матрицу в общепринятом виде N≤ 15

Замечание:

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

А что, попытаться самостоятельно решить эти дурацкие школьные задачки - совсем желания нет? Ну да, вывалить на форум - оно, конечно, проще. Но у нас подобное не очень поощряется.

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.

(выводится отрицательное значение при 10000 и выше)

Kapri поясни как это в общепринятом виде, ведь когда массив выведется,
все числа, кроме главной диагонали, будут нулями

Цитата:

Сообщение от Mr.Програмист (Сообщение 461981)

Это еще с какого перепугу?
Показываю, что требуется:

Код:

До:

 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

Красным цветом выделены максимальные элементы строк, которые надлежит найти и которые требуется заменить элементами главной диагонали и наоборот.

Что такое среднее геометрическое и какая у него формула

Назвался программером - подружись с гуглом! Ваш модератор.

Цитата:

Сообщение от Kapri (Сообщение 460778)

A(N) Найти среднее геометрическое элементов массива A ai>0, N≤50

Ладно, тут задачка с подковыркой - желательно избежать появления очень больших чисел. Потому выложу своё решение:

Код:

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.

Цитата:

P (N,N) Найти в каждой строке наибольший элемент и поменять его местами с элементом главной диагонали. Отпечатать полученную матрицу в общепринятом виде N≤ 15

Выложенный код, как содержащий ошибки, мною УДАЛЕН. Правильное решение задачи приведено в #11.
Vladimir_S.

Для массивов:
Размер - количественная величина, указывающая на общее число элементов.
Размерность - величина, указывающая на значение одного параметра (число строк или число столбцов)

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

И ЭТО Вы называете перестановкой элементов?
К тому же - по-прежнему, несмотря на неоднократные указания, реализован крайне неудобный полностью слепой (без подсказок) ввод исходных данных. Просто из ослиного упрямства? Самоутверждаться изволите?
Вот теперь мне придется заняться этой идиотской задачей, что совершенно не входило в мои планы. Но репутацию форума надо поддерживать.

Так всё-таки - не посоветуете, что с Вами делать? Сразу гнать в три шеи или еще дать (последний) шанс?