Пример 1
Написать программу для вычисления величины у при любом значении Х:
Решение
Напишем сначала структурную схему.
И в одной и в другой ветке (т.е. и в случае «да», и в случае «нет») по одному действию.
Напишем программу:
Var
x,y:real;
Begin
Read(x);
if x>0 then
y:=sqr(x)
else
y:=0;
Writeln(y)
End.
Обратите внимание на запись условного оператора «лесенкой». В одной программе может быть несколько условных операторов (несколько THEN и ELSE (то - иначе)).
Каждое ELSE относится к предыдущему THEN.
Мы их так и будем записывать: друг под другом. Операторы, которые будут выполняться в случаях THEN и ELSE, записываются с новой строки правее этих слов (как показано в последней программе).
Задания
№ 1. Составить программу для вычисления значения функции:
при любом значении аргумента.
№2. Составить программу для вычисления значения величины
при любом значении х.
№ 3. Даны два числа. Если первое больше второго по абсолютной величине, то необходимо уменьшить первое в пять раз. Иначе оставить числа без изменения. Составьте структурную схему и программу.
№4 Составить структурную схему и программу для вычисления значения функции SIGN при любом целочисленном значении аргумента:
№5. Написать структурную схему и программу для вычисления значения следующей величины:
T=min(q,r+s-1).
№6. Составить структурную схему и программу для вычисления величины:
d=max(a,b,c).
№7. Составить структурную схему и программу для вычисления величины:
№8. График зависимости Y от Х приведен на рисунке. Написать структурную схему и программу вычисления значения Y по значению X.
Y
2
2 X
№9. В магазине продаются телевизоры по цене 5500 руб. У покупателя Х руб. (X < 100 000).
1). Сможет ли покупатель купить один телевизор?
2). Если да, то сколько денег у него останется?
3). Сколько телевизоров сможет купить покупатель на все свои деньги?
Примечание. Количество рублей - целая величина. В нашей задаче денег у покупателя может быть гораздо больше 32767. Следовательно, переменную типа INTEGER мы использовать не можем (см. прил. 1). Заведем переменную типа LONGINT. Эта переменная может принимать значения до 10 порядка (см. прил. 1).
В приведенном ниже описании переменной X обозначено количество денег, находящееся на руках у покупателя до покупки телевизора; переменной Y - количество денег, оставшееся у покупателя после покупки телевизора; переменной n - количество купленных телевизоров.
Var
Y,X:longint;
n:integer; {наверняка более 32767 телевизоров покупатель покупать не будет}
Begin
. . .
№10. Составить программу для вычисления значения функции при любых значениях аргументов:
Структурную схему для этой задачи Вы составляли ранее (cм. задание № 10в на с. 18).
№11. Переменной k присвоить номер четверти плоскости, в которой находится точка F с координатами X и Y (X•Y0). Написать структурную схему и программу.
№12. Написать структурную схему и программу для вычисления значения величины:
при любых целых X, Y.
№
13. Написатьпрограмму, котораяопределяла
бы, попадает ли точка А с координатами
(X,Y) в заштрихованную область (граница
принадлежит области).
№14. Написать программу, которая определяла бы, попадает ли точка N с координатами (X,Y) в заштрихованную область (граница не принадлежит области).
Примечание. Уравнения двух прямых, которые ограничивают область, мы знаем:
X=0;
Y=0.
Выведем уравнение третьей прямой:
Y=ax+b
Возьмем две точки, лежащие на этой прямой:
(3,0); (0,4)
и подставим их координаты в уравнение Y=ax+b. Получим систему:
№15. Составить структурную схему и программу для вычисления величины
исследовав на О.О.Ф.
№16. Составить структурную схему и программу для вычисления величины:
исследовав на О.О.Ф.