Komplexe Zahlen in Pascal berechnen: Programmcode & Anleitung
Komplexe Zahlen in Pascal berechnen
Program NosComp;
uses crt;
type
record number =
real: real;
imag: real;
end;
var
n1, n2: number;
resp: char;
procedure LeerDatos;
begin
writeln('Realteil der ersten Zahl:');
readln(n1.real);
writeln('Imaginärteil der ersten Zahl:');
readln(n1.imag);
writeln('Realteil der zweiten Zahl:');
readln(n2.real);
writeln('Imaginärteil der zweiten Zahl:');
readln(n2.imag);
end;
procedure sum;
begin
write('Das Ergebnis der Addition ist: ');
if (n1.imag + n2.imag) >= 0 then
writeln((n1.real + n2.real):2:2, '+', (n1.imag + n2.imag):2:2, 'i')
else
writeln((n1.real + n2.real):2:2, '-', abs(n1.imag + n2.imag):2:2, 'i');
end; (sum)
procedure Subtraktion;
begin
write('Das Ergebnis der Subtraktion ist: ');
if (n1.imag - n2.imag)...