bayarookie

PapiruS а как мысленно ввести в программу бесконечную последовательность из чисел? И вообще, правильно сформулированный вопрос - половина ответа.

PapiruS Мне, например, нихрена не понятна задача, типа так что-ли: var s = '12345678910111213141516171819'; begin readln(k); for i := 1 to Length(s) do if i = k then writeln(s); фигня какая-то

Hardcore системные требования такие, звуковую карту пусть докупает

А если кто-нибудь купит забаненный винт и что? Для читера не проблема подделать что-нибудь. А нормальным людям лишний геморрой. Лучше было бы узнавать через провайдера кто читер и приходить к нему домой и в рожу ему, хотя бы плюнуть : )

Хр имел ввиду, что это не песня в mp3, а просто раровский архив

: ) Топ, Новинки С Разных Сайтов ver.3\14.01.2оо9\Dance\DJ Athlon - Track 8.mp3/{RAR}/d_master1\

Галсан у меня с CRT глючит, поэтому WINCRT пишу, переправь на CRT

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

Галсан uses wincrt; const y = 1; var a: array[1..y] of string; i, j: integer; s: string; begin clrscr; writeln('BBeguTe cJIoBo'); for i := 1 to y do readln(a[i]); for i := 1 to y do begin s := ''; for j := 1 to Length(a[i]) do begin s := s + a[i][j]; if a[i][j] = 'a' then s := s + 'MbI'; end; a[i] := s; end; for i := 1 to y do write(a[i], ' '); end.program zad;

Что поделаешь, капитализм - всё для блага богатых людей. Mac, суши сухари.

иногда антивирус может мешать

SaS uses WinCrt; var i, j: integer; s, s1, Result: string; begin writeln('enter string:'); readln(s); Result := ''; while (s <> '') do begin i := Pos(' ', s); if (i > 0) then begin s1 := Copy(s, 1, i - 1); Delete(s, 1, i); end else begin s1 := s; s := ''; end; for j := 1 to Length(s1) do begin i := Pos(s1[j], s1); i := Pos(s1[j], Copy(s1, i + 1, Length(s1))); if (i = 0) then Break; end; if (i > 0) then Result := Result + s1 + ' '; end; writeln(Result); end.program two_char; uses WinCrt; var A: array [1..2] of word; X: array [1..2] of word; am, x1, x2, i, Y: word; begin A[1] := 1; A[2] := 2; X[1] := 3; X[2] := 4; am := 0; for i := 1 to 2 do if am < A[i] then am := A[i]; x1 := 0; x2 := 0; for i := 1 to 2 do if Odd(i) then begin if x1 < X[i] then x1 := X[i]; end else if x2 < X[i] then x2 := X[i]; Y := am + sqr(x1 - x2); writeln('Y=', Y); end.program max_1;

вот фигня же этот паскаль: uses WinCrt; var d1, m1, y1, d2, m2, i, j, d3: word; m3: array [1..12] of word; begin writeln('Enter current day month year'); readln(d1, m1, y1); writeln('enter day and month of birthday'); readln(d2, m2); m3[1] := 31; if (m1 > m2) or ((m1 = m2) and (d1 > d2)) then y1 := y1 + 1; if (y1 div 4) = (y1 / 4) then m3[2] := 29 else m3[2] := 28; m3[3] := 31; m3[4] := 30; m3[5] := 31; m3[6] := 30; m3[7] := 31; m3[8] := 31; m3[9] := 30; m3[10] := 31; m3[11] := 30; m3[12] := 31; if (m1 = m2) and (d1 <= d2) then d3 := d2 - d1 else begin d3 := m3[m1] - d1; for i := 1 to 12 do begin j := m1 + i; if (j > 12) then j := j - 12; if (j = m2) then Break; d3 := d3 + m3[j]; end; d3 := d3 + d2; end; writeln('remaining days: ', d3); end.program den_r; Добавлено спустя 4 минуты 55 секунд: и не забудь проверить, так как материально не заинтересован, то могу и неправильно сделать

для дельфи просто: var y, m, d: word; begin DecodeDate(Now, y, m, d); writeln('enter day and month'); readln(d, m); writeln(Trunc(EncodeDate(y, m, d)) - Trunc(Now)); или нужно разработать код низкоуровневый?

а ну это только в QRBand2BeforePrint создать что-то типа такого: procedure TForm1.QRBand2BeforePrint(Sender: TQRCustomBand; var PrintBand: Boolean); var s: string; i: integer; begin QRMemo1.Lines.Text := ''; s := ADOQuery1AREA.Value; i := 10; while Length(s) > 0 do begin QRMemo1.Lines.Add(Copy(s, 1, i)); Delete(s, 1, i); end; end; QRBand2 - это details, и не учитывается ширина символов шрифта, это отдельный геморрой

QRDBText1.AutoSize := False; QRDBText1.Width := сколько надо QRDBText1.Height := тоже

PapiruS блок-схема? это что?

var i, j: integer; s1: string; begin Result := ''; while (s <> '') do begin i := Pos(' ', s); if (i > 0) then begin s1 := Copy(s, 1, i - 1); Delete(s, 1, i); end else begin s1 := s; s := ''; end; j := Length(s1); if (j > 1) then Result := Result + Copy(s1, j div 2 + 1, Length(s1)) + Copy(s1, 1, j div 2) else Result := s1; if (i > 0) then Result := Result + ' '; end; end; function myF(s: string): string; это для дельфи

var x, y, z: real; i, j: integer; begin x := 0; while x < 0.99998 do begin x := x + 0.00001; y := x; i := 1; j := 1; while true do begin i := i + 2; j := j * -1; z := Power(x, i) / i; if z < 0.00001 then Break; y := y + j * z; end; writeln(' x = ', x:1:5, ' y = ', y:6:4, ' = ', ArcTan(x):6:4); end; end. может и нагнал чего-то, перепроверь

геометрию не помню уже, примерно так: 1. r := sqrt(sqr(x2-x1) + sqr(y2-y1)); //возможно что и не так 2. r := x/2 * sqrt(sqr(x)-sqr(x/2)); //и тут надо перепроверить, кажись, чо-то нагнал 3. r := Pi * sqr(r1) - Pi * sqr(r2); //кажись площадь круга = пи эр квадрат или нет? 4. : )

если веб, то надо изучать html, css, javascript, java, php, perl, python и ещё что-то, не вспомню с разбегу, если программирование, то лучше c++, но и pascal (delphi), visual basic (excel, word) тоже могут понадобиться, если с базами данных, то быстрее чем foxpro пока не видел, связка foxpro + mssqlserver встречаются часто, в общем, повторюсь, учи английский и будет без разницы какой язык программирования, потому что обычно и документация на английском, да и сами команды тоже обычные английские слова

точно не помню как называются, кажется, двоичный, десятичный логарифмы функции log кажется нет, зато должны быть log2, log10

6. примерно так if A > 0 then B := log(A) // тут log2 или log10? else B := ? 5. вроде True, c>0 перекрывает всё

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

примерно так, перепроверь readln(A); readln(; readln(C); readln(D); if (A > and (A > D) then writeln(C * D) else if (B < C) and (B > D) then writeln(SQR(A - C)) else if (C > A) and (C > and (C < D) then writeln(2 * D) else writeln(A, B, C, D);