Всем привет. Это мой первый пост, так-что не судите строго. Сейчас я вам покажу как сделать калькулятор, который находит сумму, произведение и среднее арифметическое трёх чисел. Итак, приступим!
program ???; Вместо вопросительного знака может быть любое название.
var a, b, c, d, e, f: real; var - это ключевое слово. Всё-что идёт после var, будет рассматриваться как переменные. real - значит числа могут быть не целыми.
begin - начало.
WriteLN('введите число'); Тут итак думаю понятно. WriteLN - написать, а 'введите число' говорит о том, что надо ввести число.
ReadLN(a, b, c); ReadLN читает вводимую с клавиатуры строку в переменную а, затем переносит курсор на новую строку и читает следующую строку.
d := a + b + c; d - переменная суммы. Это значит что при сложении a+b+c выводится их сумма d.
e := a * b * c; e - переменная произведения. При умножении a*b*c выводится произведение e.
f := (a + b + c) / 3; f - переменная среднего арифметического. Чтобы найти среднее арифметическое трёх чисел, нужно сложить 3 числа и разделить их на 3 (a + b + c) / 3 .
WriteLN('сумма: ', d); - подпись к переменной суммы.
WriteLN('произведение: ', e); - подпись к переменной произведения.
WriteLN('среднее арифметическое: ', f); - подпись к переменной среднего арифметического.
end. - конец.
Вот что у меня получилось :
Если после строки program написать uses crt, тогда всё будет открываться в командной строке.
Конец.