Lakers

TolkienDRR точно=)

а можно еще сложность с n^2 перевести в 2*n uses crt; var s,s2:string; i:integer; a:array[1..256]of integer; begin read(s); s2:=""; for i:=1 to length(s) do if s[i]<>' ' then inc(a[ord(s[i])]); for i:=1 to length(s) do if a[ord(s[i])]=1 then s2=s2+s[i]; writeln(s2); end.

uses crt; var s,s2:string; i,j:integer; f:boolean; begin read(s); s2:=""; for i:=1 to length(s) do begin f=true; if s[i]<>' ' then for j:=1 to length(s) do if s[i]=s[j] then begin f:=false; break; end; if f then s2=s2+s[i]; end; writeln(s2); end. чтото вроде этого....

example123 гугли "Вычисление обратной матрицы по Гаусу". готовых алгоритмов там много.

http://drobotenko.com/code_rus.html #include int gaus_ostatok; // дефект линейного преобразования // 0 == ОК long double gaus_deter; // в случае успешного обращения детерминант double gaus_minved; // минимальный ведущий элемент // можно использовать для оценки точности #define _NaN() (double&)*"Implementation dependent"; // заполнитель для неразрешенных измерений // при невозможности обращения template inline static void invers(double m[N][N]) { // (c) Drobotenko http://drobotenko.com int rn[N],cn[N]; int j,k; for(j=N;j-- rn[j]=cn[j]=j; gaus_minved=1e99; gaus_deter=1; for(gaus_ostatok=N;gaus_ostatok;gaus_ostatok--) { int jved,kved; double vved=-1,t; // поиск ведущего for(j=N;j-- { if(~rn[j]) for(k=N;k-- if(~cn[k]) if(vved vved=fabs(m[j][k]),jved=j,kved=k; } if(gaus_minved>vved) gaus_minved=vved; gaus_deter*=m[jved][kved]; if(vved<1e-99) { for(j=N;j-- { if(~rn[j]) for(k=N;k-- m[j][k]=_NaN(); if(~cn[j]) for(k=N;k-- m[k][j]=_NaN(); } return; } int jt=rn[jved],kt=cn[kved]; // перестановки for(j=N;j-- t=m[kt][j],m[kt][j]=m[jved][j],m[jved][j]=t; for(j=N;j-- t=m[j][jt],m[j][jt]=m[j][kved],m[j][kved]=t; rn[jved]=rn[kt]; cn[kved]=cn[jt]; rn[kt]=cn[jt]=-1; vved=m[kt][jt]; m[kt][jt]=1; for(j=N;j-- { if(j==kt) continue; double mul=m[j][jt]/vved; m[j][jt]=0; for(k=N;k-- m[j][k]-=m[kt][k]*mul; // самый внутренний цикл ровно N^3 операций } for(k=N;k-- m[kt][k]/=vved; } } const int r=5; double m[r][r],e[r][r]; double mval(int i,int j) { // значения матрицы return int(1000./(.1+fabs(i-.95*j)))/1000.; } int main(int, char **) { for(int i=r;i-- for(int j=r;j-- m[i][j]=mval(i,j); invers(m); for(int i=r;i-- for(int j=r;j-- { // проверка в Е получается единичная матрица e[i][j]=0; for(int k=r;k-- e[i][j]+=m[i][k]*mval(k,j); } }

TolkienDRR если будут слова типа "ааа" то оно добавится два раза, а это некоректно, оно вообще не должно добовлятся.

заносиш эти слова в массив.после вортируеш по возрастанию и выводиш

TolkienDRR и вправду, забыл первый индек прописать=)

program ras; uses crt; var s:array[1..10]of string; a:array[1..10]of integer; n,i,l,j:integer; begin clrscr; write('введите количество слов: '); read(n); for i:=1 to n do begin write("введите слово: "); read(s); l=ord(s[0]); for j:=1 to l do if s[j]='о' then a:=a+1; end; for i:=1 to n do write("В слове ", s, " букв о - ", a); readln; end. паскаля нет проверить правильность неначем. А что не поусловию? и поподробние о том какие ошибки.

