PascalABC.net с нуля/Урок 3. Построение программы. Функции: различия между версиями

Выведет фразу «100 золота», если константа Gold равна 100.

Откройте файл «lesson3_1.pas» и нажмите кнопку «Запустить». В результате, в окне вывода вы увидите сообщение «Милорд, у вас 100».

Обратите внимание, что у нас появилось два [[w:Блок (программирование)|новых слова]].

 

Между ними располагается сама программа , которая состоит из одного вызова ''функции''. Для успешного выполнения урока вызовите ''функцию'' WriteLn несколько раз, так, чтобы программа, как и в предыдущих уроках сообщала нам количество золота, дерева, железа, твёрдых ресурсов, а также их стоимость. Также добавьте в первый вызов ''функции'' строчку, чтобы в итоге выводилось полное сообщение «Милорд, у нас 100 золота».

Также мы можем писать ''функции'' сами. Запустите вторую часть урока 3, которая располагается в файле «lesson3_2.pas».

Сначала с помощью слова '''function''' мы объявляем, что это ''функция''. Далее идёт имя ''функции''. Далее в скобочках идут параметры, которые мы передаём функции. В прошлом уроке мы познакомились с целочисленным типом константы. Чтобы объявить,что k1 – это целое число , необходимо записать выражение:

k1:Integer;

result := sqrt(k1*k1-4*k2);

Слово result обозначает результат ''функции''. ''':=''' Означает '''[[w:Присваивание|присваивание]]''', то что слева, то есть результат становиться равным тому, что справа. Обратите внимание, что наша ''функция'' использует результат вычисления другой ''функции'', sqrt, которая вычисляет [[w:Квадратный корень|квадратный корень]] из заданного нами выражения.

Для завершения урока напишите ''функции'' Solve1 и Solve2 , которые бы полностью вычисляли первый и второй корень квадратного уравнения. Если корень один, то обе эти ''функции'' должны возвращать одинаковый результат.

С помощью ''функции'' WriteLn выведите оба корня уравнения.