Технический форум - Помогите написать программы на языке Паскаль

Страница 1 из 2

Показывать 40 сообщений этой темы на одной странице

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

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

- - Помогите написать программы на языке Паскаль (http://www.tehnari.ru/f41/t96601/)

НастяКозлова

27.05.2014 14:00

Помогите написать программы на языке Паскаль

Помогите пожалуйста написать программы на языке Паскаль:
1. Напишите программу ввода массива и определения (по значению и по индексу) тех элементов массива,разность абсолют. величин которых имеет наибольшее значение.
2. Напишите программу для ввода элементов двух квадратных матриц, умножения матриц и вывода результирующей матрицы.

Vladimir_S

27.05.2014 14:06

Цитата:

Сообщение от НастяКозлова (Сообщение 1035405)

разность абсолют. величин которых

Вероятно, абсолютная величина разности абсолютных величин - или как?

kris_kaif

27.05.2014 15:39

именно,пишу от другого пользователя,так как от своего имени не удается отправить сообщение

Vladimir_S

27.05.2014 15:43

Цитата:

Сообщение от kris_kaif (Сообщение 1035433)

от своего имени не удается отправить сообщение

Это еще почему? В чем проблемы?

kris_kaif

27.05.2014 15:51

когда хочу отправить сообщение,выскакивает окно " Защита от спама: ссылки разрешено публиковать после 20 сообщений на форуме." хотя никаких ссылок не использую

Vladimir_S

27.05.2014 16:29

Ну ладно, какой-то сбой.
Но, возвращаясь к задаче, хотелось бы уточнить, как вычисляются эти разности?
D = ||a[i]|-|a[j]|?
D = |a[i] - a[j]|?
Конкретно: пусть у нас a[i]=-20, a[j]=+3. Чему равна разность, максимальное значение которой нужно искать? 23? 17?
Проясните этот момент, пожалуйста.

kris_kaif

27.05.2014 16:53

[IMG]http://www.tehnari.ru//counter.yadro.ru/hit;DOLKABARALLNEW?t38.6;r;s1366*768*24;uhttp%3A//www.tehnari.ru/f41/t96601/;0.561029929306049[/IMG]
[IMG]http://www.tehnari.ru//counter.yadro.ru/hit;DOLKABARALLNEW?t38.6;r;s1366*768*24;uhttp%3A//www.tehnari.ru/f41/t96601/;0.8111993652565013[/IMG]
подскажите почему выскакивает эта ссылка?
честно говоря сама не поняла,но может быть 23

Vladimir_S

27.05.2014 17:12

Цитата:

Сообщение от kris_kaif (Сообщение 1035463)

подскажите почему выскакивает эта ссылка?

Не знаю. Но обнаружил, что в Сети многие на нее жалуются. Скорее всего, дрянь какую-то подцепили.
И да, впредь НАСТОЯТЕЛЬНО не рекомендую удалять модераторские замечания. Модераторы - они народ обидчивый.

kris_kaif

27.05.2014 18:29

[IMG]http://www.tehnari.ru//counter.yadro.ru/hit;DOLKABARALLNEW?t38.6;r;s1366*768*24;uhttp%3A//www.tehnari.ru/f41/t96601/%23post1035405;0.36370684347012894[/IMG]
странно,ничего не удаляла

Vladimir_S

27.05.2014 20:00

Ладно, как вариант:

Код:

Const

 Nmax=99;

Var

 N,i,j,k,q1,q2:integer;

 D:real;

 A:Array[1..Nmax] of real;

Begin

 Write('Number of elements = ');

 Readln(N);

 Writeln('Input: 0 - keyboard');

 Writeln('       1 - random');

 Readln(k);

 If k=0 then

  begin

   for i:=1 to N do

    begin

     write('A[',i:2,']= ');

     readln(A[i]);

    end;

  end

 else

  begin

   Randomize;

   for i:=1 to N do A[i]:=Random*100-10.0;

  end;

 writeln;

 writeln;

 for i:=1 to N do write(A[i]:8:3);

 writeln;

 writeln;

 D:=0;

 for i:=1 to N-1 do

  for j:=i+1 to N do

   if Abs(A[i]-A[j])>D then

    begin

     D:=Abs(A[i]-A[j]);

     q1:=i;

     q2:=j;

    end;

 Writeln('Dmax = ',D:0:3);

 Writeln('A[',q1:2,'] = ',A[q1]:0:3);

 Writeln('A[',q2:2,'] = ',A[q2]:0:3);

 Readln

End.

Часовой пояс GMT +4, время: 21:54.

Страница 1 из 2

Показывать 40 сообщений этой темы на одной странице