понедельник, 25 апреля 2016 г.

uses graphABC;
const length = 400;
const number_of_mod = 101;//у нас 4 стороны по 100 точек, значит квадрат у нас 100 на 100 и мод нужно ставить 101
var
x:array[1..length] of integer;
y:array[1..length] of integer;
OLDx:array[1..length] of integer;
OLDy:array[1..length] of integer;
newx,i:integer;

Procedure drawing;
var i:integer;
begin
for i:=1 to length do setpixel(x[i]+250,y[i]+250,clblack);
end;

begin
for i:=1 to 100 do begin   x[i]:=i;OLDx[i]:=i;y[i]:=1;oldy[i]:=1;end;
for i:=100 to 200 do begin x[i]:=i-100;OLDx[i]:=i-100;y[i]:=100;oldy[i]:=100;end;
for i:=200 to 300 do begin x[i]:=1;OLDx[i]:=1;y[i]:=i-200;oldy[i]:=i-200;end;
for i:=300 to 400 do begin x[i]:=100;OLDx[i]:=100;y[i]:=i-300;oldy[i]:=i-300;end;

drawing;
sleep(2000);
while true do
begin
for i:=1 to length do begin newx:=x[i];x[i]:=(x[i]+y[i]) mod number_of_mod;y[i]:=(newx+(2*y[i])) mod number_of_mod;end;
drawing;
sleep(100);
clearwindow;
if(y[1]=oldy[1]) and (x[1]=oldx[1]) then break;
end;
drawing;
writeln('Я ЗАКОНЧИЛ!!!!!!!!!!!!!');
end.

четверг, 21 апреля 2016 г.

Олимпиада, возможные варианты входа

Скачать
1.       Пин-Код
Описание: Сейчас Пин-код используется во многих сферах жизни, чаще всего он используется в банковских картах и симках.
+:
·         Его легко запомнить и легко вводить
-:
·         Его легко взломать с помощью подборать
2.       Пароль
Описание: Сейчас используется очень часто при входе на сайты, форумы, или даже при входе в компьютер, сейчас это самый распространенный метод входа
+:
·         Его также как и Пин-Код легко запомнить и вводить при входе
·         Можно составить пароль, который будет подбираться очень долго
-:
·         Можно взломать с помощью подбора, хотя уже не так легко как пин-код
3.       СМС на телефон
Описание: При входе на сайт, или куда-либо еще вам присылают смс с кодом на телефон, вы должны написать этот код на компьютере.
+:
·         Даже если человек узнает ваш пароль он не сможет зайти к вам в компьютер, или на сайт с вашего аккаунта.
·         Этот способ прост в использование, так как все в наше время имеют телефоны, и могут получать смс-ки.
-:
·         Если у вас украдут телефон, то злоумышленники смогут войти в ваш аккаунт, а вы нет.
·         Этот способ все таки требует держать телефон при себе все время, а телефон может разрядиться или же просто вы его можете положить в соседнюю комнату, куда будет очень лень идти, что значит, что это не очень удобно для пользователя
4.       Сообщение на E-MAIL
Описание: При входе в компьютер или же на сайт, вам на E-MAIl присылается письмо с кодом который вы должны ввести.
+:
·         Удобно, так как e-mail можно открыть не только на компьютере, но и на телефоне.
-:
·         E-mail сейчас можно довольно легко взломать, это значит, что злоумышленники получат доступ к вашим данным, а вы не сможете зайти в аккаунт.
·         E-mail это сторонний аккаунт с сторонним(мы надеемся) паролем, это значит, что вам придется запоминать этот пароль и логин для e-mail’а, а это уже не очень удобно.
5.       Защита как в Steam(нужно заменить название)
Описание: При входе куда-либо вас просят ввести код, этот код находиться в приложение установленном на вашем телефоне(вы устанавливаете приложение на смартфон, и когда понадобится, он выдаст вам код)
+:
·         Хорошая защита, так как никто не сможет зайти к вам в аккаунт, даже если он знает пароль.
-:
·         Если злоумышленник получит ваш телефон он сможет зайти к вам в аккаунт, а вы нет.
·         Если у телефона нет подключения к интернету, то будет проблематично зайти в аккаунт
·         Если телефон сломался, то зайти в аккаунт будет сложно
·         Телефон может разрядиться, или же просто быть в другой комнате, что не очень удобно.
6.       Защита голосом
Описание: Вы произносите секретную(или нет) фразу, компьютер ее обрабатывает.
+:
·         Скорость работы этого способа велика, так как вам нужно всего лишь сказать что-нибудь, и вы сразу же получите доступ к информации.
-:
·         В шумном месте вы не сможете зайти, так как микрофон не сможет в полной мере записать ваш голос
·         Для этого способа обязательно наличие микрофона, что уже плохо.
·         Кто-нибудь может записать вашу фразу, а после просто воспроизвести ее рядом с микрофоном и получить доступ к информации.
7.       Форма лица
Описание: вы смотрите в веб-камеру или просто в фронтальную камеру вашего телефона он определяет ваше лицо.
+:
·         Вы можете просто посмотреть в камеру и компьютер и получить доступ к информации.
-:
·         В условиях плохой освещенности данный способ будет плохо работать
·         Злоумышленники могут распечатать вашу фотографию и показать камере(Существуют камеры которые определяют более меленькие нюансы лица, и такую камеру не обмануть фотографией, но она дорого стоит и имеет свои недостатки).
·         Если вы заболели, приуныли, изменились, постарели на 50 лет, то камера вас определит.
8.       Отпечаток пальца
Описание: Вы нажимаете на панель, она обрабатывает ваш отпечаток сверяет его и открывает доступ к информации или нет.
+:
·         Вы можете приложить палец к устройству и оно сразу же даст доступ к информации.
-:
·         Если ваш палец грязный, или же вы порезались, то есть просто немного изменили палец, то вы не сможете получить доступ к информации.
·         Вам могут отрезать палец и после получить доступ к информации.
9.       Рисунок
Описание: Вы рисуете узор и компьютер сопоставляет его с ранее введенным рисунком.
+:
·         Вы можете достаточно быстро получить доступ к информации.
·         Внешние факторы не влияют на этот способ, по этому вы сможете получить доступ к информации в любом случае.
-:

