Лабораторный практикум по программированию на языке Pascal. Суркова Е.В. - 8 стр.

UptoLike

Составители: 

7
Далее следует раздел описания переменных. В нашем примере понадобят-
ся две переменные для хранения аргумента x и значения функции y. Так как и
аргумент, и сама функция могут принимать дробные значения, то их необходи-
мо описывать вещественным типом данных.
Var x,y: real;
Затем описываем основное тело программы. Как следует из блок-схемы
алгоритма, вначале необходимо вывести информационный блок (автор, номер
варианта, назначение программы), после чего вывести текстовую строку, кото-
рая подскажет пользователю, что нужно вводить значение аргумента. А затем
считать с клавиатуры введенное пользователем число. Не забываем, что тело
программы начинается с зарезервированного
слова begin.
Begin
writeln;
writeln(’ АвторИванов И.П., студент гр. ИСЭд-11’);
writeln(’ Вариант 100’);
writeln(’Программа вводит значение аргумента X и вычисляет зна-
чение функции Y’);
writeln(’ |2*x x>2.5’);
writeln(’Y= |x^3-x 0<=x<=2.5’);
writeln(’ |x*(sin(x)) x<0’);
writeln;
writeln(’введите x= ’);
readln(x);
В данном фрагменте используется два вида оператора вывода: с парамет-
ром и без параметра. В первом случае на экран выводится текст, который ука-
зан в качестве параметра, а во втором случаепустая строка (для того чтобы
сделать отступ между строками).
После того, как значение X введено оператором ввода
readln(x), нужно
определить, по какой формуле должна вычисляться функция. Для этого в алго-
ритме предусмотрены проверки значения аргумента.
If x>2.5 then
Y:=2*x
Else
If x>=0 then y:=x*x*x-x
Else Y:=x* sin(x);
Как видно, в данном фрагменте программы признак конца оператора (точка
с запятой) ставится только один раз в самом конце, т. к. условный оператор за-
канчивается именно на последней строке, перед
Else точку с запятой не ставят.
В конце программы нужно вывести результаты вычислений и завершить
тело программы служебным словом
end с точкой.
writeln(’Y= ’, y:7:3);
readln
end.