Оператор безусловного перехода и оператор варинта. - Pascal
Формулировка задачи:
1.Даны три вещественных числа x,y,z.Найти максимальное из них.(решить с помощью оператора безусловного перехода или с помощью оператора варианта)
2.Написать программу решения квадратного уравнения.Программы должны проверяться правильностью исходных данных и в случаи,когда коэффициент при второй степени неизвестного равен нулю,выводит соответсвующее сообщение.Ниже представленный рекомендуемый вид во время работы программы(данные введеные пользователем,выделены полужирным шрифтом).
Решение квадратного уравнения.
Введите в данной строке значения коэффициента и нажмите (Enter)
->12 27 -10
Корни уравнения :
x1=-25.551;
x2=-28.449.
Очень прошу попробуйте решить хоть одну)
Решение задачи: «Оператор безусловного перехода и оператор варинта.»
textual
Листинг программы
var x,y,z,a:byte; label 1; begin writeln('vvedite 3 chisla'); readln(x,y,x); if (x>y) and (x>z) then begin a:=x; goto 1; end else begin if (y>x) and (y>z) then begin a:=y; goto 1; end else begin a:=z; goto 1; end; end; 1:writeln('max= ',a); readln; end.
Объяснение кода листинга программы
- Переменные
x
,y
иz
инициализируются значением типаbyte
. - Выводится сообщение «введите 3 числа», и считываются три числа с помощью функции
readln()
. - Сравниваются три числа. Если первое число больше второго и третьего, то переменной
a
присваивается значение первого числа и выполняется операторgoto 1
. Если второе число больше первого и третьего, то переменнойa
присваивается значение второго числа и выполняется операторgoto 1
. Если третье число больше первого и второго, то переменнойa
присваивается значение третьего числа и выполняется операторgoto 1
. - Если ни одно из условий не выполнилось, то переменной
a
присваивается значение третьего числа. - Выводится сообщение «max= », и выполняется функция
readln()
для завершения программы.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д