| Цитата(VaiMR @ 20.1.2007, 00:56) | Собственно тебе нужно в раздел http://forum.vingrad.ru/Vingrad-help-center.html - там программы пишут а тут только советы дают.
Вот первая программка:
| Код |
uses crt;
const kolelem=5;
type tmatr=array[1..kolelem,1..kolelem] of integer;
var matr:tmatr;
{--------------- проверка симметричности -----------------------------------}
function simmetr(const matr:tmatr;kolelem:integer):boolean;
var i,j:integer;
begin
for i:=1 to kolelem do
for j:=1 to kolelem do
if matr[i,j]<>matr[j,i]
then
begin
simmetr:=false;
exit;
end;
simmetr:=true;
end;
{---------------------------------------------------------------------------}
{--------------- обнуление элементов выше главной диагонали ----------------}
procedure nullmatr(var matr:tmatr;kolelem:integer);
var i,j:integer;
begin
for i:=1 to kolelem do
for j:=i+1 to kolelem do
matr[i,j]:=0;
end;
{---------------------------------------------------------------------------}
{--------------- подсчет суммы элементов ниже главной диагонали ------------}
function summmatr(const matr:tmatr;kolelem:integer):integer;
var i,j,summ:integer;
begin
summ:=0;
for i:=1 to kolelem do
for j:=i+1 to kolelem do
summ:=summ+matr[j,i];
summmatr:=summ;
end;
{---------------------------------------------------------------------------}
begin
clrscr;
if simmetr(matr,kolelem)=true
then
begin
nullmatr(matr,kolelem);
writeln('Сумма элементов ниже главной диагонали',
summmatr(matr,kolelem));
end;
readln;
end.
|
Добавлено @ 01:01
Вторая:
| Код |
function upstr(s:tring):string;
var sbuf:string;
i:byte;
begin
for i:=1 to length(s) do
sbuf:=sbuf+upcase(s[i]);
upstr:=sbuf;
end;
|
По-моему проще взять любой учебник по паскалю - там все это будет. |
СПАСИБО ОГРОМНОЕ!!!
Больше не в силах?  |
: 
