Turbo Pascal

Fra Wikipedia, den frie encyklopædi

Kvalitetssikring
En bruger mener, at et eller flere aspekter af denne artikel ikke er i henhold til Wikipedias kvalitetskrav.
Dette skal dog begrundes og derfor skal denne skabelon erstattes af en mere specifik kritikskabelon
Sammenskrivningsforslag
Denne artikel er foreslået sammenskrevet med Pascal (programmeringssprog).   (Diskutér forslaget).
Når sammenskrivningen sker, skal en administrator kontaktes. Denne vil sørge for at historikken holdes samlet. Kopiér ikke bare fra én artikel til en anden.

Turbo Pascal er en variant af programmeringssproget Pascal, fra Borland. Turbo Pascal nød stor udbredelse på DOS, men senere blev en Windows version også udgivet. Dog blev bl. a. C++ mere udbredt, så Turbo Pascal for Windows blev aldrig rigtig kendt.

Sådan kommer du i gang med dit første Turbo Pascal program.

Da der er så meget at skrive om et programmeringssprog vil jeg blot kort forklare hvordan man konstruerer et program der kan udregne arealet og omkredsen af en cirkel kun ved hjælp af Radius. Her gennemgås hver enkelt linie i programmets kildekode. BEMÆRK:Hver enkelt linie bør afsluttes med semikolon (;) og det skal desuden lige pointeres at Æ, Ø og Å er forskellig fra Windows og DOS tegnsættene.


 PROGRAM Cirkel; {Her angives programmets navn. I dette tilfælde, bare Cirkel}

USES {Her angives hvilke "units" der skal bruges} Crt;

VAR {Her angives variabler] Areal : Real; {Arealet defineres til typen Real*} Omkreds : Real; {Omkredsen defineres til typen Real*} Diameter : Real; {Diameteren defineres til typen Real*) Radius : Real; {Radius defineres til typen Real*}

BEGIN {Hovedprogrammet startes} TextColor(Yellow); {Tekstens farve angives. I dette tilfælde: gul/yellow} TextBackground(Blue); {Baggrundsfarven angives her. I dette tilfælde: blå/blue} ClrScr;{Skærmen ryddes for tekst} WriteLn('Velkommen til Cirkel der kan regne omkreds og areal af en cirkel ud'); {Der udskrives til skærmen} WriteLn('Kun ved hj‘lp af Radius p† cirklen.'); {Der udskrives til skærmen} WriteLn('BEM’RK: Output enheden vil altid v‘re den samme som inputenheden.'); {Der udskrives til skærmen} WriteLn('det vil sige at skriver du 4 og mener 4 centimeter s† vil resultatet'); {Der udskrives til skærmen} WriteLn('ogs† v‘re i CM. Programmet omregner alts† IKKE mellem Kilometer, etc.'); {Der udskrives til skærmen} WriteLn('Brug heller ikke almindeligt komma. Brug punktum i stedet.'); {Der udskrives til skærmen} WriteLn; {Der udskrives til skærmen med en tom linie} WriteLn('Indtast radius:'); {Der udskrives til skærmen} ReadLn(Radius); {Brugerens input læses her og gemmes som variablen Radius} Diameter := Radius * 2; {Diameter sættes til Radius * 2} Areal := Radius * Radius * Pi; {Arealet udregnes. Her bruges identifieren Pi da den giver det mest præcise resultat frem for brugerindtastninger. Her regnes mes 19 foruddefinerede decimaler til Pi} Omkreds :=Diameter * Pi; {Omkreds udregnes, v.h.a. diameteren} WriteLn; {Tom linie indsættes} WriteLn; {Tom linie indsættes} WriteLn('Areal = ',Areal :6 :10); {Arealet udskrives til skærmen og forkortes til 10 decimaler} WriteLn('Omkreds = ',Omkreds :6 :10); {Omkreds udskrives til skærmen og forkortes til 10 decimaler} WriteLn('Diameter = ',Diameter :6 :2); {Diameteren udskrives til skærmen og forkortes til 2 decimaler} WriteLn; {Tom linie indsættes} WriteLn('Tryk enter for at afslutte...'); {Der udskrives til skærmen} ReadLn; {Der afventes brugerinput i form af et tryk på Enter. I dette tilfælde fungerer ReadLn bare som en pause så programmet ikke lukkes med det samme og brugeren får så mulighed for at kigge på evt. fejlmeddelelser. Her læses ikke til en variabel} End. {Programmet afsluttes}

Rettighederne til kildekoden tilhører Bruger:Chrown.