просто написано в дельфи для консоль аппликейшен. floattostr - позволяет выводить на экран числовые значения в виде текста, можешь эти строки убрать, они для наглядности... не парься в общем, а просто живи как нравиться)))
Помогите пожалуйста в Delphi : Дан фрагмент текста. Если пользователь при введении текста ошибся и текст содержит предложения, которые начинаются с маленькой буквы, сформировать и вывести в другой текстовый редактор исправленный текст. Не знаю как отличить большую букву от маленькой да еще и в начале предложения... Надо сделать с помошью TMemo
Коэффицие́нт (от лат. co(cum) — «совместно» и лат. efficients) — «производящий») — числовой множитель при буквенном выражении, известный множитель при той или иной степени неизвестного, или постоянный множитель при переменной величине. Например в выражении: a1x1 + a2x2 + a3x3 + ... a1 — коэффициент при переменной x1 и т.д. В многочлене: ai — коэффициент при i-й степени переменной x. вещественное число - любое положительное, отрицательное число или нуль. Посредством действительных чисел выражаются результаты измерения всех физических величин. Думаю при прочтении определения многочлена все становится понятным.
Без обид)) но исходник специально не стала выкладывать, чтобы Вы сами хоть немного потрудились, а не я все за Вас сделала в 5 утра))), удачного оформления кода!!! PHP: //ваша программа unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; Memo2: TMemo; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation uses StrUtils; {$R *.dfm} function Sha_SpaceCompress(const s: string): string; var p, q, t: pchar; ch: char; label rt; begin; p := pointer(s); q := nil; if p <> nil then begin; t := p + (pinteger(p - 4))^; if p < t then begin; repeat; dec(t); if p > t then goto rt; until (t^ > ' '); SetString(Result, nil, (t - p) + 1); q := pchar(pointer(Result)); repeat; repeat; ch := p^; inc(p); until ch > ' '; repeat; q^ := ch; ch := p^; inc(q); inc(p); until ch <= ' '; q^ := ' '; inc(q); until p > t; end; end; rt: if q <> nil then begin; dec(q); q^ := #0; (pinteger(pchar(pointer(Result)) - 4))^ := q - pointer(Result); end else Result := ''; end; function CntRecurrences(substr, str: string): integer; var cnt, p: integer; begin cnt := 0; while str <> '' do begin p := Pos(substr, str); if p > 0 then inc(cnt) else p := 1; Delete(str, 1, (p + Length(substr) - 1)); end; Result := cnt; end; function SearchString(const FindStr, SourceString: string; Num: Integer): Integer; var FirstSym: PChar; function MyPos(const FindStr, SourceString: PChar; Num: Integer): PChar; begin Result := AnsiStrPos(SourceString, FindStr); if (Result = nil) then Exit; Inc(Result); if Num = 1 then Exit; if num > 1 then Result := MyPos(FindStr, Result, num - 1); end; begin FirstSym := PChar(SourceString); Result := MyPos(PChar(FindStr), PChar(SourceString), Num) - FirstSym; if Result < 0 then Result := 0; end; function UpCase(ch: char): char; begin if (ch in ['a'..'z', 'а'..'я']) then result := chr(ord(ch) - 32) else result := ch; end; //аналогична той что выше но только для English символов. //function UpCaseRus(ch: Char): Char; //asm // CMP AL,'a' // JB @@exit // CMP AL,'z' // JA @@yo // SUB AL,'a' - 'A' // RET //@@yo: // CMP AL,'?' // JNE @@exit // MOV AL,'?' //@@exit: //end; procedure TForm1.Button1Click(Sender: TObject); var i,j,z,c:integer; s,t:string; begin Memo2.Lines.Clear; for i:=0 to Memo1.Lines.Count-1 do begin s:=Memo1.Lines[i]; s:=Sha_SpaceCompress(s); s:=UpCase(s[1])+RightStr(s,Length(s)-1); j:=CntRecurrences('. ', s); for z:=1 to j do begin c:=SearchString('. ', s, z); t:=LeftStr(s,c+1)+UpCase(s[c+2])+RightStr(s,Length(s)-c-2); s:=t; end; Memo2.Lines.Add(s); end; end; end.
Даны коэффициенты многочленов P(x) и Q(x) пятого порядка, если структура предложения именно такая то речь буквально идет о коффициентах х=2(1)8 - это значения которые может принимать х? или к чему это?
1 Задача PHP: program Project1; uses SysUtils; const e=2.71182818284; var x:integer; y:real; begin writeln('vvedite X:'); readln(x); y:=(4.2*ln(x*x+x+7.5))/(x*(exp(ln(e)*x))+2)+sqrt(x); writeln('Otvet: '+floattostr(y)+#10#13); readln(x); end. 3 Задача PHP: program Project1; uses SysUtils; var i,k: integer; x,y: real; begin writeln('vvedite X:'); read(x); k:=0; y:=0; for i:=1 to 3 do begin k:=k+i; y:=y+(x/k); end; writeln('Otvet: '+floattostr(y)+#10#13); readln(x); end. относительно второй задачи, там sin ??? и он берется по модулю??? просто плохо видно. Какой режим: CGA,VGA,VGA2(13h),VESA,SVGA??? Можно ли использовать ресурсы? ведь можно просто вывести картинку... Распишите пожалуйста точнее, желательно в ближайщие часы так как в 7 я уезжаю к бабущке.
Задача 2 PHP: program Project1; uses SysUtils; var i,k: integer; x,y: real; begin writeln('vvedite X:'); read(x); k:=0; y:=0; if x<0.3 then y:=ln(ABS(sin(sqrt(x)))) else if x>0.6 then y:=exp(ln(x)*3) else y:=exp(ln(3)*x); writeln('Otvet: '+floattostr(y)+#10#13); readln(x); end. незачто, мне просто спать незя ложиться, утром ехать рано)))
Помогите пожалуйста написать программу на C. Написать функцию, которая подсчитывает количество слов начинающихся с буквы "к". Текст произвольной длины оканчивающийся ";". Текст состоит из слов разделенных пробелами. Желательно чтобы программа нормально работала через Turbo C (залил на всякий случай)
для pixelm (не очень красиво но не суть важно главное в лабораторных чтоб работало) Code: #include < stdio.h > int count_sim(char * str, unsigned char sim) { int i = 0, c = 0; while (str[i] != ';') { if (str[i] == sim) { if ((str[i - 1] == 0x20) || (!str[i - 1])) { c++; } } i++; } return c; } int main(int argc, char * argv[]) { char string[] = "kakashko lol kaka pipec;"; printf("slov s k = %d\n", count_sim( & string, 'k')); getchar(); return 0; }
ПОмогите) TurboPascalНадо на паскале своять прогу по графике чтоб на экране отобразился следующий "бред" ) *Поправка в каком конкретно режиме невтыкаю) НО просто подключается модуль graph а режим вроде автоматом определяется ну 16 цветов, а насчёт исользования ресов НЕТ просто отрисовать ЭТО с помощью окружностей и палочек... ну операторами!
Вот такая "лёгкая" лаба! Помогите пожалуйста кто знает решение, если возможно с комментариями: Написать игру, "Звездные войны". 1. Движение: В игре учавствуют две команды. У каждой команды, два истребителя и один флагман. Победа считается уничтожение флагмана соперника. Игра трехмерная. Каждая команда имеет право сделать два действия; перемещение производится не более чем на одну клеточку, по направлению основных плоскостей. в случае если координаты конечного движение указаны не верно, ход повторяется. В случае если два корабля сталкиваются - оба уничтожаются. 2. Стрельба: Выстрел производится только в одной из плоскостей. 1) 1-ая команда 1,2,3 2-ая команда 4,5,6 1 и 4 - флагманы 2) При движении указывается направление движения. По уничтожению корабля сообщить/сообщение игроку. и всё это без графического отображения. надо писать под линуксом, в Kate, но нам сказали что можно и на СИшке..
>> Вот такая лёгкая лаба! >> Игра трехмерная. Delphi \ C++ ? delphi: http://www.sulaco.co.za/opengl.htm http://gamedev.csportal.ru/3d-programming/OpenGL-vs-Delphi/ http://www.render.ru/books/show_book.php?book_id=242 гугли на тему "технологии OpenGL и DirectX в Delphi и C++"
