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;

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

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);

Virtue

maxx1101

попытайтесь вспомнить, после начались синие экраны

紅

蓝

绿

легко же