При чтении данных из файла определить комплексные числа с наименьшими (наибольшими) модулем и аргументом - Turbo Pascal
Формулировка задачи:
Создать на диске файл file6.dat, состоящий из компонент-записей с полями; действительная часть комплексного числа; мнимая часть. При чтении данных из файла определить комплексные числа с наименьшими (наибольшими) модулем и аргументом.
Решение задачи: «При чтении данных из файла определить комплексные числа с наименьшими (наибольшими) модулем и аргументом»
textual
Листинг программы
if modul(z)<mnm then begin mnm:=modul(z); zmnm:=z; end else begin mxm:=modul(z); zmxm:=z; end; if rgument(z)<mna then begin mna:=argument(z); zmna:=z; end else begin mxa:=argument(z); zmxa:=z; end;
Объяснение кода листинга программы
- В первой строке кода используется функция
modul
, которая возвращает остаток от деления числа на другое число. Функция применяется к переменнойz
. - Вторая строка кода использует оператор
if
для проверки условия. Если остаток от деленияz
наmnm
меньше нуля, тоmnm
присваивается значениеz
, а переменнойzmnm
присваивается значениеz
. - Третья строка кода аналогична второй, но проверяет условие для переменной
mna
. - Четвертая и пятая строки кода присваивают значения
mxm
,zmxm
переменнымmna
иzmna
соответственно, если условие не выполнено. - Шестая и седьмая строки кода присваивают значения
mna
,zmna
переменнымmna
иzmna
соответственно, если условие выполнено. - В восьмой и девятой строках кода присваиваются значения
mxa
,zmxa
переменнымmna
иzmna
соответственно, если условие выполнено.