·         Злоумышленник посмотрев 1 или 2 раза как вы рисуете узор сможет его с легкостью повторить.

среда, 20 апреля 2016 г.

uses GraphABC;
var c:color;
a:integer;
name:string;

procedure KeyDown(key:integer);
begin
  if key=vk_r then begin setpencolor(clgreen);setbrushcolor(clgreen);c:=clgreen; end;
  if key=vk_q then begin setpencolor(clwhite);setbrushcolor(clwhite);c:=clwhite;end;
  if key=vk_w then begin setpencolor(clblack);setbrushcolor(clblack);c:=clblack;end;
  if key=vk_e then begin setpencolor(clred);setbrushcolor(clred);c:=clred;end;
  if key=vk_t then begin setpencolor(clblue);setbrushcolor(clblue);c:=clblue;end;
  if key=vk_y then begin setpencolor(clyellow);setbrushcolor(clyellow);c:=clyellow;end;
end;

Procedure MouseDown(x,y,mb:integer);
begin
  MoveTo(x,y);
end;

Procedure MouseMove(x,y,mb:integer);
begin
  if mb=1 then begin circle(x,y,15);end;
  if mb=2 then begin floodfill(x,y,c);end;
end;

begin
setwindowsize(600,600);
OnMouseDown := MouseDown;
OnMouseMove := MouseMove;
OnkeyDown := KeyDown;
end.

Японский словарь

Код на Pascal
----------
Program Japanprogram;
const number = 257;
var
russia:array[1..number] of string;
japan:array[1..number] of string;
name,old:string;
t:text;
i,yes,mass:integer;

Procedure write_array;//Заполнение масивов
begin
var i:integer;
//Считываем из файла слова
assign(t,'Japan.txt');
reset(t);
for i:=1 to number do
begin
readln(t,japan[i]);
write(japan[i], ' - ');
readln(t,russia[i]);
writeln(russia[i]);
end;
close(t);
//Заканчиваем считывать
end;

Procedure search;//Процедура поиска
begin
var i:integer;
//Поиск русских и японских слов в массиве и вывод их
while(name<>'e')do
begin
write('Введите начало слова, чтобы выйти "e":');
readln(name);
if(name<>'e')then
begin
for i:=1 to number do
begin
  if (length(name)>1) then
  begin
    if(name[1]=japan[i][1])and (name[2]=japan[i][2]) then writeln(japan[i],' - ',russia[i]);
    if(name[1]=russia[i][1])and (name[2]=russia[i][2]) then writeln(russia[i],' - ',japan[i]);
  end;
  if (length(name)=1) then
  begin
    if(name[1]=japan[i][1]) then writeln(japan[i],' - ',russia[i]);
    if(name[1]=russia[i][1]) then writeln(russia[i],' - ',japan[i]);
  end;
end;
end;
end;
//Конец этого поиска
end;

