ПРИМЕР 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 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

Дата добавления: 2014-12-27