[Trosh]

3.14. Шахматная доска содержит 8x8 клеток. Горизонтали вертикали обозначаются цифрами 1-8. Написать программу, проверяющую, что заданные две клетки имеют одинаковый цвет.
5.14. Сколько имеется двузначных чисел, сумма квадратов цифр которых делится на 13?
6.13. Натуральные числа вводятся с клавиатуры до тех пор, пока не будет введено число -1. Написать программу, выводящую введенные цифры: сначала выводится наиболее часто встречающаяся цифра, в конце — наименее встречающаяся цифра.
6.15. Целые числа вводятся с клавиатуры до первого нуля или до четырех девяток подряд. Написать программу, распечатывающую введенные числа в следующем виде: вначале печатается
положительное число, за ним отрицательное, затем снова положительное, за ним отрицательное и т.д. Числа, для которых не нашлось пар, в конце ввода игнорируются.
7.14. В журнале записаны оценки n студентов, сдававших m экзаменов. Если студент не сдавал экзамен, то его оценка нуль. Написать программу, указывающую студентов, получивших наибольшее количество двоек.
8.14. В английском предложении слова разделены одним пробелом. Во всех словах, следующих за артиклями а и the, первую букву заменить на прописную. Написать программу, выполняющую эту работу.
10.14. В файле 1 хранятся данные о соревнованиях по решению задач. Он содержит название команды, номер решенной задачи, время, потраченное на ее решение. Время решения задачи измеряется в минутах от начала соревнований до момента, когда жюри засчитает ее решение. Записать в файл 2 название команды, количество решенных задач, время, потраченное на решение.

[PhoeniX]

Внесу свои 5 рублей:

Сообщение от Trosh

3.14. Шахматная доска содержит 8x8 клеток. Горизонтали вертикали обозначаются цифрами 1-8. Написать программу, проверяющую, что заданные две клетки имеют одинаковый цвет.

Код:

1 2 3 4 5 6 7 8 9 10 11

<b>var</b>   x1, y1, x2, y2: byte;   cl1, cl2: boolean; // false - белая, true - чёрная. <b>begin</b>   cl1 := (x1 <b>mod </b>2 = 0) <b>xor </b>(y1 <b>mod </b>2 = 0);   cl2 := (x2 <b>mod </b>2 = 0) <b>xor </b>(y2 <b>mod </b>2 = 0);   <b>if </b>cl1 = cl2 <b>then</b>     ShowMessage('Одинаковые!')   <b>else</b>     ShowMessage('Разные!'); <b>end</b>;

Сообщение от Trosh

5.14. Сколько имеется двузначных чисел, сумма квадратов цифр которых делится на 13?

Код:

1 2 3 4 5 6 7 8 9

<b>var</b>   i, count: integer; <b>begin</b>   count:=0;   <b>for </b>i:=10 <b>to </b>99 <b>do</b>     <b>if </b>(sqr((i-(i <b>mod </b>10)) <b>div </b>10)+sqr(i <b>mod </b>10)) <b>mod </b>13 = 0 <b>then</b>       inc(count);   ShowMessage(IntToStr(count)+' двузначных чисел делятся на 13'); <b>end</b>;

[SerginhoLD]

вот красиво про доску:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39

program Project1; uses   SysUtils, Windows; var   a: array [1..8,1..8] of string;   i,j,m,n,t,s: integer;   k: string;     procedure ConsoleTextColor(color: word);     begin       SetConsoleTextAttribute(GetStdHandle(STD_OUTPUT_HANDLE),color);     end; begin   for i:=1 to 8 do   begin     if i mod 2 <> 0 then k:='white' else k:='black';     for j:=1 to 8 do       if k='white' then       begin         ConsoleTextColor($ff); write('w');         a[i,j]:='white'; k:='black'       end else begin         ConsoleTextColor($88); write('b');         a[i,j]:='black'; k:='white'       end;     writeln('');   end;   ConsoleTextColor($0B); writeln('');   writeln('pervaya kletka');   write('  nomer stroki: '); readln(m);   write('  nomer stolbca: '); readln(n);   writeln('vtoraya kletka');   write('  nomer stroki: '); readln(t);   write('  nomer stolbca: '); readln(s);   ConsoleTextColor($0A); writeln('');   if a[m,n]=a[t,s] then     writeln('kletki odnogo cveta')   else writeln('kletki raznogo cveta');   readln; end.

[Trosh]

Спасибо, за решение а др никто незнает как сделать ?

[PhoeniX]

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

[lmikle]

Знаем-знаем... но просто так делать лень.
Вот если ты сделаешь, то тебе помогут найти и устранить ошибки.

6.13

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52

type   TNmb = record     Value : Integer;     Count : Integer;   end;   var   A : Array Of TNmb;   N, I, J : Integer;   F : Boolean;   AA : TNmb;   begin   // Ввод чисел с подсчетом кол-ва   SetLength(A,0);   N := 0;   WriteLn('Введите числа, окончание ввода -1');   While N <> -1 Do     Begin       Write('Введите число:');       ReadLn(N);         F := False;       For I := Low(A) To High(A) Do         If A[i].Value = N Then           Begin             Inc(A[i].Count);             F := True;           End;       If Not F Then         Begin           SetLength(A,Length(A)+1);           A[High(A)].Value := N;           A[High(A)].Count := 1;         End     End;     // Сортировка по убыванию   For I := Low(A) To High(A)-1 Do    For J := I+1 To High(A) Do      If A[i].Count < A[J].Count Then        Begin          AA := A[i];          A[i] := A[J];          A[J] := AA;        End;     // Вывод результата   WriteLn('Числа по убыванию кол-ва:'   For I := Low(A) To High(A) Do     WriteLn(Format('Число %d встречяается %d раз',[A[i].Value,A[i].Count])); end;

[Trosh]

Понятно спс

[lmikle]

Да всегда пожалуйста

[Trosh]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

type   TForm1 = class(TForm)     Button1: TButton;     procedure Button1Click(Sender: TObject);     TNmb = record;     Value : Integer;     Count : Integer;   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1;   A : Array Of TNmb;   N, I, J : Integer;   F : Boolean;   AA : TNmb;

пишет
Error:
Expected ':' but '=' found

Подскажите плз в чём ошибка

[Marvel]

попробуй так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

<b>type</b>   TNmb = <b>record</b>     Value: Integer;     Count: Integer;   <b>end;</b>   <b>type</b>   TForm1 = <b>class</b>(TForm)     Button1: TButton;     <b>procedure </b>Button1Click(Sender: TObject);   <b>private</b>     <font color="Navy">{ Private declarations }</font>   <b>public</b>     <font color="Navy">{ Public declarations }</font>   <b>end;</b>   <b>var</b>   Form1: TForm1;   A: <b>array of</b> TNmb;   N,I,J: Integer;   F: Boolean;   AA: TNmb;

[Trosh]

Спс помогло

[XTen]

Пиши решу
ICQ: 410691984

[Trosh]

Код:

1 2 3 4 5

// Вывод результата   <b>WriteLn('Числа по убыванию кол-ва:'</b>   For I := Low(A) To High(A) Do     WriteLn(Format('Число %d встречяается %d раз',[A[i].Value,A[i].Count])); end;

Где я выделил жирным в конце нужна скобка с точко запитой ?

[Marvel]

Сообщение от Trosh

Где я выделил жирным в конце нужна скобка с точко запитой ?

обязательно

[lmikle]

Так, Trosh, увижу еще одно сообщение без использования тегов оформления кода - будет бан на неделю!!!