program Kvadrat; Var a, p, s: real; {може типа да е и integer} Begin write (‘Въведете дължинат на страната‘); readln (a); {при изпълнението на програмата на променливата а се присвоява число въведено от клавиатурата} S:=a*a; P:=4*a; {Изчисляване на лицето и периметъра} writeln (‘S=‘,S,’ P=‘,P); {Извеждане на резултата} End.

Turbo Pascal Първи урок: Алгоритми Втори урок: Описание на алгоритми чрез блок схеми Трети урок: Въведение в езика Turbo Pascal Четвърти урок: Величини в езика Pascal Пети урок: Оператор за присвояване Шести урок: Входни- изходни операции Седми урок: Разклоняване на изчислителния процес Осми урок: Оператор за избор на вариант Девети урок: Оператори за цикъл Десети […]