Поиск по этому блогу

суббота, 3 июня 2017 г.

Самое длинное слово

В строке S записано несколько слов, разделенных пробелами (длина строки менее 200 символов). Найдите самое длинное слово, выведите его на экран, а так же его длину.
Технические требования: Строка S  вводится с клавиатуры, решение выводится на экран.
Пример: Для S= «мышь клавиатура монитор дисковод колонки» ответом будет «клавиатура» 10.
Решение

суббота, 27 мая 2017 г.

Вращающийся отрезок

Задача  "Вращающийся отрезок" (30 баллов)
На экране изобразить вращающийся вокруг своей середины отрезок произвольной длины. Отрезок должен вращаться до нажатия любой клавиши.
Формат входных данных: нет
Формат выходных данных: На экране – вращающийся отрезок
Решение

воскресенье, 30 апреля 2017 г.

«Крестики-нолики»


Правила игры классические. Игра в крестики-нолики ведется на квадратном поле 3х3. Играют двое. Начинают «крестики». Каждый из игроков, поочередно, ставит свой значок, крестик или нолик, на свободную клетку. Выигрывает тот, кто первым поставит три своих значка в ряд по вертикали, горизонтали или диагонали. Задается последовательность ходов. Определить, кто выиграл, «крестики» или «нолики»? Последовательность ходов задается 9-значным числом. Цифра числа обозначает номер клетки хода, а порядковый номер цифры – номер хода. Клетки пронумерованы так, как показано на рисунке. Написать программу, которая запрашивает код позиции и выводит значок выигравшей стороны или слово «ничья». Правильность кода позиции проверять не надо.
Пример. Вход: 123456789. Выход: х.

Решение

суббота, 29 апреля 2017 г.

Уважаемый: с запятой или без?

Приглашение - это всегда приятно, но я останавливаюсь уже на запятой после "уважаемая", эта запятая не позволяет мне относиться к остальному тексту с должным уважением. И если бы эта ошибка была случайностью! Нет, она в последнее время распространяется по деловой переписке подобно вирусу. А бывает, что ошибочные сведения распространяют - не поверите! - школьные учителя.

вторник, 25 апреля 2017 г.

Сумма длинных чисел

Даны две строки, в каждой из которых содержится длинное натуральное число. В третьей строке сформировать их сумму. (30 баллов) 
Задача городской олимпиады 2005 года.

понедельник, 24 апреля 2017 г.

Ограничения

Дано действительное число Х. Не пользуясь никакими другими арифметическими операциями, кроме умножения, сложения, вычитания, вычислить   и  
Использовать не более восьми операций. (15 баллов)
Задача городской олимпиады 2005 года.

program z2;
var a,b,c,d,e,f,g,h:real;
begin
  Readln(x);
  a:=x*x;{первая операция}
  b:=2*a;{вторая операция}
  c:=2*x;{третья операция}
  d:=1+b;{четвертая операция}
  e:=d+a;{пятая операция}
  f:=c*d;{шестая операция}
  g:=e+f;{седьмая операция}
  h:=e-f;{восьмая операция}
  writeln(‘1-e   ‘,h);
  writeln(‘2-e   ‘,g);
end.

вторник, 11 апреля 2017 г.

Кирпичики алгоритмов

Выделение последней цифры числа
125 mod 10= 5
Удаление последней цифры числа
125 div 10 =12
Условный оператор IF
Синтаксис инструкции IF:
If  условие
       then
            begin
                {инструкции выполняемые, если условие истинно};  
            end
                else
                     begin
                         {инструкции выполняемые, если условие ложно};
                      end;
Инструкция if выполняется следующим образом: