Nova poruka

Pascal kompleksni brojevi

poruka: 3
|
čitano: 2.238
|
moderatori: Lazarus Long, XXX-Man, vincimus
1
+/- sve poruke
ravni prikaz
starije poruke gore
Karl00 
14 godina
neaktivan
offline
uto 12.10.2010 18:15
Odgovori Citiraj
Pascal kompleksni brojevi

imam problem...

jos se nisam uhodo u kompleksne brojeve u pascalu pa bi vas molio ono par osnova :D

 

zadatak je

--------------------------------------------------------------------------------------------------

Napišite program koji će učitati dva kompleksna broja i ispisati njihov umnožak
--------------------------------------------------------------------------------------------------

{evo moje jedno ludo rjesenje vjerovatno je big FAIL}

program complex3;

var
    x1,x2,y1,y2,u,k,i:real;
begin
    writeln ('Unesi realni dio prvog kompleksnog broja');
       readln (x1);
    writeln ('Unesi imaginarni dio prvog kompleksnog broja');
       readln (y1);
    writeln ('Unesi realni dio drugog kompleksnog broja');
       readln (x2);
    writeln ('Unesi imaginarni dio drugog kompleksnog broja');
       readln (y2);
    i:=sqrt (-1);
    u:=(x1+y1*i)*(x2+y2*i)
    writeln ('Umnozak kompleksni brojeva',u:10:2);
end.

 
trajni link
0 0 hvala 0
Pijavica 
14 godina
neaktivan
offline
uto 12.10.2010 20:18
Odgovori Citiraj
Pascal kompleksni brojevi
#include <iostream>
#include <cstdlib>
#include <cstdio>
using namespace std;
   int main(){
     
       int x,y,a,b;
       
     cout << "Upisi komleksne brojeve(Oblika x+yi) : " <<endl;
       
         scanf("%d+%di",&x,&y);
         scanf("%d+%di",&a,&b);
         
         
         if((a*x - y*b) != 0 && (x*y + a*y) != 0)cout << (a*x-y*b) << "+" << (x*y + a*y)<<"i" <<endl; 
         else if((a*x - y*b) == 0 && (x*y + a*y) != 0)cout << (x*y + a*y)<<"i" <<endl; 
         else if((a*x - y*b) != 0 && (x*y + a*y) == 0)cout << (a*x-y*b) << endl; 
   
    
   
   system("PaUsE");
   return 0;
   }
Ovako sam ja rješio u c++....Ubiti napravis na papiru....
(x+yi)*(a+bi) = .... = (ax-by) + (ay +xb)i
Mislim da nema potrebe (a sumnjam da bi li i radilo) deklarirati i kao sqrt(-1)
optimizam je nedostatak informacija
Moj PC  
trajni link
0 0 hvala 1
Karl00 
14 godina
neaktivan
offline
uto 12.10.2010 20:53
Odgovori Citiraj
Pascal kompleksni brojevi

jebote ledara to sam se trebo sjetiti

" (x+yi)*(a+bi) = .... = (ax-by) + (ay +xb)i "

a sad mi prelagano... tnx za to.. al ovo sto si napiso u c++ nije bilo potrebno kad neznam citat u njemu xD.. al HVALA PUNO

Poruka je uređivana zadnji put uto 12.10.2010 20:54 (Karl00).
 
trajni link
0 0 hvala 0
1
Nova poruka
Pronađi
Prijava korisnika
E-mail:
Lozinka:
 
Aktivne teme
vrh stranice
Copyright © 2008 - 2025 Bug d.o.o. sva prava pridržana.