Вложенные условные операторы
Опрос Каков общий формат условного оператора? В чем смысл его применения? Можно ли опустить else? Ограниченна ли вложенность операторов? Если после then нужно выполнить несколько операторов?
карточки с заданиями Program ref; Uses Crt; Var x,y:integer; begin clrscr; write('vvedite y='); readln(y); x:=y+4; writeln('x=',x); readln; end.
Проверка домашнего задания Ввести с клавиатуры 3 числа, найти среди них максимум и вывести на экран.
Оператор безусловного перехода Помимо операторов условного перехода существует также оператор безусловного перехода goto. Формат: goto метка Оператор goto переходит при выполнении программы к определенному оператору программы, перед которым находится метка. Метка должна быть описана в разделе описания меток той программы, в которой она используется. Необходимо, чтобы в программе существовал оператор, отмеченный указанной меткой. Она записывается перед оператором и отделяется от него двоеточием. Пример label 1; begin... goto 1;... 1: WriteLn('Переход к метке 1'); end.
Задача 1. Для функций, заданных графически, определить значение y при заданном значении x.
Задача 2. Что больше: площадь равностороннего треугольника со стороной "а" или площадь круга с радиусом "а"? Предусмотреть ввод "а" с клавиатуры.
Задача***. По введенным с клавиатуры координатам определить, принадлежит ли она графику функции
Задача*** Заданы три числа a, b, c. Определить, могут ли они быть сторонами треугольника, и если да, то определить его тип: равносторонний, равнобедренный, разносторонний. Замечание: Условия существования треугольника: ab+c; ba+c; ca+b.
Домашнее задание Даны две тройки вещественных чисел. В каждой тройке все числа различные. Найти среднее арифметическое средних чисел каждой тройки (средним назовем такое число в тройке, которое больше наименьшего из чисел данной тройки, но меньше наибольшего).