Здравствуйте, с вами хакер Алексей.
Я работаю системным администратором в Яндекс. Параллельно обучаюсь мастерству взлома незащищенных интернет серверов. Для того чтобы взломать Пентагон, нам понадобится выполнить несколько простых пунктов. Это вторая часть, советую прочитать часть один, иначе вы ничего не поймёте. Начнём.
Шаг Второй
Скачиваем программу PascalABC, и создаём программу по этому гайду.
Заходим в программу Pascal ABC, перед нами открывается чистый лист с названием Program1.pas - это файл программных модулей для написания кода. В дальнейшем его можно компилировать в .exe - исполняемый файл, который будет открывать созданную нами программу.
Для начала назовём нашу программу, к примеру, «Решебник», в коде пишем:
Program reshebnik
Не забывайте в конце каждой строчки обязательно ставить точку с запятой. Так как мы создаём простейший калькулятор, наш «Решебник» будет вычислять буквально одно действие - сложение двух переменных, то есть a+b=c. Во второй строчке кода объявляем переменные a, b, c и добавляем integer (с англ. - «целое») - уточнение, что a, b, c - целые числа:
Var a, b, c: integer;
Var - в языках программирования означает «переменная».
Теперь создадим блок команд (операторов), который начинается со слова begin и заканчивается словом end. Пишем:
begin
Следующей сторочкой предложим пользователю ввести число. Инструкция Write (с анг. - «запись») выведет на экран монитора наше сообщение, WriteLN - ещё и переведёт курсор в начало следующей стороки, то есть пишем в файле четвёртой строчкой:
WriteLN ('Введите число A:');
Пятой строчкой выполним ввод пользователя с помощью команды read (с англ. - «читать»):
ReadLN (a);
То же самое проделаем со вторым числом b:
WriteLN ('Введите число B:.');
ReadLN (b);
Выполняем подсчёт введённых переменных. Знак «:=» означает присваивание, присваиваем числу c значение a+b:
c := a+b;
Выводим ответ и завершаем блок операторов:
WriteLN ('Ответ', c);
end.
Итак, наш «Решебник» готов к использованию. Проверим, как он работает. В Верхнем меню программы Pascal ABC выбираем Программа -> Выполнить.
Program reshebnik;
Var a, b, c: integer;
begin
WriteLN ('Введите число A:');
ReadLN (a);
WriteLN ('Введите число B:');
ReadLN (b);
c := a+b;
WriteLN ('Ответ', c);
end.
В дальнейшем мы будем использовать этот калькулятор для вычисления возможности успешной DDos атаки на телефон президента Америки Барака Абамы.
Второй шаг закончен. Подписывайтесь для дальнейшей информации по взлому пентагона.