Программа для конкурса «Ретвитов»

Здравствуйте дорогие друзья!
Как вы уже знаете, на моём блоге стартовало сразу два конкурса, один из которых это конкурс Ретвитов.

Конкурсы Ретвитов становятся очень популярными в блогосфере, ведь они не только очень просты, но и очень полезны.
Проведя на своём блоге конкурс Ретвитов, вы получите хороший приток трафика с Twittera.
А поучаствовать в таком конкурсе захочет очень большое количество ваших читателей, потому что для участия им нужно будет нажать только одну кнопку.

Запустить конкурс не проблема, раскрутить тоже, а вот судить…

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

Я создал программу самостоятельно, при помощи такого языка как «Pascal».
Знающие люди начнут говорить:
Pascal – фигня, лучше программируй на Delphi и т.д.
Но ребят, зачем всё усложнять то?
Нам программка то нужна на пару действий, поэтому Pascal нам подойдёт идеально.
Да кстати я пользуюсь более новой программой под названием «Pascal ABC», у неё дизайн покрасившее будет.

Итак, для тех, кто не хочет знать о содержимом программы и том, как её редактировать (тоесть она ему нужна только на пару раз), я сразу даю вам ссылку:

Скачать программу + исходник

Минусы:
-Максимальное количество участников – 999999999;
-Программа выберет только трёх победителей (если победителей должно быть больше, то ниже я объясню что нужно исправить);

Ну, пора нам заглянуть внутрь нашей программы.
В папке «Мозги» вы найдёте исходник программы, для того чтобы открыть его вам нужно будет установить у себя на компьютере программу «Pascal ABC».
После того как вы откроете исходник вы обнаружите там вот такой вот код:

uses crt;
var k,x1,x2,x3:integer;
begin
TextBackGround(white);
TextColor(black);
ClrScr;
writeln('Программа выберет трёх победителей конкурса Ретвитов.');
writeln('Следуйте указаниям:');
writeln;
writeln('Введите колличество участников, а затем нажмите Enter');
readln(k);
x1:=random(k);
x2:=random(k);
x3:=random(k);
if x1=0 then
x1:=x1+1;
if x2=0 then
x2:=x2+1;
if x3=0 then
x3:=x3+1;
if x1=x2 then
x1:=x1+1;
if x1=x3 then
x1:=x1+1;
if x2=x3 then
x2:=x2+1;
writeln;
writeln('Победители:');
writeln;
writeln('Участник №',x1);
writeln;
writeln('Участник №',x2);
writeln;
writeln('Участник №',x3);
writeln;
writeln('Поздравляю победителей!');
readln;
end.

Я не буду расписывать, что и за что отвечает, я просто объясню как увеличить количество победителей.

Допустим победителей должно быть 5.

Шаг 1.
В раздел «Var» добавьте новые переменные:
x4 и x5.

Шаг 2.
После строчки x3:=random(k);

Вставляем:
X4:=random(k);
X5:=random(k);

Шаг 3.
Числа не должны быть равны 0, для этого, после строчек:
if x3=0 then
x3:=x3+1;

Вставьте:
if x4=0 then
x4:=x4+1;
if x5=0 then
x5:=x5+1;

Шаг 4.
Числа не должны быть одинаковыми, для этого после строчек:
if x2=x3 then
x2:=x2+1;

Вставьте:
if x1=x4 then
x1:=x1+1;
if x1=x5 then
x1:=x1+1;
if x2=x4 then
x2:=x2+1;
if x2=x5 then
x2:=x2+1;
if x3=x4 then
x3:=x3+1;
if x3=x5 then
x3:=x3+1;
if x4=x5 then
x4:=x4+1;

Шаг 5.
Выводим результаты.
После строчки:
writeln(‘Участник №’,x3);

Вставляем:
writeln;
writeln(‘Участник №’,x4);
writeln;
writeln(‘Участник №’,x5);

Шаг 6.
Редактируем строчку:
writeln(‘Программа выберет трёх победителей конкурса Ретвитов.’);
Вместо «трёх» пишем «пятерых».

Вот и всё. :mrgreen:

Теперь в нашем конкурсе победят не три, а 5 человек.
Я думаю, вы поняли то, что я хотел до вас донести, а если нет, то задавайте вопросы в комментариях.

Да кстати если запустите подобный конкурс меня зовите, поучаствую
Всегда ваш Мудрый Кот.

А видео у нас сегодня про то, как создавать «Супер-популярные блоги», я думаю вам понравится, кстати видео со смыслом.