Procedure game;//Процедура игры
begin
var i:integer;
//Здесь идет игра, загадываеться рандомное слово, которое жертва должна отгодать, оно может быть японским, русским, иил по рандому
while(name<>'e') do
begin
write('Чтобы программа задала вам японские слова напишите "j", чтобы русские "r",для выхода "e":');
readln(name);
if(name<>'e')then
begin
write('Колличество слов:');
readln(mass);
if(name[1]='j')then for i:=1 to mass do begin yes:=random(number);write(japan[yes+1], ' - ');readln;writeln('Правильный ответ: ',russia[yes+1]); end;
if(name[1]='r')then for i:=1 to mass do begin yes:=random(number);write(russia[yes+1], ' - ');readln;writeln('Правильный ответ: ',japan[yes+1]); end;
end;
end;
//КОНЕЦ ИГРЫ!!!1111
end;

Procedure sortirovka;
var i,j:integer;
begin
write('Японско-Русский"1", или Руско-Японский"2" словарь?:');
readln(name);
if(name='1')then
begin
for i:=1 to number-1 do
  begin
    for j:=1 to number-1 do
      begin
        if(japan[j]>japan[j+1])then begin old:=japan[j];japan[j]:=japan[j+1];japan[j+1]:=old;old:=russia[j];russia[j]:=russia[j+1];russia[j+1]:=old; end;
      end;
  end;
for i:=1 to number do writeln(japan[i],' - ',russia[i]);
end;
if(name='2')then
begin
for i:=1 to number-1 do
  begin
    for j:=1 to number-1 do
      begin
        if(russia[j]>russia[j+1])then begin old:=japan[j];japan[j]:=japan[j+1];japan[j+1]:=old;old:=russia[j];russia[j]:=russia[j+1];russia[j+1]:=old; end;
      end;
  end;
for i:=1 to number do writeln(russia[i],' - ',russia[i]);
end;
end;

