uses
Crt;
type
TComplex = record
Re, Im: Double;
end;
var
X: TComplex;
T: Double;
begin
ClrScr;
{$I-}
WriteLn('Введите действительную часть: ');
Read(T);
repeat
WriteLn('Ошибка! Повторите ввод!');
Read(T);
until IOResult <> 0;
x.Re := T;
WriteLn('Введите мнимую часть: ');
Read(T);
repeat
WriteLn('Ошибка! Повторите ввод!');
Read(T);
until IOResult <> 0;
x.Im := T;
{$I+}
{Фсе! Теперь юзай X как хочешь}
ReadKey;
end.
[Turbo pascal] мнимые числа
Помогите 13. Написать программу для ввода с клавиатуры в переменную типа запись полей действительной и мнимой части комплексного числа.
за ранее благодарен
за ранее благодарен
А очне полность можнно. Пожалуйста
Куда полнее? По вопросу здесь все.
Про юзай X можно примерчик. Как например проюзать х в этой задаче ?
Скажем - сложить два числа.
Умножить:
Короч, справочник по математике в руки - и вперед.
UPD: Надо ли говорить, что X, Y и Z - они одного типа?
Код:
Z.Re := X.Re + Y.Re;
Z.Im := X.Im + Y.Im;
Z.Im := X.Im + Y.Im;
Умножить:
Код:
Z.Re := X.Re * Y.Re - X.Im * Y.Im;
Z.Im := X.Re * Y.Im + X.Im * Y.Re;
Z.Im := X.Re * Y.Im + X.Im * Y.Re;
Короч, справочник по математике в руки - и вперед.
UPD: Надо ли говорить, что X, Y и Z - они одного типа?