{"id":641,"date":"2014-12-31T21:58:04","date_gmt":"2014-12-31T20:58:04","guid":{"rendered":"http:\/\/www.valcon.it\/pascal\/?p=641"},"modified":"2015-07-03T13:31:20","modified_gmt":"2015-07-03T11:31:20","slug":"unita-complessi","status":"publish","type":"post","link":"https:\/\/www.valcon.it\/pascal\/unita-complessi\/","title":{"rendered":"Unit\u00e0 Complessi"},"content":{"rendered":"

Analisi<\/h3>\n

…<\/p>\n

Unit\u00e0<\/h3>\n
Unit Complex;\r\n{----------------------------------------------------------------}\r\nInterface\r\n{----------------------------------------------------------------}\r\nType Comp = Record\r\n\u00a0 \u00a0 \u00a0   reale,\r\n\u00a0 \u00a0 \u00a0   immag: Real;\r\n\u00a0 \u00a0  End;\r\n\r\nProcedure InitC  (Var r: Comp; reale, immag: Real);\r\nFunction  RealeC (Var r: Comp): Real;\r\nFunction  ImmagC (Var r: Comp): Real;\r\nProcedure RecC   (Var r: Comp);\r\nProcedure OppC   (Var r: Comp);\r\nFunction  ModC   (    r: Comp): Real;\r\nProcedure AddC   ( r, s: Comp; Var t: Comp);\r\nProcedure SubC   ( r, s: Comp; Var t: Comp);\r\nProcedure MulC   ( r, s: Comp; Var t: Comp);\r\nProcedure DivC   ( r, s: Comp; Var t: Comp);\r\nFunction  UgualiC( r, s: Comp): Boolean;\r\n{----------------------------------------------------------------}\r\nImplementation\r\n{----------------------------------------------------------------}\r\nProcedure InitC(Var r: Comp; reale, immag: Real);\r\nBegin\r\n\u00a0 \u00a0r.reale:=reale;\r\n\u00a0 \u00a0r.immag:=immag;\r\nEnd;\r\nFunction RealeC(Var r: Comp):Real;\r\nBegin\r\n\u00a0 \u00a0RealeC:=r.reale;\r\nEnd;\r\nFunction ImmagC(Var r: Comp):Real;\r\nBegin\r\n\u00a0 \u00a0ImmagC:=r.immag;\r\nEnd;\r\n\r\nProcedure OppC(Var r: Comp);\r\nBegin\r\n\u00a0 \u00a0InitC(r, -RealeC(r), -ImmagC(r));\r\nEnd;\r\nFunction ModC(r: Comp): Real;\r\nBegin\r\n\u00a0 \u00a0ModC:=Sqrt(Sqr(RealeC(r))+Sqr(ImmagC(r)));\r\nEnd;\r\nProcedure RecC(Var r: Comp);\r\nVar M: Real;\r\nBegin\r\n\u00a0 \u00a0M:=ModC(r);\r\n\u00a0 \u00a0If(M = 0) Then Halt(1);\r\n\u00a0 \u00a0M:=Sqr(M);\r\n\u00a0 \u00a0InitC(r, RealeC(r)\/M, -ImmagC(r)\/M);\r\nEnd;\r\n\r\nProcedure AddC(r, s: Comp; Var t: Comp);\r\nBegin\r\n\u00a0 \u00a0InitC(t, RealeC(r)+RealeC(s), ImmagC(r)+ImmagC(s));\r\nEnd;\r\nProcedure SubC(r, s: Comp; Var t: Comp);\r\nBegin\r\n\u00a0 \u00a0OppC(s);\r\n\u00a0 \u00a0AddC(r, s, t);\r\nEnd;\r\nProcedure MulC(r, s: Comp; Var t: Comp);\r\nBegin\r\n\u00a0 \u00a0InitC(t, RealeC(r)*RealeC(s)-ImmagC(r)*ImmagC(s), RealeC(r)*ImmagC(s)+RealeC(s)*ImmagC(r));\r\nEnd;\r\nProcedure DivC(r, s: Comp; Var t: Comp);\r\nBegin\r\n\u00a0 \u00a0RecC(s);\r\n\u00a0 \u00a0MulC(r, s, t);\r\nEnd;\r\nFunction UgualiC(r, s: Comp): Boolean;\r\nBegin\r\n\u00a0 \u00a0UgualiC:=(RealeC(r) = RealeC(s)) And (ImmagC(r) = ImmagC(s));\r\nEnd;\r\n{----------------------------------------------------------------}\r\nBegin\r\n\u00a0 \u00a0Writeln(\u2018Unit Complex, ver. 1.0 ...\u2019);\r\nEnd.<\/pre>\n
Test<\/h3>\n
…<\/p>\n","protected":false},"excerpt":{"rendered":"
Analisi … Unit\u00e0 Unit Complex; {—————————————————————-} Interface {—————————————————————-} Type Comp = Record \u00a0 \u00a0 \u00a0 reale, \u00a0 \u00a0 \u00a0 immag: Real; \u00a0 \u00a0 End; Procedure InitC (Var r: Comp; reale, immag: Real); Function RealeC (Var r: Comp): Real; Function ImmagC (Var r: Comp): Real; Procedure RecC (Var r: Comp); Procedure OppC (Var r: Comp); Function … Leggi tutto<\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[10],"tags":[],"_links":{"self":[{"href":"https:\/\/www.valcon.it\/pascal\/wp-json\/wp\/v2\/posts\/641"}],"collection":[{"href":"https:\/\/www.valcon.it\/pascal\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.valcon.it\/pascal\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.valcon.it\/pascal\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.valcon.it\/pascal\/wp-json\/wp\/v2\/comments?post=641"}],"version-history":[{"count":1,"href":"https:\/\/www.valcon.it\/pascal\/wp-json\/wp\/v2\/posts\/641\/revisions"}],"predecessor-version":[{"id":642,"href":"https:\/\/www.valcon.it\/pascal\/wp-json\/wp\/v2\/posts\/641\/revisions\/642"}],"wp:attachment":[{"href":"https:\/\/www.valcon.it\/pascal\/wp-json\/wp\/v2\/media?parent=641"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.valcon.it\/pascal\/wp-json\/wp\/v2\/categories?post=641"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.valcon.it\/pascal\/wp-json\/wp\/v2\/tags?post=641"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}