Обратная матрица (ПАскаль)

[ponchikpk]

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

[__STDC__]

Сейчас напишу пример, подожди немного) у меня паскаль просто на ноуте.. Сейчас включу..

uses crt;
var str:string;
    i,count:integer;
    range:set of char;
begin
clrscr;
count:=0;
readln(str);
range:=['a'..'z'];
for i:=1 to length(str)do
 if (str[i] in range)  then begin
  writeln(str[i]);
  inc(count);
  range:=range-[str[i]];
 end;	
readkey;
end.

Примерно так. Если надо не только буквы можно написать range:=['a'..'z']+['0'..'9']+['^','$','@']; к примеру =) Ну и count еще выводить, забыл =) это кол-во разных символов.
***
Как показал опыт можно и так - range:=['a'..'z','0'..'9','^','$','@']; , но по-моему первоначальный вариант наглядней.

[ponchikpk]

огромное тебе спасибо!!! только вот я не понимаю что значит inc(count);

[__STDC__]

inc это функция инкремента, т.е. увеличения значения переменной count на 1.. Inc(count); эквивалентно count:=count+1; Обратная ей - ф-ция декремента dec(count); ~ count:=count-1;

[ponchikpk]

это же гораздо удобнее раньше об этом не слышал еще раз СПАСИБО

[__STDC__]

Да не за что =) Обращайся))

[Hightlander]

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