begin
Randomize;
write_array;
while(name<>'q') do
begin
write('Вы в главном меню, что-бы совершить поиск наберите "s", что-бы поиграть со мной в игру наберите "g", чтобы просто посмотреть все слова "a", что-бы выйти "q":');
readln(name);
if(name='s')then search;
if(name='g')then game;
if(name='a') or (name='а')then sortirovka;
end;
end.
-------
Скачать на паскале
Скачать в текстовом документе
Слова
------
Кохи
Кофе
Биру
Пиво
Кудамоно
Фрукты
Ринго
Яблоко
Микан
Апельсин
Банана
Банан
Джусу
Сок
Осаке
Саке
Ясаи
Овощи
Гохан
Рис
Пан
Хлеб
Тишатсу
Футболка
Нико
Мясо
Сакана
Рыба
Кутсу
Туфли
Кабан
Сумка
Токей
Часы
Еига
Кино
Тереби
Телевизор
Хаджимемаште
Приятно познакомиться
Дозо Ёросику О негасимас
Прошу любить и жаловать
Ваташи Ва
Я
Джин
Национальность
Рошиа
Россия
Нихон
Япония
Фурансу
Франция
Итариа
Италия
Мо
Тоже
Ка
Вопросительный знак
Ка
Или
Аната
Вы
Хай
Да
Иие
Нет
Дева аримесен
Не являеться
Коре
Это(Близко к нам)
Соре
Это(Близко к собеседнику)
Аре
Это(Далеко от обоих)
Нан
Что
Хана
Цветок
Боши
Шапка
Охаё гозаимас
Доброе утро
Конничива
Добрый день
Конбанва
Добрый вечер
Аригато
Спасибо
Аригато гозаимас
Большое спасибо
Домо аригато гозаимас
Очень большое спасибо
Суси
Суши
Хаси
Палочки для суши
Фоку
Вилка
Спун
Ложка
Дозо
Пожалуйста, когда даешь, что-либо
Оча
Зеленый чай
Коча
Черный чай
Айсукуриму
Мороженое
Ниндзин
Морковь
Пиман
Перец
Насу
Баклажан
Дзягаимо
Картошка
Кюри
Огурцы
Кябэцу
Капуста
Тамаго
Яйцо
Чото
Немного, вежливое нет
Денва
Телефон
Пен
Ручка
Суки(Ски)
Нравиться
Ва
Иминительный падеж
Га
Иминительный падеж
Боку
Я для маленьких мальчиков
Сумимасен
Извините/Спасибо
Дэс
Окончание предложения в н-б.в.
Дэшта
Окончание предложения в п.в.
Чокорето
Шоколад
Тори
Птица
Уши
Корова
Э
Покозатель направления
Э
Картина
Джи
Час
Икура
Цена
Сэн
1.000
Ман
10.000
Ното
Тетрадь
Хон
Книга
То
И/Вместе с чем либо
Ин
Человек/Рабочий
Казоку
Семья
Сюдзин
Муж
Канаи
Жена
Цума
Жена
РёСин
Родители
Мама
Хаха
Папа
Тити
Дедушка
Софу
Бабушка
Собо
Саи
Возраст, частица вораста
Сигото
Работа
Сёкугё
Проффесия
Гиси
Инженер
Ися
Врач
Кайсяин
Служащий фирмы
БиёСи
Парикмахер, косметолог
Сюфу
Домохозяйка
Кангофу
Медсестра
Сейто
Школьник
Гакусей
Студент
Пурагурамисто
Программист
Сенсей
Учитель
Гаймудайдин
Министр иностранных дел
Кейсацу
Полицейский
ДойтОрё
Президент
Тенин
Продавец
Гака
Художник
Онгакука
Музыкант
Унтенсю
Водитель
Ума
Лошадь
Уми
Море
Ме
Глаза
Нан но
Что за? Какой?
Ки
Дерево
Сэнака
Спина
Сэгоне
Позвоночник
Куни
Страна
Утю
Космос
Цуки
Луна
Хи
Солнце
ЧуГоку
Китай
Эиго
Английский язык
Игирису
Англия
Оранда
Голландия
Еки
Станция
Учи
Дом
Го
Язык
Го
5
Го
Настольная японская игра
Тигаймас
Ошибаться
Доицу
Германия
Найдзериа
Нигерия
Суэдэн
Швеция
Канкоку
Корея
Тай
Тайланд
Осуторария
Австралия
Брадзиру
Бразилия
Супеин
Испания
Усаги
Заяц
Ину
Собака
Генки
Дела\Здоровье
Хисашибури Дэс Не
Давно не виделись
Икимас
Ехать
Симас
Делать
Тобемас
Есть
Номимас
Пить
Мимас
Смотреть
Бенкё
Учеба
Томодачи
Друг
КёКай
Церковь
Гакко
Школа
Ойши
Вкусно!!!111
Отера
Японский храм
Мура
Деревня
Докуцу
Пещера
Емимас(В начале не "е", а "ё")
Читать
Коко
Здесь
Соко
Там
Асоко
Вон там
Доко
Где
Дотира
От куда, из какой
Гэнкан
Прихожая
Дойдокоро
Кухня
Сёкудо
Столовая
Синсицу
Спальня
Барукони
Балкон
Осэцума
Гостинная
Екусицу (в начале не Е, а Ё)
Ванная
Сэммэндзё
Умывальник
Тоире
Туалет
Тансу
Шкаф
Софа
Диван
Тэбуру
Стол
Хондана
Полка для книг
Сёккидана
Полка для посуды
Сэнтакки
Стиральная машина
Содзики
Пылесос
Рейдзоко
Холодильник
Бидео
Видео
Набе
Кастрюля
Якан
Чайник
Фрайпан
Сковородка
Сара
Тарелка
Коппу
Сткан
Симбун
Газета
Каса
Зонтик
Дегути
Выход
Бата
Масло
Косё
Перец
Сио
Соль
Сосу
Соус
Гюню
Молоко
Уэ
На
Нака
В
Шита
Под
Кечап
Кетчуп
Тотемо
Очень
Широй
Белый
Курой
Черный
Мидори, может быть мидорино
Зеленый
Акай
Красный
Аой
Синий
Кирой
Желтый
Щкудай
Домашнее задание
Гему
Игра
Сампо
Прогулка
Сарада
Салат
Ичиго
Клубника
Соджи
Уборка
Кикимас
Слушать/спрашивать
Икура
Икра
Комбу
Морская капуста
Эби
Креветки
Хару
Весна
Доресу
Платье
Сёкки
Посуда
Тен
Магазин
Кайся
Компания/фирма
Геидзё
Театр
Даке
Только
Майничи
Каждый день
Споцу
Спорт
Тенису
Тенис
Донна
Какой
Метору
Метр
Кюдзицу
Выходные
Сакка
Футбол
Горофу
Гольф
Сэнтаку
Стирка
Соджи
Уборка
Каимоно
Покупки
Сюттё
Командировка
Рёко
Путешествие
Гаикокуго????
Иностранный язык
Осёгацу
Новый год
Ей отосио
Поздровление до нового года
Акемаште омедето гозаимас
Поздравление после нового года
Маме
Бобы
Шампан
Шампанское
Но
Родительный падеж
Э
Показатель направления
Дэ
Место активного действия, или на чем приехал
О
Винительный падеж
Ни
Дательный падеж
Даре
С кем
Каи
Раз
Суйей
Плавание
Пати
Вечеринка
Курисумас
Рождество
Токидоки
Иногда
Агемас
Дарить
Мураймас
Получать
Сэнрей
Крещение
----
Скачать в текстовом файле