Технический форум - Я в Паскале полный ноль, а завтра сдавать лабораторную. Помогите пожалуйста!

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

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

Я в Паскале полный ноль, а завтра сдавать лабораторную. Помогите пожалуйста!

Язык Паскаль
Задача...
Дана действительная матрица размерами nxm, в которой не все элементы равны нулю. Получить новую матрицу путем деления всех элементов данной матрицы на её наибольший по модулю элемент..

за ранее огромное спс..

Правильность проверьте сами, нет среды под рукой.

Код:

var a: array[1..100,1..100] of real;

     b: array[1..100,1..100] of real;

     n,m,max,i,j,nn,nm:integer;

begin

write('Введите размерность матрицы (n,m)'); readln(n, m);

{заполняем матрицу значениями}

for i:=1 to m do

for j:=1 to n do

read(a[i,j]);

{находим максимальный по модулю элемент матрицы}

max:=abs(a[1,1]);

nn:=1;

nm:=1;

for i:=1 to m do

for j:=1 to n do

if abs(a[i,j])>max then begin max:=abs(a[i,j]); nn:=j; nm:=i; end;

{формируем новый массив}

for i:=1 to m do begin

for j:=1 to n do begin

b[i,j]:=a[i,j]/a[nn,nm];

write(b[i,j]:4:2); end;

writeln; end;

readln

end.

Исправил ошибку, так как невнимательно прочитал задание, извиняюсь :).

спс..огромное!!!

помогите.....!!!!составить программу в паскале вычеркивающую из слова Х буквы встречающиеся при написании ровно 3 раза

Цитата:

Сообщение от motya (Сообщение 323653)

Вообще-то, как мне помнится, в этом слове всего 3 буквы, и все разные :tehnari_ru_109:.
Ну ладно. Вот программа. Считаем, что слово Х состоит только из строчных латинских букв, причем смысловой нагрузки оно не несет. Тогда, например, так:

Код:

CONST

 Lng=20; {Word X length}

VAR

 X:Array[1..Lng] of Char;

 N:Array[1..Lng] of Byte;

 i,j:Integer;

BEGIN

 Randomize;

 For i:=1 to Lng do

  begin

   X[i]:=Chr(97+Random(26));

   Write(X[i]);

   N[i]:=0;

  end;

 WriteLn;



 For i:=1 to Lng do

  For j:=1 to Lng do

   If X[i]=X[j] then Inc(N[i]);



 For i:=1 to Lng do

  Write(N[i]:3);

 WriteLn;



 For i:=1 to Lng do

  If N[i]<>3 then Write(X[i]);

 WriteLn;



 ReadLn;

END.