Алгоритмы и программы. Афанасьева Т. В - 72 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

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

Рубрика: 

72
goto 1; {Безусловный переход на начало}
end;
writeln('Наибольшее значение функции','=',ymax:4:2);
writeln('Нажмите ENTER.');
readln;
end.
Задания для самостоятельного выполнения
1. Для двух чисел Х, У определить, являются ли они корнями уравнения
А*Р
4
+D*P
2
+C=0.
2. Если среди трех чисел А, В, С имеется хотя бы одно четное, вычислить
максимальное, иначе – минимальное.
3. Ввести положительное А. Найти наибольшее число вида 1\Р (Р>=0),
меньшее А.
4. Ввести два числа. Меньшее заменить полусуммой, а большее –
удвоенным произведением.
5. Ввести три числа А, В, С . Удвоить каждое из них , если
А>=В>=С,
иначе поменять значения А и В.
6. Определить, является ли точка с координатами X, Y точкой пересечения
диагоналей квадрата со стороной R, одна вершина которого расположена в
начале координат.
7. Определить, лежит ли точка с координатами (X, Y) вне круга радиуса R
с центром в точке (А, В) или внутри него.
8. Определить являются ли
две точки (X1,Y1) корнями системы уравнений
ax + by = c
nx + my = d
9. Вычислить
sin X , X<0
y=
tg X , X>=0
Контрольные вопросы
1. Напишите условие на языке Turbo Pascal X>0, Y>0 или Z=0.
2. Какие два вида условного оператора используются в программе?
3. Структура и алгоритм работы условного оператора.
4. Назначение составного оператора.
5. Что такое условие в операторе if?
6. Что обозначает ключевое слово if?
7. Что обозначают ключевые слова then, else?
8. Назначение оператора безусловного перехода

Страницы