program ras; uses crt; var s:array[1..10]of string; a:array[1..10]of integer; n,i,l,j:integer; begin write('введите количество слов: '); read(n); for i:=1 ti n do begin write("введите слово: "); read(s); l=length(s); for j:=1 to l do if s[j]='о' then a:=a+1; end; for i:=1 ti n do write("В слове ", s, "букв о - ", a); end. program dva; uses crt; var a: array[1..100] of integer; i,n,k:integer; begin write("введите количество чисел: "); read(n); for i:=1 to n do begin a:=random(100); if a mod 3 =0 then k:=k+1; end; write(k); end.

Матрица компетентности программиста Знание сложных структур данных - B-деревьев, биномиальных куч и куч фиббоначчи, красно-черных деревьев, расширяющихся деревьев, списков с пропусками, префиксных деревьев и т.д. Способен читать и создавать динамические программные решения, хорошие знания алгоритмов обработки графов, хорошие знания математических вычислительных алгоритмов, способность распознавать NP-проблемы и т.д. Понимает весь процесс выполнения программ, железо (CPU + память + кэш + прерывания + микрокод), машинный код, статическое и динамическое связывание, компиляцию, интерпретацию, JIT, сборку мусора, кучи, стеки, адресацию памяти…

жесть...

не, там мысль другая немного.

Большими буквами надо

#include using namespace std; float a,b; int k; int main() { k=0; cin>>a>>b; k=0; while(a>=5) { k++; a=a-((a/100)*; }; cout< } попробовал так, непошло... можетбыть компилятор нетот выбираю? выбрал g++-GNU C++ 4.3.2 Добавлено спустя 2 минуты 56 секунд: О! все ребята! #include надо без h

почему не могу скомпилировать на С++? Compilation Error. отправлял на GNU C++ #include int a,b,c; int T() {int w; if(a>=b+c)return 0; if(b>=a+c)return 0; if(c>=a+b)return 0; return 1; }; int main() { cin>>a>>b>>c; if(T()==1){cout<<"YES";}else{cout<<"NO";}; }

ну или шоколадку=)

Меня тоже кикает. в консоле прописать не получается,не работает она.ПБ стоит обновлённый. На этомже компе есть еще один аккаунт он работает нормально. \\Raptor

Насчёт реализации не знаю, но классы юзать там и там можно точно.

SergeiLex TolkienDRR я и не говорю что Delphi=Pascal, я пишу Delphi<=>Pascal, тоесть равносилен в данном случае.

wuclan чет я не пойму, толи вы шутите толи нет...Delphi <=> Pascal

у меня в паскале как то раз (при создании этой же программы для шифровки текста, еще на первом курсе) тоже не вводился текст после косанды WRITELN. так и тут следующий оператор ввода после команды printf("Vvedite frazu dla shifrovki: "); не используется. если написать gets(X);gets(X); всё начинает работать. P.S. строки которые не делятся нацело на n тоже по идеи кодируются. Добавлено спустя 6 минут 36 секунд: еще скобка в конце лишняя одна. Добавлено спустя 3 минуты 26 секунд: а может это и не изза оператора printf("Vvedite frazu dla shifrovki: "); а изза того что ты вводиш числа, а после ввода в буфере остаётся он то и считывается первой командой gets(X)

Cristian считывает если написать scanf("%s",&C). на какой строке эта ошибка?

Cristian если хочеш считать строку то скорее всего так #include "stdafx.h" #include "string.h" #include int main() { char C[100]; int k; scanf("%s",C); k=strlen©; printf("%i",k); getch(); return 0; }

coder я основную программу не смотрел тока процедуря подправил. TolkienDRR зачем столько переменных то ради смены элементов местами?