Lakers

а.понятно.похвально что за ум взялся)))

ну ты емае.тебе всю задачу расжували,а ты все равно не можеш)))как так то

ну я так и делаю.тока почемуто функция strlen всегда показывает 0. Хотя заполнение я произаожу с нулевого символа

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

да не.мне сам смысл заполнения строки

ну я сам и написал.а строки разные, и текст на англиском. Добавлено спустя 3 минуты 5 секунд: а вообще правильно допустим вот так: char m[50],s[50]; s="text tut zapisan kakoy-to"; for(int i=0;i<=strlen(s);i++)m[strlen(m)]=s;

вот и ладненько))) Добавлено спустя 1 минуту 6 секунд: а.у мну вопрос, функция strcmt сравнивает строки по элементно до первого элемента равного 0? Добавлено спустя 36 минут 50 секунд: вопрс та даже не в том, у меня есть массив символо который я заполняю сам по элементно заблаговременно обнулив его.И я сравниваю этот массив с дригим такимже массивом при помощи функции strcmp всегда возаращает 0,почему так?

не.побитывые операции выполняются на порядок быстрее чем + и -.А xor побитовая так что код x=x^y; y=x^y; x=x^y; работает быстрее.

блин давно задача 3 была.но просто написать охота обмен местами двух переменных без использования третий так вот: x=x^y; y=x^y; x=x^y; мне такой алгоритм нравится пц. и работает быстро)))

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

а мне такой режим больше нравится, реалистичнее//Raptor

Как поменять раскладку в ~??? Ничего не могу написать кроме цифр...

program slova_1; uses crt; type mas=array[1..113] of string; procedure razbienie(var a:mas;var k:integer); var s:string; b:array[1..255]of byte; i,n:byte; w:set of char; begin writeln('vvedite frazu');readln(s); k:=1; n:=length(s); b[k]:=1; w:=[' ',';','.','/',',','!','"',':','<','>','(',')','[',']','{','}','*','=','-']; for i:=1 to n do if s in w then begin inc(k); B[k]:=i+1; end; b[k+1]:=n+2; for i:=1 to k do a:=copy(s,b,b[i+1]-b-1); end; function pro(s:string):boolean; var i,j:integer;f:boolean; begin if s<>'' then begin f:=true; for i:=1 to length(s) do for j:=1 to length(s) do if (s=s[j])and(i<>j)then f:=false; pro:=f end else pro:=false; end; VAR A:MAS; k,i,m:integer; f:boolean; begin clrscr; razbienie(a,k); f:=false; writeln; for i:=1 to k do if pro(a)then begin f:=true; writeln(a); end; if f=false then writeln('Takix slov net'); readkey; end. Вторую потом сделаю...

Синек,ничего еслт на Паскале?алгоритмы то похожи. uses crt; type masiv=array[1..20,1..20]of integer; var a:masiv; i,j,l,n,m:integer; function sum(a:masiv;n,m:integer):integer; var i,s:integer; begin s:=0; for i:=1 to m do s:=s+a[n,i]; sum:=s; end; begin clrscr; write('vvedite N= ');readln(n); write('vvedite M= ');readln(m); for i:=1 to n do for j:=1 to m do begin write('a[',i,',',j,']= ');readln(a[i,j]); end; for i:=1 to n do begin for j:=1 to n do write(a[i,j]:5); writeln; end; writeln('otsortirovanay matrica'); for i:=1 to n-1 do for j:=1 to n-i do if sum(a,j,m)>sum(a,j+1,m) then begin for l:=1 to m do begin a[j,l]:=a[j,l] xor a[j+1,l]; a[j+1,l]:=a[j,l] xor a[j+1,l]; a[j,l]:=a[j,l] xor a[j+1,l]; end; end; for i:=1 to n do begin for j:=1 to n do write(a[i,j]:5); writeln; end; readln; end. Добавлено спустя 19 минут 45 секунд: enDoffzenait писал(а): если программа ещё нужна тут код uses crt; var i,sum,b:integer; begin clrscr; write('N= ');readln(n); for i:=1 to n do begin readln(; if b=i then sum:=sum+i; end; writeln('summa = ',sum); readkey; end.

Что-то медленно деньги собираются. Сегодня еще раз забросил на новый сервер 300 рублей

23 мая 2008 года 11:35 с банкомата Росбанка еще раз забросил на яндекс_деньги 300 рублей

Дело очень даже нужное и деньги в общем то небольшие. Сегодня отправил на Яндекс_деньги 300 рублей через банкомат Росбанка. Думаю, что каждый должен внести посильный вклад.

07 мая 2008 года 09:20 на Яндекс_деньги через банкомат Росбанка 300 рублей