Новое на сайте
"Заем". Арифметические выражения, возведение в степень
Задача
10/02/11
Программа "Угадай число"
Задача
10/02/11

Отгадать целое число, которое "загадал" компьютер в определенном диапазоне.
Перевод римских чисел в арабские. Пример автоматного распознавателя
Задача
10/02/11

Можно использовать вложенные операторы case. Это удобно, например, при реализации автоматных распознавателей, которые дают способ наглядной записи алгоритмов распознавания текстов.

Представленная таблица предназначена для перевода римских чисел, составленных из цифр X, V, I.
Определить возможность существования треугольника по сторонам
Задача
10/02/11

Треугольник существует только тогда, когда сумма любых двух его сторон больше третьей.

Дано: a, b, c – стороны предполагаемого треугольника.
Требуется сравнить длину каждого отрезка с суммой двух других. Если хотя бы в одном случае отрезок окажется больше суммы двух других, то треугольника с такими сторонами не существует.
Определение четверти на координатной плоскости
Задача
10/02/11

Всем известна прямоугольная (декартова) система координат, в которой две перпендикулярные оси делят плоскость на четверти. В первую четверть попадают точки, у которых обе координаты (x и y) больше нуля. Во вторую: x 0; третью: x ; четвертую: x > 0, y .

Допустим, требуется написать программу, определяющую по координатам точки, в какой четверти она находится.
Оператор case в задаче выбора
Задача
10/02/11

Бывает, что вместо оператора if удобнее использовать оператор case. Обычно это случается, если переменная по условию задачи может принимать ограниченный диапазон значений или только конкретные значения. Текущее значение переменной (селектора) сравнивается со значениями-случаями, перечисленными в теле оператора case. Если значение селектора совпадает с каким-либо значением в операторе case, то выполняется ветка, относящаяся к данному случаю.

В задаче ниже в конструкции case сравнивается значение переменной ch с различными диапазонами значений. В случае совпадения, выводится соответствующая надпись.
Найти максимальное число из трех
Задача
10/02/11

Определить какое из трех, введенных пользователем, чисел максимальное и вывести его на экран.
Вычисление площадей геометрических фигур
Задача
10/02/11

Пример программы, позволяющей вычислять площади трех геометрических фигур: прямоугольника, треугольника и круга.
Вычисление значения функции
Задача
10/02/11

Требуется написать программу, вычисляющую значение какой-нибудь функции (у = f(x)). Допустим, такой:

у = x – 2, если x > 0,
y = 0, если x = 0,
y = |x|, если x

Процедура Circle. “Разноцветные окружности”
Учебник
09/02/11		 

uses
    graph;
 
var
    g, h, i, x, y, r: integer;
 
begin
    g := detect;
    initgraph(g,h,'');
 
    randomize;
    for i := 1 to 30 do begin
        setcolor(random(15));
        x := random(1000) + 100;
        y := random(800) + 100;
        r := random(100);
        circle(x,y,r);
    end;
 
readln
end.

Программа выводит на экран 30 окружностей разным цветом в разных местах окна.